[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.32.2.1,1.32.2.2

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
	addbiblio.pl 
Log Message:
fixing a bug in a test that makes javascript fail in MARC editor.
appearing on specific MARC configuration, nobody saw it before it seem !

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.32.2.1
retrieving revision 1.32.2.2
diff -C2 -r1.32.2.1 -r1.32.2.2
*** addbiblio.pl	13 Jan 2004 17:25:34 -0000	1.32.2.1
--- addbiblio.pl	16 Jan 2004 15:57:14 -0000	1.32.2.2
***************
*** 191,194 ****
--- 191,195 ----
      my($template, $record, $dbh,$encoding) = @_;
  
+     warn "REC : ".$record->as_formatted;
      # fill arrays
      my @loop_data =();
***************
*** 213,218 ****
  						my $value=$field->data();
  						my $subfield="@";
! 						push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth))
! 								unless ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  						$i++;
  					} else {
--- 214,219 ----
  						my $value=$field->data();
  						my $subfield="@";
! 						next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
! 						push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth));
  						$i++;
  					} else {
***************
*** 242,245 ****
--- 243,247 ----
  						$tag_data{subfield_loop} = \@subfields_data;
  						push (@loop_data, \%tag_data);
+ 						warn "I is : $i";
  					}
  # If there is more than 1 field, add an empty hidden field as separator.