Some usefuls functions were commented.

diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl
index 2811aa1..11eff60 100755 (executable)
--- a/opac/opac-ISBDdetail.pl
+++ b/opac/opac-ISBDdetail.pl
@@ -23,8 +23,6 @@
 
 MARCdetail.pl : script to show a biblio in MARC format
 
-=head1 SYNOPSIS
-
 
 =head1 DESCRIPTION
 
@@ -67,10 +65,9 @@ my $dbh=C4::Context->dbh;
 
 my $biblionumber=$query->param('bib');
 my $bibid = $query->param('bibid');
-#$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless $bibid;
-#$biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
-#my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
-my $itemtype="";
+$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless $bibid;
+$biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
+my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
 my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
 
 my $record =MARCgetbiblio($dbh,$bibid);

diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl
index f8c9237..32e4898 100755 (executable)
--- a/opac/opac-MARCdetail.pl
+++ b/opac/opac-MARCdetail.pl
@@ -63,15 +63,13 @@ my $query=new CGI;
 my $dbh=C4::Context->dbh;
 
 my $biblionumber=$query->param('bib');
-# my $bibid = $query->param('bibid');
-# $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless $bibid;
-# $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
-# my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
-my $framework = "";
-my $itemtype = "";
-my $tagslib = &MARCgettagslib($dbh,0,$framework);
-
-my $record = get_record($biblionumber);
+my $bibid = $query->param('bibid');
+$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless $bibid;
+$biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
+my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
+my $tagslib = &MARCgettagslib($dbh,0,$itemtype);
+
+my $record =MARCgetbiblio($dbh,$bibid);
 # open template
 my ($template, $loggedinuser, $cookie)
                = get_template_and_user({template_name => "opac-MARCdetail.tmpl",