This package does not $dependency_type any services.\n"
}
- if { $installed_p eq "t" && $dependency_type ne "provide"} {
+ if { $installed_p == "t" && $dependency_type ne "provide"} {
append body [subst {
Add a
service $dependency_type_prep_2 by this package
Index: openacs-4/packages/acs-admin/www/apm/version-files.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-files.tcl,v
diff -u -N -r1.16.8.2 -r1.16.8.3
--- openacs-4/packages/acs-admin/www/apm/version-files.tcl 28 Sep 2013 12:10:01 -0000 1.16.8.2
+++ openacs-4/packages/acs-admin/www/apm/version-files.tcl 11 Oct 2013 11:43:47 -0000 1.16.8.3
@@ -58,7 +58,7 @@
for { set j 0 } { $j < $i } { incr j } {
append body " "
}
- if { $installed_p eq "f" || [file exists "[acs_package_root_dir $package_key]/$path"] || $i < [llength $components] - 1} {
+ if { $installed_p == "f" || [file exists "[acs_package_root_dir $package_key]/$path"] || $i < [llength $components] - 1} {
# Either we're not looking at an installed package, or the file still exists,
# so don't use when writing the name.
append body [lindex $components $i]
@@ -80,7 +80,7 @@
}]
- if { $installed_p eq "t" } {
+ if { $installed_p == "t" } {
set server_rel_path "packages/$package_key/$path"
if { [apm_file_watchable_p $server_rel_path] } {
if { [nsv_exists apm_reload_watch $server_rel_path] } {
@@ -118,13 +118,13 @@
}
-if { $installed_p eq "t" } {
+if { $installed_p == "t" } {
append body [subst {
Index: openacs-4/packages/acs-admin/www/apm/version-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-parameters.tcl,v
diff -u -N -r1.8.4.4 -r1.8.4.5
--- openacs-4/packages/acs-admin/www/apm/version-parameters.tcl 28 Sep 2013 12:10:01 -0000 1.8.4.4
+++ openacs-4/packages/acs-admin/www/apm/version-parameters.tcl 11 Oct 2013 11:43:47 -0000 1.8.4.5
@@ -84,7 +84,7 @@
}
# LARS hack
-set sections [lindex [lindex $dimensional_list 0] 3]
+set sections [lindex $dimensional_list 0 3]
foreach section $sections {
if {$section_name eq [lindex $section 0]} {
set section_name [lindex $section 1]
Index: openacs-4/packages/acs-admin/www/apm/version-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-view.tcl,v
diff -u -N -r1.20.8.2 -r1.20.8.3
--- openacs-4/packages/acs-admin/www/apm/version-view.tcl 28 Sep 2013 12:10:01 -0000 1.20.8.2
+++ openacs-4/packages/acs-admin/www/apm/version-view.tcl 11 Oct 2013 11:43:47 -0000 1.20.8.3
@@ -77,7 +77,7 @@
lappend prompts $status
} elseif { $installed_version_id == $version_id } {
set status "This version of the package is installed"
- if { $enabled_p eq "t" } {
+ if { $enabled_p == "t" } {
append status " and enabled."
set can_disable_p 1
} else {
@@ -212,7 +212,7 @@
}
} else {
append body "None available"
- if { $installed_p eq "t" } {
+ if { $installed_p == "t" } {
append body [subst {
(generate one now from the filesystem)
}]
@@ -256,7 +256,7 @@
}]
}
-if { $installed_p eq "t" } {
+if { $installed_p == "t" } {
if { $distribution_uri eq "" } {
# The distribution tarball was either (a) never generated, or (b) generated on this
# system. Allow the user to make a tarball based on files in the filesystem.
@@ -283,7 +283,7 @@
append body "
"
- if { $installed_p eq "t" } {
+ if { $installed_p == "t" } {
append body [subst {
Uninstall
this package from your system (be very careful!)
Index: openacs-4/packages/acs-admin/www/auth/authority-set-enabled-p.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority-set-enabled-p.tcl,v
diff -u -N -r1.3 -r1.3.10.1
--- openacs-4/packages/acs-admin/www/auth/authority-set-enabled-p.tcl 10 Jan 2007 21:22:00 -0000 1.3
+++ openacs-4/packages/acs-admin/www/auth/authority-set-enabled-p.tcl 11 Oct 2013 11:43:47 -0000 1.3.10.1
@@ -12,7 +12,7 @@
# Make sure we are not shutting out all site-wide-admins from the system
set allowed_p 1
-if { $enabled_p eq "f" && ![auth::can_admin_system_without_authority_p -authority_id $authority_id]} {
+if { $enabled_p == "f" && ![auth::can_admin_system_without_authority_p -authority_id $authority_id]} {
set allowed_p 0
}