Changeset 1379

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.

Location:

trunk/gsdl/perllib

Files:

• doc.pm (modified) (2 diffs)
• plugins/BasPlug.pm (modified) (1 diff)

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();

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -192 +192 @@
     
     # create a new document
-    my $doc_obj = new doc ($file, "indexed_doc");
+    my $doc_obj = new doc ($filename, "indexed_doc");
     
     # read in file ($text will be in utf8)