[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} = 
address@hidden;
                                                push (@loop_data, \%tag_data);
+                                               warn "I is : $i";
                                        }
  # If there is more than 1 field, add an empty hidden field as separator.