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

Diff for /loncom/interface/loncreateuser.pm between versions 1.135 and 1.136

version 1.135, 2006/11/22 16:06:28 version 1.136, 2006/11/22 21:55:53
Line 1755  sub course_level_table { Line 1755  sub course_level_table {
  my $area=$coursedata{'description'};   my $area=$coursedata{'description'};
         my $type=$coursedata{'type'};          my $type=$coursedata{'type'};
  if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }   if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }
  my $bgcol=$thiscourse;  
  $bgcol=~s/[^7-9a-e]//g;  
  $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);  
  my ($domain,$cnum)=split(/\//,$thiscourse);   my ($domain,$cnum)=split(/\//,$thiscourse);
         my %sections_count;          my %sections_count;
         if (defined($env{'request.course.id'})) {          if (defined($env{'request.course.id'})) {
Line 1769  sub course_level_table { Line 1766  sub course_level_table {
  foreach my $role ('st','ta','ep','in','cc') {   foreach my $role ('st','ta','ep','in','cc') {
     if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {      if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
  my $plrole=&Apache::lonnet::plaintext($role);   my $plrole=&Apache::lonnet::plaintext($role);
  $table .= <<ENDEXTENT;   $table .= &Apache::loncommon::start_data_table_row().
 <tr bgcolor="#$bgcol">  '<td><input type="checkbox" name="act_'.$protectedcourse.'_'.$role.'"></td>
 <td><input type="checkbox" name="act_$protectedcourse\_$role"></td>  <td>'.$plrole.'</td>
 <td>$plrole</td>  <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
 <td>$area<br />Domain: $domain</td>  
 ENDEXTENT  
         if ($role ne 'cc') {          if ($role ne 'cc') {
                     if (%sections_count) {                      if (%sections_count) {
                         my $currsec = &course_sections(\%sections_count,$protectedcourse.'_'.$role);                          my $currsec = &course_sections(\%sections_count,$protectedcourse.'_'.$role);
Line 1803  ENDEXTENT Line 1798  ENDEXTENT
 <a href=  <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td>  "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDTIMEENTRY  ENDTIMEENTRY
                 $table.= "</tr>\n";                  $table.= &Apache::loncommon::end_data_table_row();
             }              }
         }          }
         foreach my $cust (sort keys %customroles) {          foreach my $cust (sort keys %customroles) {
Line 1811  ENDTIMEENTRY Line 1806  ENDTIMEENTRY
  my $plrole=$cust;   my $plrole=$cust;
                 my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.                  my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.
     '_'.$env{'user.name'}.'_'.$plrole;      '_'.$env{'user.name'}.'_'.$plrole;
  $table .= <<END;   $table .= &Apache::loncommon::start_data_table_row().
 <tr bgcolor="#$bgcol">  '<td><input type="checkbox" name="act_'.$customrole.'"></td>
 <td><input type="checkbox" name="act_$customrole"></td>  <td>'.$plrole.'</td>
 <td>$plrole</td>  <td>'.$area.'</td>'."\n";
 <td>$area</td>  
 END  
                 if (%sections_count) {                  if (%sections_count) {
                     my $currsec = &course_sections(\%sections_count,$customrole);                      my $currsec = &course_sections(\%sections_count,$customrole);
                     $table.=                      $table.=
Line 1839  END Line 1832  END
 "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>  "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>
 <td><input type=hidden name="end_$customrole" value=''>  <td><input type=hidden name="end_$customrole" value=''>
 <a href=  <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td></tr>  "javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDENTRY  ENDENTRY
                  $table .= &Apache::loncommon::end_data_table_row();
            }             }
  }   }
     }      }
     return '' if ($table eq ''); # return nothing if there is nothing       return '' if ($table eq ''); # return nothing if there is nothing 
                                  # in the table                                   # in the table
     my $result = <<ENDTABLE;      my $result = '
 <h4>$lt{'crl'}</h4>  <h4>'.$lt{'crl'}.'</h4>'.
 <table border=2><tr><th>$lt{'act'}</th><th>$lt{'rol'}</th><th>$lt{'ext'}</th>  &Apache::loncommon::start_data_table().
 <th>$lt{'grs'}</th><th>$lt{'sta'}</th><th>$lt{'end'}</th></tr>  &Apache::loncommon::start_data_table_header_row().
 $table  '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>
 </table>  <th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
 ENDTABLE  &Apache::loncommon::end_data_table_header_row().
   &Apache::loncommon::start_data_table_row().
   $table.
   &Apache::loncommon::end_data_table_row().
   &Apache::loncommon::end_data_table();
     return $result;      return $result;
 }  }
   
Line 1899  sub course_level_dc { Line 1897  sub course_level_dc {
                     'sed'  => "Set End Date"                      'sed'  => "Set End Date"
                   );                    );
     my $header = '<h4>'.&mt('Course Level').'</h4>'.      my $header = '<h4>'.&mt('Course Level').'</h4>'.
                  '<table border="2"><tr><th>'.$lt{'typ'}.'</th><th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th></tr>';                   &Apache::loncommon::start_data_table().
     my $otheritems = '<tr><td><select name="crstype" onChange="javascript:setType();">'."\n".                   &Apache::loncommon::start_data_table_header_row().
                    '<th>'.$lt{'typ'}.'</th><th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
                    &Apache::loncommon::end_data_table_header_row();
       my $otheritems = &Apache::loncommon::start_data_table_row().
                        '<td><select name="crstype" onChange="javascript:setType();">'."\n".
                      ' <option value="">'.&mt('Please select')."\n".                       ' <option value="">'.&mt('Please select')."\n".
                      ' <option value="Course">'.&mt('Course')."\n".                       ' <option value="Course">'.&mt('Course')."\n".
                      ' <option value="Non-standard course">'.&mt('Non-standard course')."\n".                       ' <option value="Non-standard course">'.&mt('Non-standard course')."\n".
Line 1935  sub course_level_dc { Line 1937  sub course_level_dc {
 <a href=  <a href=
 "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>  "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDTIMEENTRY  ENDTIMEENTRY
     $otheritems .= "</tr></table>\n";      $otheritems .= &Apache::loncommon::end_data_table_row().
                      &Apache::loncommon::end_data_table()."\n";
     return $cb_jscript.$header.$hiddenitems.$otheritems;      return $cb_jscript.$header.$hiddenitems.$otheritems;
 }  }
   
Removed from v.1.135  
changed lines
  Added in v.1.136

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