Index: openacs-4/packages/cms/www/modules/templates/new-folder.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/new-folder.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/cms/www/modules/templates/new-folder.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/cms/www/modules/templates/new-folder.tcl 25 May 2001 02:15:56 -0000 1.2 @@ -39,24 +39,21 @@ set creation_ip [ns_conn peeraddr] set creation_user [User::getID] - set db [template::begin_db_transaction] + db_transaction { - set sql "begin :folder_id := content_folder.new( + set folder_id [db_exec_plsql "begin :folder_id := content_folder.new( folder_id => :folder_id, name => :name, label => :label, description => :description, parent_id => :parent_id, creation_ip => :creation_ip, creation_user => :creation_user - ); end;" + ); end;"] - ns_ora exec_plsql_bind $db $sql folder_id + content::add_basic_revision $folder_id "" "Template" \ + -text "" + } - content::add_basic_revision $folder_id "" "Template" \ - -text "" - - template::end_db_transaction - template::forward $return_url -} \ No newline at end of file +}