[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.39,1.40 additem.pl,1.25,1.26
Paul POULAIN
tipaul at users.sourceforge.net
Tue Jun 29 18:07:43 CEST 2004
Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20427/acqui.simple
Modified Files:
addbiblio.pl additem.pl
Log Message:
last sync for 2.1.0 release
Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -r1.39 -r1.40
*** addbiblio.pl 10 Jun 2004 09:34:55 -0000 1.39
--- addbiblio.pl 29 Jun 2004 16:07:09 -0000 1.40
***************
*** 344,348 ****
my $encoding="";
$record = MARCgetbiblio($dbh,$bibid) if ($bibid);
- # warn "R".$record->as_formatted;
($record,$encoding) = MARCfindbreeding($dbh,$breedingid) if ($breedingid);
--- 344,347 ----
Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** additem.pl 3 Jun 2004 09:59:37 -0000 1.25
--- additem.pl 29 Jun 2004 16:07:10 -0000 1.26
***************
*** 201,204 ****
--- 201,213 ----
my ($x,$value);
($x,$value) = find_value($tag,$subfield,$itemrecord) if ($itemrecord);
+ # search for itemcallnumber if applicable
+ if ($tagslib->{$tag}->{$subfield}->{kohafield} eq 'items.itemcallnumber' && C4::Context->preference('itemcallnumber')) {
+ my $CNtag = substr(C4::Context->preference('itemcallnumber'),0,3);
+ my $CNsubfield = substr(C4::Context->preference('itemcallnumber'),3,1);
+ my $temp = $record->field($CNtag);
+ if ($temp) {
+ $value = $temp->subfield($CNsubfield);
+ }
+ }
if ($tagslib->{$tag}->{$subfield}->{authorised_value}) {
my @authorised_values;
***************
*** 241,244 ****
--- 250,254 ----
} elsif ($tagslib->{$tag}->{$subfield}->{thesaurus_category}) {
$subfield_data{marc_value}="<input type=\"text\" name=\"field_value\" size=47 maxlength=255> <a href=\"javascript:Dopop('../thesaurus_popup.pl?category=$tagslib->{$tag}->{$subfield}->{thesaurus_category}&index=$i',$i)\">...</a>";
+ #"
} elsif ($tagslib->{$tag}->{$subfield}->{'value_builder'}) {
my $plugin="../value_builder/".$tagslib->{$tag}->{$subfield}->{'value_builder'};
More information about the Koha-cvs
mailing list