Index: openacs-4/packages/notes/www/add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notes/www/add-edit.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/notes/www/add-edit.tcl 3 May 2001 18:23:35 -0000 1.2 +++ openacs-4/packages/notes/www/add-edit.tcl 4 Mar 2002 13:53:56 -0000 1.3 @@ -7,7 +7,7 @@ @cvs-id $Id$ } { note_id:integer,notnull,optional - {title ""} + title:html,notnull,optional {body ""} } -properties { context_bar:onevalue @@ -16,13 +16,15 @@ set package_id [ad_conn package_id] if {[info exists note_id]} { - ad_require_permission $note_id write + ad_require_permission $note_id write - set context_bar [ad_context_bar "Edit Note"] + set context_bar [ad_context_bar "Edit Note"] } else { - ad_require_permission $package_id create + ad_require_permission $package_id create - set context_bar [ad_context_bar "New Note"] + set context_bar [ad_context_bar "New Note"] + + set title "" } template::form create new_note