[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.32,1.33
Paul POULAIN
tipaul at users.sourceforge.net
Mon Dec 22 20:17:01 CET 2003
- Previous message: [Koha-cvs] CVS: koha/admin aqbudget.pl,1.15,1.16 authorised_values.pl,1.11,1.12 checkmarc.pl,1.5,1.6 systempreferences.pl,1.15,1.16 thesaurus.pl,1.9,1.10
- Next message: [Koha-cvs] CVS: koha/acqui acquire.pl,1.14,1.15 newbiblio.pl,1.14,1.15
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv17960/acqui.simple
Modified Files:
addbiblio.pl
Log Message:
sync'ing with rel_2_0 (mostly prepare/execute pb, bug #662)
Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -r1.32 -r1.33
*** addbiblio.pl 6 Nov 2003 17:18:31 -0000 1.32
--- addbiblio.pl 22 Dec 2003 19:16:58 -0000 1.33
***************
*** 231,235 ****
next if subfield_is_koha_internal_p($subfield);
next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
! next if (defined($record->field($tag)->subfield($subfield)));
push(@subfields_data, &create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
$i++;
--- 231,236 ----
next if subfield_is_koha_internal_p($subfield);
next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
! next if ($tag > 10 && defined($record->field($tag)->subfield($subfield)));
! next if ($tag < 10 && defined($record->field($tag)->data()));
push(@subfields_data, &create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
$i++;
- Previous message: [Koha-cvs] CVS: koha/admin aqbudget.pl,1.15,1.16 authorised_values.pl,1.11,1.12 checkmarc.pl,1.5,1.6 systempreferences.pl,1.15,1.16 thesaurus.pl,1.9,1.10
- Next message: [Koha-cvs] CVS: koha/acqui acquire.pl,1.14,1.15 newbiblio.pl,1.14,1.15
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Koha-cvs
mailing list