Parent Directory | Revision Log | Patch
revision 361 by dpavlin, Wed Jun 16 15:41:16 2004 UTC | revision 362 by dpavlin, Wed Jun 16 16:50:30 2004 UTC | |
---|---|---|
# | Line 34 my $maxmfn = $webpac->open_isis( | Line 34 my $maxmfn = $webpac->open_isis( |
34 | ||
35 | print "rows: $maxmfn\n\n"; | print "rows: $maxmfn\n\n"; |
36 | ||
37 | my $rec = $webpac->{'data'}->{1}; | while (my $rec = $webpac->fetch_rec) { |
for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) { | ||
my $rec = $webpac->{'data'}->{$mfn} || die "no record with mfn $mfn"; | ||
38 | ||
39 | print "-- ",$webpac->parse($rec,'v250^a / [v562^4] v562^a'),"\n"; | print "-- ",$webpac->parse($rec,'v250^a / [v562^4] v562^a'),"\n"; |
40 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |