[BACK]Return to lonpickcourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpickcourse.pm between versions 1.116 and 1.119

version 1.116, 2015/05/21 23:40:09 version 1.119, 2016/10/05 13:59:46
Line 55  sub handler { Line 55  sub handler {
     my ($type,$title,$jscript,$multelement,$multiple,$roleelement,$typeelement,      my ($type,$title,$jscript,$multelement,$multiple,$roleelement,$typeelement,
         $lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom,$crscode,$crsdom);          $lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom,$crscode,$crsdom);
   
     # Get course type - Course or Community.      # Get course type - Course, Community or Placement.
     $type = $env{'form.type'};      $type = $env{'form.type'};
     if (!defined($env{'form.type'})) {      if (!defined($env{'form.type'})) {
         $type = 'Course';          $type = 'Course';
Line 404  sub display_matched_courses { Line 404  sub display_matched_courses {
                .'<fieldset>'                 .'<fieldset>'
                .'<legend>'.&mt('Pick action').'</legend>'                 .'<legend>'.&mt('Pick action').'</legend>'
                .'<span class="LC_nobreak"><label>'                 .'<span class="LC_nobreak"><label>'
                .'<input type="radio" name="phase" value="ccrole"'.$ccrolechk.'/>'                 .'<input type="radio" name="phase" value="adhocrole"'.$ccrolechk.'/>'
                .'&nbsp;');                 .'&nbsp;');
             if ($type eq 'Community') {              if (&Apache::lonnet::allowed('ccc',$crsdom)) {
                 $r->print(&mt('Enter the community with the role of [_1].',$cctitle));                  if ($type eq 'Community') {
             } else {                      $r->print(&mt('Enter the community with the role of [_1].',$cctitle));
                 $r->print(&mt('Enter the course with the role of [_1].',$cctitle));                  } elsif ($type eq 'Placement') {
                       $r->print(&mt('Enter the placement test with the role of [_1].',$cctitle));
                   } else {
                       $r->print(&mt('Enter the course with the role of [_1].',$cctitle));
                   }
               } elsif (&Apache::lonnet::allowed('rar',$crsdom)) {
                   my %adhocroles = &Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'},
                                                                     'adhocroles.'.$crsdom);
                   if (keys(%adhocroles)) {
                       my @adhoc = split(/,/,$adhocroles{'adhocroles.'.$crsdom});
                       if (@adhoc > 1) {
                           my %adhochash;
                           map { $adhochash{$_} = $_; } @adhoc; 
                           my $selector = &Apache::loncommon::select_form($adhoc[0],'adhocrole',\%adhochash);
                           if ($type eq 'Community') {
                               $r->print(&mt('Enter the community with one of the available ad hoc roles: [_1].',
                                             $selector)); 
                           } elsif ($type eq 'Placement') {
                               $r->print(&mt('Enter the placement test with one of the available ad hoc roles: [_1].',
                                             $selector));
                           } else {
                               $r->print(&mt('Enter the course with one of the available ad hoc roles: [_1].',
                                             $selector));
                           }
                       } else {
                           if ($type eq 'Community') {
                               $r->print(&mt('Enter the community with the ad hoc role of: [_1]',$adhoc[0]));
                           } elsif ($type eq 'Placement') {
                               $r->print(&mt('Enter the placement test with the ad hoc role of: [_1]',$adhoc[0]));
                           } else {
                               $r->print(&mt('Enter the course with the ad hoc role of: [_1]',$adhoc[0]));
                           }
                       }
                   }
             }              }
             $r->print('</label></span><br />'              $r->print('</label></span><br />'
                .'<span class="LC_nobreak"><label>'                 .'<span class="LC_nobreak"><label>'
                .'<input type="radio" name="phase" value="menu"'.$menuchk.'/>&nbsp;');                 .'<input type="radio" name="phase" value="menu"'.$menuchk.'/>&nbsp;');
             if ($type eq 'Community') {              if (&Apache::lonnet::allowed('ccc',$crsdom)) {
                 $r->print(&mt('View or modify community settings which only a [_1] may modify.',$dctitle));                  if ($type eq 'Community') {
             } else {                      $r->print(&mt('View or modify community settings which only a [_1] may modify.',$dctitle));
                 $r->print(&mt('View or modify course settings which only a [_1] may modify.',$dctitle));                  } elsif ($type eq 'Placement') {
                       $r->print(&mt('View or modify placement test settings which only a [_1] may modify.',$dctitle));
                   } else {
                       $r->print(&mt('View or modify course settings which only a [_1] may modify.',$dctitle));
                   }
               } elsif (&Apache::lonnet::allowed('rar',$crsdom)) {
                   if ($type eq 'Community') {
                       $r->print(&mt('View community settings which only a [_1] may modify.',$dctitle));
                   } elsif ($type eq 'Placement') {
                       $r->print(&mt('View placement test settings which only a [_1] may modify.',$dctitle));
                   } else {
                       $r->print(&mt('View course settings which only a [_1] may modify.',$dctitle));
                   }
             }              }
             $r->print('</label></span>'              $r->print('</label></span>'
                .'</fieldset></div>'                       .'</fieldset></div>'
                .'<br clear="all" />'                       .'<br clear="all" />'
             );                       );
         }          }
     }      }
     my %by_descrip;      my %by_descrip;
