- Timestamp:
- 2009-02-16T11:52:50+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/HTMLPlugin.pm
r18409 r18521 1069 1069 ($href =~ m/\/$/) || ($href =~ m/^(mailto|news|gopher|nntp|telnet|javascript):/i)) { 1070 1070 &ghtml::urlsafe ($href); 1071 return $front . "_httpextlink_& rl=" . $rl . "&href=" . $href . $hash_part . $back;1071 return $front . "_httpextlink_&rl=" . $rl . "&href=" . $href . $hash_part . $back; 1072 1072 } else { 1073 1073 # link is to some other type of file (eg image) so we'll … … 1112 1112 if ($rl == 0) { 1113 1113 if ((!defined $ext) || ($ext !~ m/$self->{'assoc_files'}/)) { 1114 return "_httpextlink_& rl=0&el=prompt&href=" . $href . $hash_part;1114 return "_httpextlink_&rl=0&el=prompt&href=" . $href . $hash_part; 1115 1115 } 1116 1116 else { 1117 return "_httpextlink_& rl=0&el=direct&href=" . $href . $hash_part;1117 return "_httpextlink_&rl=0&el=direct&href=" . $href . $hash_part; 1118 1118 } 1119 1119 } 1120 1120 1121 1121 if ((!defined $ext) || ($ext !~ m/$self->{'assoc_files'}/)) { 1122 return "_httpextlink_& rl=" . $rl . "&href=" . $href . $hash_part;1122 return "_httpextlink_&rl=" . $rl . "&href=" . $href . $hash_part; 1123 1123 } 1124 1124 if ($self->{'rename_assoc_files'}) { … … 1380 1380 $found_title = 1; 1381 1381 } 1382 print $outhandle " extracted \"$tag\" metadata \"$value\"\n" 1383 if ($self->{'verbosity'} > 2); 1384 if ($tag =~ m/date.*/i){ 1385 $tag = lc($tag); 1386 } 1382 1383 if ($self->{'verbosity'} > 2) { 1384 print $outhandle " extracted \"$tag\" metadata \"$value\"\n"; 1385 } 1386 1387 # Do we still reply on the following? Surely there must 1388 # be a better way to go about this outside of the plugin? 1389 # 1390 #if ($tag =~ m/date.*/i){ 1391 # $tag = lc($tag); 1392 #} 1393 1387 1394 $doc_obj->add_utf8_metadata($section, $tag, $value); 1388 1395
Note:
See TracChangeset
for help on using the changeset viewer.