Changeset 9145

Timestamp:

2005-02-23T10:11:03+13:00 (19 years ago)

Author:

davidb

Message:

Removal of some debugging print statements, plus rewording of comment.

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -260 +260 @@
 
     if (defined $self->{'subdir_extrametakeys'}->{$local_dirname}) {
-    print STDERR "**** Matching on dirname = $local_dirname\n";
     my $extrakeys = $self->{'subdir_extrametakeys'}->{$local_dirname};
     foreach my $ek (@$extrakeys) {
@@ -282 +281 @@
     }
     
-    # import each of the files in the directory
+    # apply metadata pass for each of the files in the directory
     my $out_metadata; 
     my $num_files = scalar(@dir);
@@ -289 +288 @@
     my $this_file_base_dir = $base_dir;
     last if ($maxdocs != -1 && $count >= $maxdocs);
-    next if ($subfile =~ /^\.\.?$/);
+    next if ($subfile =~ m/^\.\.?$/);
     #next if ($read_metadata_files && $subfile =~ /metadata\.xml$/);
 
@@ -315 +314 @@
 
         my $subdir_extrametakeys = $self->{'subdir_extrametakeys'};
-        print STDERR "*** pushing on $subdir_re for $extrakey_dir\n";
 
         my $subdir_rec = { 're' => $subdir_re, 'md' => $md };