Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.93 -r1.94
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 10 Jan 2007 21:22:12 -0000 1.93
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 14 May 2007 20:30:26 -0000 1.94
@@ -823,7 +823,7 @@
set export_string [join $export_list "&"]
} else {
for { set i 0 } { $i < $export_size } { incr i } {
- append export_string "\n"
+ append export_string "\n"
}
}
@@ -997,7 +997,7 @@
set export_list [list]
foreach varname [array names export] {
lappend export_list ""
+ value=\"[ad_quotehtml $export($varname)]\" >"
}
return [join $export_list \n]
}
@@ -1043,15 +1043,15 @@
switch $type {
multiple {
foreach item $value {
- append hidden "\n"
+ append hidden "\n"
}
}
default {
- append hidden "\n"
+ append hidden "\n"
}
}
if { $sign_p } {
- append hidden "\n"
+ append hidden "\n"
}
}
}
@@ -1074,7 +1074,7 @@
for {set i 0} {$i<[ns_set size $the_form]} {incr i} {
set varname [ns_set key $the_form $i]
set varvalue [ns_set value $the_form $i]
- append hidden "\n"
+ append hidden "\n"
}
}
return $hidden
@@ -1119,7 +1119,7 @@
if {$format eq "url"} {
return [join $return_list "&"]
} else {
- return "\n "
+ return "\n "
}
}