Line 457  sub display_matched_courses { Line 502  sub display_matched_courses {
         $r->print('<th>'.&mt('Select').'</th>'          $r->print('<th>'.&mt('Select').'</th>'
                  .'<th>'.$titlehdr.'</th>'                   .'<th>'.$titlehdr.'</th>'
                  .'<th>'.&mt('Domain').'</th>');                   .'<th>'.&mt('Domain').'</th>');
         unless ($type eq 'Community') {          unless (($type eq 'Community') || ($type eq 'Placement')) {
             $r->print('<th>'.&mt('Course Code').'</th>');              $r->print('<th>'.&mt('Course Code').'</th>');
         }          }
         $r->print('<th>'.&mt('Owner/Co-owner(s)').'</th>');          $r->print('<th>'.&mt('Owner/Co-owner(s)').'</th>');
Line 608  sub display_matched_courses { Line 653  sub display_matched_courses {
             $r->print(&Apache::lonnet::domain($cdom,'description')?              $r->print(&Apache::lonnet::domain($cdom,'description')?
                       $cdom.' ('.&Apache::lonnet::domain($cdom,'description').')':$cdom);                        $cdom.' ('.&Apache::lonnet::domain($cdom,'description').')':$cdom);
             $r->print('</td>');              $r->print('</td>');
             unless ($type eq 'Community') {               unless (($type eq 'Community') || ($type eq 'Placement')) { 
                 $r->print('<td>');                  $r->print('<td>');
                 if ($instcode ne '') {                  if ($instcode ne '') {
                     $r->print(&unescape($instcode));                      $r->print(&unescape($instcode));
Line 706  sub get_coordinator_cloneable { Line 751  sub get_coordinator_cloneable {
         my ($cc_clone,$ccrole);          my ($cc_clone,$ccrole);
         if ($type eq 'Community') {          if ($type eq 'Community') {
             $ccrole = 'co';              $ccrole = 'co';
         } elsif ($type eq 'Course') {          } else {
             $ccrole = 'cc';              $ccrole = 'cc';
         }          }
         my %ccroles = &Apache::lonnet::get_my_roles($cloneruname,$clonerudom,          my %ccroles = &Apache::lonnet::get_my_roles($cloneruname,$clonerudom,
Line 751  sub gochoose_javascript { Line 796  sub gochoose_javascript {
                                  total => 'coursetotal',                                   total => 'coursetotal',
                                  list  => 'courselist',                                   list  => 'courselist',
                               },                                },
                        'Placement' => {
                                    name  => 'coursepick',
                                    total => 'coursetotal',
                                    list  => 'courselist',
                                    },
                     );                      );
     my $output = qq|      my $output = qq|
 function gochoose(cname,cdom,cdesc) {  function gochoose(cname,cdom,cdesc) {
Line 872  Course Activity - how recently was cours Line 922  Course Activity - how recently was cours
 Course Domain - the domain of the course  Course Domain - the domain of the course
   
 =item *  =item *
 Type - Course or Community  Type - Course, Community or Placement
   
 =item *  =item *
 Course Institutional Code - the institutional identifier assigned to the course  Course Institutional Code - the institutional identifier assigned to the course
Line 925  Following selection, and/or submission, Line 975  Following selection, and/or submission,
 X<create_user_javascript()>  X<create_user_javascript()>
 B<create_user_javascript($type)>:  B<create_user_javascript($type)>:
   
 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 E<lt>scriptE<gt>E<lt>/scriptE<gt> tags   Output: 1 - $output - javascript wrapped in E<lt>scriptE<gt>E<lt>/scriptE<gt> tags 
   
Removed from v.1.116  
changed lines
  Added in v.1.119

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>