svn path=/Database/trunk/; revision=10238

FCLT.SRC

@@ -4,8 +4,8 @@
 -- Copyright 1996-2010 SG|facilitor bv.
 -- All rights reserved!
 /*
- * $Revision: 59 $
- * $Modtime: 28-01-10 16:43 $
+ * $Revision: 60 $
+ * $Modtime: 10-02-10 18:33 $
  */
 
 #include "modules.h"
@@ -28,8 +28,8 @@ SHOW USER _GO
 PROMPT
 PROMPT
 
-SET ECHO ON
 SET LINESIZE 500
+SET ECHO ON
 
 /* TABLES */
 #include "fac_tab.src"
@@ -164,19 +164,16 @@ SET LINESIZE 500
 COMMIT;
 
 ///////////////////////////// finally compile all views, triggers etc acc to the latest state ///////
-SET FEEDBACK OFF
-PROMPT Recompiling invalid objects...
-///////////////////////////// now compile all views, triggers etc acc to the latest state ///////
 [skip]
 BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
 /
-BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, '$Revision: 59 $', NULL); END;
+BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, '$Revision: 60 $', NULL); END;
 /
 [/skip]
 COMMIT;
 ///////////////////////////// Report invalid objects, if any ///////
+SET ECHO OFF
 SET LINESIZE 120
-SET FEEDBACK ON
 PROMPT List of all invalid objects after Facilitor upgrade:
 SELECT _VERSION||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
   FROM user_objects

MLD/MLD_PAC.SRC

@@ -1,7 +1,7 @@
 #ifdef MLD
 /*
- * $Revision: 57 $
- * $Modtime: 10-02-10 17:31 $
+ * $Revision: 58 $
+ * $Modtime: 10-02-10 18:36 $
  *
  */
 
@@ -265,7 +265,6 @@ CREATE OR REPLACE PACKAGE BODY Mld AS
            END CASE;
 
            IF eventcode IS NOT NULL THEN
-           BEGIN
              retdatum := fac.gettrackingdate(eventcode, popdrkey);
            END IF;
         RETURN retdatum;