Index: openacs-4/packages/dotlrn/www/admin/club.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/club.tcl 8 Dec 2001 01:22:40 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/club.tcl 10 Dec 2001 22:48:57 -0000 1.2 @@ -1,21 +1,18 @@ ad_page_contract { - displays single dotLRN club page + displays dotLRN clubs admin page @author yon (yon@openforce.net) @creation-date 2001-12-03 - @cvs-id $Id$ -} -query { - club_id:naturalnum,notnull -} -errors { - club_id:naturalnum,notnull {must provide a valid club_id} + @version $Id$ +} { } -properties { - context_bar:onevalue + club_id:onevalue pretty_name:onevalue - description:onevalue + descrition:onevalue } -set context_bar {{clubs Clubs} One} +if {![exists_and_not_null pretty_name]} { + db_1row select_club {} +} -db_1row select_club {} - ad_return_template