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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.121 and 1.122

version 1.121, 2016/11/01 15:47:11 version 1.122, 2016/11/02 22:41:18
Line 410  sub display_matched_courses { Line 410  sub display_matched_courses {
             my $cctitle = &Apache::lonnet::plaintext($ccrole,$type);              my $cctitle = &Apache::lonnet::plaintext($ccrole,$type);
             my $dctitle = &Apache::lonnet::plaintext('dc');              my $dctitle = &Apache::lonnet::plaintext('dc');
             my $ccrolechk = ' ';              my $ccrolechk = ' ';
               my $possrole;
             my $menuchk = ' checked="checked" ';              my $menuchk = ' checked="checked" ';
             $r->print(              $r->print(
                 '<div class="LC_left_float">'                  '<div class="LC_left_float">'
                .'<fieldset>'                 .'<fieldset>'
                .'<legend>'.&mt('Pick action').'</legend>'                 .'<legend>'.&mt('Pick action').'</legend>');
                .'<span class="LC_nobreak"><label>'              my $roleradio = '<span class="LC_nobreak"><label>'.
                .'<input type="radio" name="phase" value="adhocrole"'.$ccrolechk.'/>'                              '<input type="radio" name="phase" value="adhocrole"'.$ccrolechk.'/>'.'&nbsp;';
                .'&nbsp;');  
             if (&Apache::lonnet::allowed('ccc',$crsdom)) {              if (&Apache::lonnet::allowed('ccc',$crsdom)) {
                   $possrole = 1;
                   $r->print($roleradio);
                 if ($type eq 'Community') {                  if ($type eq 'Community') {
                     $r->print(&mt('Enter the community with the role of [_1].',$cctitle));                      $r->print(&mt('Enter the community with the role of [_1].',$cctitle));
                 } elsif ($type eq 'Placement') {                  } elsif ($type eq 'Placement') {
Line 429  sub display_matched_courses { Line 431  sub display_matched_courses {
             } elsif (&Apache::lonnet::allowed('rar',$crsdom)) {              } elsif (&Apache::lonnet::allowed('rar',$crsdom)) {
                 my %adhocroles = &Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'},                  my %adhocroles = &Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'},
                                                                   'adhocroles.'.$crsdom);                                                                    'adhocroles.'.$crsdom);
                 if (keys(%adhocroles)) {                  if ($adhocroles{'adhocroles.'.$crsdom} ne '') {
                       $possrole = 1;
                       $r->print($roleradio);
                     my @adhoc = split(/,/,$adhocroles{'adhocroles.'.$crsdom});                      my @adhoc = split(/,/,$adhocroles{'adhocroles.'.$crsdom});
                     if (@adhoc > 1) {                      if (@adhoc > 1) {
                         my %adhochash;                          my %adhochash;
Line 457  sub display_matched_courses { Line 461  sub display_matched_courses {
                     }                      }
                 }                  }
             }              }
             $r->print('</label></span><br />'              if ($possrole) { 
                .'<span class="LC_nobreak"><label>'                  $r->print('</label></span><br />');
                .'<input type="radio" name="phase" value="menu"'.$menuchk.'/>&nbsp;');              }
               $r->print('<span class="LC_nobreak"><label>'
                        .'<input type="radio" name="phase" value="menu"'.$menuchk.'/>&nbsp;');
             if (&Apache::lonnet::allowed('ccc',$crsdom)) {              if (&Apache::lonnet::allowed('ccc',$crsdom)) {
                 if ($type eq 'Community') {                  if ($type eq 'Community') {
                     $r->print(&mt('View or modify community settings which only a [_1] may modify.',$dctitle));                      $r->print(&mt('View or modify community settings which only a [_1] may modify.',$dctitle));
Removed from v.1.121  
changed lines
  Added in v.1.122

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