[Koha-cvs] koha/C4 Biblio.pm [dev_week]
Joshua Ferraro
jmf at kados.org
Sun Sep 24 22:35:57 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Joshua Ferraro <kados> 06/09/24 20:35:57
Modified files:
C4 : Biblio.pm
Log message:
renaming internal routines from _kohaDelete* to _koha_delete_*
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.115.2.51.2.22&r2=1.115.2.51.2.23
Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.51.2.22
retrieving revision 1.115.2.51.2.23
diff -u -b -r1.115.2.51.2.22 -r1.115.2.51.2.23
--- Biblio.pm 24 Sep 2006 20:29:25 -0000 1.115.2.51.2.22
+++ Biblio.pm 24 Sep 2006 20:35:57 -0000 1.115.2.51.2.23
@@ -39,18 +39,19 @@
&ModBiblio
&DelBiblio
- &newbiblio &newbiblioitem
- &modnote &newsubject &newsubtitle
+ &ModBiblioframework
+ &newbiblio &newbiblioitem &newitems
+ &modnote &newsubject &newsubtitle
&checkitems
+ &countitems
+ &skip
- &newitems
- &modsubtitle &modsubject &modaddauthor &moditem &countitems
+ &modsubtitle &modsubject &modaddauthor &moditem
&getbiblio &getstacks
&getbiblioitembybiblionumber
&getbiblioitem &getitemsbybiblioitem
- &skip
&MARCfind_MARCbibid_from_oldbiblionumber
&MARCfind_marc_from_kohafield
@@ -62,7 +63,6 @@
&NEWnewitem
&NEWmoditem
- &ModBiblioframework
&NEWdelitem
&zebraop
@@ -332,7 +332,7 @@
return $error if $error;
# delete biblio from Koha tables and save in deletedbiblio
- $error = &_kohaDeleteBiblio( $dbh, $biblionumber );
+ $error = &_koha_delete_biblio( $dbh, $biblionumber );
return $error if $error;
# delete biblioitems and items from Koha tables and save in deletedbiblioitems,deleteditems
@@ -341,7 +341,7 @@
while ( my $biblioitemnumber = $sth->fetchrow ) {
# delete this biblioitem
- $error = &_kohaDeleteBiblioitems( $dbh, $biblioitemnumber );
+ $error = &_koha_delete_biblioitems( $dbh, $biblioitemnumber );
return $error if $error;
# delete items
@@ -2080,9 +2080,9 @@
# $dbh->disconnect;
}
-=item _kohaDeleteBiblio
+=item _koha_delete_biblio
-$error = _kohaDeleteBiblio($dbh,$biblionumber);
+$error = _koha_delete_biblio($dbh,$biblionumber);
Internal sub for deleting from biblio table -- also saves to deletedbiblio
@@ -2092,7 +2092,7 @@
=cut
# FIXME: add error handling
-sub _kohaDeleteBiblio {
+sub _koha_delete_biblio {
my ( $dbh, $biblionumber ) = @_;
# get all the data for this biblio
@@ -2124,9 +2124,9 @@
return undef;
}
-=item _kohaDeleteBiblioitems
+=item _koha_delete_biblioitems
-$error = _kohaDeleteBiblioitems($dbh,$biblioitemnumber);
+$error = _koha_delete_biblioitems($dbh,$biblioitemnumber);
Internal sub for deleting from biblioitems table -- also saves to deletedbiblioitems
@@ -2136,7 +2136,7 @@
=cut
# FIXME: add error handling
-sub _kohaDeleteBiblioitems {
+sub _koha_delete_biblioitems {
my ( $dbh, $biblioitemnumber ) = @_;
# get all the data for this biblioitem
@@ -2991,8 +2991,11 @@
=cut
-# $Id: Biblio.pm,v 1.115.2.51.2.22 2006/09/24 20:29:25 kados Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.23 2006/09/24 20:35:57 kados Exp $
# $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.23 2006/09/24 20:35:57 kados
+# renaming internal routines from _kohaDelete* to _koha_delete_*
+#
# Revision 1.115.2.51.2.22 2006/09/24 20:29:25 kados
# renaming OLDnewbiblio* to _koha_add_biblio*. These are strictly internal
# functions
More information about the Koha-cvs
mailing list