Changeset 13108


Ignore:
Timestamp:
2006-10-13T11:28:05+13:00 (18 years ago)
Author:
mdewsnip
Message:

Now removes superscript tags from non-place references.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/cic-hcap/perllib/plugins/CICWordPlug.pm

    r12391 r13108  
    166166    }
    167167
     168    # Remove any superscript tags
     169    $metadata_value =~ s/\<sup\>//g;
     170    $metadata_value =~ s/\<\/sup\>//g;
     171
    168172    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), $metadata_name, $metadata_value);
    169173}
Note: See TracChangeset for help on using the changeset viewer.