Index: mod_nsd/tcl_modules/util.tcl
===================================================================
RCS file: /usr/local/cvsroot/mod_nsd/tcl_modules/util.tcl,v
diff -u -N -r1.1 -r1.2
--- mod_nsd/tcl_modules/util.tcl 13 Apr 2001 21:09:32 -0000 1.1
+++ mod_nsd/tcl_modules/util.tcl 6 May 2001 18:54:01 -0000 1.2
@@ -383,3 +383,13 @@
proc ns_updateheader {key value} {
ns_set update [ns_conn outputheaders] $key $value
}
+
+proc ns_returnnotice {status msg { longmsg "" } } {
+ ns_return $status text/html "
+
+$msg
+$longmsg
+
+"
+}
+