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 -N -r1.77 -r1.78 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 13 Jan 2005 13:55:56 -0000 1.77 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 26 Jan 2005 22:45:42 -0000 1.78 @@ -2600,7 +2600,11 @@ @see util_user_message @see ad_script_abort } { - util_user_message -message $message + if { [string is false $html_p] } { + util_user_message -message $message + } else { + util_user_message -message $message -html + } if { [util_complete_url_p $target_url] } { # http://myserver.com/foo/bar.tcl style - just pass to ns_returnredirect @@ -2629,13 +2633,7 @@ util_ReturnMetaRefresh $url } else { ns_returnredirect $url - } - - if { [string is false $html_p] } { - util_user_message -message $message - } else { - util_user_message -message $message -html - } + } } ad_proc -public util_user_message {