Index: openacs-4/packages/download/www/all-metadata.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/all-metadata.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/all-metadata.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/all-metadata.adp 4 Sep 2002 12:05:21 -0000 1.2 @@ -1,7 +1,6 @@ All @pretty_name@ - - +All Metadata @table@ Index: openacs-4/packages/download/www/archive-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-add.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/archive-add.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/archive-add.adp 4 Sep 2002 12:05:21 -0000 1.2 @@ -1,6 +1,6 @@ Add a New Software Archive -@context_bar@ +@context@
<%= [export_form_vars archive_type_id return_url]%> Index: openacs-4/packages/download/www/archive-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/archive-add.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/archive-add.tcl 4 Sep 2002 12:05:21 -0000 1.2 @@ -10,7 +10,7 @@ } ad_maybe_redirect_for_registration -set context_bar {"Add an Archive"} +set context {"Add an Archive"} set user_id [ad_verify_and_get_user_id] array set repository [download_repository_info] Index: openacs-4/packages/download/www/archive-version-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-version-add.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/archive-version-add.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/archive-version-add.adp 4 Sep 2002 12:05:21 -0000 1.2 @@ -1,6 +1,6 @@ Add a New Software Archive -@context_bar@ +@context@ <%= [export_form_vars archive_id return_url]%> Index: openacs-4/packages/download/www/archive-version-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-version-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/archive-version-add.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/archive-version-add.tcl 4 Sep 2002 12:05:21 -0000 1.2 @@ -53,6 +53,6 @@ append extra_form_elts [download_metadata_widget $data_type $pretty_name $metadata_id] } -set context_bar [list "Add an Revision to $archive_name"] +set context [list "Add an Revision to $archive_name"] ad_return_template \ No newline at end of file Index: openacs-4/packages/download/www/download-verify.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/download-verify.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/download/www/download-verify.adp 16 May 2001 09:41:05 -0000 1.2 +++ openacs-4/packages/download/www/download-verify.adp 4 Sep 2002 12:05:21 -0000 1.3 @@ -1,27 +1,25 @@ - -Download @archive_name@ @version_name@ -@context_bar@ + + Download @archive_name@ @version_name@ + @context@ -

Download @archive_name@ @version_name@

- - - - - - -<%= [export_form_vars download_id revision_id] %> - - - - - - -
File Size:@file_size@k
Reason for Download: -@reason_widget@ -
If you have selected "Other"
please tell us why: -		 -
-
- -

- +

Download @archive_name@ @version_name@

+ + + + + + + + <%= [export_form_vars download_id revision_id] %> + + + + + + + + + + + +
File Size:@file_size@k
Reason for Download: @reason_widget@
If you have selected "Other"
please tell us why:
 
Index: openacs-4/packages/download/www/download-verify.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/download-verify.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/download/www/download-verify.tcl 16 May 2001 09:41:05 -0000 1.4 +++ openacs-4/packages/download/www/download-verify.tcl 4 Sep 2002 12:05:21 -0000 1.5 @@ -39,7 +39,7 @@ return } -set context_bar [list [list "one-archive?archive_id=$archive_id" $archive_name] "Download $archive_name $version_name"] +set context [list [list "one-archive?archive_id=$archive_id" $archive_name] "Download $archive_name $version_name"] ##TODO Get version name set action "[ad_conn package_url]download/$file_name" Index: openacs-4/packages/download/www/help.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/help.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/help.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/help.adp 4 Sep 2002 12:05:21 -0000 1.2 @@ -1,9 +1,7 @@ Help on @title@ -@context_bar@ +@context@ - - @help_text@

Permissions on Archives

 Index: openacs-4/packages/download/www/help.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/help.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/help.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/help.tcl 4 Sep 2002 12:05:21 -0000 1.2 @@ -10,6 +10,6 @@ array set repository [download_repository_info] set title $repository(title) set help_text $repository(help_text) -set context_bar [list "Help on $title"] +set context [list "Help on $title"] ad_return_template Index: openacs-4/packages/download/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/index.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/download/www/index.adp 16 May 2001 02:25:50 -0000 1.2 +++ openacs-4/packages/download/www/index.adp 4 Sep 2002 12:05:21 -0000 1.3 @@ -1,38 +1,41 @@ @title@ + -
