Changeset 3190

Show
Ignore:
Timestamp:
25.06.2002 23:46:06 (17 years ago)
Author:
sjboddie
Message:

*** empty log message ***

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/protemix/perllib/plugins/ProtemixPlug.pm

    r3189 r3190  
    8686    $pdffile = &util::filename_cat($dir, $pdffile); 
    8787    $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    } 
    9194 
    9295    # read in directory and process individual files