Changeset 17026 for gsdl/trunk/perllib/plugins/RealMediaPlugin.pm
- Timestamp:
- 2008-08-27T20:40:20+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/RealMediaPlugin.pm
r16994 r17026 77 77 } 78 78 79 # we don't want to hash on the file 80 sub get_oid_hash_type { 81 my $self = shift (@_); 82 return "hash_on_ga_xml"; 83 } 84 79 85 sub process 80 86 { … … 84 90 my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file); 85 91 my $top_section = $doc_obj->get_top_section(); 86 # prevent hashing: old code was in effect the following.87 if ($doc_obj->{'OIDtype'} =~ /^hash$/) {88 $doc_obj->set_OIDtype ("incremental");89 }90 92 91 93 my $text = "";
Note:
See TracChangeset
for help on using the changeset viewer.