Index: openacs-4/contrib/packages/forums/lib/forums/admin-forums-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/lib/forums/Attic/admin-forums-chunk.tcl,v
diff -u -N
--- openacs-4/contrib/packages/forums/lib/forums/admin-forums-chunk.tcl 23 Jan 2007 13:24:03 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,75 +0,0 @@
-ad_page_contract {
-
- Forums Administration
-
- @author Ben Adida (ben@openforce.net)
- @creation-date 2002-05-24
- @cvs-id $Id: admin-forums-chunk.tcl,v 1.1 2007/01/23 13:24:03 hamiltonc Exp $
-
-}
-set subsite_url [subsite::get_element -element url -notrailing]
-
-template::list::create \
- -name forums \
- -multirow forums \
- -actions [list \
- [_ forums.Create_a_New_Forum] forum-new {} \
- [_ forums.Parameters] [export_vars -base "$subsite_url/shared/parameters" { { return_url [ad_return_url] } { package_id {[ad_conn package_id]} } }] {} \
- [_ acs-subsite.Permissions] [export_vars -base "permissions" { { object_id {[ad_conn package_id]} } }] {}
- ]\
- -elements {
- edit {
- label {}
- sub_class narrow
- display_template {
-
- }
- link_url_col edit_url
- }
- name {
- label "#forums.Forum_Name#"
- link_url_col view_url
- }
- enabled {
- label "Enabled"
- html { align center }
- display_template {
-
-
-
-
-
-
- }
- }
- permissions {
- label "#acs-subsite.Permissions#"
- display_template "#acs-subsite.Permissions#"
- link_url_col permissions_url
- }
- }
-
-
-# List of forums
-set package_id [ad_conn package_id]
-db_multirow -extend {
- view_url
- edit_url
- permissions_url
- enable_url
- disable_url
-} forums select_forums {} {
- if { [template::util::is_true $enabled_p] } {
- set view_url [export_vars -base "[ad_conn package_url]forum-view" { forum_id }]
- } else {
- set view_url {}
- }
- set edit_url [export_vars -base "forum-edit" { forum_id }]
- set permissions_url [export_vars -base permissions { { object_id $forum_id } }]
- set enable_url [export_vars -base "forum-enable" { forum_id }]
- set disable_url [export_vars -base "forum-disable" { forum_id }]
-}
-
-if {[exists_and_not_null alt_template]} {
- ad_return_template $alt_template
-}