--- 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