- made addint install files a set operation

74d7ff5d · Frank Bergmann · b945210f · 74d7ff5d
Commit 74d7ff5d authored Jun 01, 2008 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

packages-install-2.tcl www/apm/packages-install-2.tcl +4 -1

No files found.
--- a/www/apm/packages-install-2.tcl
+++ b/www/apm/packages-install-2.tcl
@@ -22,7 +22,10 @@ ad_set_client_property -clob t apm pkg_install_list ""
 ad_set_client_property -clob t apm pkg_enable_list ""

 foreach install_package $install {
-    lappend spec_files "[acs_root_dir]/packages/$install_package/$install_package.info"
+    set info_file "[acs_root_dir]/packages/$install_package/$install_package.info"
+    if {-1 == [lsearch $spec_files $info_file]} {
+        lappend spec_files $info_file
+    }
 }

 foreach spec_file $spec_files {