Index: openacs-4/packages/acs-admin/www/send-email.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/send-email.tcl,v diff -u -r1.6.2.1 -r1.6.2.2 --- openacs-4/packages/acs-admin/www/send-email.tcl 10 Sep 2015 08:21:01 -0000 1.6.2.1 +++ openacs-4/packages/acs-admin/www/send-email.tcl 18 Sep 2015 07:39:03 -0000 1.6.2.2 @@ -25,7 +25,7 @@ if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $email_from -subject $subject -body $message} errmsg]} { ad_return_error $error_subject "

$error_message

-
[ad_quotehtml $errmsg]
" +
[ns_quotehtml $errmsg]
" ad_script_abort } Index: openacs-4/packages/acs-admin/www/apm/build-repository.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/build-repository.tcl,v diff -u -r1.18.2.2 -r1.18.2.3 --- openacs-4/packages/acs-admin/www/apm/build-repository.tcl 10 Sep 2015 08:21:01 -0000 1.18.2.2 +++ openacs-4/packages/acs-admin/www/apm/build-repository.tcl 18 Sep 2015 07:39:03 -0000 1.18.2.3 @@ -184,19 +184,19 @@ append manifest { } {} \n - append manifest { } {} [ad_quotehtml $version(package.key)] {} \n - append manifest { } {} [ad_quotehtml $version(name)] {} \n - append manifest { } {} [ad_quotehtml $version(package-name)] {} \n - append manifest { } {} [ad_quotehtml $version(package.type)] {} \n - append manifest { } {} [ad_quotehtml $version(summary)] {} \n - append manifest { } {} - append manifest [ad_quotehtml $version(description)] {} \n - append manifest { } {} [ad_quotehtml $version(release-date)] {} \n - append manifest { } {} [ad_quotehtml $version(maturity)] {} \n - append manifest { } {} - append manifest [ad_quotehtml $version(license)] {} \n - append manifest { } {} - append manifest [ad_quotehtml $version(vendor)] {} \n + append manifest { } {} [ns_quotehtml $version(package.key)] {} \n + append manifest { } {} [ns_quotehtml $version(name)] {} \n + append manifest { } {} [ns_quotehtml $version(package-name)] {} \n + append manifest { } {} [ns_quotehtml $version(package.type)] {} \n + append manifest { } {} [ns_quotehtml $version(summary)] {} \n + append manifest { } {} + append manifest [ns_quotehtml $version(description)] {} \n + append manifest { } {} [ns_quotehtml $version(release-date)] {} \n + append manifest { } {} [ns_quotehtml $version(maturity)] {} \n + append manifest { } {} + append manifest [ns_quotehtml $version(license)] {} \n + append manifest { } {} + append manifest [ns_quotehtml $version(vendor)] {} \n append manifest [apm::package_version::attributes::generate_xml \ -version_id $version_id \ @@ -234,7 +234,7 @@ close $fp lappend cmd "|" [apm_gzip_cmd] -c ">" $apm_file - #ns_log Notice "Executing: [ad_quotehtml $cmd]" + #ns_log Notice "Executing: [ns_quotehtml $cmd]" eval $cmd } @@ -243,17 +243,17 @@ append manifest { } {} $apm_url {} \n foreach elm $version(provides) { - append manifest { } "" \n + append manifest { } "" \n } foreach elm $version(requires) { - append manifest { } "" \n + append manifest { } "" \n } append manifest { } {} \n } } { - ns_write "
  • Error on spec_file $spec_file: [ad_quotehtml $errmsg]
    [ad_quotehtml $::errorInfo]\n" + ns_write "
  • Error on spec_file $spec_file: [ns_quotehtml $errmsg]
    [ns_quotehtml $::errorInfo]\n" } } } Index: openacs-4/packages/acs-admin/www/apm/package-deinstall.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-deinstall.tcl,v diff -u -r1.3.2.1 -r1.3.2.2 --- openacs-4/packages/acs-admin/www/apm/package-deinstall.tcl 10 Sep 2015 08:21:02 -0000 1.3.2.1 +++ openacs-4/packages/acs-admin/www/apm/package-deinstall.tcl 18 Sep 2015 07:39:03 -0000 1.3.2.2 @@ -25,7 +25,7 @@ } on_error { if {![apm_version_installed_p $version_id] } { ad_return_complaint 1 "Database Error: The database returned the following error - message
    [ad_quotehtml $errmsg]
    " + message
    [ns_quotehtml $errmsg]
    " } } Index: openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl,v diff -u -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl 10 Sep 2015 08:21:02 -0000 1.8.2.1 +++ openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl 18 Sep 2015 07:39:03 -0000 1.8.2.2 @@ -31,7 +31,7 @@ -callback apm_body_callback $package_key} errmsg] } { append body [subst { We encountered the following error when deleting package "$package_key": -
    [ad_quotehtml $errmsg]
    +
    [ns_quotehtml $errmsg]
    }] append body $::__apm_body Index: openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl,v diff -u -r1.19.2.3 -r1.19.2.4 --- openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl 12 Sep 2015 16:47:24 -0000 1.19.2.3 +++ openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl 18 Sep 2015 07:39:03 -0000 1.19.2.4 @@ -47,7 +47,7 @@ array set version [apm_read_package_info_file $spec_file] } errmsg] } { ns_write "
  • Unable to install the [pkg_info_key $pkg_info] package because its specification - file is invalid:
    [ad_quotehtml $errmsg]
    " + file is invalid:
    [ns_quotehtml $errmsg]
    " continue } Index: openacs-4/packages/acs-admin/www/apm/packages-install.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/packages-install.tcl,v diff -u -r1.24 -r1.24.2.1 --- openacs-4/packages/acs-admin/www/apm/packages-install.tcl 15 Jun 2015 11:10:10 -0000 1.24 +++ openacs-4/packages/acs-admin/www/apm/packages-install.tcl 18 Sep 2015 07:39:03 -0000 1.24.2.1 @@ -123,7 +123,7 @@ array set package [apm_read_package_info_file $spec_file] } errmsg] } { lappend errors "
  • Unable to parse $spec_file. The following error was generated: -
    [ad_quotehtml $errmsg]

    " +

    [ns_quotehtml $errmsg]

    " } else { apm_log APMDebug "APM: Adding $package(package.key) to list for installation." lappend pkg_info_list [pkg_info_new $package(package.key) $spec_file \ Index: openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl,v diff -u -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl 10 Sep 2015 08:21:02 -0000 1.10.2.1 +++ openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl 18 Sep 2015 07:39:03 -0000 1.10.2.2 @@ -45,7 +45,7 @@ select 1 from apm_parameters where parameter_id = :parameter_id } -default 0]} { ad_return_error "Database Error" "The database is complaining about the parameter you entered:

    -

    [ad_quotehtml $errmsg]
    " +
    [ns_quotehtml $errmsg]
    " ad_script_abort } } Index: openacs-4/packages/acs-admin/www/apm/parameter-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-add.tcl,v diff -u -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/acs-admin/www/apm/parameter-add.tcl 10 Sep 2015 08:21:02 -0000 1.10.2.1 +++ openacs-4/packages/acs-admin/www/apm/parameter-add.tcl 18 Sep 2015 07:39:03 -0000 1.10.2.2 @@ -64,7 +64,7 @@
    Section Name: -
    +
    Index: openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl,v diff -u -r1.7.2.1 -r1.7.2.2 --- openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl 10 Sep 2015 08:21:03 -0000 1.7.2.1 +++ openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl 18 Sep 2015 07:39:03 -0000 1.7.2.2 @@ -35,7 +35,7 @@ } on_error { ad_return_error "Database Error" "The parameter could not be updated. The database returned the following error:

    -

    [ad_quotehtml $errmsg]
    " +
    [ns_quotehtml $errmsg]
    " } # LARS hack Index: openacs-4/packages/acs-admin/www/apm/parameter-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-edit.tcl,v diff -u -r1.7.2.1 -r1.7.2.2 --- openacs-4/packages/acs-admin/www/apm/parameter-edit.tcl 10 Sep 2015 08:21:03 -0000 1.7.2.1 +++ openacs-4/packages/acs-admin/www/apm/parameter-edit.tcl 18 Sep 2015 07:39:03 -0000 1.7.2.2 @@ -44,7 +44,7 @@ Parameter Name: - + @@ -54,7 +54,7 @@
    Description: - + @@ -66,7 +66,7 @@
    Section Name: -
    +
    @@ -93,7 +93,7 @@ Default: - + Index: openacs-4/packages/acs-admin/www/apm/version-dependency-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-dependency-add-2.tcl,v diff -u -r1.14.2.1 -r1.14.2.2 --- openacs-4/packages/acs-admin/www/apm/version-dependency-add-2.tcl 10 Sep 2015 08:21:04 -0000 1.14.2.1 +++ openacs-4/packages/acs-admin/www/apm/version-dependency-add-2.tcl 18 Sep 2015 07:39:04 -0000 1.14.2.2 @@ -46,7 +46,7 @@ where dependency_id = :dependency_id } -default 0] } { ad_return_complaint 1 "The database returned the following error: -
    [ad_quotehtml $errmsg]
    " +
    [ns_quotehtml $errmsg]
    " } } Index: openacs-4/packages/acs-admin/www/apm/version-dependency-remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-dependency-remove.tcl,v diff -u -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/acs-admin/www/apm/version-dependency-remove.tcl 10 Sep 2015 08:21:04 -0000 1.8.2.1 +++ openacs-4/packages/acs-admin/www/apm/version-dependency-remove.tcl 18 Sep 2015 07:39:04 -0000 1.8.2.2 @@ -29,7 +29,7 @@ apm_package_install_spec $version_id } on_error { ad_return_complaint 1 "Database Error: The database returned the following error: -
    [ad_quotehtml $errmsg]
    " +
    [ns_quotehtml $errmsg]
    " } ad_returnredirect [export_vars -base version-dependencies {version_id}] Index: openacs-4/packages/acs-admin/www/apm/version-generate-tarball.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-generate-tarball.tcl,v diff -u -r1.5.2.1 -r1.5.2.2 --- openacs-4/packages/acs-admin/www/apm/version-generate-tarball.tcl 10 Sep 2015 08:21:05 -0000 1.5.2.1 +++ openacs-4/packages/acs-admin/www/apm/version-generate-tarball.tcl 18 Sep 2015 07:39:04 -0000 1.5.2.2 @@ -14,7 +14,7 @@ ad_return_complaint 1 "APM Generation Error: The database returned the following error message:
     
    -[ad_quotehtml $errmsg] +[ns_quotehtml $errmsg]
    " Index: openacs-4/packages/acs-admin/www/apm/version-reload.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-reload.tcl,v diff -u -r1.11 -r1.11.2.1 --- openacs-4/packages/acs-admin/www/apm/version-reload.tcl 27 Jun 2015 16:41:08 -0000 1.11 +++ openacs-4/packages/acs-admin/www/apm/version-reload.tcl 18 Sep 2015 07:39:04 -0000 1.11.2.1 @@ -59,7 +59,7 @@ if {[info exists package_errors($file)]} { append body "
    ERROR!
    " \ - "
    [ad_quotehtml $package_errors($file)]
    " + "
    [ns_quotehtml $package_errors($file)]
    " } append body "
  • \n" } Index: openacs-4/packages/acs-admin/www/auth/batch-job.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-job.tcl,v diff -u -r1.13.2.1 -r1.13.2.2 --- openacs-4/packages/acs-admin/www/auth/batch-job.tcl 10 Sep 2015 08:21:07 -0000 1.13.2.1 +++ openacs-4/packages/acs-admin/www/auth/batch-job.tcl 18 Sep 2015 07:39:04 -0000 1.13.2.2 @@ -75,7 +75,7 @@ } elseif { $element_name eq "creation_user" && $batch_job($element_name) ne "" } { set $element_name [acs_community_member_link -user_id $batch_job($element_name)] } else { - set $element_name [ad_quotehtml $batch_job($element_name)] + set $element_name [ns_quotehtml $batch_job($element_name)] } } Index: openacs-4/packages/acs-admin/www/cache/flush.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/flush.tcl,v diff -u -r1.3.12.1 -r1.3.12.2 --- openacs-4/packages/acs-admin/www/cache/flush.tcl 10 Sep 2015 08:21:07 -0000 1.3.12.1 +++ openacs-4/packages/acs-admin/www/cache/flush.tcl 18 Sep 2015 07:39:04 -0000 1.3.12.2 @@ -17,7 +17,7 @@ set pair [ns_cache get util_memoize $name] set raw_time [lindex $pair 0] if {$raw_time == $raw_date} { - set value [ad_quotehtml [lindex $pair 1]] + set value [ns_quotehtml [lindex $pair 1]] set time [clock format $raw_time] set key $name break Index: openacs-4/packages/acs-admin/www/cache/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/one.tcl,v diff -u -r1.4.2.1 -r1.4.2.2 --- openacs-4/packages/acs-admin/www/cache/one.tcl 10 Sep 2015 08:21:07 -0000 1.4.2.1 +++ openacs-4/packages/acs-admin/www/cache/one.tcl 18 Sep 2015 07:39:04 -0000 1.4.2.2 @@ -21,7 +21,7 @@ if {[catch {set value [ns_cache get util_memoize $key]} errmsg]} { set value "could not retrieve" } - set value [ad_quotehtml $value] + set value [ns_quotehtml $value] } else { if {[catch {set pair [ns_cache get util_memoize $key]} errmsg]} { @@ -33,7 +33,7 @@ set pair [ns_cache get util_memoize $name] set raw_time [lindex $pair 0] if {$raw_time == $raw_date} { - set value [ad_quotehtml [lindex $pair 1]] + set value [ns_quotehtml [lindex $pair 1]] set time [clock format $raw_time] set key $name break @@ -45,11 +45,11 @@ set time "?" } } else { - set value [ad_quotehtml [lindex $pair 1]] + set value [ns_quotehtml [lindex $pair 1]] set time [clock format [lindex $pair 0]] } } -set safe_key [ad_quotehtml $key] +set safe_key [ns_quotehtml $key] regsub -all -nocase -- $pattern $key \ "$pattern" key Index: openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl,v diff -u -r1.4.2.1 -r1.4.2.2 --- openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl 10 Sep 2015 08:21:07 -0000 1.4.2.1 +++ openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl 18 Sep 2015 07:39:04 -0000 1.4.2.2 @@ -20,7 +20,7 @@ foreach name $cached_names {size time} $stats { if {[regexp -nocase -- $pattern $name match]} { - set key [ad_quotehtml $name] + set key [ns_quotehtml $name] set safe_key $key ;# why twice? set raw_date [ns_time seconds $time] if {$raw_date eq 0} { @@ -33,7 +33,7 @@ continue } set value_size [string length $value] - set value [ad_quotehtml $value] + set value [ns_quotehtml $value] if {$full} { template::multirow append matches $key $value $value_size \ $safe_key $expires $raw_date @@ -48,14 +48,14 @@ foreach name $cached_names { if {[regexp -nocase -- $pattern $name match]} { - set key [ad_quotehtml $name] - set safe_key [ad_quotehtml $name] + set key [ns_quotehtml $name] + set safe_key [ns_quotehtml $name] if {[catch {set pair [ns_cache get util_memoize $name]} errmsg]} { continue } set raw_date [lindex $pair 0] set date [clock format $raw_date -format "%d %b %H:%M:%S"] - set value [ad_quotehtml [lindex $pair 1]] + set value [ns_quotehtml [lindex $pair 1]] set value_size [string length $value] if {$full} { template::multirow append matches $key $value $value_size \ Index: openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl,v diff -u -r1.7.2.1 -r1.7.2.2 --- openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl 10 Sep 2015 08:21:10 -0000 1.7.2.1 +++ openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl 18 Sep 2015 07:39:04 -0000 1.7.2.2 @@ -83,7 +83,7 @@ if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $from -subject $subject -body $sub_message} errmsg]} { ad_return_error "Mail Failed" "

    The system was unable to send email. Please notify the user personally. This problem is probably caused by a misconfiguration of your email system. Here is the error:

    -[ad_quotehtml $errmsg] +[ns_quotehtml $errmsg]
    " return } Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v diff -u -r1.10 -r1.10.2.1 --- openacs-4/packages/acs-api-browser/www/proc-view.tcl 2 Jul 2015 19:21:43 -0000 1.10 +++ openacs-4/packages/acs-api-browser/www/proc-view.tcl 18 Sep 2015 07:40:19 -0000 1.10.2.1 @@ -71,7 +71,7 @@ a private interface.

    The procedure is defined as:

     proc $proc {[info args $proc]} {
    -    [ad_quotehtml [info body $proc]]
    +    [ns_quotehtml [info body $proc]]
     }
     

    }] Index: openacs-4/packages/acs-bootstrap-installer/installer.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer.tcl,v diff -u -r1.25.2.1 -r1.25.2.2 --- openacs-4/packages/acs-bootstrap-installer/installer.tcl 18 Aug 2015 12:27:15 -0000 1.25.2.1 +++ openacs-4/packages/acs-bootstrap-installer/installer.tcl 18 Sep 2015 07:43:09 -0000 1.25.2.2 @@ -25,7 +25,7 @@ set type_attribute [ad_decode $type "" "" "type=\"$type\""] if { $value ne "" } { - append extra_attributes " value=\"[ad_quotehtml $value]\"" + append extra_attributes " value=\"[ns_quotehtml $value]\"" } set input_widget "" @@ -361,7 +361,7 @@ foreach {package error_infos} [array get errors] { append result "

    Error in Package $package:

    \n" foreach {fileName backTrace} $error_infos { - append result "Error in File $fileName\n\n[ad_quotehtml $backTrace]\n\n\n" + append result "Error in File $fileName\n\n[ns_quotehtml $backTrace]\n\n\n" } } append result "\n" Index: openacs-4/packages/acs-developer-support/www/search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/search.tcl,v diff -u -r1.4.2.1 -r1.4.2.2 --- openacs-4/packages/acs-developer-support/www/search.tcl 10 Sep 2015 08:21:24 -0000 1.4.2.1 +++ openacs-4/packages/acs-developer-support/www/search.tcl 18 Sep 2015 07:42:33 -0000 1.4.2.2 @@ -28,7 +28,7 @@ append file_links " c" append file_links " o" set size [string length $content] - set highlight "...[ad_quotehtml [string trimleft [string range $content [expr {[lindex $offset 0] - 50}] [expr {[lindex $offset 0] - 1}]]]][ad_quotehtml [string range $content [lindex $offset 0] [lindex $offset 1]]][ad_quotehtml [string trimright [string range $content [expr {[lindex $offset 1] + 1}] [expr {[lindex $offset 1] + 50}]]]]..." + set highlight "...[ns_quotehtml [string trimleft [string range $content [expr {[lindex $offset 0] - 50}] [expr {[lindex $offset 0] - 1}]]]][ns_quotehtml [string range $content [lindex $offset 0] [lindex $offset 1]]][ns_quotehtml [string trimright [string range $content [expr {[lindex $offset 1] + 1}] [expr {[lindex $offset 1] + 50}]]]]..." multirow append matches $page $highlight $file_links $size } Index: openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl,v diff -u -r1.50.2.2 -r1.50.2.3 --- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl 10 Sep 2015 08:21:25 -0000 1.50.2.2 +++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl 18 Sep 2015 07:41:03 -0000 1.50.2.3 @@ -356,9 +356,9 @@ # Loop over and write the messages to the file set message_count "0" foreach message_key $message_key_list { - puts $catalog_file_id " [ad_quotehtml $messages_array($message_key)]" + puts $catalog_file_id " [ns_quotehtml $messages_array($message_key)]" if { ([info exists descriptions_array($message_key)] && $descriptions_array($message_key) ne "") && $filename_info(locale) eq "en_US" } { - puts $catalog_file_id " [ad_quotehtml $descriptions_array($message_key)]\n" + puts $catalog_file_id " [ns_quotehtml $descriptions_array($message_key)]\n" } incr message_count } Index: openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl,v diff -u -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl 10 Sep 2015 08:21:26 -0000 1.8.2.1 +++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl 18 Sep 2015 07:41:03 -0000 1.8.2.2 @@ -42,7 +42,7 @@ if { [info exists values($value)] } { lappend selected_list $label - append output "" + append output "" } } @@ -66,7 +66,7 @@ set label [lindex $option 0] set value [lindex $option 1] - set value [ad_quotehtml $value] + set value [ns_quotehtml $value] append output "