-

@title@

-

+ +
Administration
+ +
Help
+ @description@ - -

You must - register - before you can download any files. -

- + +

You must register + before you can download any files. +

+

Available Software:

@dimensional_html@ +

@table@ -

Upload a New Version of Software:

+

Upload a New Version of Software:

 -

My Unapparoved Revisions:

+

My Unapparoved Revisions:

- - -
- -
- Index: openacs-4/packages/download/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/index.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/download/www/index.tcl 16 May 2001 09:41:05 -0000 1.4 +++ openacs-4/packages/download/www/index.tcl 4 Sep 2002 12:05:21 -0000 1.5 @@ -13,6 +13,9 @@ title:onevalue description:onevalue help_text:onevalue + write_p:onevalue + admin_p:onevalue + master_admin_p:onevalue } set return_url "[ad_conn url]?[ad_conn query]" @@ -21,6 +24,7 @@ array set repository [download_repository_info] set repository_id $repository(repository_id) +set master_admin_p [ad_permission_p [ad_conn package_id] admin] set admin_p [ad_permission_p $repository_id admin] set write_p [ad_permission_p $repository_id write] Index: openacs-4/packages/download/www/master.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/Attic/master.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/master.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/master.adp 4 Sep 2002 12:05:21 -0000 1.2 @@ -1,12 +1,9 @@ -@master_header@ -

@master_title@

-

+ +@title@ +@context@ + +

@title@

@master_context_bar@
- -
Administration
- -
Help
-
-@master_footer@ + Index: openacs-4/packages/download/www/master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/Attic/master.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/master.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/master.tcl 4 Sep 2002 12:05:21 -0000 1.2 @@ -7,9 +7,6 @@ } { } -set master_header [ad_header [ad_decode [value_if_exists title] "" "" [value_if_exists title]] ] set master_title [value_if_exists title] -set master_context_bar [eval ad_context_bar [value_if_exists context_bar]] -set master_footer [ad_footer] - +set master_context_bar [eval ad_context_bar $context] set master_admin_p [ad_permission_p [ad_conn package_id] admin] Index: openacs-4/packages/download/www/one-archive.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/one-archive.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/one-archive.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/one-archive.adp 4 Sep 2002 12:05:21 -0000 1.2 @@ -1,42 +1,51 @@ One Archive: @archive_name@ -@context_bar@ +@context@ - - - - + +
@archive_name@
Created by:@creation_user_name@ on @creation_date@
Administration
+ +
Help
+ + + + + + - + + - + + - - + - + -
@archive_name@
Created by:@creation_user_name@ on @creation_date@
Summary:
Summary: @summary@
Description:
Description: @description@
View Download History + +
View Download History

Edit Permissions on this Archive +

Edit Permissions on this Archive

(permission descriptions)

Versions:

