Index: openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql 13 Aug 2001 01:02:59 -0000 1.1
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql 22 Sep 2001 05:39:21 -0000 1.2
@@ -18,7 +18,7 @@
begin
- :1 := content_folder.get_label(:folder_id);
+ :1 := file_storage.get_folder_name(:folder_id);
end;
@@ -68,7 +68,7 @@
begin
- :1 := content_item.get_title(:item_id);
+ :1 := file_storage.get_title(:item_id);
end;
@@ -78,11 +78,11 @@
- select case when content_item.get_content_type(i.item_id) = 'content_folder'
- then '?folder_id='
- else 'file?file_id='
+ select case when file_storage.get_content_type(i.item_id) = 'content_folder'
+ then 'index?folder_id='
+ else 'file?file_id='
end || i.item_id,
- content_item.get_title(i.item_id)
+ file_storage.get_title(i.item_id)
from cr_items i
where item_id not in (
select i2.item_id
Index: openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 6 Sep 2001 15:53:14 -0000 1.5
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 22 Sep 2001 05:39:36 -0000 1.6
@@ -15,7 +15,7 @@
- select content_folder__get_label(:folder_id);
+ select file_storage__get_folder_name(:folder_id);
@@ -67,7 +67,7 @@
- select content_item__get_title(:item_id);
+ select file_storage__get_title(:item_id)
@@ -76,11 +76,11 @@
- select (case when content_item__get_content_type(j.item_id) = 'content_folder'
- then '?folder_id='
+ select (case when file_storage__get_content_type(j.item_id) = 'content_folder'
+ then 'index?folder_id='
else 'file?file_id='
end) || j.item_id,
- content_item__get_title(j.item_id)
+ file_storage__get_title(j.item_id)
from cr_items i,cr_items j
where j.item_id not in (select o2.item_id
from cr_items o1, cr_items o2
Index: openacs-4/packages/file-storage/www/file-delete-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-delete-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-delete-oracle.xql 16 Aug 2001 20:29:36 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-delete-oracle.xql 22 Sep 2001 05:46:25 -0000 1.2
@@ -14,25 +14,15 @@
-
+
begin
- content_item.delete(:file_id);
+ file_storage.delete_file(:file_id);
end;
-
-
-
- select title as file_name
- from cr_revisions
- where revision_id = content_item.get_live_revision(:file_id)
-
-
-
-
Index: openacs-4/packages/file-storage/www/file-delete-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-delete-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-delete-postgresql.xql 16 Aug 2001 20:29:57 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-delete-postgresql.xql 22 Sep 2001 05:46:40 -0000 1.2
@@ -14,23 +14,12 @@
-
+
- select content_item__delete(:file_id);
+ select file_storage__delete_file(:file_id);
-
-
-
- select title as file_name
- from cr_revisions
- where revision_id = content_item__get_live_revision(:file_id)
-
-
-
-
-
Index: openacs-4/packages/file-storage/www/file-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-storage/www/file-delete.tcl 17 Aug 2001 14:12:28 -0000 1.2
+++ openacs-4/packages/file-storage/www/file-delete.tcl 22 Sep 2001 05:47:09 -0000 1.3
@@ -40,9 +40,9 @@
db_1row parent_id "select parent_id from cr_items where item_id = :file_id"
- db_exec_plsql file_delete "
+ db_exec_plsql delete_file "
begin
- content_item.delete(:file_id);
+ file_storage.delete_file(:file_id);
end;"
ad_returnredirect "?folder_id=$parent_id"
@@ -51,9 +51,9 @@
# they need to confirm that they really want to delete the file
db_1row file_name "
- select title as file_name
- from cr_revisions
- where revision_id = content_item.get_live_revision(:file_id)"
+ select name as title
+ from cr_items
+ where item_id = :file_id"
set context_bar [fs_context_bar_list -final "Delete" $file_id]
Index: openacs-4/packages/file-storage/www/file-delete.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-delete.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-delete.xql 16 Aug 2001 20:30:11 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-delete.xql 22 Sep 2001 05:47:23 -0000 1.2
@@ -9,5 +9,14 @@
-
+
+
+
+ select name as title
+ from cr_items
+ where item_id = :file_id
+
+
+
+
Index: openacs-4/packages/file-storage/www/file-edit-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-edit-2-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-edit-2-oracle.xql 16 Aug 2001 20:30:28 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-edit-2-oracle.xql 22 Sep 2001 05:47:37 -0000 1.2
@@ -3,13 +3,13 @@
oracle8.1.6
-
+
begin
- content_item.rename (
- item_id => :file_id,
- name => :name
+ file_storage.rename_file (
+ file_id => :file_id,
+ title => :title
);
end;
@@ -22,7 +22,7 @@
select count(*)
from cr_items
- where name = :name
+ where name = :title
and parent_id = content_item.get_parent_folder(:file_id)
Index: openacs-4/packages/file-storage/www/file-edit-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-edit-2-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-edit-2-postgresql.xql 16 Aug 2001 20:30:42 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-edit-2-postgresql.xql 22 Sep 2001 05:47:50 -0000 1.2
@@ -3,12 +3,12 @@
postgresql7.1
-
+
- select content_item__rename (
- :file_id, -- item_id
- :name -- name
+ select file_storage__rename_file (
+ :file_id, -- file_id
+ :title -- title
);
@@ -20,7 +20,7 @@
select count(*)
from cr_items
- where name = :name
+ where name = :title
and parent_id = content_item__get_parent_folder(:file_id)
Index: openacs-4/packages/file-storage/www/file-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-edit-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-edit-2.tcl 20 Apr 2001 20:51:10 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-edit-2.tcl 22 Sep 2001 05:48:01 -0000 1.2
@@ -6,7 +6,7 @@
@cvs-id $Id$
} {
file_id:integer,notnull
- name:notnull
+ title:notnull
} -validate {
valid_file -requires {file_id} {
if ![fs_file_p $file_id] {
@@ -19,11 +19,11 @@
ad_require_permission $file_id write
-if [catch {db_exec_plsql rename "
+if [catch {db_exec_plsql rename_file "
begin
content_item.rename (
item_id => :file_id,
- name => :name
+ name => :title
);
end;"} errmsg] {
Index: openacs-4/packages/file-storage/www/file-edit-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-edit-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-edit-oracle.xql 16 Aug 2001 20:31:01 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-edit-oracle.xql 22 Sep 2001 05:48:14 -0000 1.2
@@ -6,7 +6,7 @@
- select content_item.get_title(:file_id) as title,name
+ select name as title
from cr_items
where item_id = :file_id
Index: openacs-4/packages/file-storage/www/file-edit-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-edit-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-edit-postgresql.xql 16 Aug 2001 20:31:14 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-edit-postgresql.xql 22 Sep 2001 05:48:26 -0000 1.2
@@ -6,7 +6,7 @@
- select content_item__get_title(:file_id) as title,name
+ select name as title
from cr_items
where item_id = :file_id
Index: openacs-4/packages/file-storage/www/file-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-edit.tcl 20 Apr 2001 20:51:10 -0000 1.1
+++ openacs-4/packages/file-storage/www/file-edit.tcl 22 Sep 2001 05:48:52 -0000 1.2
@@ -14,7 +14,6 @@
}
} -properties {
file_id:onevalue
- name:onevalue
context_bar:onevalue
title:onevalue
}
@@ -25,8 +24,7 @@
ad_require_permission $file_id write
db_1row file_info "
-select content_item.get_title(:file_id) as title,
- name
+select name as title
from cr_items
where item_id = :file_id"