Index: openacs-4/packages/acs-core-docs/www/files/tutorial/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/index.adp,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/acs-core-docs/www/files/tutorial/index.adp 2 Feb 2004 16:17:28 -0000 1.1.2.1 +++ openacs-4/packages/acs-core-docs/www/files/tutorial/index.adp 2 Feb 2004 18:08:29 -0000 1.1.2.2 @@ -1,4 +1,4 @@ @page_title;noquote@ @context;noquote@ - \ No newline at end of file + \ No newline at end of file Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/acs-core-docs/www/files/tutorial/note-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/note-delete.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/acs-core-docs/www/files/tutorial/note-delete.tcl 2 Feb 2004 16:17:28 -0000 1.1.2.1 +++ openacs-4/packages/acs-core-docs/www/files/tutorial/note-delete.tcl 2 Feb 2004 18:08:29 -0000 1.1.2.2 @@ -11,4 +11,8 @@ permission::require_write_permission -object_id $item_id set title [item::get_title $item_id] -mfp::note::delete -item_id $item_id \ No newline at end of file +mfp::note::delete -item_id $item_id + +ad_returnredirect "." +# stop running this code, since we're redirecting +abort 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 {