Changeset 18555 for gsdl/trunk/perllib/classify/BaseClassifier.pm

Timestamp:

2009-02-20T11:04:15+13:00 (15 years ago)

Author:

davidb

Message:

General tidy up of code for supporting cached files. The generate_cached_images plugin option has been changed to enable_cache as this makes more sense for the other media formats we are begining to support, such as audio and video

File:

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

gsdl/trunk/perllib/classify/BaseClassifier.pm

@@ -308 +308 @@
     foreach my $existing_oid (@{$self->{$field}}) {
     if ($existing_oid eq $delete_oid) {
-        print $outhandle "  Deleting $delete_oid for ", ref $self, "\n";
+        print $outhandle "  Deleting old $delete_oid for ", ref $self, "\n";
     }
     else {
@@ -324 +324 @@
     my $outhandle = $self->{'outhandle'};
 
-    print $outhandle "  Deleting $delete_oid for ", ref $self, "\n";
+    print $outhandle "  Deleting old $delete_oid for ", ref $self, "\n";
     delete $self->{$field}->{$delete_oid};
 }