Parent Directory | Revision Log | Patch
revision 357 by dpavlin, Wed Jun 16 13:39:17 2004 UTC | revision 358 by dpavlin, Wed Jun 16 14:31:33 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}; | |
38 | ||
39 | print $webpac->parse($rec,'pero v250^a - v999 bla'),"\n"; | |
40 | ||
41 | __END__ | |
42 | ||
43 | for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) { | for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) { |
44 | my $rec = $webpac->{'data'}->{$mfn} || die "no record with mfn $mfn"; | my $rec = $webpac->{'data'}->{$mfn} || die "no record with mfn $mfn"; |
45 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |