/[webpac-proto]/casopisi/marc2stream.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 /casopisi/marc2stream.pl

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

revision 1.1 by dpavlin, Sat Oct 26 20:44:47 2002 UTC revision 1.2 by dpavlin, Sat Oct 26 21:22:43 2002 UTC
# Line 14  my $x = new MARC; Line 14  my $x = new MARC;
14  my $nr = $x->openmarc( { file => $file, format => 'usmarc' }) ||  my $nr = $x->openmarc( { file => $file, format => 'usmarc' }) ||
15          die "Can't open MARC file '$file'";          die "Can't open MARC file '$file'";
16    
17  print "file '$file' with '",$x->marc_count(),"' records...\n";  print "file: '$file' 773 t: ",$x->getfirstvalue({record=>$x->nextmarc(1),field=>773,subfield=>'t',delimiter=>" "}),"\n";
18    $x->nextmarc(-1);
19    
20  my $dir = open_data_files($index);  my $dir = open_data_files($index);
21  my $last_tell=0;  my $last_tell=0;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26