From 3572c5a9c77b341e8a0e101df1e3a1065d6a4a36 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 12 Nov 2007 12:22:08 +0000 Subject: [PATCH] fix MARC creation for new WebPAC::Normalize::MARC git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1041 07558da8-63fa-0310-ba24-9fe276d99e06 --- run.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/run.pl b/run.pl index 2dc7eb7..8c04c91 100755 --- a/run.pl +++ b/run.pl @@ -600,11 +600,11 @@ foreach my $database ( sort keys %{ $config->databases } ) { if ($marc) { my $i = 0; - while (my $fields = WebPAC::Normalize::_get_marc_fields( fetch_next => 1 ) ) { + while (my $fields = WebPAC::Normalize::MARC::_get_marc_fields( fetch_next => 1 ) ) { $marc->add( id => $mfn . ( $i ? "/$i" : '' ), fields => $fields, - leader => WebPAC::Normalize::_get_marc_leader(), + leader => WebPAC::Normalize::MARC::_get_marc_leader(), row => $row, ); $i++; -- 2.20.1