Changeset 11249

Timestamp:

2006-02-14T16:54:53+13:00 (18 years ago)

Author:

kjdon

Message:

added some checks that the image and text files exist before we try to convert/read them

File:

• trunk/gsdl/perllib/plugins/PagedImgPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -263 +263 @@
     $rotate = 0 unless defined $rotate;
     
+    # check that the image file exists!!
+    if (!-f $filename) {
+    print "PagedImgPlug: ERROR: File $filename does not exist, skipping\n";
+    return 0;
+    }
+
     my $top=0;
     if ($section eq $doc_obj->get_top_section()) {
@@ -887 +893 @@
     my $self = shift (@_);
     my ($fullpath, $file, $doc_obj, $cursection) = @_;
+    
+    # check that the text file exists!!
+    if (!-f $fullpath) {
+    print "PagedImgPlug: ERROR: File $fullpath does not exist, skipping\n";
+    return 0;
+    }
 
     # Do encoding stuff