--- loncom/interface/lonpickcourse.pm 2015/05/21 23:40:09 1.116
+++ loncom/interface/lonpickcourse.pm 2016/04/02 04:30:21 1.117
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.116 2015/05/21 23:40:09 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.117 2016/04/02 04:30:21 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -55,7 +55,7 @@ sub handler {
my ($type,$title,$jscript,$multelement,$multiple,$roleelement,$typeelement,
$lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom,$crscode,$crsdom);
- # Get course type - Course or Community.
+ # Get course type - Course, Community or Placement.
$type = $env{'form.type'};
if (!defined($env{'form.type'})) {
$type = 'Course';
@@ -457,7 +457,7 @@ sub display_matched_courses {
$r->print('
'.&mt('Select').' | '
.''.$titlehdr.' | '
.''.&mt('Domain').' | ');
- unless ($type eq 'Community') {
+ unless (($type eq 'Community') || ($type eq 'Placement')) {
$r->print(''.&mt('Course Code').' | ');
}
$r->print(''.&mt('Owner/Co-owner(s)').' | ');
@@ -608,7 +608,7 @@ sub display_matched_courses {
$r->print(&Apache::lonnet::domain($cdom,'description')?
$cdom.' ('.&Apache::lonnet::domain($cdom,'description').')':$cdom);
$r->print('');
- unless ($type eq 'Community') {
+ unless (($type eq 'Community') || ($type eq 'Placement')) {
$r->print('');
if ($instcode ne '') {
$r->print(&unescape($instcode));
@@ -706,7 +706,7 @@ sub get_coordinator_cloneable {
my ($cc_clone,$ccrole);
if ($type eq 'Community') {
$ccrole = 'co';
- } elsif ($type eq 'Course') {
+ } else {
$ccrole = 'cc';
}
my %ccroles = &Apache::lonnet::get_my_roles($cloneruname,$clonerudom,
@@ -751,6 +751,11 @@ sub gochoose_javascript {
total => 'coursetotal',
list => 'courselist',
},
+ 'Placement' => {
+ name => 'coursepick',
+ total => 'coursetotal',
+ list => 'courselist',
+ },
);
my $output = qq|
function gochoose(cname,cdom,cdesc) {
@@ -872,7 +877,7 @@ Course Activity - how recently was cours
Course Domain - the domain of the course
=item *
-Type - Course or Community
+Type - Course, Community or Placement
=item *
Course Institutional Code - the institutional identifier assigned to the course
@@ -925,7 +930,7 @@ Following selection, and/or submission,
X
B:
-Input: 1 - $type - the course type - Course or Community
+Input: 1 - $type - the course type - Course, Community, or Placement
Output: 1 - $output - javascript wrapped in EscriptEE/scriptE tags
|