Index: openacs-4/packages/dotlrn/www/admin/community-type.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/community-type.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/community-type.adp	28 Jul 2004 07:24:12 -0000	1.1
@@ -0,0 +1,5 @@
+<master src="dotlrn-admin-master">
+  <property name="title">@title@</property>
+  <property name="context_bar">@context_bar@</property>
+
+  <formtemplate id="new_community_type"></formtemplate>
Index: openacs-4/packages/dotlrn/www/admin/community-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/community-type.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/community-type.tcl	28 Jul 2004 07:24:12 -0000	1.1
@@ -0,0 +1,69 @@
+# packages/dotlrn/www/admin/community-type.tcl
+
+ad_page_contract {
+    
+    Add / Edit a community type
+    
+    @author Roel Canicula (roelmc@aristoi.biz)
+    @creation-date 2004-06-26
+    @arch-tag: 371b5e20-5a3c-4669-b1d6-acfe381ad20e
+    @cvs-id $Id: community-type.tcl,v 1.1 2004/07/28 07:24:12 roelc Exp $
+} {
+    {community_type:notnull,optional}
+} -properties {
+    title:onevalue
+    context_bar:onevalue
+} -validate {
+} -errors {
+}
+ 
+if { [info exists community_type] } {
+    set edit_p [dotlrn_community::type_exists $community_type]
+} else {
+    set edit_p 0
+}
+
+if { $edit_p } {
+    set title "[_ dotlrn.edit_community_type]"
+
+    ad_form -name "new_community_type" -form {
+	{original_community_type:text(hidden) {value $community_type}}
+	{community_type:text(hidden) {value $community_type}}
+	{_community_type:text(inform) {label "[_ dotlrn.Community_Type]"} {value $community_type}}
+    }
+} else {
+    set title "[_ dotlrn.new_community_type]"
+
+    ad_form -name "new_community_type" -form {
+	{community_type:text {label "[_ dotlrn.Community_Type]"} {html {size 60 maxlength 100}}}
+    }
+}
+set context_bar [list [list community-types "[_ dotlrn.Community_Types]"] $title]
+
+ad_form -extend -name "new_community_type" -form {
+    {pretty_name:text {label "[_ dotlrn.Pretty_Name]"} {html {size 60 maxlength 100}}}
+    {description:text(textarea),optional {label "[_ dotlrn.Description]"} {html {rows 5 cols 60 wrap soft}}}
+} -validate {
+    {community_type
+	{ ![dotlrn_community::type_exists $community_type] || 
+	    [info exists original_community_type] }
+	"[_ community_type_exists]"
+    }
+} -on_request {
+    if { $edit_p } {
+	db_1row get_community_type { *SQL* }
+    }
+} -on_submit {
+    if { ![info exists original_community_type] } {
+	# New type, create it
+	dotlrn_community::new_type -description $description \
+	    -community_type_key $community_type \
+	    -pretty_name $pretty_name
+    } else {
+	# Update type
+	db_dml set_community_type { *SQL* }	
+    }
+} -after_submit {
+    ad_returnredirect "community-types"
+    ad_script_abort
+}
Index: openacs-4/packages/dotlrn/www/admin/community-type.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/community-type.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/community-type.xql	28 Jul 2004 07:24:12 -0000	1.1
@@ -0,0 +1,35 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN" "http://www.thecodemill.biz/repository/xql.dtd">
+<!-- packages/dotlrn/www/admin/community-type.xql -->
+<!-- @author Roel Canicula (roelmc@aristoi.biz) -->
+<!-- @creation-date 2004-06-26 -->
+<!-- @arch-tag: d8764f8e-748c-466d-8abf-07d58d03327d -->
+<!-- @cvs-id $Id: community-type.xql,v 1.1 2004/07/28 07:24:12 roelc Exp $ -->
+
+<queryset>
+
+  <fullquery name="get_community_type">
+    <querytext>
+      select
+        pretty_name,
+        description
+      from
+        dotlrn_community_types
+      where
+        community_type = :community_type
+    </querytext>
+  </fullquery>
+
+  <fullquery name="set_community_type">
+    <querytext>
+      update
+        dotlrn_community_types
+      set
+        pretty_name = :pretty_name,
+        description = :description
+      where
+        community_type = :community_type
+    </querytext>
+  </fullquery>
+
+</queryset>