[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.59

version 1.56, 2002/10/15 14:41:31 version 1.59, 2002/10/16 18:45:10
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 ($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="$ENV{'form.action'}" />
   <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;
 </p>  END
       if ($ENV{'form.action'} ne 'modifystudent') {
           $r->print(<<END);
   <font size="+1">
   <a href="javascript:document.studentform.state.value='csv';document.studentform.submit();">CSV format</a>
   </font>
   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 END  END
       }
       $r->print($status_select."</p>\n");
     my $cid=$ENV{'request.course.id'};      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)) {
Line 766  END Line 784  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 801  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 809  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 805  sub show_class_list { Line 823  sub show_class_list {
             $r->print('Select a user name to modify the students information');              $r->print('Select a user name to modify the students information');
         }          }
         $r->print(<<END);          $r->print(<<END);
   
 <input type="hidden" name="sortby" value="$sortby" />  <input type="hidden" name="sortby" value="$sortby" />
   <input type="hidden" name="sname"  value="" />
   <input type="hidden" name="sdom"   value="" />
 <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
     } elsif ($mode eq 'csv') {      } elsif ($mode eq 'csv') {
         $r->print('"'.join('","',("username","domain","ID","student name",          if($statusmode eq 'Expired') {
                                   "section")).'"'."\n");              $r->print('"Students with expired roles"');
           }
           if ($statusmode eq 'Any') {
               $r->print('"'.join('","',("username","domain","ID","student name",
                                         "section","status")).'"'."\n");
           } else {
               $r->print('"'.join('","',("username","domain","ID","student name",
                                         "section")).'"'."\n");
           }
     }      }
     #      #
     # Sort the students      # Sort the students
Line 849  END Line 878  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') {
Line 859  END Line 888  END
                                                              $username,                                                               $username,
                                                              $domain));                                                               $domain));
             } elsif ($linkto eq 'modify') {              } elsif ($linkto eq 'modify') {
                 $r->print('<a href="/adm/dropadd?action=modifystudent'.                  $r->print('<a href="'.
                           '&state=selected'.'&sname='.$username.                            "javascript:document.studentform.sname.value='".
                           '&sdom='.$domain.'&sortby='.$sortby.'">'.                            $username.
                             "';document.studentform.sdom.value='".$domain.
                             "';document.studentform.state.value='selected".
                             "';document.studentform.submit();".'">'.
                           $username."</a>\n");                            $username."</a>\n");
             }              }
             $r->print(<<"END");              $r->print(<<"END");
Line 878  END Line 910  END
             foreach ($username,$domain,$id,$name,$section) {              foreach ($username,$domain,$id,$name,$section) {
                 push @line,&Apache::loncommon::csv_translate($_);                  push @line,&Apache::loncommon::csv_translate($_);
             }              }
               if ($statusmode eq 'Any') {
                   push @line,&Apache::loncommon::csv_translate($status);
               }
             my $tmp = $";              my $tmp = $";
             $" = '","';              $" = '","';
             $r->print("\"@line\"\n");              $r->print("\"@line\"\n");
Line 894  END Line 929  END
 sub print_modify_student_form {  sub print_modify_student_form {
     my $r = shift();      my $r = shift();
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['sdom','sname','sortby']);                                                  ['sdom','sname']);    
     my $sname  = $ENV{'form.sname'};      my $sname  = $ENV{'form.sname'};
     my $sdom   = $ENV{'form.sdom'};      my $sdom   = $ENV{'form.sdom'};
     my $sortby = $ENV{'form.sortby'};      my $sortby = $ENV{'form.sortby'};
Line 922  sub print_modify_student_form { Line 957  sub print_modify_student_form {
     my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',      my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',
                                                           'enddate',                                                            'enddate',
                                                           $endtime);                                                            $endtime);
       #
       if (! exists($ENV{'form.Status'}) || 
           $ENV{'form.Status'} !~ /^(Any|Expired|Active)$/) {
           $ENV{'form.Status'} = 'crap';
       }
     # Make sure student is enrolled in course          # Make sure student is enrolled in course    
     $r->print(<<END);      $r->print(<<END);
 <p>  <p>
Line 934  Only domain coordinators can change a us Line 974  Only domain coordinators can change a us
 <input type="hidden" name="action"  value="modifystudent" />  <input type="hidden" name="action"  value="modifystudent" />
 <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'}" />
   
 <h2>Modify Enrollment for $info{'firstname'} $info{'middlename'}   <h2>Modify Enrollment for $info{'firstname'} $info{'middlename'} 
 $info{'lastname'} $info{'generation'}, $sname\@$sdom</h2>  $info{'lastname'} $info{'generation'}, $sname\@$sdom</h2>
 <p>  <p>
