Index: openacs-4/packages/courses/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/index.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/index.adp 2 Feb 2005 17:22:32 -0000 1.1 @@ -0,0 +1,12 @@ + +@page_title@ +@context;noquote@ + +
+ + + + Index: openacs-4/packages/courses/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/index.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/index.tcl 2 Feb 2005 17:22:32 -0000 1.1 @@ -0,0 +1,25 @@ +ad_page_contract { + Index for course administration + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 31-01-2005 + +} { + +} +set page_title "[_ courses.course_catalog]" +set context "" +set return_url "/courses/cc-admin/course-list" +set cc_package_id [apm_package_id_from_key "courses"] + +set user_id [auth::get_user_id] +if {[permission::permission_p -party_id $user_id -object_id $cc_package_id -privilege "admin"]} { + set admin_p 1 +} else { + set admin_p 0 +} + +if {[permission::permission_p -party_id $user_id -object_id $cc_package_id -privilege "create"]} { + set create_p 1 +} else { + set create_p 0 +} \ No newline at end of file Index: openacs-4/packages/courses/www/admin/grant-list.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/admin/grant-list.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/admin/grant-list.adp 2 Feb 2005 17:25:34 -0000 1.1 @@ -0,0 +1,4 @@ + +@page_title@ +@context;noquote@ + \ No newline at end of file Index: openacs-4/packages/courses/www/admin/grant-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/admin/grant-list.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/admin/grant-list.tcl 2 Feb 2005 17:25:34 -0000 1.1 @@ -0,0 +1,60 @@ +ad_page_contract { + Displays a list of all proffesors from dotlrn + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 28-01-2005 +} { + { return_url "" } +} + +set user_id [auth::get_user_id] +# course_catalog package_id +set cc_package_id [apm_package_id_from_key "courses"] + +set page_title "[_ courses.grant_list]" +if {[string equal $return_url ""]} { + set return_url "/courses/admin/grant-list" +} + +set context [list $page_title] +db_multirow -extend { privilege email } grant_list select_users {} { + set privilege [permission::permission_p -party_id $p_user_id -object_id $cc_package_id -privilege "create"] + set email [email_image::get_user_email -user_id $p_user_id] +} + +template::list::create \ + -name grant_list \ + -multirow grant_list \ + -key p_user_id \ + -bulk_actions {"\#courses.grant\#" "grant-users?" "\#courses.grant_per\#"\ + "\#courses.revoke\#" "revoke-users?" "\#courses.revoke_per\#" }\ + -bulk_action_method post \ + -bulk_action_export_vars { + }\ + -row_pretty_plural "[_ courses.users_to_grant]" \ + -elements { + name { + label "[_ courses.user_name]" + display_template { + @grant_list.first_names@ @grant_list.last_name@ + } + } + email { + label "[_ courses.email]" + display_template { + @grant_list.email;noquote@ + } + } + permission { + label "[_ courses.permission]" + display_template { + + [_ courses.granted] + + + [_ courses.not_allowed] + + } + } + } + Index: openacs-4/packages/courses/www/admin/grant-list.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/admin/grant-list.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/admin/grant-list.xql 2 Feb 2005 17:25:34 -0000 1.1 @@ -0,0 +1,11 @@ + + + + + + select first_names, last_name, user_id as p_user_id + from cc_users where user_id <> :user_id + + + + Index: openacs-4/packages/courses/www/admin/grant-users.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/admin/grant-users.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/admin/grant-users.tcl 2 Feb 2005 17:25:34 -0000 1.1 @@ -0,0 +1,20 @@ +ad_page_contract { + Gives users admin permissions on course_catalog + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 29-01-2005 +} { + p_user_id:multiple +} + +# course_catalog package_id +set cc_package_id [apm_package_id_from_key "courses"] + +# Grants Permission for all the users in p_user_id +foreach user $p_user_id { + permission::grant -party_id $user -object_id $cc_package_id -privilege "create" +} + + + +ad_returnredirect "/courses/admin/grant-list" Index: openacs-4/packages/courses/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/admin/Attic/index.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/admin/index.adp 2 Feb 2005 17:25:34 -0000 1.1 @@ -0,0 +1,6 @@ + +@page_title@ +@context;noquote@ + Index: openacs-4/packages/courses/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/admin/Attic/index.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/admin/index.tcl 2 Feb 2005 17:25:34 -0000 1.1 @@ -0,0 +1,11 @@ +ad_page_contract { + Index for course administration + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 31-01-2005 + +} { + +} +set page_title "[_ courses.course_admin]" +set context "" +set return_url "/courses/admin/" \ No newline at end of file Index: openacs-4/packages/courses/www/admin/revoke-users.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/admin/revoke-users.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/admin/revoke-users.tcl 2 Feb 2005 17:25:34 -0000 1.1 @@ -0,0 +1,20 @@ +ad_page_contract { + Revokes users admin permissions on course_catalog + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 29-01-2005 +} { + p_user_id:multiple +} + +# course_catalog package_id +set cc_package_id [apm_package_id_from_key "courses"] + +# Grants Permission for all the users in p_user_id +foreach user $p_user_id { + permission::revoke -party_id $user -object_id $cc_package_id -privilege "create" +} + + + +ad_returnredirect "/courses/admin/grant-list" Index: openacs-4/packages/courses/www/cc-admin/add-edit-course.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/Attic/add-edit-course.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/add-edit-course.adp 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,5 @@ + +@page_title@ +@context;noquote@ + + \ No newline at end of file Index: openacs-4/packages/courses/www/cc-admin/add-edit-course.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/Attic/add-edit-course.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/add-edit-course.tcl 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,151 @@ +ad_page_contract { + Displays a form to add a course or add a new revision of a course (edit) + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 27-01-2005 + +} { + course_id:optional + { return_url "" } +} + +if { [string equal $return_url ""]} { + set return_url "/courses/cc-admin" +} + +# To disable the element course_key +if { [info exists course_id] } { + set mode display +} else { + set mode edit +} + +set user_id [auth::get_user_id] +set page_title "" +set context "" + +# Check if users has admin permission to edit course_catalog +if { [info exists course_id] } { + permission::require_permission -party_id $user_id -object_id $course_id -privilege "admin" +} + +# Get assessments +set asm_package_id [apm_package_id_from_key assessment] +set asm_list [list [list "[_ courses.not_associate]" "-1"]] +db_foreach assessment {} { + lappend asm_list [list $title $assessment_id] +} + +# Get a list of all the attributes asociated to course_catalog +set attribute_list [package_object_attribute_list -start_with course_catalog course_catalog] +set elements "" + + +# Creates the elements to show with ad_form +set i 0 +foreach attribute $attribute_list { + set element "{[lindex $attribute 2]:[lindex $attribute 4](text) {label \"[lindex $attribute 3]\"}}" + if { [string equal [lindex $attribute 2] "course_key"]} { + set element "{[lindex $attribute 2]:[lindex $attribute 4](text) {label \"[lindex $attribute 3]\"} {mode $mode}}" + } else { + set element "{[lindex $attribute 2]:[lindex $attribute 4](text) {label \"[lindex $attribute 3]\"}}" + } + if { [string equal [lindex $attribute 2] "assessment_id"]} { + set asm_num $i + } + if { [string equal [lindex $attribute 2] "course_info"]} { + set info_num $i + } + lappend elements $element + incr i +} + +# Create the form +ad_form -name add_course -export {return_url $return_url} -form { + course_id:key +} + + +# Create the element of the form +set i 0 +foreach item $elements { + if {[string equal $i $asm_num]} { + ad_form -extend -name add_course -form { + { assessment_id:text(select) + {label "[_ courses.asm]"} + {options $asm_list} + } + } + incr i + } else { + if {[string equal $i $info_num]} { + ad_form -extend -name add_course -form { + { course_info:text(textarea) + {label "[_ courses.course_info]"} + {html {rows 7 cols 35}} + } + } + } else { + ad_form -extend -name add_course -form [lindex $elements $i] + } + incr i + } +} + +ad_form -extend -name add_course -new_data { + # New item and revision in the CR + set folder_id [course_catalog::get_folder_id] + set item_id [content::item::new -name $course_key -parent_id $folder_id -content_type "course_catalog"] + set course_id [content::revision::new -item_id $item_id -title $course_key \ + -description "$course_name: $course_info"] + + # Fill the table with other info + db_transaction { + db_dml update_course_info { } + } + # Set the new revision live + course_catalog::set_live -name $course_key -revision_id $course_id + # Grant admin privileges to the user over the item in the CR + permission::grant -party_id $user_id -object_id $course_id -privilege "admin" + +} -edit_data { + + # New revision in the CR + set folder_id [course_catalog::get_folder_id] + set item_id [course_catalog::get_item_id -name $course_key -parent_id $folder_id -content_type "course_catalog"] + set course_id [content::revision::new -item_id $item_id -title $course_key \ + -description "$course_name: $course_info"] + + # Fill the table with other info + db_transaction { + db_dml update_course_info { } + } + # Set the new revision live + course_catalog::set_live -name $course_key -revision_id $course_id + # Grant admin privileges to the user over the item in the CR + permission::grant -party_id $user_id -object_id $course_id -privilege "admin" + +} -new_request { + set context [list "[_ courses.add_course]"] + set page_title "[_ courses.add_course]" + set return_url "$return_url" + +} -edit_request { + set context [list "[_ courses.edit_course]"] + set page_title "[_ courses.edit_course]" + set return_url "$return_url" + db_1row get_course_info { } + db_string get_course_assessment { } -default "[_ courses.not_associated]" + +} -after_submit { + ad_returnredirect "$return_url" +} + + + + + + + + + Index: openacs-4/packages/courses/www/cc-admin/add-edit-course.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/Attic/add-edit-course.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/add-edit-course.xql 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,39 @@ + + + + + + update course_catalog + set course_key=:course_key, course_name=:course_name, course_info=:course_info, assessment_id=:assessment_id + where course_id = :course_id + + + + + + + select cr.title ,ci.item_id as assessment_id from + cr_folders cf, cr_items ci, cr_revisions cr, as_assessments a + where cr.revision_id = ci.latest_revision and a.assessment_id = cr.revision_id and + ci.parent_id = cf.folder_id and cf.package_id = :asm_package_id order by cr.title + + + + + + select * from course_catalog where course_id = :course_id + + + + + + select cr.title from + cr_folders cf, cr_items ci, cr_revisions cr, as_assessments a + where cr.revision_id = ci.latest_revision and a.assessment_id = cr.revision_id and + ci.parent_id = cf.folder_id and cf.package_id = :asm_package_id and + ci.item_id = :assessment_id order by cr.title + + + + + Index: openacs-4/packages/courses/www/cc-admin/associate-course.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/associate-course.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/associate-course.tcl 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,18 @@ +ad_page_contract { + Associates course_catalog's course_id with dotlrn's class_instance_id + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 31-01-2005 +} { + course_id:notnull + class_id:notnull + { return_url ""} +} + +course_catalog::add_relation -course_id $course_id -class_id $class_id + +if { [string equal $return_url ""] } { + ad_returnredirect "/courses/cc-admin/dotlrn-list" +} else { + ad_returnredirect "$return_url" +} Index: openacs-4/packages/courses/www/cc-admin/course-list.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/course-list.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/course-list.adp 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,4 @@ + +@page_title@ +@context;noquote@ + Index: openacs-4/packages/courses/www/cc-admin/course-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/course-list.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/course-list.tcl 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,76 @@ +ad_page_contract { + Displays a list of all courses + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 28-01-2005 +} { + +} + +set user_id [auth::get_user_id] +set context [list "[_ courses.course_list]"] +set page_title "[_ courses.course_list]" +set return_url "/courses/cc-admin/course-list" + +set asm_package_id [apm_package_id_from_key assessment] + +if { [acs_user::site_wide_admin_p] } { + set query get_course_info_site_wide +} else { + set query get_course_info +} + + +db_multirow -extend { asm_name rel } course_list $query {} { + set asm_name [db_string get_asm_name { } -default "[_ courses.not_associated]"] + set rel [course_catalog::has_relation -course_id $course_id] +} + +template::list::create \ + -name course_list \ + -multirow course_list \ + -key course_id \ + -bulk_action_method post \ + -bulk_action_export_vars { + }\ + -row_pretty_plural "[_ courses.courses]" \ + -elements { + key { + label "[_ courses.course_key]" + display_template { + \ + + @course_list.course_key@ + } + } + name { + label "[_ courses.course_name]" + display_template { + @course_list.course_name@ + } + } + info { + label "[_ courses.course_info]" + display_template { + @course_list.course_info@ + } + } + assessment_id { + label "[_ courses.asm]:" + display_template { + @course_list.asm_name@ + } + } + dotlrn { + label "[_ courses.dotlrn]" + display_template { + + #courses.no# (#courses.associate#) + + + #courses.yes# (#courses.watch#) + + } + } + } \ No newline at end of file Index: openacs-4/packages/courses/www/cc-admin/course-list.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/course-list.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/course-list.xql 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,35 @@ + + + + + + select course_id, course_key, course_name, course_info, assessment_id + from course_catalog, cr_items + where course_id = live_revision and + course_id in ( + select object_id from acs_permissions where grantee_id = :user_id and + privilege = 'admin') + + + + + + + select course_id, course_key, course_name, course_info, assessment_id + from course_catalog, cr_items + where course_id = live_revision + + + + + + select cr.title from + cr_folders cf, cr_items ci, cr_revisions cr, as_assessments a + where cr.revision_id = ci.latest_revision and a.assessment_id = cr.revision_id and + ci.parent_id = cf.folder_id and cf.package_id = :asm_package_id and + ci.item_id = :assessment_id order by cr.title + + + + + Index: openacs-4/packages/courses/www/cc-admin/delete-revision.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/Attic/delete-revision.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/delete-revision.tcl 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,14 @@ +ad_page_contract { + Deletes one revision + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 02-02-2005 +} { + course_key:notnull + revision_id:notnull +} + +# Delete row and revision from course_catalog and cr_revisions +course_catalog::delete_row -course_id $revision_id + +ad_returnredirect "/courses/cc-admin/course-list" Index: openacs-4/packages/courses/www/cc-admin/dotlrn-list.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/dotlrn-list.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/dotlrn-list.adp 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,8 @@ + +@page_title@ +@context;noquote@ + + +