+		Versions: - -
  • @pending_count@ pending approval. - -
  • @archive_name@ @revisions.version_name@ - (download)
    - Created by @revisions.creation_user_name@ on @revisions.creation_date@ - + @archive_name@ @revisions.version_name@ + (download)
    + Created by @revisions.creation_user_name@ on @revisions.creation_date@ +

    - + + @pending_count@ pending approval. + -

  • add a version +

  • add a version
    • 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.4 -r1.5 --- openacs-4/packages/download/www/one-archive.tcl 31 Oct 2001 20:42:07 -0000 1.4 +++ openacs-4/packages/download/www/one-archive.tcl 4 Sep 2002 12:05:21 -0000 1.5 @@ -9,9 +9,9 @@ archive_id:integer,notnull } - ad_require_permission $archive_id read +set master_admin_p [ad_permission_p [ad_conn package_id] admin] set admin_p [ad_permission_p $archive_id admin] set write_p [ad_permission_p $archive_id write] @@ -31,8 +31,12 @@ return } -set description [acs_messaging_format_as_html $description_type $description] + +if {[string eq $description_type {text/plain}]} { + set description [ad_text_to_html $description] +} + set pending_count [db_string pending_count_select { select count(*) from download_arch_revisions_obj dar @@ -55,7 +59,7 @@ order by version_name } -set context_bar [list $archive_name] +set context [list $archive_name] set gc_link "" set gc_comments "" Index: openacs-4/packages/download/www/one-metadata.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/one-metadata.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/one-metadata.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/one-metadata.adp 4 Sep 2002 12:05:21 -0000 1.2 @@ -1,6 +1,6 @@ One @pretty_name@ -@context_bar@ +@context@

    @pretty_name@

    Index: openacs-4/packages/download/www/one-metadata.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/one-metadata.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/one-metadata.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/one-metadata.tcl 4 Sep 2002 12:05:21 -0000 1.2 @@ -31,5 +31,5 @@ group by da.archive_name, da.archive_id " -set context_bar [list [list "all-metadata?metadata_id=$metadata_id" "All $pretty_name"] "One $pretty_name"] +set context [list [list "all-metadata?metadata_id=$metadata_id" "All $pretty_name"] "One $pretty_name"] ad_return_template Index: openacs-4/packages/download/www/one-revision.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/one-revision.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/one-revision.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/one-revision.adp 4 Sep 2002 12:05:21 -0000 1.2 @@ -1,13 +1,15 @@ -One Revision: @archive_name@ @version_name@ -@context_bar@ +One Revision: @archive_name@ ver. @version_name@ +@context@ - -

    + +
    Administration
    +     +
    Help
    - + - +
    @archive_name@
    @archive_name@
    version @version_name@
    version @version_name@
    [Download Now] 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.6 -r1.7 --- openacs-4/packages/download/www/one-revision.tcl 31 Oct 2001 20:42:07 -0000 1.6 +++ openacs-4/packages/download/www/one-revision.tcl 4 Sep 2002 12:05:21 -0000 1.7 @@ -6,10 +6,15 @@ @cvs-id } { revision_id:naturalnum,notnull +} -properties { + title:onevalue + admin_p:onevalue + master_admin_p:onevalue } set repository_id [download_repository_id] set admin_p [ad_permission_p $revision_id "admin"] +set master_admin_p [ad_permission_p [ad_conn package_id] admin] ##FIXME: Need to do the metadata thing here! ad_require_permission $revision_id "read" @@ -67,9 +72,12 @@ ad_return_complaint 1 "The revision you are looking for (revision ID $revision_id) could not be found" return } -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"] +if {[string eq $description_type {text/plain}]} { + set description [ad_text_to_html $description] +} + +set context [list [list "one-archive?archive_id=$archive_id" $archive_name] "version $version_name"] set gc_link "" set gc_comments "" if { [catch { Index: openacs-4/packages/download/www/admin/approve-or-reject.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/approve-or-reject.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/download/www/admin/approve-or-reject.adp 23 May 2001 16:35:03 -0000 1.2 +++ openacs-4/packages/download/www/admin/approve-or-reject.adp 4 Sep 2002 12:05:23 -0000 1.3 @@ -1,5 +1,6 @@ @pretty_noun@ @archive_name@ @version_name@ +@pretty_noun@ Index: openacs-4/packages/download/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/index.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/index.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/index.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,22 +1,21 @@ @title@ Repository Administration + @description@ \ No newline at end of file Index: openacs-4/packages/download/www/admin/master.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/Attic/master.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/master.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/master.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,8 +1,9 @@ -@master_header@ -

    @master_title@

    -

    + +@title@ +@context@ + +

    @title@

    @master_context_bar@
    -
    -@master_footer@ + Index: openacs-4/packages/download/www/admin/master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/Attic/master.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/master.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/master.tcl 4 Sep 2002 12:05:23 -0000 1.2 @@ -7,8 +7,6 @@ } { } -set master_header [ad_header [ad_decode [value_if_exists title] "" "" [value_if_exists title]] ] set master_title [value_if_exists title] -set master_context_bar [eval ad_context_bar [value_if_exists context_bar]] -set master_footer [ad_footer] - +set master_context_bar [eval ad_context_bar $context] +set master_admin_p [ad_permission_p [ad_conn package_id] admin] Index: openacs-4/packages/download/www/admin/report-by-ip.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-by-ip.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/download/www/admin/report-by-ip.adp 12 May 2002 20:57:02 -0000 1.3 +++ openacs-4/packages/download/www/admin/report-by-ip.adp 4 Sep 2002 12:05:23 -0000 1.4 @@ -1,6 +1,6 @@ Downloads by IP -@context_bar@ +@context@

    Spam Downloaders Index: openacs-4/packages/download/www/admin/report-by-ip.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-by-ip.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/download/www/admin/report-by-ip.tcl 12 May 2002 20:57:02 -0000 1.4 +++ openacs-4/packages/download/www/admin/report-by-ip.tcl 4 Sep 2002 12:05:23 -0000 1.5 @@ -54,6 +54,6 @@ -bind [ad_tcl_vars_to_ns_set repository_id downloaded] \ download_table $sql_query $table_def ] -set context_bar [list "Downloads by IP"] +set context [list "Downloads by IP"] ad_return_template \ No newline at end of file Index: openacs-4/packages/download/www/admin/report-by-user.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-by-user.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/download/www/admin/report-by-user.adp 23 May 2001 16:35:03 -0000 1.2 +++ openacs-4/packages/download/www/admin/report-by-user.adp 4 Sep 2002 12:05:23 -0000 1.3 @@ -1,6 +1,6 @@ Downloads by User -@context_bar@ +@context@

    Spam Downloaders Index: openacs-4/packages/download/www/admin/report-by-user.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-by-user.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/download/www/admin/report-by-user.tcl 12 May 2002 20:57:02 -0000 1.4 +++ openacs-4/packages/download/www/admin/report-by-user.tcl 4 Sep 2002 12:05:23 -0000 1.5 @@ -51,5 +51,5 @@ -bind [ad_tcl_vars_to_ns_set repository_id downloaded] \ download_table $sql_query $table_def ] -set context_bar [list "Downloads by User"] +set context [list "Downloads by User"] ad_return_template \ No newline at end of file Index: openacs-4/packages/download/www/admin/report-one-ip.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-one-ip.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/download/www/admin/report-one-ip.adp 23 May 2001 16:35:03 -0000 1.2 +++ openacs-4/packages/download/www/admin/report-one-ip.adp 4 Sep 2002 12:05:23 -0000 1.3 @@ -1,9 +1,9 @@ Downloads by IP @download_ip@ -@context_bar@ +@context@

    -Spam Downloaders +Spam Downloaders

    @dimensional_html@ @table@ \ No newline at end of file Index: openacs-4/packages/download/www/admin/report-one-ip.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-one-ip.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/download/www/admin/report-one-ip.tcl 23 May 2001 16:35:03 -0000 1.3 +++ openacs-4/packages/download/www/admin/report-one-ip.tcl 4 Sep 2002 12:05:23 -0000 1.4 @@ -25,13 +25,13 @@ set table_def { {archive_name "Archive" {archive_name $order} - {    }} + {}} {version_name "Version" {version_name $order} - {}} + {}} {user_name "User Name" {user_name} - {}} + {}} {download_date "Download Date" {download_date} {}} @@ -62,14 +62,14 @@ [ad_order_by_from_sort_spec $orderby $table_def] " -set export_sql_query [export_vars -url -sign {sql_query}] +set export_sql_query [export_vars -url -sign {downloaded repository_id dimensional}] set dimensional_html [ad_dimensional $dimensional] set table [ad_table \ -Ttable_extra_html { width= 90% align=center} \ -bind [ad_tcl_vars_to_ns_set repository_id download_ip] \ download_table $sql_query $table_def ] -set context_bar [list [list "report-by-ip" "Downloads by IP"] "$download_ip"] +set context [list [list "report-by-ip" "Downloads by IP"] "$download_ip"] ad_return_template Index: openacs-4/packages/download/www/admin/report-one-user.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-one-user.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/download/www/admin/report-one-user.adp 23 May 2001 16:35:03 -0000 1.2 +++ openacs-4/packages/download/www/admin/report-one-user.adp 4 Sep 2002 12:05:23 -0000 1.3 @@ -1,6 +1,6 @@ Downloads by User @first_names@ @last_name@ -@context_bar@ +@context@ @dimensional_html@ @table@ \ No newline at end of file Index: openacs-4/packages/download/www/admin/report-one-user.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-one-user.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/download/www/admin/report-one-user.tcl 23 May 2001 16:35:03 -0000 1.3 +++ openacs-4/packages/download/www/admin/report-one-user.tcl 4 Sep 2002 12:05:23 -0000 1.4 @@ -24,10 +24,10 @@ set table_def { {archive_name "Archive" {archive_name $order} - {}} + {}} {version_name "Version" {version_name $order} - {}} + {}} {download_date "Download Date" {download_date} {}} @@ -69,5 +69,5 @@ -bind [ad_tcl_vars_to_ns_set repository_id user_id] \ download_table $sql_query $table_def ] -set context_bar [list [list "report-by-user" "Downloads by User"] "$first_names $last_name"] +set context [list [list "report-by-user" "Downloads by User"] "$first_names $last_name"] ad_return_template Index: openacs-4/packages/download/www/admin/report-version-downloads.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-version-downloads.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/download/www/admin/report-version-downloads.adp 23 May 2001 16:35:03 -0000 1.2 +++ openacs-4/packages/download/www/admin/report-version-downloads.adp 4 Sep 2002 12:05:23 -0000 1.3 @@ -1,6 +1,6 @@ @archive_name@ Download History -@context_bar@ +@context@
      Index: openacs-4/packages/download/www/admin/report-version-downloads.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/report-version-downloads.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/download/www/admin/report-version-downloads.tcl 23 May 2001 16:35:03 -0000 1.3 +++ openacs-4/packages/download/www/admin/report-version-downloads.tcl 4 Sep 2002 12:05:23 -0000 1.4 @@ -110,6 +110,6 @@ -bind [ad_tcl_vars_to_ns_set archive_id] \ download_table $sql_query $table_def ] -set context_bar [list "$archive_name Download History"] +set context [list "$archive_name Download History"] ad_return_template Index: openacs-4/packages/download/www/admin/repository-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-ae.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-ae.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-ae.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,6 +1,6 @@ Add/Edit Repository -{Add/Edit Repository} +{Add/Edit Repository} Index: openacs-4/packages/download/www/admin/repository-metadata-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-metadata-edit.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-metadata-edit.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-metadata-edit.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,5 +1,5 @@ Edit Metadata -{Metadata Edit} +{Metadata Edit} Index: openacs-4/packages/download/www/admin/repository-metadata-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-metadata-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-metadata-edit.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-metadata-edit.tcl 4 Sep 2002 12:05:23 -0000 1.2 @@ -8,6 +8,8 @@ metadata_id:integer,notnull } +set context [list "Metadata edit"] + set repository_id [download_repository_id] ad_require_permission $repository_id "admin" Index: openacs-4/packages/download/www/admin/repository-metadata.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-metadata.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-metadata.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-metadata.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,6 +1,6 @@ @title@ -@context_bar@ +@context@ Index: openacs-4/packages/download/www/admin/repository-metadata.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-metadata.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-metadata.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-metadata.tcl 4 Sep 2002 12:05:23 -0000 1.2 @@ -9,7 +9,7 @@ set repository_id [download_repository_id] set title "Download Repository Metadata" -set context_bar [list "Metadata"] +set context [list "Metadata"] form create add_metadata element create add_metadata metadata_id -label "MetadataID" -datatype integer -widget hidden Index: openacs-4/packages/download/www/admin/repository-reasons-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-reasons-edit.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-reasons-edit.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-reasons-edit.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,5 +1,5 @@ @title@ -@context_bar@ +@context@ Index: openacs-4/packages/download/www/admin/repository-reasons-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-reasons-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-reasons-edit.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-reasons-edit.tcl 4 Sep 2002 12:05:23 -0000 1.2 @@ -34,6 +34,6 @@ } set title "Edit Reason" -set context_bar [list [list "repository-types" "Repository Types"] $title] +set context [list [list "repository-types" "Repository Types"] $title] ad_return_template Index: openacs-4/packages/download/www/admin/repository-reasons.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-reasons.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-reasons.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-reasons.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,6 +1,6 @@ @title@ -@context_bar@ +@context@

      Add a new Download Reason

      Index: openacs-4/packages/download/www/admin/repository-reasons.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-reasons.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-reasons.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-reasons.tcl 4 Sep 2002 12:05:23 -0000 1.2 @@ -11,7 +11,7 @@ ad_require_permission $repository_id "admin" set title "Download Repository Download Reasons" -set context_bar [list "Download Reasons"] +set context [list "Download Reasons"] form create add_reason element create add_reason download_reason_id -label "Reason ID" -datatype integer -widget hidden Index: openacs-4/packages/download/www/admin/repository-types-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-types-edit.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-types-edit.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-types-edit.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,5 +1,5 @@ @title@ -@context_bar@ +@context@ Index: openacs-4/packages/download/www/admin/repository-types-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-types-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-types-edit.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-types-edit.tcl 4 Sep 2002 12:05:23 -0000 1.2 @@ -35,6 +35,6 @@ } set title "Edit $pretty_name" -set context_bar [list [list "repository-types" "Repository Types"] $title] +set context [list [list "repository-types" "Repository Types"] $title] ad_return_template Index: openacs-4/packages/download/www/admin/repository-types.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-types.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-types.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-types.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,15 +1,15 @@ @title@ -@context_bar@ +@context@

      Current Archive Types

        -
      • @types.pretty_name@
        - @types.description@
        +
      • @types.pretty_name@
        + @types.description@
        Delete | - Edit + Edit
        •
      Index: openacs-4/packages/download/www/admin/repository-types.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/repository-types.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/repository-types.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/repository-types.tcl 4 Sep 2002 12:05:23 -0000 1.2 @@ -11,7 +11,7 @@ ad_require_permission $repository_id "admin" set title "Download Repository Archive Types" -set context_bar [list "Archive Types"] +set context [list "Archive Types"] form create add_type element create add_type archive_type_id -label "ArchiveType ID" -datatype integer -widget hidden Index: openacs-4/packages/download/www/admin/spam-users-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/spam-users-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/download/www/admin/spam-users-2.tcl 13 Aug 2001 21:37:31 -0000 1.2 +++ openacs-4/packages/download/www/admin/spam-users-2.tcl 4 Sep 2002 12:05:23 -0000 1.3 @@ -18,7 +18,7 @@

      Spam Downloaders

      -[ad_context_bar "Spam Downloader"] +[list "Spam Downloader"]

      Spam Downloader

      Index: openacs-4/packages/download/www/admin/spam-users.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/spam-users.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/download/www/admin/spam-users.adp 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/download/www/admin/spam-users.adp 4 Sep 2002 12:05:23 -0000 1.2 @@ -1,26 +1,28 @@ - -Spam Downloaders + + Spam Downloaders + "Spam downloaders" - -@userid_list_export@ -
    $archive_name$archive_name$version_name$version_name$user_name$user_name$archive_name$archive_name$version_name$version_name
    - - - - - - - - - - - - -
    Email Subject:
    Message:
    - +
    + @userid_list_export@ + + + + + + + + + + + + + +
    Email Subject:
    Message:
    +
    -

    -The following users will receive your spam: -

      -@userlist_str@ -
    +

    + The following users will receive your spam: +

      + @userlist_str@ +
    +

    \ No newline at end of file