- Timestamp:
- 2002-06-25T23:46:06+12:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/protemix/perllib/plugins/ProtemixPlug.pm
r3189 r3190 86 86 $pdffile = &util::filename_cat($dir, $pdffile); 87 87 $pdffile .= "-all.pdf"; 88 die "$pdffile does not exist" unless -e $pdffile; 89 $doc_obj->associate_file($pdffile, "article.pdf", undef, $topsection); 90 $doc_obj->add_utf8_metadata ($cursection, "pdf", "article.pdf"); 88 if (-e $pdffile) { 89 $doc_obj->associate_file($pdffile, "article.pdf", undef, $topsection); 90 $doc_obj->add_utf8_metadata ($cursection, "pdf", "article.pdf"); 91 } else { 92 print STDERR "ProtemixPlug: Error: $pdffile does not exist\n"; 93 } 91 94 92 95 # read in directory and process individual files
Note:
See TracChangeset
for help on using the changeset viewer.