From aef9c7d0b9b2c8d47dee733377639c64043f1e73 Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 11 Oct 2002 09:29:38 +0000 Subject: [PATCH] minor bugfixes and improvements --- MARCdetail.pl | 6 +- .../default/en/catalogue/MARCdetail.tmpl | 110 ++++++++++-------- 2 files changed, 63 insertions(+), 53 deletions(-) diff --git a/MARCdetail.pl b/MARCdetail.pl index 66020f3c67..0145240104 100755 --- a/MARCdetail.pl +++ b/MARCdetail.pl @@ -32,7 +32,7 @@ my $query=new CGI; my $dbh=C4::Context->dbh; -my $biblionumber=$query->param('biblionumber'); +my $biblionumber=$query->param('bib'); my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber); my $tagslib = &MARCgettagslib($dbh,1); @@ -59,12 +59,12 @@ for (my $tabloop = 0; $tabloop<=10;$tabloop++) { my %subfield_data; $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]; + $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{tag}=$field->tag().' -'. $tagslib->{$field->tag()}->{lib}; $tag_data{subfield} = \@subfields_data; push (@loop_data, \%tag_data); } diff --git a/koha-tmpl/intranet-tmpl/default/en/catalogue/MARCdetail.tmpl b/koha-tmpl/intranet-tmpl/default/en/catalogue/MARCdetail.tmpl index d57656bfdf..ee35985f21 100644 --- a/koha-tmpl/intranet-tmpl/default/en/catalogue/MARCdetail.tmpl +++ b/koha-tmpl/intranet-tmpl/default/en/catalogue/MARCdetail.tmpl @@ -25,14 +25,15 @@ -
+
- + - - + + + @@ -40,29 +41,31 @@
   
- -