Changeset 10980 for trunk/gsdl

Timestamp:

2005-12-09T10:53:53+13:00 (18 years ago)

Author:

kjdon

Message:

in get_filename_for_hashing, if its been processed by NULPlug, return undef. nul files should be empty, but sometimes they aren't so don't want to hash on them.

File:

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

trunk/gsdl/perllib/doc.pm

@@ -185 +185 @@
 
     if (!defined $filename) {
-    $filename = $self->get_metadata_element ($self->get_top_section(), "gsdlsourcefilename");
+    # if NULPlug processed file, then don't give a filename
+    if ($self->get_metadata_element ($self->get_top_section(), "Plugin") eq "NULPlug") {
+        $filename = undef;
+    } else {
+        $filename = $self->get_metadata_element ($self->get_top_section(), "gsdlsourcefilename");
+    }
     }
     return $filename;
@@ -915 +920 @@
         # cos its quicker
         my $filename = $self->get_filename_for_hashing();
-
         # -z: don't want to hash on the file if it is zero size
         if (defined($filename) && -e $filename && !-z $filename) {