Changeset 8908

Timestamp:

2005-01-19T01:14:06+13:00 (19 years ago)

Author:

davidb

Message:

BasPlug now sets a piece of metadata [hascover] if document has a cover image.

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -574 +574 @@
     &gsprintf(STDERR, "{BasPlug.read_must_be_implemented}") && die "\n";
     }
+
+    my $outhandle   = $self->{'outhandle'};
     my $smart_block = $self->{'smart_block'};
-
-    my $outhandle = $self->{'outhandle'};
 
     my $filename = $file;
@@ -1185 +1185 @@
     if (-e $filename) {
     $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg");
+    $doc_obj->add_utf8_metadata($thissection, "hascover",  1);
     } else {
     $filename =~ s/jpg$/JPG/;
     if (-e $filename) {
         $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg");
+        $doc_obj->add_utf8_metadata($thissection, "hascover",  1);
     }
     }