[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;