Changeset 17026 for gsdl/trunk/perllib/plugins/MP3Plugin.pm
- Timestamp:
- 2008-08-27T20:40:20+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MP3Plugin.pm
r16952 r17026 85 85 } 86 86 87 # we don't want to hash on the file 88 sub get_oid_hash_type { 89 my $self = shift (@_); 90 return "hash_on_ga_xml"; 91 } 92 87 93 sub process { 88 94 my $self = shift (@_); … … 90 96 91 97 my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file); 92 # do something about OIDtype so no hashing93 94 # old code was in effect the following.95 if ($doc_obj->{'OIDtype'} =~ /^hash$/) {96 $doc_obj->set_OIDtype ("incremental");97 }98 99 98 100 99 # associate the file with the document
Note:
See TracChangeset
for help on using the changeset viewer.