Changeset 2816 for trunk/gsdl

Timestamp:

2001-11-05T16:29:23+13:00 (22 years ago)

Author:

sjboddie

Message:

Added cover_image option to BasPlug for associating a jpeg image as a
cover image (like the old HBPlug used to do).

Location:

trunk/gsdl/perllib/plugins

Files:

• BasPlug.pm (modified) (4 diffs)
• ConvertToPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -119 +119 @@
     print STDERR "                     14th century)\n";
     print STDERR "   -no_bibliography  Do not try and block bibliographic dates when extracting\n";
-    print STDERR "                     historical dates.\n\n"; 
+    print STDERR "                     historical dates.\n";
+    print STDERR "   -cover_image      Will look for a prefix.jpg file (where prefix is the same\n";
+    print STDERR "                     prefix as the file being processed) and associate it as a\n";
+    print STDERR "                     cover image\n\n";
 }
 
@@ -165 +168 @@
              q^no_bibliography^, \$self->{'no_biblio'},
              qq^maximum_century/-?\\d{1,2}( ?B\\.C\\.E\\.)?/-1^, \$self->{'max_century'},
+             q^cover_image^, \$self->{'cover_image'},
              "allow_extra_options")) {
     
@@ -284 +288 @@
     my ($filemeta) = $file =~ /([^\\\/]+)$/;
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));
+    if ($self->{'cover_image'}) {
+    $self->associate_cover_image($doc_obj, $filename);
+    }
     
     # read in file ($text will be in utf8)
@@ -707 +714 @@
 }
 
+sub associate_cover_image {
+    my $self = shift(@_);
+    my ($doc_obj, $filename) = @_;
+
+    $filename =~ s/\.[^\\\/\.]+$/\.jpg/;
+    if (-e $filename) {
+    $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg");
+    }
+}
+
 1;

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -272 +272 @@
     my ($filemeta) = $file =~ /([^\\\/]+)$/;
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));
+    if ($self->{'cover_image'}) {
+    $self->associate_cover_image($doc_obj, $filename);
+    }
 
     # include any metadata passed in from previous plugins