[Koha-cvs] koha/opac opac-ISBDdetail.pl opac-MARCdetail.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/08/11 15:45:37

Modified files:
        opac           : opac-ISBDdetail.pl opac-MARCdetail.pl 

Log message:
        Some usefuls functions were commented.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-ISBDdetail.pl?cvsroot=koha&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-MARCdetail.pl?cvsroot=koha&r1=1.13&r2=1.14

Patches:
Index: opac-ISBDdetail.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-ISBDdetail.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- opac-ISBDdetail.pl  12 Jul 2006 17:19:39 -0000      1.15
+++ opac-ISBDdetail.pl  11 Aug 2006 15:45:37 -0000      1.16
@@ -17,14 +17,12 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: opac-ISBDdetail.pl,v 1.15 2006/07/12 17:19:39 toins Exp $
+# $Id: opac-ISBDdetail.pl,v 1.16 2006/08/11 15:45:37 toins Exp $
 
 =head1 NAME
 
 MARCdetail.pl : script to show a biblio in MARC format
 
-=head1 SYNOPSIS
-
 
 =head1 DESCRIPTION
 
@@ -67,10 +65,9 @@
 
 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);

Index: opac-MARCdetail.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-MARCdetail.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- opac-MARCdetail.pl  4 Jul 2006 14:36:52 -0000       1.13
+++ opac-MARCdetail.pl  11 Aug 2006 15:45:37 -0000      1.14
@@ -63,15 +63,13 @@
 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 $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 = get_record($biblionumber);
+my $record =MARCgetbiblio($dbh,$bibid);
 # open template
 my ($template, $loggedinuser, $cookie)
                = get_template_and_user({template_name => 
"opac-MARCdetail.tmpl",