Changeset 1554 for trunk/niupepa/perllib/plugins/AbstractPlug.pm

Timestamp:

2000-09-20T14:54:05+12:00 (24 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/niupepa/perllib/plugins/AbstractPlug.pm (modified) (4 diffs)

trunk/niupepa/perllib/plugins/AbstractPlug.pm

@@ -73 +73 @@
 
     # process each issue
-    $$textref =~ s/(<p(?:\s[^>]*)?>\s*\n
-            [^\n]+\n # series title line
-            <\/p>\n
-            <p(?:\s[^>]*)?>\s*\n
-            <b>(.*?)<\/b>.*?\n # issue line (i.e. volume, issue number, date)
-            <\/p>\n
-            (?:<table[^>]*>.*?<\/table>)?) # the table itself (may not always be defined)
+    $$textref =~ s/<p(?:\s[^>]*)?>\s*\n
+           [^\n]+\n # series title line
+           <\/p>\n
+           <p(?:\s[^>]*)?>\s*\n
+           <b>(.*?)<\/b>.*?\n # issue line (i.e. volume, issue number, date)
+           <\/p>\n
+           (<table[^>]*>.*?<\/table>)? # the table itself (may not always be defined)
               /$self->process_issue($1, $2, $seriesnum, $dir)/isgxe;
 }
@@ -85 +85 @@
 sub process_issue {
     my $self = shift @_;
-    my ($text, $issue, $seriesnum, $dir) = @_;
+    my ($issue, $text, $seriesnum, $dir) = @_;
 
     my $OID = $seriesnum . "_";
@@ -108 +108 @@
     }
 
-    # links to page numbers
-    $text =~ s/(td(?:\s[^>]*)?>\s*\n
-        <p(?:\s[^>]*)?>\s*\n)
-            (pp?\s*\.\s*(\d+)(?:-\d+)?)(\s*\n)
-          /$1<a href=\"_httpdocument_&cl=_cgiargcl_&d=${OID}\.$3\">$2<\/a>$4/isgx;
-
     my $abfile = &util::filename_cat ($dir, "$OID.abstract");
     open (ABFILE, ">$abfile") || die;
-    print ABFILE $text;
+
+    # links to page numbers
+    if (defined $text) {
+    $text =~ s/(td(?:\s[^>]*)?>\s*\n
+           <p(?:\s[^>]*)?>\s*\n)
+               (pp?\s*\.\s*(\d+)(?:-\d+)?)(\s*\n)
+          /$1<a href=\"_httpdocument_&cl=_cgiargcl_&d=${OID}\.$3&gg=prev\">$2<\/a>$4/isgx;
+
+        print ABFILE $text;
+    } else {
+    # some don't have any abstract information - we'll just use
+    # the issue line to prevent a completely empty page
+        print ABFILE $issue;
+    }
     close ABFILE;
 }
@@ -129 +136 @@
     $$textref =~ s/\s*?(row|col)span=\"1\"//igs; # rowspan|colspan=1 don't seem real useful
     $$textref =~ s/\s*?line\-height:[^;]+;//igs; # don't really want hard-coded line heights either
+    $$textref =~ s/(<td)/$1 valign=top/igs; # like to valign tables
 
     # convert macron characters to _amn_ type macros