[Koha-cvs] CVS: koha/acqui.simple additem.pl,1.16,1.17

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv27858/acqui.simple

Modified Files:
        additem.pl 
Log Message:
Those fixes solves the "internal server error" with MARC::Record 1.12.
It was due to an illegal contruction in Koha : we tried to retrive subfields 
from <10 tags.
That's not possible. MARC::Record accepted this in 0.93 version, but it was 
fixed after.
Now, the construct/retrieving is OK !

Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** additem.pl  1 Apr 2003 12:27:46 -0000       1.16
--- additem.pl  28 Apr 2003 13:07:17 -0000      1.17
***************
*** 33,37 ****
  sub find_value {
        my ($tagfield,$insubfield,$record) = @_;
- #     warn "$tagfield / $insubfield // ";
        my $result;
        my $indicator;
--- 33,36 ----
***************
*** 122,125 ****
--- 121,125 ----
  my @itemnums; # array to store itemnums
  foreach my $field (@fields) {
+       next if ($field->tag()<10);
        my @subf=$field->subfields;
        my %this_row;