Changeset 1379 for trunk/gsdl/perllib/doc.pm

Timestamp:

2000-08-09T09:51:23+12:00 (24 years ago)

Author:

paynter

Message:

Fixed bug that gave gsdlsourcedocument metadata relative path instead
of absolute, and then didn't test if it existed, causing NULL hash values.

File:

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

trunk/gsdl/perllib/doc.pm

@@ -247 +247 @@
 
     my $filename = $self->get_source_filename();
-    if (defined ($filename)) {
+    if (defined($filename) && -e $filename) {
 
         $OID = $self->_calc_OID ($filename);
@@ -253 +253 @@
     } else {
         
-        print STDERR "doc::set_OID WARNING source filename undefined (continuing)\n";
+        print STDERR "doc::set_OID source filename undefined/non-existant (continuing)\n";
         
         $filename = &util::get_tmp_filename();