[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.56 and 1.57

version 1.56, 2002/10/15 14:41:31 version 1.57, 2002/10/16 13:00:57
Line 752  sub print_drop_menu { Line 752  sub print_drop_menu {
 # ============================================== view classlist  # ============================================== view classlist
 sub print_html_classlist {  sub print_html_classlist {
     my $r=shift;      my $r=shift;
       if (! exists($ENV{'form.sortby'})) {
           $ENV{'form.sortby'} = 'username';
       }
       if (! exists($ENV{'form.Status'}) || 
           $ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) {
           $ENV{'form.Status'} = 'Active';
       }
       my $status_select = &Apache::lonhtmlcommon::StatusOptions
           ($ENV{'form.Status'},'studentform');
     $r->print(<<END);      $r->print(<<END);
   <input type="hidden" name="action" value="classlist" />
   <input type="hidden" name="state"  value="" />
 <p>  <p>
 <font size="+1">Current Classlist</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  <font size="+1">Current Classlist</font>
 <font size="+1"><a href="/adm/dropadd?action=classlist&state=csv">CSV format</a></font>  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
   <font size="+1">
   <a href="javascript:document.studentform.state.value='csv';document.studentform.submit();">CSV format</a>
   </font>
   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
   $status_select
 </p>  </p>
 END  END
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
Line 766  END Line 782  END
         # Print out the available choices          # Print out the available choices
         if ($ENV{'form.action'} eq 'modifystudent') {          if ($ENV{'form.action'} eq 'modifystudent') {
             &show_class_list($r,'view','modify','modifystudent',              &show_class_list($r,'view','modify','modifystudent',
                              'Active',$classlist,$keylist);                               $ENV{'form.Status'},$classlist,$keylist);
         } else {          } else {
             &show_class_list($r,'view','aboutme','classlist',              &show_class_list($r,'view','aboutme','classlist',
                              'Active',$classlist,$keylist);                               $ENV{'form.Status'},$classlist,$keylist);
         }          }
     }      }
 }  }
Line 783  sub print_csv_classlist { Line 799  sub print_csv_classlist {
         $r->print("There are no students currently enrolled.\n");          $r->print("There are no students currently enrolled.\n");
     } else {      } else {
         &show_class_list($r,'csv','nolink','csv',          &show_class_list($r,'csv','nolink','csv',
                          'Active',$classlist,$keylist);                           $ENV{'form.Status'},$classlist,$keylist);
     }      }
 }  }
   
Line 791  sub print_csv_classlist { Line 807  sub print_csv_classlist {
 sub show_class_list {  sub show_class_list {
     my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_;      my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_;
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},  #    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['sortby']);  #                                            ['sortby']);
     my $sortby = $ENV{'form.sortby'};      my $sortby = $ENV{'form.sortby'};
     if ($sortby !~ /^(username|domain|section|fullname|id)$/) {      if ($sortby !~ /^(username|domain|section|fullname|id)$/) {
         $sortby = 'username';          $sortby = 'username';
Line 809  sub show_class_list { Line 825  sub show_class_list {
 <p>  <p>
 <table border=2>  <table border=2>
 <tr><th>  <tr><th>
        <a href="/adm/dropadd?action=$action&sortby=username">username</a>         <a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">username</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=domain">domain</a>         <a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">domain</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=id">ID</a>         <a href="javascript:document.studentform.sortby.value='id';document.studentform.submit();">ID</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=fullname">student name</a>         <a href="javascript:document.studentform.sortby.value='fullname';document.studentform.submit();">student name</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=section">section</a>         <a href="javascript:document.studentform.sortby.value='section';document.studentform.submit();">section</a>
     </th>      </th>
 </tr>  </tr>
 END  END
Line 849  END Line 865  END
         my $name     = $classlist->{$student}->[$index{'fullname'}];          my $name     = $classlist->{$student}->[$index{'fullname'}];
         my $id       = $classlist->{$student}->[$index{'id'}];          my $id       = $classlist->{$student}->[$index{'id'}];
         my $status   = $classlist->{$student}->[$index{'status'}];          my $status   = $classlist->{$student}->[$index{'status'}];
         next if (($statusmode ne 'any') && ($status ne $statusmode));          next if (($statusmode ne 'Any') && ($status ne $statusmode));
         if ($mode eq 'view') {          if ($mode eq 'view') {
             $r->print("<tr>\n    <td>\n        ");              $r->print("<tr>\n    <td>\n        ");
             if ($linkto eq 'nothing') {              if ($linkto eq 'nothing') {
Removed from v.1.56  
changed lines
  Added in v.1.57

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