[Koha-cvs] koha/C4 Biblio.pm [dev_week]

[Joshua Ferraro]

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