Index: openacs-4/packages/file-storage/www/folder-edit-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-edit-oracle.xql,v diff -u -N --- openacs-4/packages/file-storage/www/folder-edit-oracle.xql 15 Jun 2007 17:40:29 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,17 +0,0 @@ - - - - oracle8.1.6 - - - - begin - content_folder.edit_name ( - folder_id => :folder_id, - label => :folder_name - ); - end; - - - - Index: openacs-4/packages/file-storage/www/folder-edit-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-edit-postgresql.xql,v diff -u -N --- openacs-4/packages/file-storage/www/folder-edit-postgresql.xql 15 Jun 2007 17:40:29 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,17 +0,0 @@ - - - - postgresql7.1 - - - - select content_folder__edit_name ( - :folder_id, - null, -- name - :folder_name, -- label - null -- description - ); - - - - Index: openacs-4/packages/file-storage/www/folder-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-edit.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/file-storage/www/folder-edit.tcl 21 Sep 2017 09:36:19 -0000 1.7 +++ openacs-4/packages/file-storage/www/folder-edit.tcl 21 Sep 2017 16:53:15 -0000 1.8 @@ -49,14 +49,14 @@ {submit:text(submit) {label $submit_label}} } -on_request { content::item::get -item_id $folder_id -array folder - set folder_name $folder(name) + set folder_name $folder(label) set description $folder(description) } -on_submit { db_transaction { content::folder::update -folder_id $folder_id \ -attributes [list \ - [list name $folder_name] \ + [list label $folder_name] \ [list description $description]] if { [parameter::get -parameter CategoriesP -package_id $package_id -default 0] } { @@ -72,8 +72,6 @@ ad_returnredirect "?folder_id=$folder_id" } -ad_return_template - # Local variables: # mode: tcl # tcl-indent-level: 4