Changeset 20540

Timestamp:

2009-09-07T11:44:10+12:00 (15 years ago)

Author:

davidb

Message:

Support for cache mode in image converter (currently used in Video extension)

File:

• gsdl/trunk/perllib/plugins/ImageConverter.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/ImageConverter.pm

@@ -339 +339 @@
     my $convert_options  = shift(@_) || "";
     my $convert_id       = shift(@_) || "";
+    my $cache_mode       = shift(@_) || "";
 
     my $outhandle = $self->{'outhandle'};
@@ -370 +371 @@
     my $print_info = { 'message_prefix' => $convert_id,
                'message' => "Converting image $source_file_no_path to: $convert_id $target_file_type" };
- 
+    $print_info->{'cache_mode'} = $cache_mode if ($cache_mode ne "");
+
     my ($regenerated,$result,$had_error) 
     = $self->autorun_general_cmd($convert_command,$target_file_path,$print_info);
 
     return ($result,$target_file_path);
+}
+
+sub convert_without_result {
+    my $self = shift(@_);
+
+    my $source_file_path = shift(@_);
+    my $target_file_type = shift(@_);
+    my $convert_options  = shift(@_) || "";
+    my $convert_id       = shift(@_) || "";
+
+    return $self->convert($source_file_path,$target_file_type,
+              $convert_options,$convert_id,"without_result");
 }