#courses.associate# @course_key@ #courses.to#:

+ + Index: openacs-4/packages/courses/www/cc-admin/dotlrn-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/dotlrn-list.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/dotlrn-list.tcl 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,64 @@ +ad_page_contract { + Displays a list of all dotlrn classes to associate to a course_catalog(course_id) + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 31-01-2005 +} { + course_id:notnull + { course_key ""} + { return_url "" } +} + +set page_title "[_ courses.dotlrn_list]" +if {[string equal $return_url ""]} { + set return_url "/courses/cc-admin/courses-list" +} +set user_id [auth::get_user_id] + +# Check if users has admin permission to edit course_catalog +permission::require_permission -party_id $user_id -object_id $course_id -privilege "admin" + +set context [list [list "/courses/cc-admin/course-list" "[_ courses.course_list]"] "[_ courses.dotlrn_list]"] + +set asm_package_id [apm_package_id_from_key assessment] + +db_multirow classes_list get_dotlrn_classes {} + +template::list::create \ + -name dotlrn_classes \ + -multirow classes_list \ + -key class_id \ + -bulk_action_method post \ + -bulk_action_export_vars {}\ + -row_pretty_plural "[_ courses.dotlrn_classes]" \ + -elements { + class { + label "[_ courses.class_name]" + display_template { + @classes_list.pretty_name@ + } + } + dep_name { + label "[_ courses.dep_name]" + display_template { + @classes_list.department_name@ + } + } + term_name { + label "[_ courses.term_name]" + display_template { + @classes_list.term_name@ + } + } + subject { + label "[_ courses.subject_name]" + display_template { + @classes_list.class_name@ + } + } + associate { + display_template { + #courses.associate# + } + } + } Index: openacs-4/packages/courses/www/cc-admin/dotlrn-list.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/dotlrn-list.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/dotlrn-list.xql 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,12 @@ + + + + + + select class_instance_id as class_id, department_name, term_name, class_name, pretty_name, url + from dotlrn_class_instances_full + order by department_name, term_name, class_name, pretty_name + + + + \ No newline at end of file Index: openacs-4/packages/courses/www/cc-admin/go-live.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/go-live.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/go-live.tcl 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,13 @@ +ad_page_contract { + Makes one revision live + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 29-01-2005 +} { + course_key:notnull + revision_id:notnull +} + +course_catalog::set_live -name $course_key -revision_id $revision_id + +ad_returnredirect "/courses/cc-admin/course-list" Index: openacs-4/packages/courses/www/cc-admin/revision-list.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/revision-list.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/revision-list.adp 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,4 @@ + +@page_title@ +@context;noquote@ + \ No newline at end of file Index: openacs-4/packages/courses/www/cc-admin/revision-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/revision-list.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/revision-list.tcl 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,83 @@ +ad_page_contract { + Displays a list of all revisions for one course + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 28-01-2005 +} { + { return_url "" } + course_key:notnull + course_id:notnull +} + +set page_title "[_ courses.rev_list]" +if {[string equal $return_url ""]} { + set return_url "/courses/course-list" +} + +set user_id [auth::get_user_id] + +# Check if users has admin permission to edit course_catalog +permission::require_permission -party_id $user_id -object_id $course_id -privilege "admin" + + +set context [list [list "/courses/cc-admin/course-list" "[_ courses.course_list]"] "[_ courses.rev_list]"] + +set asm_package_id [apm_package_id_from_key assessment] + +db_multirow -extend { asm_name class_name} course_list get_course_info {} { + set asm_name [db_string get_asm_name { } -default "[_ courses.not_associated]"] + set class_id [course_catalog::has_relation -course_id $course_id] + set class_name [db_string get_class_info { } -default "[_ courses.not_associated]"] +} + +template::list::create \ + -name course_list \ + -multirow course_list \ + -key course_id \ + -bulk_action_method post \ + -bulk_action_export_vars { + }\ + -row_pretty_plural "[_ courses.revisions]" \ + -elements { + key { + label "[_ courses.course_key]" + display_template { + + @course_list.course_key@ + } + } + name { + label "[_ courses.course_name]" + display_template { + @course_list.course_name@ + } + } + info { + label "[_ courses.course_info]" + display_template { + @course_list.course_info@ + } + } + assessment_id { + label "[_ courses.asm]" + display_template { + @course_list.asm_name@ + } + } + class_name { + label "[_ courses.dotlrn]" + display_template { + @course_list.class_name@ + } + } + live_revision { + display_template { + + + + + + + } + } + } \ No newline at end of file Index: openacs-4/packages/courses/www/cc-admin/revision-list.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/revision-list.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/revision-list.xql 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,30 @@ + + + + + + select course_id, course_key, course_name, course_info, assessment_id, live_revision + from course_catalog, cr_items + where course_key = :course_key and name= :course_key + + + + + + select cr.title from + cr_folders cf, cr_items ci, cr_revisions cr, as_assessments a + where cr.revision_id = ci.latest_revision and a.assessment_id = cr.revision_id and + ci.parent_id = cf.folder_id and cf.package_id = :asm_package_id and + ci.item_id = :assessment_id order by cr.title + + + + + + select pretty_name, url + from dotlrn_class_instances_full + where class_instance_id = :class_id + + + + Index: openacs-4/packages/courses/www/cc-admin/watch-association.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/watch-association.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/watch-association.adp 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,13 @@ + +@page_title@ +@context;noquote@ + +

