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 -r1.14 -r1.15
--- openacs-4/packages/acs-admin/www/apm/version-files.tcl	31 Oct 2003 12:11:28 -0000	1.14
+++ openacs-4/packages/acs-admin/www/apm/version-files.tcl	10 Jan 2007 21:21:59 -0000	1.15
@@ -33,7 +33,7 @@
     set db_type [apm_guess_db_type $package_key $path]
     set db_pretty_name $db_type
     set file_type [apm_guess_file_type $package_key $path]
-    if { [empty_string_p $file_type] } {
+    if { $file_type eq "" } {
         set file_type "?"
     }
     set file_pretty_name $file_type
@@ -44,7 +44,7 @@
     # we wrote out.
     set components [split $path "/"]
     for { set i 0 } { $i < [llength $components] - 1 && $i < [llength $last_components] - 1 } { incr i } {
-	if { [string compare [lindex $components $i] [lindex $last_components $i]] } {
+	if {[lindex $components $i] ne [lindex $last_components $i]  } {
 	    break
 	}
     }
@@ -55,7 +55,7 @@
 	for { set j 0 } { $j < $i } { incr j } {
 	    append body "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
 	}
-	if { $installed_p == "f" || [file exists "[acs_package_root_dir $package_key]/$path"] || $i < [llength $components] - 1} { 
+	if { $installed_p eq "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 <strike> when writing the name.
 	    append body [lindex $components $i]
@@ -74,7 +74,7 @@
 	    append body "<td width=40>&nbsp;</td><td>$file_pretty_name</td><td width=40>&nbsp</td><td>$db_pretty_name</td>
                              <td width=40>&nbsp;</td>"
 
-		if { $installed_p == "t" } {
+		if { $installed_p eq "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] } {
@@ -101,35 +101,35 @@
     set last_components $components
 } 
 
-if { [string equal $counter 0] } {
+if {$counter eq "0"} {
     append body "<tr><td>This package does not contain any registered files.</td></tr>\n"
 }
 
 append body "</table>
 </blockquote>
 "
 
-if { $installed_p == "t" } {
+if { $installed_p eq "t" } {
     append body "<ul>
     <li><a href=\"package-watch?[export_vars -url {package_key return_url}]\">watch all files</a></li>
 <li><a href=\"package-watch-cancel?[export_vars -url {package_key return_url}]\">cancel all watches</a></li>"
 
-    if { [empty_string_p $distribution_uri] } {
+    if { $distribution_uri eq "" } {
         append body "
     <p>
     <!--li><a href=\"version-tag?version_id=$version_id\">Create a CVS tag for this version in each file</a-->"
 
     }
 
-    if {$tagged_p == "t"} {
+    if {$tagged_p eq "t"} {
         append body "
         <li><a href=\"archive/[file tail $version_uri]?version_id=$version_id\">Download a tarball from the package archive</a>"
     }
 
     append body "</ul>"
 
 } elseif { [info exists tagged_p] } {
-    if { $tagged_p == "t" } {
+    if { $tagged_p eq "t" } {
         append body "<ul>
         <li><a href=\"archive/[file tail $version_uri]?version_id=$version_id\">Download a tarball from the package archive</a>
         </ul>