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