Changeset 6132 for trunk/gsdl/perllib/plugins/OAIPlug.pm

Timestamp:

2003-12-05T14:01:40+13:00 (20 years ago)

Author:

kjdon

Message:

importfrom now puts src docs into srcdocs instead of .orig

File:

• trunk/gsdl/perllib/plugins/OAIPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/OAIPlug.pm

@@ -81 +81 @@
     $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/;
 
-    return 0 if ((-d $filename) && ($filename =~ m/.orig$/));
+    return 0 if ((-d $filename) && ($filename =~ m/srcdocs$/));
     
     if ($self->{'block_exp'} ne "" && $filename =~ /$self->{'block_exp'}/) {