add pre-3.2-upgrade script

diff --git a/Open-ILS/src/sql/Pg/version-upgrade/pines-pre-3.2-upgrade.sql b/Open-ILS/src/sql/Pg/version-upgrade/pines-pre-3.2-upgrade.sql
new file mode 100644 (file)
index 0000000..fea5a50
--- /dev/null
+++ b/Open-ILS/src/sql/Pg/version-upgrade/pines-pre-3.2-upgrade.sql
@@ -0,0 +1,14 @@
+begin;
+
+drop function if exists public.oils_json_to_text(text);
+
+CREATE OR REPLACE FUNCTION evergreen.oils_json_to_text( TEXT ) RETURNS TEXT AS $f$
+    use JSON::XS;
+    my $json = shift();
+    my $txt;
+    eval { $txt = JSON::XS->new->allow_nonref->decode( $json ) };
+    return undef if ($@);
+    return $txt
+$f$ LANGUAGE PLPERLU;
+
+commit;