Index: openacs-4/packages/dotlrn/www/community-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit.tcl,v
diff -u -r1.19.2.3 -r1.19.2.4
--- openacs-4/packages/dotlrn/www/community-edit.tcl 27 Jan 2023 17:18:08 -0000 1.19.2.3
+++ openacs-4/packages/dotlrn/www/community-edit.tcl 7 Feb 2023 15:50:20 -0000 1.19.2.4
@@ -33,22 +33,22 @@
ad_form -name edit_community_info -form {
{pretty_name:text(text)
- {label "#dotlrn.Name#"}
- {html {size 60}}
+ {label "#dotlrn.Name#"}
+ {html {size 60}}
}
{description:text(textarea),optional
- {label "#dotlrn.Description#"}
- {html {rows 5 cols 60}}
- {help_text "[_ dotlrn.lt_do_not_use_p_tags]"}
+ {label "#dotlrn.Description#"}
+ {html {rows 5 cols 60}}
+ {help_text "[_ dotlrn.lt_do_not_use_p_tags]"}
}
{active_start_date:date(date),to_sql(ansi),from_sql(ansi),optional
- {label "#dotlrn.Start_date#"}
+ {label "#dotlrn.Start_date#"}
}
{active_end_date:date(date),to_sql(ansi),from_sql(ansi),optional
- {label "#dotlrn.End_date#"}
+ {label "#dotlrn.End_date#"}
}
} -on_request {
@@ -58,11 +58,11 @@
} -on_submit {
db_dml update_community_info {update dotlrn_communities_all
- set pretty_name = :pretty_name,
- description = :description,
- active_start_date = to_date(:active_start_date , 'YYYY-MM-DD HH24:MI:SS'),
- active_end_date = to_date(:active_end_date , 'YYYY-MM-DD HH24:MI:SS')
- where community_id = :community_id
+ set pretty_name = :pretty_name,
+ description = :description,
+ active_start_date = to_date(:active_start_date , 'YYYY-MM-DD HH24:MI:SS'),
+ active_end_date = to_date(:active_end_date , 'YYYY-MM-DD HH24:MI:SS')
+ where community_id = :community_id
}
dotlrn_community::set_community_name \
@@ -141,7 +141,7 @@
set revision_id [dotlrn_community::get_attribute \
-community_id $community_id \
-attribute_name header_logo_item_id
- ]
+]
# Default logos are served from known locations in the filesystem
# based on community type.
@@ -155,19 +155,18 @@
set temp_community_id $community_id
while {[dotlrn_community::subcommunity_p -community_id $temp_community_id]} {
- # For a subcommunity, we use the logo of the
- # the first ancestor that is not a sub_community
+ # For a subcommunity, we use the logo of the
+ # the first ancestor that is not a sub_community
- set temp_community_id [dotlrn_community::get_parent_id -community_id $temp_community_id]
- set comm_type [dotlrn_community::get_community_type_from_community_id $temp_community_id]
-
+ set temp_community_id [dotlrn_community::get_parent_id -community_id $temp_community_id]
+ set comm_type [dotlrn_community::get_community_type_from_community_id $temp_community_id]
}
if {$comm_type eq "dotlrn_club"} {
- #community colors
- set scope_name "comm"
+ #community colors
+ set scope_name "comm"
} else {
- set scope_name "course"
+ set scope_name "course"
}
set header_url ""
@@ -182,13 +181,6 @@
ad_return_template
-
-
-
-
-
-
-
# Local variables:
# mode: tcl
# tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/dotlrn.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/dotlrn.info,v
diff -u -r1.148.2.12 -r1.148.2.13
--- openacs-4/packages/dotlrn/dotlrn.info 7 Feb 2023 11:47:40 -0000 1.148.2.12
+++ openacs-4/packages/dotlrn/dotlrn.info 7 Feb 2023 15:52:16 -0000 1.148.2.13
@@ -6,42 +6,42 @@
dotLRN
f
f
-
+
OpenACS
A Course Management System
2021-09-15
DotLRN Consortium
- 2
+ 2
Course Management
-
+
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
@@ -58,7 +58,7 @@