Index: openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	7 Aug 2017 23:47:58 -0000	1.15
+++ openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	20 Nov 2017 15:19:27 -0000	1.16
@@ -250,15 +250,7 @@
       </querytext>
 </partialquery>
 
- 
-<partialquery name="package_attribute_default.creation_date">      
-      <querytext>sysdate</querytext>
-</partialquery>
 
-<partialquery name="package_attribute_default.last_modified">      
-      <querytext>sysdate</querytext>
-</partialquery>
-
 <fullquery name="package_exec_plsql.exec_func_plsql">
       <querytext>
       
Index: openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql	7 Aug 2017 23:47:58 -0000	1.21
+++ openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql	20 Nov 2017 15:19:27 -0000	1.22
@@ -224,20 +224,13 @@
 </partialquery>
 
 
-<partialquery name="package_attribute_default.creation_date">      
-      <querytext>now()</querytext>
-</partialquery>
-
-<partialquery name="package_attribute_default.last_modified">      
-      <querytext>now()</querytext>
-</partialquery>
-
 <fullquery name="package_function_p.function_p">      
       <querytext>
 	select 1 from dual
       </querytext>
 </fullquery>
 
+
 <fullquery name="package_exec_plsql.exec_func_plsql">      
       <querytext>
 
Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	7 Nov 2017 11:24:05 -0000	1.28
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	20 Nov 2017 15:19:27 -0000	1.29
@@ -73,11 +73,9 @@
 } {
     if { $table eq "" || $column eq "" } {
         # pull out the table and column names based on the object type
-        db_1row select_type_info {
-            select t.table_name as table, t.id_column as column
-            from acs_object_types t
-            where t.object_type = :object_type
-        }
+        acs_object_type::get -object_type $object_type -array acs_type
+        set table  $acs_type(table_name)
+        set column $acs_type(id_column)
     }
 
     # set toupper for case-insensitive searching
@@ -273,19 +271,20 @@
 
 } {
 
-    if { ![package_type_dynamic_p $object_type] } {
-        error "The specified object, $object_type, either does not exist or is not dynamic. Therefore, a package cannot be created for it"
+    if {[catch {
+        acs_object_type::get -object_type $object_type -array acs_type
+    } errmsg]} {
+        error "The specified object, $object_type does not exist."
     }
+    
+    if { ![string is true -strict $acs_type(dynamic_p)] } {
+        error "The specified object, $object_type is not dynamic. Therefore, a package cannot be created for it"
+    }
 
     # build up a list of the pl/sql to execute as it will make it
     # easier to return a string for debugging purposes.
+    set package_name $acs_type(package_name)
 
-    set package_name [db_string select_package_name {
-        select t.package_name
-        from acs_object_types t
-        where t.object_type = :object_type
-    }]
-
     lappend plsql \
         [list "package" "create_package" [package_generate_spec $object_type]] \
         [list "package body" "create_package_body" [package_generate_body $object_type]]
@@ -337,11 +336,11 @@
     @param object_type The object for which to create a package spec
 } {
     # First pull out some basic information about this object type
-    db_1row select_type_info {
-        select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
-        from acs_object_types t
-        where t.object_type = :object_type
-    }
+    acs_object_type::get -object_type $object_type -array acs_type
+    set table_name   $acs_type(table_name)
+    set id_column    $acs_type(id_column)
+    set package_name [string tolower $acs_type(package_name)]
+    set supertype    $acs_type(supertype)
 
     return [db_map spec]
 }
@@ -359,19 +358,17 @@
 
 } {
     # Pull out information about this object type
-    db_1row select_type_info {
-        select t.table_name, t.id_column, lower(t.package_name) as package_name, t.supertype
-        from acs_object_types t
-        where t.object_type = :object_type
-    }
+    acs_object_type::get -object_type $object_type -array acs_type
+    set table_name   $acs_type(table_name)
+    set id_column    $acs_type(id_column)
+    set package_name [string tolower $acs_type(package_name)]
+    set supertype    $acs_type(supertype)
 
     # Pull out information about the supertype
-    db_1row select_type_info {
-        select t.table_name as supertype_table_name, t.id_column as supertype_id_column,
-        lower(t.package_name) as supertype_package_name
-        from acs_object_types t
-        where t.object_type = :supertype
-    }
+    acs_object_type::get -object_type $supertype -array acs_type
+    set supertype_table_name   $acs_type(table_name)
+    set supertype_id_column    $acs_type(id_column)
+    set supertype_package_name [string tolower $acs_type(package_name)]
 
     set attribute_list [package_create_attribute_list \
                             -supertype $supertype \
@@ -463,14 +460,10 @@
     # separately in case there are no other attributes for this object type
     # Note that we also alias this primary key to object_id so
     # that the calling code can generically use it.
+    acs_object_type::get -object_type $object_type -array acs_type
+    set table_name $acs_type(table_name)
+    set id_column  $acs_type(id_column)
 
-    db_1row select_type_info {
-        select t.table_name, t.id_column
-        from acs_object_types t
-        where t.object_type = :object_type
-    }
-
-
     set columns [list "${table_name}.${id_column}"]
     if { [string tolower $id_column] ne "object_id" } {
         # Add in an alias for object_id
@@ -629,11 +622,8 @@
 
     set object_name "NEW"
 
-    db_1row select_type_info {
-        select t.package_name
-        from acs_object_types t
-        where t.object_type = :object_type
-    }
+    acs_object_type::get -object_type $object_type -array acs_type
+    set package_name $acs_type(package_name)
 
     # We need to hit the data dictionary to find the table and column names
     # for all the arguments to the object_types function/procedure
@@ -722,11 +712,10 @@
 
     # Select out the package name if it wasn't passed in
     if { $package_name eq "" } {
-        if { ![db_0or1row package_select {
-            select t.package_name
-            from acs_object_types t
-            where t.object_type = :object_type
-        }] } {
+        if {[catch {
+            acs_object_type::get -object_type $object_type -array acs_type
+            set package_name $acs_type(package_name)
+        } errmsg]} {
             error "Object type \"$object_type\" does not exist"
         }
     }
Index: openacs-4/packages/acs-subsite/tcl/package-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.xql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/tcl/package-procs.xql	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/tcl/package-procs.xql	20 Nov 2017 15:19:27 -0000	1.8
@@ -1,46 +1,12 @@
 <?xml version="1.0"?>
 <queryset>
 
-  <fullquery name="package_create.select_package_name">      
-    <querytext>
-      
-      select t.package_name
-      from acs_object_types t
-      where t.object_type = :object_type
-      
-    </querytext>
-  </fullquery>
+  <partialquery name="package_attribute_default.creation_date">
+    <querytext>current_timestamp</querytext>
+  </partialquery>
 
-  
-  <fullquery name="package_instantiate_object.package_select">      
-    <querytext>
-      
-      select t.package_name
-      from acs_object_types t
-      where t.object_type = :object_type
-      
-    </querytext>
-  </fullquery>
-  
-  <fullquery name="package_instantiate_object.get_id_column">      
-    <querytext>
-      
-      select id_column
-      from acs_object_types
-      where object_type = :object_type
-      
-    </querytext>
-  </fullquery>
+  <partialquery name="package_attribute_default.last_modified">
+    <querytext>current_timestamp</querytext>
+  </partialquery>
 
-  
-  <fullquery name="package_object_view_helper.select_type_info">      
-    <querytext>
-
-      select t.table_name, t.id_column
-      from acs_object_types t
-      where t.object_type = :object_type
-      
-    </querytext>
-  </fullquery>
-  
 </queryset>