Index: openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	23 Sep 2003 17:41:41 -0000	1.27
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	25 Sep 2003 10:47:56 -0000	1.28
@@ -163,6 +163,7 @@
 ad_proc -public apm_get_package_files {
    {-all_db_types:boolean}
    {-package_key:required}
+   {-package_path {}}
    {-file_types {}}
 } {
   <p>
@@ -180,16 +181,21 @@
   @param package_key    The key of the package to return file paths for
   @param file_types     The type of files to return. If not provided files of all types
                         recognized by the APM are returned.
-  
-  @return The paths, relative to the root dir of the package, of matching files.
+  @param package_path   The full path of the root directory of the package. Defaults to 
+                        acs_package_root_dir.
 
+  @return The paths, relative to the root dir of the package, of matching files.    
+
   @author Peter Marklund
 
   @see apm_include_file_p
   @see apm_guess_file_type
   @see apm_guess_db_type
 } {
-    set package_path [acs_package_root_dir $package_key]
+    if { [empty_string_p $package_path] } {
+        set package_path [acs_package_root_dir $package_key]
+    }
+
     set files [lsort [ad_find_all_files -check_file_func apm_include_file_p $package_path]]
     # We don't assume db_type proc is defined yet
     set system_db_type [nsv_get ad_database_type .]