@course_key;noquote@ #courses.is_assoc#

+ + + + + + +
#courses.dep_name#:@department_name;noquote@
#courses.term_name#:@term_name;noquote@
#courses.term_name#:@class_name;noquote@
#courses.class_name#:@pretty_name;noquote@
#courses.description#:@description;noquote@
+ Index: openacs-4/packages/courses/www/cc-admin/watch-association.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/watch-association.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/watch-association.tcl 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,25 @@ +ad_page_contract { + Displays a information about course_catalog(course_id) and dotlrn_class_instance + list of all revisions for one course + + @author Miguel Marin (miguelmarin@viaro.net) Viaro Networks (www.viaro.net) + @creation date 28-01-2005 +} { + { return_url "" } + course_id:notnull + course_key:notnull +} + +set page_title "[_ courses.watch_assoc]" +set context [list [list "/courses/cc-admin/course-list" "[_ courses.course_list]"] "[_ courses.watch_asoc]"] + +set user_id [auth::get_user_id] + +# Check if users has admin permission to edit course_catalog +permission::require_permission -party_id $user_id -object_id $course_id -privilege "admin" + + +set class_id [course_catalog::has_relation -course_id $course_id] + +db_1row get_class_info { } + Index: openacs-4/packages/courses/www/cc-admin/watch-association.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/watch-association.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/courses/www/cc-admin/watch-association.xql 2 Feb 2005 17:26:55 -0000 1.1 @@ -0,0 +1,12 @@ + + + + + + select department_name, term_name, class_name, pretty_name, description, url + from dotlrn_class_instances_full + where class_instance_id = :class_id + + + + \ No newline at end of file Index: openacs-4/packages/courses/www/images/admin.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/images/admin.gif,v diff -u Binary files differ Index: openacs-4/packages/courses/www/images/golive.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/images/golive.gif,v diff -u Binary files differ Index: openacs-4/packages/courses/www/images/live.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/images/live.gif,v diff -u Binary files differ