[Koha-cvs] koha/misc rebuildnonmarc.pl [dev_week]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  06/10/03 12:57:38

Modified files:
        misc           : rebuildnonmarc.pl 

Log message:
        changing OLD* to _koha* in line with new API naming conventions

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/rebuildnonmarc.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.4.2.1.2.1&r2=1.4.2.1.2.2

Patches:
Index: rebuildnonmarc.pl
===================================================================
RCS file: /sources/koha/koha/misc/rebuildnonmarc.pl,v
retrieving revision 1.4.2.1.2.1
retrieving revision 1.4.2.1.2.2
diff -u -b -r1.4.2.1.2.1 -r1.4.2.1.2.2
--- rebuildnonmarc.pl   3 Oct 2006 12:52:20 -0000       1.4.2.1.2.1
+++ rebuildnonmarc.pl   3 Oct 2006 12:57:38 -0000       1.4.2.1.2.2
@@ -90,8 +90,8 @@
        $frameworkcode="" unless $frameworkcode;
 #      &MARCmodbiblio($dbh,$bibid,$record,$frameworkcode,0);
        my $oldbiblio = MARCmarc2koha($dbh,$record,$frameworkcode);
-       my $oldbiblionumber = C4::Biblio::OLDmodbiblio($dbh,$oldbiblio);
-       C4::Biblio::OLDmodbibitem($dbh,$oldbiblio);
+       my $oldbiblionumber = C4::Biblio::_koha_modify_biblio($dbh,$oldbiblio);
+       C4::Biblio::_koha_modify_biblioitem($dbh,$oldbiblio);
        # now, modify addi authors, subject, addititles.
        my ($tagfield,$tagsubfield) = 
MARCfind_marc_from_kohafield($dbh,"additionalauthors.author",$frameworkcode);
        my @addiauthfields = $record->field($tagfield);
@@ -99,7 +99,7 @@
        foreach my $addiauthfield (@addiauthfields) {
                my @addiauthsubfields = $addiauthfield->subfield($tagsubfield);
                foreach my $subfieldcount (0..$#addiauthsubfields) {
-                       
C4::Biblio::OLDmodaddauthor($dbh,$oldbiblionumber,$addiauthsubfields[$subfieldcount]);
+                       
C4::Biblio::_koha_modify_additionalauthor($dbh,$oldbiblionumber,$addiauthsubfields[$subfieldcount]);
                }
        }
        ($tagfield,$tagsubfield) = 
MARCfind_marc_from_kohafield($dbh,"bibliosubtitle.subtitle",$frameworkcode);
@@ -107,7 +107,7 @@
        foreach my $subtitlefield (@subtitlefields) {
                my @subtitlesubfields = $subtitlefield->subfield($tagsubfield);
                foreach my $subfieldcount (0..$#subtitlesubfields) {
-                       
C4::Biblio::OLDnewsubtitle($dbh,$oldbiblionumber,$subtitlesubfields[$subfieldcount]);
+                       
C4::Biblio::_koha_add_subtitle($dbh,$oldbiblionumber,$subtitlesubfields[$subfieldcount]);
                }
        }
        ($tagfield,$tagsubfield) = 
MARCfind_marc_from_kohafield($dbh,"bibliosubject.subject",$frameworkcode);
@@ -119,7 +119,7 @@
                        push @subjects,$subjsubfield[$subfieldcount];
                }
        }
-       C4::Biblio::OLDmodsubject($dbh,$oldbiblionumber,1,@subjects);
+       C4::Biblio::_koha_modify_subject($dbh,$oldbiblionumber,1,@subjects);
        return 1;
 }