/[Biblio-Isis]/trunk/IsisDB.pm
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/IsisDB.pm

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

revision 9 by dpavlin, Wed Dec 29 16:01:41 2004 UTC revision 10 by dpavlin, Wed Dec 29 16:04:07 2004 UTC
# Line 329  print ("Error: The MFN:".$mfn." is not f Line 329  print ("Error: The MFN:".$mfn." is not f
329          read($self->{'fileMST'},$buff,$fld_len);          read($self->{'fileMST'},$buff,$fld_len);
330    
331          for (my $i = 0 ; $i < $NVF ; $i++) {          for (my $i = 0 ; $i < $NVF ; $i++) {
332                    # skip zero-sized fields
333                    next if ($FieldLEN[$i] == 0);
334    
335                  push @{$self->{record}->{$FieldTAG[$i]}}, substr($buff,$FieldPOS[$i],$FieldLEN[$i]);                  push @{$self->{record}->{$FieldTAG[$i]}}, substr($buff,$FieldPOS[$i],$FieldLEN[$i]);
336          }          }
337          close(fileMST);          close(fileMST);

Legend:
Removed from v.9  
changed lines
  Added in v.10

  ViewVC Help
Powered by ViewVC 1.1.26