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

Timestamp:

2009-02-11T17:42:17+13:00 (15 years ago)

Author:

davidb

Message:

Had to move location of where deletion of archive files was done

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\n";
+        print $outhandle "  Deleting $delete_oid for ", ref $self, "\n";
     }
     else {
@@ -324 +324 @@
     my $outhandle = $self->{'outhandle'};
 
-    print $outhandle "  Deleting $delete_oid\n";
+    print $outhandle "  Deleting $delete_oid for ", ref $self, "\n";
     delete $self->{$field}->{$delete_oid};
 }