Changeset 8915

Timestamp:

2005-01-20T10:17:11+13:00 (19 years ago)

Author:

chi

Message:

Add an option-smart_block_BN for BN Portugal Collection.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -339 +339 @@
              q^separate_cjk^, \$self->{'separate_cjk'},
              q^smart_block^, \$self->{'smart_block'},
+             q^smart_block_BN^, \$self->{'smart_block_BN'}, 
              "allow_extra_options")) {
 
@@ -577 +578 @@
     my $outhandle   = $self->{'outhandle'};
     my $smart_block = $self->{'smart_block'};
-
+    my $smart_block_BN = $self->{'smart_block_BN'};
+    
     my $filename = $file;
     $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/;
@@ -587 +589 @@
     }
 
-    if ($smart_block) {
+    if ($smart_block || $smart_block_BN) {
     if (defined $self->{'file_blocks'}->{$filename} && $self->{'file_blocks'}->{$filename} == 1){
         $self->{'num_blocked'} ++;