[Koha-cvs] CVS: koha MARCdetail.pl,1.2,1.3
Paul POULAIN
tipaul at users.sourceforge.net
Fri Oct 11 11:29:40 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv27411
Modified Files:
MARCdetail.pl
Log Message:
minor bugfixes and improvements
Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** MARCdetail.pl 9 Oct 2002 15:45:59 -0000 1.2
--- MARCdetail.pl 11 Oct 2002 09:29:38 -0000 1.3
***************
*** 33,37 ****
my $dbh=C4::Context->dbh;
! my $biblionumber=$query->param('biblionumber');
my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
--- 33,37 ----
my $dbh=C4::Context->dbh;
! my $biblionumber=$query->param('bib');
my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
***************
*** 60,69 ****
$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
$subfield_data{marc_value}=$subf[$i][1];
! $subfield_data{marc_tag}=$field->tag().$subf[$i][0];
push(@subfields_data, \%subfield_data);
}
if ($#subfields_data>=0) {
my %tag_data;
! $tag_data{tag}=$field->tag().' '. $tagslib->{$field->tag()}->{lib};
$tag_data{subfield} = \@subfields_data;
push (@loop_data, \%tag_data);
--- 60,69 ----
$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
$subfield_data{marc_value}=$subf[$i][1];
! $subfield_data{marc_tag}=$subf[$i][0];
push(@subfields_data, \%subfield_data);
}
if ($#subfields_data>=0) {
my %tag_data;
! $tag_data{tag}=$field->tag().' -'. $tagslib->{$field->tag()}->{lib};
$tag_data{subfield} = \@subfields_data;
push (@loop_data, \%tag_data);
More information about the Koha-cvs
mailing list