[Koha-cvs] koha/opac opac-ISBDdetail.pl opac-MARCdetail.pl
Antoine Farnault
antoine at koha-fr.org
Fri Aug 11 17:45:37 CEST 2006
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",
More information about the Koha-cvs
mailing list