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 ""