Changeset 2874 for trunk/niupepa/perllib

Timestamp:

2001-12-02T10:25:14+13:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/niupepa/perllib/plugins/NPPlug.pm (modified) (1 diff)

trunk/niupepa/perllib/plugins/NPPlug.pm

@@ -202 +202 @@
     $doc_obj->set_utf8_metadata_element ($topsection, 'abstract', $abstract) if defined $abstract;
     $self->set_main_metadata ($doc_obj, $dir);
+
+    # process issue's pdf if one exists
+    my ($pdffile) = $file =~ /^([^\.]*)\.issue/i;
+    $pdffile .= ".pdf";
+    $pdffile = &util::filename_cat($dir, "pdf", $pdffile);
+    if (-e $pdffile) {
+    $doc_obj->set_utf8_metadata_element ($topsection, "haspdf", "1");
+    $doc_obj->associate_file($pdffile, "paper.pdf");
+    } else {
+    $doc_obj->set_utf8_metadata_element ($topsection, "haspdf", "0");
+    }
 
     open (ISSUEFILE, $filename) || die "couldn't open $filename\n";