[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, at subjects);
+	C4::Biblio::_koha_modify_subject($dbh,$oldbiblionumber,1, at subjects);
 	return 1;
 }