Changeset 678

Timestamp:

1999-10-15T12:37:10+13:00 (25 years ago)

Author:

sjboddie

Message:

added bookcover

File:

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

trunk/gsdl/perllib/plugins/GBBPlug.pm

@@ -33 +33 @@
 
 # Imput files are expected to be GB encoded and have .gbb file extension
+
+# An jpeg image with the same filename as the .gbb file will be associated
+# as cover.jpg if it exists
 
 package GBBPlug;
@@ -82 +85 @@
 
     my $cursection = $doc_obj->get_top_section();
+
+    # copy the book cover if it exists
+    my ($bookcover) = $filename =~ /^(.*?)\.gbb$/i;
+    $doc_obj->associate_file("$bookcover.jpg", "cover.jpg", "image/jpeg") 
+    if -e "$bookcover.jpg";
 
     my $text = "";