Changeset 22431 for main/trunk/greenstone2/perllib/plugins/BaseMediaConverter.pm

Timestamp:

2010-07-19T13:59:55+12:00 (14 years ago)

Author:

davidb

Message:

Correction to caching technique to work with input file rather than output file in terms of working out when the cached file needs to be regenerated

File:

• main/trunk/greenstone2/perllib/plugins/BaseMediaConverter.pm (modified) (5 diffs)

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

@@ -153 +153 @@
 {
     my $self = shift @_;
-    my ($command,$ofilename,$print_info) = @_;
+    my ($command,$ifilename,$ofilename,$print_info) = @_;
 
     if (!defined $print_info->{'verbosity'}) {
@@ -172 +172 @@
     my $self = shift @_;
 
-    my ($command,$ofilename,$print_info) = @_;
+    my ($command,$ifilename,$ofilename,$print_info) = @_;
 
     return $self->run_general_cmd($command,$print_info);
@@ -183 +183 @@
     my $self = shift @_;
 
-    my ($command,$ofilename,$print_info) = @_;
+    my ($command,$ifilename,$ofilename,$print_info) = @_;
 
     if (!defined $print_info->{'verbosity'}) {
@@ -202 +202 @@
     my $self = shift @_;
 
-    my ($command,$ofilename,$print_info) = @_;
+    my ($command,$ifilename,$ofilename,$print_info) = @_;
 
     my $result;
@@ -210 +210 @@
     if ($self->{'enable_cache'}) {
     ($regenerated,$result,$had_error)
-        = $self->run_cached_general_cmd($command,$ofilename,$print_info);
+        = $self->run_cached_general_cmd($command,$ifilename,$ofilename,$print_info);
     }
     else {