[Koha-cvs] koha/C4 Biblio.pm
Chris Cormack
chris at katipo.co.nz
Sat Apr 1 23:22:06 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Chris Cormack <rangi at savannah.gnu.org> 06/04/01 21:22:06
Modified files:
C4 : Biblio.pm
Log message:
Adding a little fake subroutine that a few scripts in the opac depend on, can be removed once the opac scripts are rewritten
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?tr1=1.164&tr2=1.165&r1=text&r2=text
Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.164 koha/C4/Biblio.pm:1.165
--- koha/C4/Biblio.pm:1.164 Wed Mar 29 01:56:25 2006
+++ koha/C4/Biblio.pm Sat Apr 1 21:22:05 2006
@@ -30,7 +30,7 @@
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.164 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.165 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
@ISA = qw(Exporter);
@@ -68,6 +68,7 @@
&MARCkoha2marcBiblio &MARCmarc2koha
&MARCkoha2marcItem &MARChtml2marc &MARChtml2xml
&MARCgetbiblio &MARCgetitem
+ MARCfind_MARCbibid_from_oldbiblionumber
&XMLgetbiblio
&FindDuplicate
@@ -311,6 +312,15 @@
=cut
+
+# old subroutine to provide backwards compatibility.
+# opac-detail breaks without this. Can be removed once opac-detail is fixed
+sub MARCfind_MARCbibid_from_oldbiblionumber {
+ my ($biblionumber)=@_;
+ return ($biblionumber);
+
+}
+
sub MARCgettagslib {
my ( $dbh, $forlibrarian, $frameworkcode ) = @_;
$frameworkcode = "" unless $frameworkcode;
@@ -3002,8 +3012,11 @@
=cut
-# $Id: Biblio.pm,v 1.164 2006/03/29 01:56:25 rangi Exp $
+# $Id: Biblio.pm,v 1.165 2006/04/01 21:22:05 rangi Exp $
# $Log: Biblio.pm,v $
+# Revision 1.165 2006/04/01 21:22:05 rangi
+# Adding a little fake subroutine that a few scripts in the opac depend on, can be removed once the opac scripts are rewritten
+#
# Revision 1.164 2006/03/29 01:56:25 rangi
# Delete isnt working using the extended services method
#
More information about the Koha-cvs
mailing list