Changeset 14705

Timestamp:

2007-10-17T14:35:23+13:00 (17 years ago)

Author:

anna

Message:

Use filename derived title as ex.Title when ex.Title is empty.

File:

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

gsdl/trunk/perllib/plugins/RealMediaPlug.pm

@@ -144 +144 @@
     # do any automatic metadata extraction
     $self->auto_extract_metadata($doc_obj);
+    
+    # have we found a Title?? is the Title empty??
+    if(!defined $doc_obj->get_metadata_element($section, "Title") or $doc_obj->get_metadata_element($section, "Title") eq ""){          
+        my $file_derived_title = &BasPlug::filename_based_title($self, $file); 
+        if(!defined $doc_obj->get_metadata_element($section, "Title")) {
+            $doc_obj->add_metadata ($section, "Title", $file_derived_title);
+        }
+        else {
+            $doc_obj->set_metadata_element ($section, "Title", $file_derived_title);
+        }
+    } 
 
     # add an OID