[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.32.2.5,1.32.2.6

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
        addbiblio.pl 
Log Message:
small fix to handle tags<10

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.32.2.5
retrieving revision 1.32.2.6
diff -C2 -r1.32.2.5 -r1.32.2.6
*** addbiblio.pl        6 Feb 2004 14:14:55 -0000       1.32.2.5
--- addbiblio.pl        10 Feb 2004 09:09:41 -0000      1.32.2.6
***************
*** 232,235 ****
--- 232,236 ----
                                                next if 
subfield_is_koha_internal_p($subfield);
                                                next if 
($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
+                                               next if ($tag<10);
                                                next if 
(defined($record->field($tag)->subfield($subfield)));
                                                push(@subfields_data, 
&create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
***************
*** 240,244 ****
                                                $tag_data{tag} = $tag;
                                                $tag_data{tag_lib} = 
$tagslib->{$tag}->{lib};
!                                               $tag_data{indicator} = 
$record->field($tag)->indicator(1). $record->field($tag)->indicator(2);
                                                $tag_data{subfield_loop} = 
address@hidden;
                                                push (@loop_data, \%tag_data);
--- 241,245 ----
                                                $tag_data{tag} = $tag;
                                                $tag_data{tag_lib} = 
$tagslib->{$tag}->{lib};
!                                               $tag_data{indicator} = 
$record->field($tag)->indicator(1). $record->field($tag)->indicator(2) if 
($tag>=10);
                                                $tag_data{subfield_loop} = 
address@hidden;
                                                push (@loop_data, \%tag_data);