r1212@llin: dpavlin | 2007-05-20 17:39:01 +0200

[webpac2] / run.pl

diff --git a/run.pl b/run.pl
index 72ccca1..08552ed 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -544,7 +544,7 @@ while (my ($database, $db_config) = each %{ $config->databases }) {
                                        $marc->add(
                                                id => $mfn . ( $i ? "/$i" : '' ),
                                                fields => $fields,
-                                               leader => WebPAC::Normalize::marc_leader(),
+                                               leader => WebPAC::Normalize::_get_marc_leader(),
                                                row => $row,
                                        );
                                        $i++;