Changeset 23561 for main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

Timestamp:

2011-01-13T11:49:38+13:00 (13 years ago)

Author:

kjdon

Message:

moved the block_filename from BasePlugin into util. then I don't need to duplicate it for DirectoryPlugin which doesn't inherit from BasePlugin

File:

• main/trunk/greenstone2/perllib/plugins/BasePlugin.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

@@ -382 +382 @@
 }
 
-sub block_filename
-{
-    my $self = shift(@_);
-    my ($block_hash,$filename) = @_;
-    
-    if ($ENV{'GSDLOS'} =~ m/^windows$/) {
-    
-    # lower case the entire thing, eg for cover.jpg when its actually cover.JPG
-    my $lower_filename = lc($filename);
-    $block_hash->{'file_blocks'}->{$lower_filename} = 1;
-#   my $lower_drive = $filename;
-#   $lower_drive =~ s/^([A-Z]):/\l$1:/i;
-    
-#   my $upper_drive = $filename;
-#   $upper_drive =~ s/^([A-Z]):/\u$1:/i;
-#   
-#   $block_hash->{'file_blocks'}->{$lower_drive} = 1;
-#   $block_hash->{'file_blocks'}->{$upper_drive} = 1;       
-    }
-    else {
-    $block_hash->{'file_blocks'}->{$filename} = 1;
-    }
-}
 
 # rename imported files and assoc files using URL encoding by default
@@ -441 +418 @@
 
     if ($self->{'block_exp'} ne "" && $filename_full_path =~ /$self->{'block_exp'}/) {
-    $self->block_filename($block_hash,$filename_full_path);
+    &util::block_filename($block_hash,$filename_full_path);
     }
 
@@ -461 +438 @@
     }   
     if (&util::fd_exists($coverfile)) {
-        $self->block_filename($block_hash,$coverfile);
+        &util::block_filename($block_hash,$coverfile);
     } 
     }