Fac_version ook database native language laten tonen

svn path=/Website/trunk/; revision=32273

APPL/FAC/fac_verify.inc

@@ -1092,40 +1092,6 @@ checker("NLS_TERRITORY",
             }
         )
 
-checker("Invalid user_objects",
-            function ()
-            {
-                var sql = "SELECT object_type, object_name"
-                        + "  FROM user_objects"
-                        + " WHERE status = 'INVALID'";
-                var oRs = Oracle.Execute(sql);
-                var message = [];
-                if (!oRs.Eof)
-                {
-                    try
-                    {
-                        Oracle.Execute("BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;");;
-                    }
-                    catch(e)
-                    {
-                        message.push("(could not compile: " + e.description + ")");
-                    }
-                    oRs = Oracle.Execute(sql);
-                }
-                var res = resultcodes.ok;
-                while (!oRs.Eof)
-                {
-                    message.push(oRs("object_type").Value + " " + oRs("object_name").Value);
-                    var res = resultcodes.error;
-                    oRs.MoveNext();
-                }
-                oRs.Close();
-                if (!message.length)
-                    message.push("All database objects are valid");
-                return { result: res, message: message.join("<br>") };
-            }
-        )
-
 checker("Guessing Webserver NLS_LANG language setting"
         +"<br><span style='font-size:10px'>Check registry HKLM\\SOFTWARE\\ORACLE\\xxx for NLS_LANG to be sure</span>",
             function ()
@@ -1167,6 +1133,22 @@ checker("Guessing Webserver NLS_LANG language setting"
             }
         )
 
+checker("Database language",
+            function ()
+            {
+                // SYS_CONTEXT ('userenv', 'LANG') ulang is niet zinvol zonder fac.init_session
+                var sql = "SELECT fac_version_lang"
+                        + "  FROM fac_version";
+                var oRs = Oracle.Execute(sql);
+                var res = resultcodes.ok;
+                var lang = oRs("fac_version_lang").Value;
+                var txt = "Database native language is " + lang;
+                oRs.Close();
+
+                return { result: res, message: txt, info: lang };
+            }
+        )
+
 checker("CREATE VIEW privileges",
             function ()
             {