Changeset 12457
- Timestamp:
- 2006-08-17T15:01:14+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r12456 r12457 365 365 } 366 366 367 # Fix up the links to the institution webpage 368 if ($row_hashref->{"Institution_webpage"} =~ /\#(.*?)\#/) { 369 $row_hashref->{"Institution_webpage"} = $1; 370 } 371 367 372 # Map state to full name 368 373 $row_hashref->{"State"} = $state_abbr_to_name_mapping->{$row_hashref->{"State"}}; … … 964 969 # Anything from the database is ISO 8859-1 encoded, so convert to UTF-8 965 970 $metadata_value = &unicode::ascii2utf8(\$metadata_value); 966 967 # Remove '#' characters around links (!! BAD)968 if ($metadata_value =~ /\#(.*?)\#/) {969 $metadata_value = $1;970 }971 971 972 972 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), $metadata_name, $metadata_value);
Note:
See TracChangeset
for help on using the changeset viewer.