Changeset 4724

Timestamp:

2003-06-18T15:11:28+12:00 (21 years ago)

Author:

davidb

Message:

ImagePlug now stores metadata for srcicon, thumbicon and screenicon
to make it pleasanter to write format statements that display
images.

File:

• trunk/gsdl/perllib/plugins/ImagePlug.pm (modified) (12 diffs)

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -33 +33 @@
 
 
+
 my $arguments = [ { 'name' => "process_exp",
             'desc' => "A perl regular expression to match against filenames. Matching filenames will be processed by this plugin. Each plugin has its own default process_exp. e.g HTMLPlug defaults to '(?i)\.html?\$' i.e. all documents ending in .htm or .html (case-insensitive).",
@@ -100 +101 @@
 }
 
-
 sub new {
     my ($class) = @_;
@@ -109 +109 @@
     my $option_list = $self->{'option_list'};
     push( @{$option_list}, $options );
-    
+
     if (!parsargv::parse(\@_,
              q^noscaleup^, \$self->{'noscaleup'},
@@ -130 +130 @@
 }
 
-
 sub get_default_process_exp {
     my $self = shift (@_);
@@ -167 +166 @@
     }
 
+
     # Convert the image to a new type (if required).
     my $converttotype = $self->{'converttotype'};
@@ -182 +182 @@
     my $result = '';
     $result = `$command`;
-    print $outhandle "$result\n" if ($verbosity > 3);
+    print $outhandle "RESULT = $result\n" if ($verbosity > 2);
 
     $type = $converttotype;
     }
     
+
     # Add the image metadata
     my $url = $file;
@@ -205 +206 @@
     $doc_obj->add_metadata ($section, "ImageSize",   $image_size);
 
+    
+    $doc_obj->add_metadata ($section, "srclink", 
+                "<a href=_httpcollection_/index/assoc/[assocfilepath]/[Image]>");
+    $doc_obj->add_metadata ($section, "/srclink", "</a>");
+
+    $doc_obj->add_metadata ($section, "srcicon", "<img src=_httpcollection_/index/assoc/[assocfilepath]/[Image] width=100>");
+
+    
     # Add the image as an associated file
     $doc_obj->associate_file($filename,$file,"image/$type",$section);
+
 
     # Make the thumbnail image
     my $thumbnailsize = $self->{'thumbnailsize'} || 100;
     my $thumbnailtype = $self->{'thumbnailtype'} || 'gif';
+    
     my $thumbnailfile = &util::get_tmp_filename() . ".$thumbnailtype";
     $self->{'tmp_filename2'} = $thumbnailfile;
@@ -217 +228 @@
     my $command = "convert -interlace plane -verbose -geometry $thumbnailsize" 
     . "x$thumbnailsize \"$filename\" \"$thumbnailfile\"";
-    print $outhandle "$command\n" if ($verbosity > 2);
+    print $outhandle "THUMBNAIL: $command\n" if ($verbosity > 2);
     my $result = '';
     $result = `$command 2>&1` ;
-    print $outhandle "$result\n" if ($verbosity > 3);
+    print $outhandle "THUMB RESULT: $result\n" if ($verbosity > 2);
 
     # Add the thumbnail as an associated file ...
@@ -228 +239 @@
     $doc_obj->add_metadata ($section, "ThumbType", $thumbnailtype);
     $doc_obj->add_metadata ($section, "Thumb", "thumbnail.$thumbnailtype");
+
+    $doc_obj->add_metadata ($section, "thumbicon", "<img src=_httpcollection_/index/assoc/[assocfilepath]/[Thumb] width=[ThumbWidth] height=[ThumbHeight>");
     }
 
@@ -267 +280 @@
         $doc_obj->add_metadata ($section, "ScreenType", $screenviewtype);
         $doc_obj->add_metadata ($section, "Screen", "screenview.$screenviewtype");
+
+        $doc_obj->add_metadata ($section, "screenicon", "<img src=_httpcollection_/index/assoc/[assocfilepath]/[Screen] width=[ScreenWidth] height=[ScreenHeight>");
     } else {
         print $outhandle "ImagePlug: couldn't find \"$screenviewfilename\"\n";
@@ -273 +288 @@
 
     return $type;
-}
+
+
+}
+
 
 
@@ -412 +430 @@
 
 1;
+
+
+
+
+
+
+
+
+
+
+