fix thes to control set mapping

Signed-off-by: Galen Charlton <gmc@equinoxinitiative.org>

diff --git a/Open-ILS/src/sql/Pg/upgrade/YYYY.schema.thesauri.sql b/Open-ILS/src/sql/Pg/upgrade/YYYY.schema.thesauri.sql
index 53a9133..351044d 100644 (file)
--- a/Open-ILS/src/sql/Pg/upgrade/YYYY.schema.thesauri.sql
+++ b/Open-ILS/src/sql/Pg/upgrade/YYYY.schema.thesauri.sql
@@ -460,7 +460,9 @@ $func$ LANGUAGE PLPGSQL STABLE STRICT;
 CREATE OR REPLACE FUNCTION authority.map_thesaurus_to_control_set () RETURNS TRIGGER AS $func$
 BEGIN
     IF NEW.control_set IS NULL THEN
-        SELECT  authority.extract_thesaurus(NEW.marc) INTO NEW.control_set;
+        SELECT control_set INTO NEW.control_set
+        FROM authority.thesaurus
+        WHERE code = authority.extract_thesaurus(NEW.marc);
     END IF;
 
     RETURN NEW;