Changeset 7504 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2004-05-31T14:41:11+12:00 (20 years ago)

Author:

davidb

Message:

ImagePlug, MP3Plug, UnknownPlug modified to set Title metadata based
on filename if no explicit Title metadata given. Also FileFormat
metadata is now also set to indicate type of file processed. To
share some of the functionality introduced some of the new code is
located in BasPlug.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -540 +540 @@
 }
 
+sub filename_based_title
+{
+    my $self = shift (@_);
+    my ($file) = @_;
+
+    my $file_derived_title = $file;
+    $file_derived_title =~ s/_/ /g;
+    $file_derived_title =~ s/\..*?$//;
+
+    return $file_derived_title;
+}
+
+
+sub title_fallback
+{
+    my $self = shift (@_);
+    my ($doc_obj,$section,$file) = @_;
+
+    if (!defined $doc_obj->get_metadata_element ($section, "Title")) {
+
+    my $file_derived_title = $self->filename_based_title($file);
+    $doc_obj->add_metadata ($section, "Title", $file_derived_title);
+    }
+}
+
 sub textcat_get_language_encoding {
     my $self = shift (@_);