Parent Directory | Revision Log | 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); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |