Index: openacs-4/packages/acs-core-docs/www/files/tutorial/note-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/note-procs.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/acs-core-docs/www/files/tutorial/note-procs.tcl 2 Feb 2004 16:17:28 -0000 1.1.2.1 +++ openacs-4/packages/acs-core-docs/www/files/tutorial/note-procs.tcl 2 Feb 2004 18:08:29 -0000 1.1.2.2 @@ -34,6 +34,7 @@ -title:required } { This proc adds a note. + @return item_id of the new note. } { db_transaction { set item_id [db_exec_plsql note_insert { @@ -51,6 +52,7 @@ select content_item__set_live_revision(:revision_id) } } + return $item_id } ad_proc -public mfp::note::edit {