Changeset 11090 for trunk/gsdl/perllib/plugins/DBPlug.pm

Timestamp:

2006-01-24T10:29:34+13:00 (18 years ago)

Author:

kjdon

Message:

made all plugins that implement read() call read_block to check process_exp, block_exp, smart blocking, cover image blocking etc

File:

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

trunk/gsdl/perllib/plugins/DBPlug.pm

@@ -88 +88 @@
 
     # see if we can handle the passed file...
-    my $filename = $file;
-    $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/;
-    if ($filename !~ /$self->{'process_exp'}/ || !-f $filename) {
-    # this plugin can't process this file type...
-        return undef;
-    }
+    my ($block_status,$filename) = $self->read_block(@_);    
+    return $block_status if ((!defined $block_status) || ($block_status==0));
 
     my $outhandle = $self->{'outhandle'};