Changeset 15018 for gsdl/trunk/perllib/plugins/PagedImgPlug.pm

Timestamp:

2008-02-27T17:07:17+13:00 (16 years ago)

Author:

davidb

Message:

Marc mapping upgraded to support richer set of operations, including subfields, multiple fields in one line (separated by comma), and the removal of rules, e.g. -245 at the start of a line. A Marc to Qualified Dublin Core crosswalk from the Library of congress has been added as "etc/marc2qdc.txt". A collection can then choose to, for example, top up the mapping with its own version of the file stored in its local "etc" folder, specifying only the rules that are different. This is where a rule like "-245" might be used to override a more general rule from the main file that has all subfields in 245 mapping to one metadata item (Title). If the user specifies a different different filename -- through a plugin option -- then they are free to divise a mapping from scratch and store it in the collections local "etc" folder.

File:

• gsdl/trunk/perllib/plugins/PagedImgPlug.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/PagedImgPlug.pm

@@ -71 +71 @@
 #<PagedDocument>
 #<Metadata name="Title">The Title of the entire document</Metadata>
-#<Page pagenum="1" imgfile="xxx.jpg" txtfile="yyy.jpg">
+#<Page pagenum="1" imgfile="xxx.jpg" txtfile="yyy.txt">
 #<Metadata name="Title">The Title of this page</Metadata>
 #</Page>
@@ -257 +257 @@
     my $self = shift (@_);
     
-    return q^(?i)(\.jpe?g|\.gif|\.png|\.tif?f|\.te?xt|~)$^
+    return q^(?i)(\.jpe?g|\.gif|\.png|\.tif?f|\.te?xt|\.html?|~)$^
 }
 
@@ -937 +937 @@
     $text =~ s/\\/\\\\/g; # macro language
     $text =~ s/_/\\_/g; # macro language
-    $text =~ s/</&lt;/g;
-    $text =~ s/>/&gt;/g;
- 
-    # insert preformat tags and add text to document object
-    $doc_obj->add_utf8_text($cursection, "<pre>\n$text\n</pre>");
+
+
+    if ($text =~ m/<html.*?>\s*<head.*?>.*<\/head>\s*<body.*?>(.*)<\/body>\s*<\/html>\s*$/s) {
+    # looks like HTML input
+    # no need to escape < and > or put in <pre> tags
+
+    $text = $1;
+
+    # insert preformat tags and add text to document object
+    $doc_obj->add_utf8_text($cursection, "$text");
+    }
+    else {
+    $text =~ s/</&lt;/g;
+    $text =~ s/>/&gt;/g;
+
+    # insert preformat tags and add text to document object
+    $doc_obj->add_utf8_text($cursection, "<pre>\n$text\n</pre>");
+    }
+
     
     return 1;