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

Diff for /loncom/interface/loncreateuser.pm between versions 1.91 and 1.92

version 1.91, 2004/12/07 00:49:27 version 1.92, 2004/12/28 05:01:44
Line 1280  sub commit_standardrole { Line 1280  sub commit_standardrole {
                &mt('Add to classlist').': <b>ok</b><br />';                 &mt('Add to classlist').': <b>ok</b><br />';
         }          }
     } else {      } else {
         $output = (&mt('Assigning').' '.$three.' in '.$url.          $output = &mt('Assigning').' '.$three.' in '.$url.
                ($start?', '.&mt('starting').' '.localtime($start):'').                 ($start?', '.&mt('starting').' '.localtime($start):'').
                ($end?', '.&mt('ending').' '.localtime($end):'').': <b>'.                 ($end?', '.&mt('ending').' '.localtime($end):'').': <b>'.
                &Apache::lonnet::assignrole(                 &Apache::lonnet::assignrole(
                    $ENV{'form.ccdomain'},$ENV{'form.ccuname'},                     $ENV{'form.ccdomain'},$ENV{'form.ccuname'},
                    $url,$three,$end,$start).                     $url,$three,$end,$start).
                    '</b><br>');                     '</b><br>';
     }      }
     return $output;      return $output;
 }  }
Line 1611  sub course_level_table { Line 1611  sub course_level_table {
  $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);   $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);
  my ($domain,$cnum)=split(/\//,$thiscourse);   my ($domain,$cnum)=split(/\//,$thiscourse);
         my %sections_count = ();          my %sections_count = ();
         my $num_sections = &Apache::loncommon::get_sections($domain,$cnum,\%sections_count);          my $num_sections = 0;
           if (defined($ENV{'request.course.id'})) {
               if ($ENV{'request.course.id'} eq $domain.'_'.$cnum) {
                   $num_sections = &Apache::loncommon::get_sections($domain,$cnum,\%sections_count);
               }
           }
  foreach  ('st','ta','ep','ad','in','cc') {   foreach  ('st','ta','ep','ad','in','cc') {
     if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {      if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {
  my $plrole=&Apache::lonnet::plaintext($_);   my $plrole=&Apache::lonnet::plaintext($_);
Line 1706  sub course_sections { Line 1711  sub course_sections {
     my ($num_sections,$sections_count,$role) = @_;      my ($num_sections,$sections_count,$role) = @_;
     my $output = '';      my $output = '';
     my @sections = (sort {$a <=> $b} keys %{$sections_count});      my @sections = (sort {$a <=> $b} keys %{$sections_count});
     $output = '<select name="currsec_'.$role.'" ';      if ($num_sections == 1) {
     my $multiple = 4;          $output = '<select name="currsec_'.$role.'" >'."\n".
     if ($num_sections <4) { $multiple = $num_sections; }                    '  <option value="">Select</option>'."\n".
     $output .= '"multiple size="'.$multiple.'" >'."\n";                    '  <option value="'.$sections[0].'" >'.$sections[0].'</option>'."\n";
     foreach (@sections) {      } else {
         $output .= '<option value="'.$_.'" />'.$_."\n";          $output = '<select name="currsec_'.$role.'" ';
           my $multiple = 4;
           if ($num_sections <4) { $multiple = $num_sections; }
           $output .= '"multiple size="'.$multiple.'" >'."\n";
           foreach (@sections) {
               $output .= '<option value="'.$_.'">'.$_."</option>\n";
           }
     }      }
     $output .= '</select>';       $output .= '</select>'; 
     return $output;      return $output;
Removed from v.1.91  
changed lines
  Added in v.1.92

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