Changeset 3189 for trunk/protemix

Timestamp:

2002-06-25T23:44:46+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

@@ -119 +119 @@
         my $pdffile = $thisfile;
         $pdffile =~ s/\.html?$/\.pdf/;
-        die "no PDF file for $thisfile" unless -e $pdffile;
-        $doc_obj->associate_file($pdffile, "page$count.pdf", undef, $cursection);
-        $doc_obj->add_utf8_metadata ($cursection, "pdf",  "page$count.pdf"); 
-        $doc_obj->add_utf8_metadata ($cursection, "Title", $count); 
+        if (-e $pdffile) {
+        $doc_obj->associate_file($pdffile, "page$count.pdf", undef, $cursection);
+        $doc_obj->add_utf8_metadata ($cursection, "pdf",  "page$count.pdf"); 
+        $doc_obj->add_utf8_metadata ($cursection, "Title", $count); 
+        } else {
+        print STDERR "ProtemixPlug: Warning: no pdf file for $thisfile\n";
+        }
 
         # add any section level metadata we have for this page (set from within the meta.xml file)