Changeset 3190

Timestamp:

2002-06-25T23:46:06+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/protemix/perllib/plugins/ProtemixPlug.pm (modified) (1 diff)

trunk/protemix/perllib/plugins/ProtemixPlug.pm

@@ -86 +86 @@
     $pdffile = &util::filename_cat($dir, $pdffile);
     $pdffile .= "-all.pdf";
-    die "$pdffile does not exist" unless -e $pdffile;
-    $doc_obj->associate_file($pdffile, "article.pdf", undef, $topsection);
-    $doc_obj->add_utf8_metadata ($cursection, "pdf",  "article.pdf"); 
+    if (-e $pdffile) {
+    $doc_obj->associate_file($pdffile, "article.pdf", undef, $topsection);
+    $doc_obj->add_utf8_metadata ($cursection, "pdf",  "article.pdf"); 
+    } else {
+    print STDERR "ProtemixPlug: Error: $pdffile does not exist\n";
+    }
 
     # read in directory and process individual files