Index: openacs-4/packages/dotlrn-catalog/lib/dotlrn-chunk.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/dotlrn-chunk.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-catalog/lib/dotlrn-chunk.adp 14 Feb 2005 22:46:11 -0000 1.1 +++ openacs-4/packages/dotlrn-catalog/lib/dotlrn-chunk.adp 15 Feb 2005 16:37:41 -0000 1.2 @@ -1,8 +1,87 @@ - - - - - + + + +
#dotlrn-catalog.dep_name#:@department_name;noquote@
#dotlrn-catalog.term_name#:@term_name;noquote@
#dotlrn-catalog.subject_name#:@class_name;noquote@
#dotlrn-catalog.class_name#:@pretty_name;noquote@
#dotlrn-catalog.description#:@description;noquote@
+ + + + + + +
#dotlrn-catalog.dep_name#:@department_name;noquote@
#dotlrn-catalog.term_name#:@term_name;noquote@
#dotlrn-catalog.subject_name#:@class_name;noquote@
#dotlrn-catalog.class_name#:@pretty_name;noquote@
#dotlrn-catalog.description#:@description;noquote@
+ 		+ + + + + + +
+ +
    + @instructor_role_pretty_plural@: + + +
  • + <%= [acs_community_member_link -user_id $users(user_id) -label "$users(first_names) $users(last_name)"] %> + + (<%= [email_image::get_user_email -user_id $users(user_id)] %>) + + + (@users.email@) + + + + + +
  • #dotlrn-portlet.no_instructor_members# + +
+
+ +
    + @teaching_assistant_role_pretty_plural@: + + +
  • + <%= [acs_community_member_link -user_id $users(user_id) -label "$users(first_names) $users(last_name)"] %> + + (<%= [email_image::get_user_email -user_id $users(user_id)] %>) + + + (@users.email@) + +
    • +     +     +
+ +
+ +
    + @course_assistant_role_pretty_plural@: + + +
  • + <%= [acs_community_member_link -user_id $users(user_id) -label "$users(first_names) $users(last_name)"] %> + + (<%= [email_image::get_user_email -user_id $users(user_id)] %>) + + + (@users.email@) + +
    • +     +     +
+ +
+

+ + + + + Index: openacs-4/packages/dotlrn-catalog/lib/dotlrn-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/dotlrn-chunk.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-catalog/lib/dotlrn-chunk.tcl 14 Feb 2005 22:46:11 -0000 1.1 +++ openacs-4/packages/dotlrn-catalog/lib/dotlrn-chunk.tcl 15 Feb 2005 16:37:41 -0000 1.2 @@ -8,3 +8,42 @@ } db_1row get_class_info { } + +set community_id [dotlrn_community::get_community_id_from_url -url $url ] + +# get all the users in a list of ns_sets +set all_users_list [dotlrn_community::list_users $community_id] + +set n_profs 0 +set n_tas 0 +set n_cas 0 + +# count how many of some types +foreach one_user_set $all_users_list { + if {[string equal [ns_set get $one_user_set rel_type] "dotlrn_instructor_rel"]} { + incr n_profs + } elseif {[string equal [ns_set get $one_user_set rel_type] "dotlrn_ta_rel"]} { + incr n_tas + } elseif {[string equal [ns_set get $one_user_set rel_type] "dotlrn_ca_rel"]} { + incr n_cas + } +} + +# stuff into a multirow +template::util::list_of_ns_sets_to_multirow \ + -rows $all_users_list \ + -var_name "users" + +# Used in en_US version of some messages in adp +set instructor_role_pretty_plural [dotlrn_community::get_role_pretty_plural -community_id $community_id \ + -rel_type dotlrn_instructor_rel] +set teaching_assistant_role_pretty_plural [dotlrn_community::get_role_pretty_plural -community_id $community_id \ + -rel_type dotlrn_ta_rel] +set course_assistant_role_pretty_plural [dotlrn_community::get_role_pretty_plural -community_id $community_id \ + -rel_type dotlrn_ca_rel] + +if { [catch {[email_image::get_folder_id] } errmsg] } { + set email_p 0 +} else { + set email_p 1 +} \ No newline at end of file