Line 971  END Line 1013  END
 #  #
 sub modify_single_student {  sub modify_single_student {
     my $r = shift;      my $r = shift;
     # Get the 'sortby' variable so the user does not need to re-sort      # Get the 'sortby' and 'Status' variables so the user goes back to their
       # previous screen
     my $sortby = $ENV{'form.sortby'};      my $sortby = $ENV{'form.sortby'};
       my $status = $ENV{'form.Status'};
     #      #
     # We always need this information      # We always need this information
     my $slogin     = $ENV{'form.slogin'};      my $slogin     = $ENV{'form.slogin'};
Line 983  sub modify_single_student { Line 1027  sub modify_single_student {
                                  ['firstname','middlename',                                   ['firstname','middlename',
                                   'lastname','generation','id'],                                    'lastname','generation','id'],
                                  $sdom, $slogin);                                   $sdom, $slogin);
       $old{'section'} = &Apache::lonnet::getsection($sdom,$slogin,
                                                     $ENV{'request.course.id'});
     my ($tmp) = keys(%old);      my ($tmp) = keys(%old);
     if ($tmp =~ /^(con_lost|error|no_such_host)/i) {      if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
         $r->print("There was an error determining the environment values ".          $r->print("There was an error determining the environment values ".
Line 1044  sub modify_single_student { Line 1090  sub modify_single_student {
     <td> <b>ID</b> </td>      <td> <b>ID</b> </td>
     <td> $old{'id'} </td>      <td> $old{'id'} </td>
     <td> $sid </td>      <td> $sid </td>
   </tr><tr>
       <td> <b>Section</b> </td>
       <td> $old{'section'} </td>
       <td> $section</td>
 </tr>  </tr>
 </table>  </table>
 <h3>Role Information</h3>  <h3>Role Information</h3>
 <table>  <table>
 <tr><td>Section     </td><td> $section    </td></tr>  
 <tr><td>Start Time  </td><td> $displayable_starttime </td></tr>  <tr><td>Start Time  </td><td> $displayable_starttime </td></tr>
 <tr><td>End Time    </td><td> $displayable_endtime   </td></tr>  <tr><td>End Time    </td><td> $displayable_endtime   </td></tr>
 </table>  </table>
Line 1079  END Line 1128  END
     }      }
     $r->print(<<END);      $r->print(<<END);
 </p><p>  </p><p>
 <a href="/adm/dropadd?action=modifystudent&sortby=$sortby">Modify another students data</a>  <input type="hidden" name="action" value="modifystudent" />
   <input type="hidden" name="sortby" value="$sortby" />
   <input type="hidden" name="Status" value="$status" />
   <a href="javascript:document.studentform.submit();">Modify another students data</a>
 </body></html>  </body></html>
 END  END
     return;      return;
Line 1148  which describes the order elements are s Line 1200  which describes the order elements are s
 sub show_drop_list {  sub show_drop_list {
     my ($r,$classlist,$keylist,$nosort)=@_;      my ($r,$classlist,$keylist,$nosort)=@_;
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      if (! exists($ENV{'form.sortby'})) {
                                             ['sortby']);          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                   ['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 1475  sub drop_student_list { Line 1529  sub drop_student_list {
         my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});          my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});
         if ($result eq 'ok' || $result eq 'ok:') {          if ($result eq 'ok' || $result eq 'ok:') {
             $r->print('Dropped '.$uname.' @ '.$udom.'<br>');              $r->print('Dropped '.$uname.' @ '.$udom.'<br>');
               $count++;
         } else {          } else {
             $r->print('Error dropping '.$uname.' @ '.$udom.': '.$result.              $r->print('Error dropping '.$uname.' @ '.$udom.': '.$result.
                       '<br />');                        '<br />');
         }          }
         $count++;  
     }      }
     $r->print('<p><b>Dropped '.$count.' student(s).</b>');      $r->print('<p><b>Dropped '.$count.' student(s).</b>');
     $r->print('<p>Re-enrollment will re-activate data.');      $r->print('<p>Re-enrollment will re-activate data.') if ($count);
 }  }
   
 ###################################################################  ###################################################################
Removed from v.1.56  
changed lines
  Added in v.1.59

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