/[webpac]/trunk/tools/mods2unimarc.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/tools/mods2unimarc.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 330 by dpavlin, Sun May 16 22:12:02 2004 UTC revision 336 by dpavlin, Thu Jun 10 19:20:05 2004 UTC
# Line 53  my $nr = 0; Line 53  my $nr = 0;
53  my $marc = MARC->new;  my $marc = MARC->new;
54    
55  my $ENCODING = 'ISO-8859-2';  my $ENCODING = 'ISO-8859-2';
56    $ENCODING = 'windows-1250';
57    
58  my $twig=XML::Twig->new(  my $twig=XML::Twig->new(
59          twig_roots => { 'mods' => \&mods },          twig_roots => { 'mods' => \&mods },
# Line 244  sub mods { Line 245  sub mods {
245          }          }
246          marc_rep($m_cache,'215');          marc_rep($m_cache,'215');
247    
248          marc_add_single($m_cache,'001',undef,$ref->{recordInfo}->{recordIdentifier});          my $mfn = $ref->{recordInfo}->{recordIdentifier};
249            $mfn =~ s/[^0-9]//g;
250            marc_add_single($m_cache,'001',undef,$mfn);
251    
252          marc_add($m_cache,'200','a',$ref->{titleInfo}->{title});          marc_add($m_cache,'200','a',$ref->{titleInfo}->{title});
253          marc_add($m_cache,'200','e',$ref->{titleInfo}->{subTitle});          marc_add($m_cache,'200','e',$ref->{titleInfo}->{subTitle});
Legend:
Removed from v.330  
changed lines
  Added in v.336
  ViewVC Help
Powered by ViewVC 1.1.26