Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	19 Aug 2001 21:26:05 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	3 Sep 2001 18:40:46 -0000	1.6
@@ -28,9 +28,27 @@
     if { [llength $db_type_list] == 0 || [lsearch $db_type_list [db_type]] != -1 } {
         return 1
     }
+
+    # DRB: Legacy package check - we allow installation of old aD Oracle 4.2 packages,
+    # though we don't guarantee that they work.
+
+    if { [db_type] == "oracle" && [lsearch $db_type_list "oracle-8.1.6"] != -1 } {
+        return 1
+    }
+
     return 0
 }
 
+ad_proc db_legacy_package_p { db_type_list } {
+    Returns 1 if the package is a legacy package.  We can only tell for certain if
+    it explicitly supports Oracle 8.1.6 rather than the OpenACS more general oracle.
+} {
+    if { [lsearch $db_type_list "oracle-8.1.6"] != -1 } {
+        return 1
+    }
+    return 0
+}
+
 proc_doc db_version { } {
     Returns the RDBMS version (i.e. 8.1.6 is a recent Oracle version; 7.1 a
     recent PostgreSQL version.