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

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.99 and 1.101

version 1.99, 2004/01/15 19:27:05 version 1.101, 2004/02/11 15:30:36
Line 1111  sub print_html_classlist { Line 1111  sub print_html_classlist {
     }      }
     my $status_select = &Apache::lonhtmlcommon::StatusOptions      my $status_select = &Apache::lonhtmlcommon::StatusOptions
         ($ENV{'form.Status'},'studentform');          ($ENV{'form.Status'},'studentform');
       my $cid=$ENV{'request.course.id'};
       my $cdom=$ENV{'course.'.$cid.'.domain'};
       my $cnum=$ENV{'course.'.$cid.'.num'};
   # -------------------------------------------------------- Get course personnel
       my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
       $r->print('<table border="2">');
       foreach (sort keys %coursepersonnel) {
    $r->print('<tr><td>'.$_.'</td><td>');
           foreach (split(/\,/,$coursepersonnel{$_})) {
       my ($puname,$pudom)=split(/\:/,$_);
       $r->print(' '.&Apache::loncommon::aboutmewrapper(
                             &Apache::loncommon::plainname($puname,
                             $pudom),$puname,$pudom));
    }
           $r->print('</td></tr>');
       }
       $r->print('</table>');
   # --------------------------------------------------------------- Student roles
     my $CCL=&mt('Current Class List');      my $CCL=&mt('Current Class List');
     $r->print(<<END);      $r->print(<<END);
 <input type="hidden" name="action" value="$ENV{'form.action'}" />  <input type="hidden" name="action" value="$ENV{'form.action'}" />
Line 1135  $lt{'ss'}: Line 1153  $lt{'ss'}:
 END  END
     }      }
     $r->print($status_select."</p>\n");      $r->print($status_select."</p>\n");
     my $cid=$ENV{'request.course.id'};  
     my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();      my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
     if (! defined($classlist)) {      if (! defined($classlist)) {
         $r->print(&mt('There are no students currently enrolled.')."\n");          $r->print(&mt('There are no students currently enrolled.')."\n");
Line 1348  sub print_modify_student_form { Line 1365  sub print_modify_student_form {
         $r->print('<p>'.$starttime.'</p>');          $r->print('<p>'.$starttime.'</p>');
         return;          return;
     }      }
       #
     # Deal with date forms      # Deal with date forms
       my $current_date_description = '';
       my $textdate = '';
   
       if (! defined($starttime) || $starttime == 0) {
           $current_date_description = &mt('Current Starting Date: not set').
               '<br />';
       } else {
           $current_date_description = 
               &mt('Current Starting Date: [_1]',
                   &Apache::lonlocal::locallocaltime($starttime)).'<br />';
       }
       if (! defined($endtime) || $endtime == 0) {
           $current_date_description.= &mt('Current Ending Date: not set').
               '<br />';
       } else {
           $current_date_description.= 
               &mt('Current Ending Date: [_1]',
                   &Apache::lonlocal::locallocaltime($endtime)).'<br />';
   
       }
     my $date_table = &date_setting_table($starttime,$endtime);      my $date_table = &date_setting_table($starttime,$endtime);
     #      #
     if (! exists($ENV{'form.Status'}) ||       if (! exists($ENV{'form.Status'}) || 
Line 1381  $lt{'odcc'} Line 1419  $lt{'odcc'}
 <input type="hidden" name="state"   value="done" />  <input type="hidden" name="state"   value="done" />
 <input type="hidden" name="sortby"  value="$sortby" />  <input type="hidden" name="sortby"  value="$sortby" />
 <input type="hidden" name="Status"  value="$ENV{'form.Status'}" />  <input type="hidden" name="Status"  value="$ENV{'form.Status'}" />
   
 <h2>$lt{'mef'} $info{'firstname'} $info{'middlename'}   <h2>$lt{'mef'} $info{'firstname'} $info{'middlename'} 
 $info{'lastname'} $info{'generation'}, $sname\@$sdom</h2>  $info{'lastname'} $info{'generation'}, $sname\@$sdom</h2>
 <p>  <p>
Line 1400  $info{'lastname'} $info{'generation'}, $ Line 1437  $info{'lastname'} $info{'generation'}, $
 <input type="checkbox" name="forceid" >   <input type="checkbox" name="forceid" > 
 $lt{'disn'}  $lt{'disn'}
 </p><p>  </p><p>
 <b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="4"/>  <b>$lt{'sec'}</b>: <input type="text" name="section" value="$section" size="14"/>
 </p>  </p>
   <p>$current_date_description</p>
 <p>$date_table</p>  <p>$date_table</p>
 <input type="submit" value="$lt{'sm'}" />  <input type="submit" value="$lt{'sm'}" />
 </body></html>  </body></html>
Removed from v.1.99  
changed lines
  Added in v.1.101

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