Parent Directory | Revision Log | Patch
revision 546 by dpavlin, Thu Jun 29 22:53:21 2006 UTC | revision 547 by dpavlin, Thu Jun 29 23:19:26 2006 UTC | |
---|---|---|
# | Line 286 while (my ($database, $db_config) = each | Line 286 while (my ($database, $db_config) = each |
286 | if ($marc_fh) { | if ($marc_fh) { |
287 | my $marc = new MARC::Record; | my $marc = new MARC::Record; |
288 | $marc->encoding( 'utf-8' ); | $marc->encoding( 'utf-8' ); |
289 | $marc->add_fields( WebPAC::Normalize::_get_marc21_fields() ); | $marc->add_fields( WebPAC::Normalize::_get_marc_fields() ); |
290 | print $marc_fh $marc->as_usmarc; | print $marc_fh $marc->as_usmarc; |
291 | } | } |
292 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |