Index: openacs-4/packages/download/download.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/download.info,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/download/download.info 10 May 2001 20:50:08 -0000 1.2
+++ openacs-4/packages/download/download.info 23 May 2001 20:00:56 -0000 1.3
@@ -47,15 +47,25 @@
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/download/sql/postgresql/download-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/sql/postgresql/download-drop.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/download/sql/postgresql/download-drop.sql 22 May 2001 04:18:16 -0000 1.5
+++ openacs-4/packages/download/sql/postgresql/download-drop.sql 23 May 2001 20:00:56 -0000 1.6
@@ -2,6 +2,8 @@
-- Drop the data model and the PL/SQL packages.
--
+delete from download_archives;
+
-- Views --
drop view download_repository_obj;
drop view download_archives_obj;
@@ -40,17 +42,12 @@
create function inline_0 ()
returns integer as '
declare
- archive_rec cr_items%ROWTYPE;
- archive_child_rec acs_object_context_index%ROWTYPE;
+ archive_rec record;
begin
- for archive_rec in select * from cr_items
+ for archive_rec in select item_id from cr_items
where content_type in ( ''cr_download_archive'',
''cr_download_archive_desc'',
- ''cr_download_rep'' ) loop
--- for archive_child_rec in select * from acs_object_context_index where ancestor_id = archive_rec.item_id loop
--- PERFORM content_item__delete( archive_child_rec.object_id );
--- end loop;
- update cr_items set live_revision=null, latest_revision=null where item_id=archive_rec.item_id;
+ ''cr_download_rep'' ) order by item_id desc loop
PERFORM content_item__delete( archive_rec.item_id );
end loop;
Index: openacs-4/packages/download/www/one-archive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/one-archive.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/download/www/one-archive.tcl 20 Apr 2001 20:51:10 -0000 1.1
+++ openacs-4/packages/download/www/one-archive.tcl 23 May 2001 20:00:56 -0000 1.2
@@ -31,7 +31,7 @@
return
}
-set description [acs_messaging_format_as_html $description_type $description]
+#set description [acs_messaging_format_as_html $description_type $description]
set pending_count [db_string pending_count_select {
select count(*)
Index: openacs-4/packages/download/www/one-revision.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/one-revision.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/download/www/one-revision.tcl 16 May 2001 09:41:05 -0000 1.3
+++ openacs-4/packages/download/www/one-revision.tcl 23 May 2001 20:00:56 -0000 1.4
@@ -68,7 +68,7 @@
return
}
-set description [acs_messaging_format_as_html $description_type $description]
+#set description [acs_messaging_format_as_html $description_type $description]
set context_bar [list [list "one-archive?archive_id=$archive_id" $archive_name] "$archive_name $version_name"]
set gc_link ""