Changeset 1379

Show
Ignore:
Timestamp:
09.08.2000 09:51:23 (19 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:
2 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/doc.pm

    r1374 r1379  
    247247 
    248248    my $filename = $self->get_source_filename(); 
    249     if (defined ($filename)) { 
     249    if (defined($filename) && -e $filename) { 
    250250 
    251251        $OID = $self->_calc_OID ($filename); 
     
    253253    } else { 
    254254         
    255         print STDERR "doc::set_OID WARNING source filename undefined (continuing)\n"; 
     255        print STDERR "doc::set_OID source filename undefined/non-existant (continuing)\n"; 
    256256         
    257257        $filename = &util::get_tmp_filename(); 
  • trunk/gsdl/perllib/plugins/BasPlug.pm

    r1360 r1379  
    192192     
    193193    # create a new document 
    194     my $doc_obj = new doc ($file, "indexed_doc"); 
     194    my $doc_obj = new doc ($filename, "indexed_doc"); 
    195195     
    196196    # read in file ($text will be in utf8)