Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 5 May 2001 17:39:19 -0000 1.6 +++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 29 May 2001 01:46:29 -0000 1.7 @@ -402,7 +402,8 @@ $type is not specified) which support a given database (if specified) in a version. @param type Optionally specifiy what type of files to check, for instance "tcl_procs" @param db_type Optionally specifiy what type of database support to check, for instance - "postgresql" + "postgresql". All files of the given type that are used by the given database version are + returned (i.e. all database-agnostic as well as the proper database-specific files). @param version_id The version to retrieve the file list from. } { @@ -412,7 +413,7 @@ set type_sql "" } if { ![empty_string_p $db_type] } { - set db_type_sql "and db_type = :db_type" + set db_type_sql "and (db_type = :db_type or db_type is null)" } else { set db_type_sql "" }