Changeset 32536 for main/trunk/greenstone2/perllib/docprint.pm

Timestamp:

2018-10-24T20:11:33+13:00 (6 years ago)

Author:

ak19

Message:

First commit to do with reading back in from the SQL DB. This commit introduces the new GreenstoneSQLPlugin for this purpose, which should ideally only be used during buildcol (but its init(), deinit() and read() methods are also called on import.pl). The new plugin works with GreenstoneSQLPlugout which wrote meta and txt to the SQL DB. Lots of TODOs and questions still here, some debug statements too. Also have to run some decisions by Dr Bainbridge. There are many hardcoded values which still have to be parameterised (not always completely sure how) and still have to test the 2 cases of sending just meta and just fulltxt to db. Next commit will tidy some things up.

File:

• main/trunk/greenstone2/perllib/docprint.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/docprint.pm

@@ -27 +27 @@
 # Greenstone XML format.
 # This is used by GreenstoneXMLPlugout and doc.pm
+# It's also used by GreenstoneSQLPlugout to output a doc_obj's meta and/or
+# fulltxt to an SQL db, while subroutine  unescape_text() is used by
+# GreenstoneSQLPlugin for unescaping txt read back in.
 
 package docprint;
@@ -117 +120 @@
 }
 
+# used by GreenstoneSQLPlugin when reading back from sqldb
+sub unescape_text {
+    my ($text) = @_;
+    # special characters in the xml encoding
+    $text =~ s/& &/&&/g;
+    $text =~ s/&/&/g; # this has to be first...
+    $text =~ s/&lt;/</g;
+    $text =~ s/&gt;/>/g;
+    $text =~ s/&quot;/"/g;
+
+    return $text;
+}
+
 1;