- fixed several backup issues

1cad4aff · Frank Bergmann · 2319730d · 1cad4aff
Commit 1cad4aff authored Apr 30, 2005 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

30-apm-load-procs.tcl tcl/30-apm-load-procs.tcl +1 -0

No files found.
--- a/tcl/30-apm-load-procs.tcl
+++ b/tcl/30-apm-load-procs.tcl
@@ -207,6 +207,7 @@ ad_proc -public apm_get_package_files {

    set matching_files [list]
    foreach file $files {
+
        set rel_path [string range $file [expr [string length $package_path] + 1] end]
        set file_type [apm_guess_file_type $package_key $rel_path]
        set file_db_type [apm_guess_db_type $package_key $rel_path]