Index: openacs-4/packages/dotlrn-homework/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/dotlrn-homework/www/file.tcl	7 Aug 2017 23:48:10 -0000	1.8
+++ openacs-4/packages/dotlrn-homework/www/file.tcl	22 Oct 2023 16:45:21 -0000	1.8.2.1
@@ -12,7 +12,7 @@
 } {
     file_id:integer,notnull
     folder_id:integer,notnull
-    {show_all_versions_p:boolean "f"}
+    {show_all_versions_p:boolean,notnull f}
 } -validate {
     valid_file -requires {file_id} {
 	if {![fs_file_p $file_id]} {
@@ -53,7 +53,7 @@
 # idea so I'm not putting out a link to it.   As of July Sloan agrees.
 set copy_url [export_vars -base file-copy {file_id name}]
 
-if {$show_all_versions_p == "t"} {
+if {$show_all_versions_p} {
     set show_versions [db_map show_all_versions]
 } else {
     set show_versions [db_map show_live_version]