Changeset 14705
- Timestamp:
- 2007-10-17T14:35:23+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/RealMediaPlug.pm
r13543 r14705 144 144 # do any automatic metadata extraction 145 145 $self->auto_extract_metadata($doc_obj); 146 147 # have we found a Title?? is the Title empty?? 148 if(!defined $doc_obj->get_metadata_element($section, "Title") or $doc_obj->get_metadata_element($section, "Title") eq ""){ 149 my $file_derived_title = &BasPlug::filename_based_title($self, $file); 150 if(!defined $doc_obj->get_metadata_element($section, "Title")) { 151 $doc_obj->add_metadata ($section, "Title", $file_derived_title); 152 } 153 else { 154 $doc_obj->set_metadata_element ($section, "Title", $file_derived_title); 155 } 156 } 146 157 147 158 # add an OID
Note:
See TracChangeset
for help on using the changeset viewer.