[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.24 and 1.51

version 1.24, 2002/04/15 23:37:37 version 1.51, 2002/09/18 14:17:47
Line 31 Line 31
 #  #
 # (TeX Content Handler  # (TeX Content Handler
 #  #
 # YEAR=2000  ###############################################################
 # 05/29/00,05/30,10/11 Gerd Kortemeyer)  ###############################################################
 #  
 # 10/11,10/12,10/16 Gerd Kortemeyer)  
 #  
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,  
 # 12/08,12/12 Gerd Kortemeyer)  
 #  
 # 12/26,12/27,12/28,  
 # YEAR=2001  
 # 01/01/01,01/15,02/10,02/13,02/14,02/22 Gerd Kortemeyer  
 # 8/6 Scott Harrison  
 # Guy Albertelli  
 # 9/25 Gerd Kortemeyer  
 # 12/19 Guy Albertelli  
 # YEAR=2002  
 # 1/4 Gerd Kortemeyer  
   
 package Apache::londropadd;  package Apache::londropadd;
   
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet();
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonhtmlcommon();
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
   
 # ================================================================ Print header  ###############################################################
   ###############################################################
 sub header {  sub header {
     my $r=shift;      my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');
     $r->print(<<ENDHEAD);      return(<<ENDHEAD);
 <html>  <html>
 <head>  <head>
 <title>LON-CAPA Student Drop/Add</title>  <title>LON-CAPA Enrollment Manager</title>
 </head>  </head>
 <body bgcolor="#FFFFFF">  $bodytag
 <img align=right src=/adm/lonIcons/lonlogos.gif>  <form method="post" enctype="multipart/form-data"  
 <h1>Drop/Add Students</h1>        action="/adm/dropadd" name="studentform">
 <form method="post" enctype="multipart/form-data"  
 action="/adm/dropadd" name="studentform">  
 <h2>Course: $ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h2>  
 ENDHEAD  ENDHEAD
 }  }
   
 # =========== Drop student from all sections of a course, except optional $csec  ###############################################################
   ###############################################################
 sub dropstudent {  # Drop student from all sections of a course, except optional $csec
      my ($udom,$unam,$courseid,$csec)=@_;  sub modifystudent {
      $courseid=~s/\_/\//g;      my ($udom,$unam,$courseid,$csec,$desiredhost)=@_;
      $courseid=~s/^(\w)/\/$1/;      # if $csec is undefined, drop the student from all the courses matching
      foreach (split(/\&/,      # this one.  If $csec is defined, drop them from all other sections of 
     &Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',      # this course and add them to section $csec
      &Apache::lonnet::homeserver($unam,$udom)))) {      $courseid=~s/\_/\//g;
         my ($key,$value)=split(/\=/,$_);      $courseid=~s/^(\w)/\/$1/;
         $key=&Apache::lonnet::unescape($key);      my %roles = &Apache::lonnet::dump('roles',$udom,$unam);
         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {      my ($tmp) = keys(%roles);
           my $section=$1;      # Bail out if we were unable to get the students roles
           if ($key eq $courseid.'_st') { $section=''; }      return "$1" if ($tmp =~ /^(con_lost|error|no_such_host)/i);
           if (((!$section) && (!$csec)) || ($section ne $csec)) {      # Go through the roles looking for enrollment in this course
     my ($dummy,$end,$start)=split(/\_/,      my $result = '';
                                     &Apache::lonnet::unescape($value));      foreach my $course (keys(%roles)) {
             my $now=time;          if ($course=~/^$courseid(?:\/)*(?:\s+)*(\w+)*\_st$/) {
             my $notactive=0;              # We are in this course
             if ($start) {              my $section=$1;
  if ($now<$start) { $notactive=1; }              $section='' if ($course eq $courseid.'_st');
               if ( ((!$section) && (!$csec)) || ($section ne $csec) ) {
                   my (undef,$end,$start)=split(/\_/,$roles{$course});
                   my $now=time;
                   # if this is an active role 
                   if (!($start && ($now<$start)) || !($end && ($now>$end))) {
                       my $reply=&Apache::lonnet::modifystudent
                           ($udom,$unam,'','','','','','','',
                            $section,time,undef,undef,$desiredhost);
                       $result .= $reply.':';
                   }
             }              }
             if ($end) {  
                 if ($now>$end) { $notactive=1; }  
             }   
             unless ($notactive) {  
                 my $reply=&Apache::lonnet::modifystudent(  
                                    $udom,$unam,'','','',  
            '','','','',$section,time);  
             }  
   }  
         }          }
     }      }
       if ($result eq '') {
           $result eq 'Unable to find section for this student';
       } else {
           $result =~ s/(ok:)+/ok/g;
       }
       return $result;
 }  }
   
 # ============================================================== Menu Phase One  ###############################################################
   ###############################################################
   # build a domain and server selection form
   sub domain_form {
       my ($defdom) = @_;
       # Set up domain and server selection forms
       #
       # Get the domains
       my @domains = &Apache::loncommon::get_domains();
       # build up the menu information to be passed to 
       # &Apache::loncommon::linked_select_forms
       my %select_menus;
       foreach my $dom (@domains) {
           # set up the text for this domain
           $select_menus{$dom}->{'text'}= $dom;
           # we want a choice of 'default' as the default in the second menu
           $select_menus{$dom}->{'default'}= 'default';
           $select_menus{$dom}->{'select2'}->{'default'} = 'default';
           # Now build up the other items in the second menu
           my %servers = &Apache::loncommon::get_library_servers($dom);
           foreach my $server (keys(%servers)) {
               $select_menus{$dom}->{'select2'}->{$server} 
                                               = "$server $servers{$server}";
           }
       }
       my $result  = &Apache::loncommon::linked_select_forms
           ('studentform',' with home server ',$defdom,
            'lcdomain','lcserver',\%select_menus);
       return $result;
   }
   
 sub menu_phase_one {  ###############################################################
   ###############################################################
   #  Menu Phase One
   sub print_main_menu {
     my $r=shift;      my $r=shift;
     my $upfile_select=&Apache::loncommon::upfile_select_html();      $r->print(<<END);
     $r->print(<<ENDUPFORM);  <p>
 <input type=hidden name=phase value=two>  <font size="+1">
 <hr>      <a href="/adm/dropadd?action=upload">Upload a course list</a>
 <h3>Upload a courselist</h3>  </font>
 $upfile_select  </p><p>
 <p><input type=submit name=fileupload value="Upload Courselist">  <font size="+1">
 <hr>      <a href="/adm/dropadd?action=enrollstudent">Enroll a single student</a>
 <h3>Enroll a single student</h3>  </font>
 <p><input type=submit name=enroll value="Enroll Student">  </p><p>
 <hr>  <font size="+1">
 <h3>Drop students</h3>      <a href="/adm/dropadd?action=modifystudent">Modify student data</a>
 <p><input type=submit name=drop value="Selection List">  </font>
 ENDUPFORM  </p><p>
   <font size="+1">
       <a href="/adm/dropadd?action=classlist">View Classlist</a>
   </font>
   </p><p>
   <font size="+1">
       <a href="/adm/dropadd?action=drop">Drop Students</a>
   </font>
   </p>
   END
 }  }
   
   ###############################################################
 sub phase_two_header {  ###############################################################
   sub print_upload_manager_header {
     my ($r,$datatoken,$distotal,$krbdefdom)=@_;      my ($r,$datatoken,$distotal,$krbdefdom)=@_;
     my $javascript;      my $javascript;
       if (! exists($ENV{'form.upfile_associate'})) {
           $ENV{'form.upfile_associate'} = 'forward';
       }
       if ($ENV{'form.associate'} eq 'Reverse Association') {
           if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {
               $ENV{'form.upfile_associate'} = 'reverse';
           } else {
               $ENV{'form.upfile_associate'} = 'forward';
           }
       }
     if ($ENV{'form.upfile_associate'} eq 'reverse') {      if ($ENV{'form.upfile_associate'} eq 'reverse') {
  $javascript=&phase_two_javascript_reverse_associate();   $javascript=&upload_manager_javascript_reverse_associate();
     } else {      } else {
  $javascript=&phase_two_javascript_forward_associate();   $javascript=&upload_manager_javascript_forward_associate();
     }      }
     my $javascript_validations=&javascript_validations($krbdefdom);      my $javascript_validations=&javascript_validations($krbdefdom);
     $r->print(<<ENDPICK);      $r->print(<<ENDPICK);
   <h3>Uploading Class List</h3>
 <hr>  <hr>
 <h3>Identify fields</h3>  <h3>Identify fields</h3>
 Total number of records found in file: $distotal <hr />  Total number of records found in file: $distotal <hr />
 Enter as many fields as you can. The system will inform you and bring you back  Enter as many fields as you can. The system will inform you and bring you back
 to this page if the data selected is insufficient to run your class.<hr />  to this page if the data selected is insufficient to run your class.<hr />
 <input type="submit" name="associate" value="Reverse Association" />  <input type="button" value="Reverse Association" onClick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" />
 <input type="hidden" name="phase" value="three" />  <input type="hidden" name="action"     value="upload" />
 <input type="hidden" name="datatoken" value="$datatoken" />  <input type="hidden" name="state"      value="got_file" />
   <input type="hidden" name="associate"  value="" />
   <input type="hidden" name="datatoken"  value="$datatoken" />
 <input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" />  <input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" />
 <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" />  <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" />
 <input type="hidden" name="upfile_associate" value="$ENV{'form.upfile_associate'}" />  <input type="hidden" name="upfile_associate" 
                                          value="$ENV{'form.upfile_associate'}" />
 <hr />  <hr />
 <script>  <script type="text/javascript" language="Javascript">
 $javascript  $javascript
   
 $javascript_validations  $javascript_validations
 </script>  </script>
 ENDPICK  ENDPICK
 }  }
   
   ###############################################################
   ###############################################################
 sub javascript_validations {  sub javascript_validations {
     my ($krbdefdom)=@_;      my ($krbdefdom)=@_;
       my %param = ( formname => 'studentform',
                     kerb_def_dom => $krbdefdom );
       my $authheader = &Apache::loncommon::authform_header(%param);
     return (<<ENDPICK);      return (<<ENDPICK);
 function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) {  function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) {
     var foundatype=0;      var foundatype=0;
     var message='';      var message='';
     if (founduname==0) {      if (founduname==0) {
  alert('You need to specify at least the username field');   alert('You need to specify the username field');
         return;          return;
     }      }
     if (vf.login[0].checked) {      if (current.radiovalue == null || current.radiovalue == 'nochange') {
  foundatype=1;          // They did not check any of the login radiobuttons.
         if (vf.krbdom.value=='') {          alert('You must choose an authentication type');
     alert('You need to specify the Kerberos domain');          return;
             return;  
         }  
     }      }
     if (vf.login[1].checked) {      foundatype=1;
  foundatype=1;      if (current.argfield == null || current.argfield == '') {
         if ((vf.intpwd.value=='') && (foundpwd==0)) {          var alertmsg = '';
     alert('You need to specify the initial password');          switch (current.value) {
               case 'krb': 
                   alertmsg = 'You need to specify the Kerberos domain';
                   break;
               case 'loc':
               case 'fsys':
                   alertmsg = 'You need to specify the initial password';
                   break;
               case 'fsys':
                   alertmsg = '';
                   break;
               default: 
                   alertmsg = '';
           }
           if (alertmsg != '') {
               alert(alertmsg);
             return;              return;
         }          }
     }      }
     if (vf.login[2].checked) {  
  foundatype=1;  
  //An argument is not required  
     }  
     if (foundatype==0) {  
  alert('You need to set the login type');  
         return;  
     }  
     if (foundname==0) { message='No name fields specified. '; }      if (foundname==0) { message='No name fields specified. '; }
     if (foundid==0) { message+='No ID or student number field specified. '; }      if (foundid==0) { message+='No ID or student number field specified. '; }
     if (foundsec==0) { message+='No section or group field specified. '; }      if (foundsec==0) { message+='No section or group field specified. '; }
Line 211  function verify_message (vf,founduname,f Line 267  function verify_message (vf,founduname,f
        message+='Continue enrollment?';         message+='Continue enrollment?';
        if (confirm(message)) {         if (confirm(message)) {
   pclose();    pclose();
             vf.state.value='enrolling';
   vf.submit();    vf.submit();
        }         }
     } else {      } else {
       pclose();        pclose();
         vf.state.value='enrolling';
       vf.submit();        vf.submit();
     }      }
 }  }
   
 function setkrb(vf) {  
     if (vf.krbdom.value!='') {  
        clearpwd(vf);  
        vf.login[0].checked=true;  
        vf.krbdom.value=vf.krbdom.value.toUpperCase();  
        vf.intpwd.value='';  
        vf.locarg.value='';  
    }  
 }  
   
 function setint(vf) {  
     if (vf.intpwd.value!='') {  
        clearpwd(vf);  
        vf.login[1].checked=true;  
        vf.krbdom.value='';  
        vf.locarg.value='';  
    }  
 }  
   
 function setloc(vf) {  
     if (vf.locarg.value!='') {  
        vf.login[2].checked=true;  
        vf.krbdom.value='';  
        vf.intpwd.value='';  
    }  
 }  
   
 function clickkrb(vf) {  
     vf.krbdom.value='$krbdefdom';  
     clearpwd(vf);  
     vf.intpwd.value='';  
     vf.locarg.value='';  
 }  
   
 function clickint(vf) {  
     vf.krbdom.value='';  
     vf.locarg.value='';  
 }  
   
 function clickloc(vf) {  
     vf.krbdom.value='';  
     vf.intpwd.value='';  
 }  
   
     function pclose() {      function pclose() {
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",          parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
Line 290  function clickloc(vf) { Line 305  function clickloc(vf) {
         pclose();          pclose();
     }      }
   
   $authheader
 ENDPICK  ENDPICK
   
 }  }
   
 sub phase_two_javascript_forward_associate {  ###############################################################
   ###############################################################
   sub upload_manager_javascript_forward_associate {
     return(<<ENDPICK);      return(<<ENDPICK);
 function verify(vf) {  function verify(vf) {
     var founduname=0;      var founduname=0;
Line 313  function verify(vf) { Line 332  function verify(vf) {
     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);      verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
 }  }
   
   //
   // vf = this.form
   // tf = column number
   //
   // values of nw
   //
   // 0 = none
   // 1 = username
   // 2 = names (lastname, firstnames)
   // 3 = fname (firstname)
   // 4 = mname (middlename)
   // 5 = lname (lastname)
   // 6 = gen   (generation)
   // 7 = id
   // 8 = section
   // 9 = ipwd  (password)
   //
 function flip(vf,tf) {  function flip(vf,tf) {
    var nw=eval('vf.f'+tf+'.selectedIndex');     var nw=eval('vf.f'+tf+'.selectedIndex');
    var i;     var i;
      // make sure no other columns are labeled the same as this one
    for (i=0;i<=vf.nfields.value;i++) {     for (i=0;i<=vf.nfields.value;i++) {
       if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {        if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {
           eval('vf.f'+i+'.selectedIndex=0;')            eval('vf.f'+i+'.selectedIndex=0;')
       }        }
    }     }
    if (tf==1 && nw!=0) {     // If we set this to 'lastname, firstnames', clear out all the ones
       for (i=2;i<=5;i++) {     // set to 'fname','mname','lname','gen' (3,4,5,6) currently.
          eval('vf.f'+i+'.selectedIndex=0;')  
       }  
    }  
    if (nw==2) {     if (nw==2) {
       for (i=0;i<=vf.nfields.value;i++) {        for (i=0;i<=vf.nfields.value;i++) {
          if ((eval('vf.f'+i+'.selectedIndex')>=3) &&           if ((eval('vf.f'+i+'.selectedIndex')>=3) &&
Line 335  function flip(vf,tf) { Line 368  function flip(vf,tf) {
          }           }
       }        }
    }     }
      // If we set this to one of 'fname','mname','lname','gen' (3,4,5,6),
      // clear out any that are set to 'lastname, firstnames' (2)
    if ((nw>=3) && (nw<=6)) {     if ((nw>=3) && (nw<=6)) {
       for (i=0;i<=vf.nfields.value;i++) {        for (i=0;i<=vf.nfields.value;i++) {
          if (eval('vf.f'+i+'.selectedIndex')==2) {           if (eval('vf.f'+i+'.selectedIndex')==2) {
Line 342  function flip(vf,tf) { Line 377  function flip(vf,tf) {
          }           }
       }        }
    }     }
      // If we set the password, make the password form below correspond to 
      // the new value.
    if (nw==9) {     if (nw==9) {
        vf.login[1].checked=true;         changed_radio('int',document.studentform);
        vf.intpwd.value='';         set_auth_radio_buttons('int',document.studentform);
        vf.krbdom.value='';         vf.intarg.value='';
          vf.krbarg.value='';
        vf.locarg.value='';         vf.locarg.value='';
    }     }
 }  }
Line 362  function clearpwd(vf) { Line 400  function clearpwd(vf) {
 ENDPICK  ENDPICK
 }  }
   
 sub phase_two_javascript_reverse_associate {  ###############################################################
   ###############################################################
   sub upload_manager_javascript_reverse_associate {
     return(<<ENDPICK);      return(<<ENDPICK);
 function verify(vf) {  function verify(vf) {
     var founduname=0;      var founduname=0;
Line 398  function flip(vf,tf) { Line 438  function flip(vf,tf) {
    }     }
    // intial password specified, pick internal authentication     // intial password specified, pick internal authentication
    if (tf==8 && nw!=0) {     if (tf==8 && nw!=0) {
        vf.login[1].checked=true;         changed_radio('int',document.studentform);
        vf.intpwd.value='';         set_auth_radio_buttons('int',document.studentform);
        vf.krbdom.value='';         vf.krbarg.value='';
          vf.intarg.value='';
        vf.locarg.value='';         vf.locarg.value='';
    }     }
 }  }
Line 414  function clearpwd(vf) { Line 455  function clearpwd(vf) {
 ENDPICK  ENDPICK
 }  }
   
 sub phase_two_end {  ###############################################################
   ###############################################################
   sub print_upload_manager_footer {
     my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_;      my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_;
       my %param = ( formname => 'document.studentform');
       my $krbform = &Apache::loncommon::authform_kerberos(%param);
       my $intform = &Apache::loncommon::authform_internal(%param);
       my $locform = &Apache::loncommon::authform_local(%param);
       my $domform = &domain_form($defdom);
     $r->print(<<ENDPICK);      $r->print(<<ENDPICK);
 </table>  </table>
 <input type=hidden name=nfields value=$i>  <input type=hidden name=nfields value=$i>
Line 423  sub phase_two_end { Line 471  sub phase_two_end {
 <h3>Login Type</h3>  <h3>Login Type</h3>
 <p>Note: this will not take effect if the user already exists</p>  <p>Note: this will not take effect if the user already exists</p>
 <p>  <p>
 <input type=radio name=login value=krb onClick="clickkrb(this.form);" />  $krbform
 Kerberos authenticated with domain  
 <input type=text size=10 name=krbdom onChange="setkrb(this.form);" />  
 </p>  </p>
 <p>  <p>
 <input type=radio name=login value=int onClick="clickint(this.form);" />  $intform
 Internally authenticated (with initial password   
 <input type=text size=10 name=intpwd onChange="setint(this.form);" />)  
 </p>  </p>
 <p>  <p>
 <input type=radio name=login value=loc onClick="clickloc(this.form);" />  $locform
 Local Authentication with argument  
 <input type=text size=10 name=locarg onChange="setloc(this.form);" />  
 </p>  </p>
 <h3>LON-CAPA Domain for Students</h3>  <h3>LON-CAPA Domain for Students</h3>
 LON-CAPA domain: <input type=text size=10 value=$defdom name=lcdomain><p>  LON-CAPA domain: $domform <p>
 <h3>Starting and Ending Dates</h3>  <h3>Starting and Ending Dates</h3>
 <input type="hidden" value='' name="pres_value">  <input type="hidden" value=''          name="pres_value"  >
 <input type="hidden" value='' name="pres_type">  <input type="hidden" value=''          name="pres_type"   >
 <input type="hidden" value='' name="pres_marker">  <input type="hidden" value=''          name="pres_marker" >
 <input type="hidden" value='$today' name=startdate>  <input type="hidden" value='$today'    name="startdate"   >
 <input type="hidden" value='$halfyear' name=enddate>  <input type="hidden" value='$halfyear' name="enddate"     >
 <a   <a 
  href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"   href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"
 >Set Starting Date</a><p>  >Set Starting Date</a><p>
Line 459  LON-CAPA domain: <input type=text size=1 Line 501  LON-CAPA domain: <input type=text size=1
 <input type=checkbox name=forceid value=yes>   <input type=checkbox name=forceid value=yes> 
 Disable ID/Student Number Safeguard and Force Change of Conflicting IDs  Disable ID/Student Number Safeguard and Force Change of Conflicting IDs
 (only do if you know what you are doing)<p>  (only do if you know what you are doing)<p>
 <input type=button onClick="verify(this.form)" value="Update Courselist"><br>  <input type="button" onClick="javascript:verify(this.form)" value="Update Courselist" /><br />
 Note: for large courses, this operation might be time consuming.  Note: for large courses, this operation may be time consuming.
 ENDPICK  ENDPICK
 }  }
   
 # ======================================================= Menu Phase Two Upload  # ======================================================= Menu Phase Two Upload
   sub print_upload_manager_form {
 sub menu_phase_two_upload {  
     my $r=shift;      my $r=shift;
   
     my $datatoken;      my $datatoken;
Line 479  sub menu_phase_two_upload { Line 520  sub menu_phase_two_upload {
     my @records=&Apache::loncommon::upfile_record_sep();      my @records=&Apache::loncommon::upfile_record_sep();
     my $total=$#records;      my $total=$#records;
     my $distotal=$total+1;      my $distotal=$total+1;
   
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;      $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
     my $krbdefdom=$1;      my $krbdefdom=$1;
     $krbdefdom=~tr/a-z/A-Z/;      $krbdefdom=~tr/a-z/A-Z/;
   
     my $today=time;      my $today=time;
     my $halfyear=$today+15552000;      my $halfyear=$today+15552000;
   
     my $defdom=$r->dir_config('lonDefDomain');      my $defdom=$r->dir_config('lonDefDomain');
       &print_upload_manager_header($r,$datatoken,$distotal,$krbdefdom);
     &phase_two_header($r,$datatoken,$distotal,$krbdefdom);  
   
     my $i;      my $i;
     my $keyfields;      my $keyfields;
     if ($total>=0) {      if ($total>=0) {
  my @d=(['username','Username'],['names','Last Name, First Names'],   my @d=(['username','Username'],
        ['fname','First Name'],['mname','Middle Names/Initials'],                 ['names','Last Name, First Names'],
        ['lname','Last Name'],['gen','Generation'],         ['fname','First Name'],
        ['id','ID/Student Number'],['sec','Group/Section'],                 ['mname','Middle Names/Initials'],
          ['lname','Last Name'],
                  ['gen','Generation'],
          ['id','ID/Student Number'],
                  ['sec','Group/Section'],
        ['ipwd','Initial Password']);         ['ipwd','Initial Password']);
  if ($ENV{'form.upfile_associate'} eq 'reverse') {   if ($ENV{'form.upfile_associate'} eq 'reverse') {
     &Apache::loncommon::csv_print_samples($r,\@records);      &Apache::loncommon::csv_print_samples($r,\@records);
Line 511  sub menu_phase_two_upload { Line 551  sub menu_phase_two_upload {
     $keyfields=join(',',sort(keys(%sone)));      $keyfields=join(',',sort(keys(%sone)));
  }   }
     }      }
       &print_upload_manager_footer($r,$i,$keyfields,$defdom,$today,$halfyear);
   
     &phase_two_end($r,$i,$keyfields,$defdom,$today,$halfyear);  
 }  }
   
 # ======================================================= Enroll single student  # ======================================================= Enroll single student
   
 sub enroll_single_student {  sub enroll_single_student {
     my $r=shift;      my $r=shift;
     $r->print('<h3>Enrolling Student</h3>');      $r->print('<h3>Enrolling Student</h3>');
       $r->print('<p>Enrolling '.$ENV{'form.cuname'}." in domain ".
                 $ENV{'form.lcdomain'}.'</p>');
     if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&      if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&
         ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) {          ($ENV{'form.lcdomain'})&&($ENV{'form.lcdomain'}!~/\W/)) {
           # Deal with home server selection
           my $domain=$ENV{'form.lcdomain'};
           my $desiredhost = $ENV{'form.lcserver'};
           if (lc($desiredhost) eq 'default') {
               $desiredhost = undef;
           } else {
               my %home_servers =&Apache::loncommon::get_library_servers($domain);
               if (! exists($home_servers{$desiredhost})) {
                   $r->print('<font color="#ff0000">Error:</font>'.
                             'Invalid home server specified');
                   return;
               }
           }
           $r->print(" with server $desiredhost :") if (defined($desiredhost));
           # End of home server selection logic
  my $amode='';   my $amode='';
         my $genpwd='';          my $genpwd='';
         if ($ENV{'form.login'} eq 'krb') {          if ($ENV{'form.login'} eq 'krb') {
            $amode='krb4';             $amode='krb';
            $genpwd=$ENV{'form.krbdom'};     $amode.=$ENV{'form.krbver'};
              $genpwd=$ENV{'form.krbarg'};
         } elsif ($ENV{'form.login'} eq 'int') {          } elsif ($ENV{'form.login'} eq 'int') {
            $amode='internal';             $amode='internal';
            $genpwd=$ENV{'form.intpwd'};             $genpwd=$ENV{'form.intarg'};
         }  elsif ($ENV{'form.login'} eq 'loc') {          }  elsif ($ENV{'form.login'} eq 'loc') {
     $amode='localauth';      $amode='localauth';
     $genpwd=$ENV{'form.locarg'};      $genpwd=$ENV{'form.locarg'};
     if (!$genpwd) { $genpwd=" "; }      if (!$genpwd) { $genpwd=" "; }
  }   }
         if (($amode) && ($genpwd)) {          my $home = &Apache::lonnet::homeserver($ENV{'form.cuname'},
    &dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'},                                                     $ENV{'form.lcdomain'});
        $ENV{'request.course.id'},$ENV{'form.csec'});          if ((($amode) && ($genpwd)) || ($home ne 'no_host')) {
               &modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'},
                              $ENV{'request.course.id'},$ENV{'form.csec'},
                               $desiredhost);
           $r->print(&Apache::lonnet::modifystudent(            $r->print(&Apache::lonnet::modifystudent(
                       $ENV{'form.cdomain'},$ENV{'form.cuname'},                        $ENV{'form.lcdomain'},$ENV{'form.cuname'},
                       $ENV{'form.cstid'},$amode,$genpwd,                        $ENV{'form.cstid'},$amode,$genpwd,
                $ENV{'form.cfirst'},$ENV{'form.cmiddle'},                 $ENV{'form.cfirst'},$ENV{'form.cmiddle'},
                       $ENV{'form.clast'},$ENV{'form.cgen'},                        $ENV{'form.clast'},$ENV{'form.cgen'},
                       $ENV{'form.csec'},$ENV{'form.enddate'},                        $ENV{'form.csec'},$ENV{'form.enddate'},
                       $ENV{'form.startdate'},$ENV{'form.forceid'}));                        $ENV{'form.startdate'},$ENV{'form.forceid'},
                       $desiredhost));
  } else {   } else {
            $r->print('Invalid login mode or password');                  $r->print('<p><font color="#ff0000">ERROR</font>&nbsp;'.
                         'Invalid login mode or password.  '.
                         'Unable to enroll '.$ENV{'form.cuname'}.'.</p>');
         }                    }          
     } else {      } else {
         $r->print('Invalid username or domain');          $r->print('Invalid username or domain');
Line 555  sub enroll_single_student { Line 616  sub enroll_single_student {
 }  }
   
 # ======================================================= Menu Phase Two Enroll  # ======================================================= Menu Phase Two Enroll
   sub print_enroll_single_student_form {
 sub menu_phase_two_enroll {  
     my $r=shift;      my $r=shift;
           $r->print("<h3>Enroll One Student</h3>");
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;      my ($krbdefdom) = $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
     my $krbdefdom=$1;  
     $krbdefdom=~tr/a-z/A-Z/;      $krbdefdom=~tr/a-z/A-Z/;
       my $today    = time;
     my $today=time;      my $halfyear = $today+15552000;
     my $halfyear=$today+15552000;  
   
     my $defdom=$r->dir_config('lonDefDomain');      my $defdom=$r->dir_config('lonDefDomain');
     my $javascript_validations=&javascript_validations($krbdefdom);      my $javascript_validations=&javascript_validations($krbdefdom);
     $r->print(<<ENDSENROLL);      # Set up authentication forms
 <script>      my %param = ( formname => 'document.studentform');
       my $krbform = &Apache::loncommon::authform_kerberos(%param);
       my $intform = &Apache::loncommon::authform_internal(%param);
       my $locform = &Apache::loncommon::authform_local(%param);
       # Set up domain selection form
       my $domform = &domain_form($defdom);
       # Print it all out
       $r->print(<<END);
   <input type="hidden" name="action" value="enrollstudent">
   <input type="hidden" name="state"  value="done">
   
   <script type="text/javascript" language="Javascript">
 function verify(vf) {  function verify(vf) {
     var founduname=0;      var founduname=0;
     var foundpwd=0;      var foundpwd=0;
Line 577  function verify(vf) { Line 645  function verify(vf) {
     var foundid=0;      var foundid=0;
     var foundsec=0;      var foundsec=0;
     var tw;      var tw;
     if ((typeof(vf.cuname.value)!="undefined") && (vf.cuname.value!='') &&       if ((typeof(vf.cuname.value) !="undefined") && (vf.cuname.value!='') && 
  (typeof(vf.cdomain.value)!="undefined") && (vf.cdomain.value!='')) {   (typeof(vf.lcdomain.value)!="undefined") && (vf.lcdomain.value!='')) {
         founduname=1;          founduname=1;
     }      }
     if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') &&      if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') &&
  (typeof(vf.clast.value)!="undefined") && (vf.clast.value!='')) {   (typeof(vf.clast.value) !="undefined") && (vf.clast.value!='')) {
         foundname=1;          foundname=1;
     }      }
     if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) {      if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) {
Line 606  function clearpwd(vf) { Line 674  function clearpwd(vf) {
   
 </script>  </script>
 <h3>Personal Data</h3>  <h3>Personal Data</h3>
 First Name: <input type=text name=cfirst size=15><br>  <table>
 Middle Name: <input type=text name=cmiddle size=15><br>  <tr><td>First Name:</td><td> <input type="text" name="cfirst"  size="15"></td></tr>
 Last Name: <input type=text name=clast size=15><br>  <tr><td>Middle Name:</td><td> <input type="text" name="cmiddle" size="15"></td></tr>
 Generation: <input type=text name=cgen size=5><p>  <tr><td>Last Name: </td><td><input type="text" name="clast"   size="15"></td></tr>
   <tr><td>Generation: </td><td><input type="text" name="cgen"    size="5"> </td></tr>
   </table>
   
 ID/Student Number: <input type=text name=cstid size=10><p>  <h3>Login Data</h3>
   <p>Username: <input type="text" name="cuname"  size="15"></p>
   <p>Domain:   $domform</p>
   <p>Note: login settings below  will not take effect if the user already exists
   </p><p>
   $krbform
   </p><p>
   $intform
   </p><p>
   $locform
   </p><p>
   
 Group/Section: <input type=text name=csec size=5><p>  <h3>Course Data</h3>
   
 <h3>Login Data</h3>  <p>Group/Section: <input type="text" name="csec" size="5" />
 Username: <input type=text name=cuname size=15><p>  <p>
 Domain: <input type=text size=10 value=$defdom name=cdomain><p>  <!-- Date setting form elements -->
 Note: login settings below  will not take effect if the user already exists<p>  <input type="hidden" name="pres_value"  value='' />
   <input type="hidden" name="pres_type"   value='' />
 <input type=radio name=login value=krb onClick="clickkrb(this.form);">  <input type="hidden" name="pres_marker" value='' />
 Kerberos authenticated with domain  <input type="hidden" name="startdate"   value='$today'    />
 <input type=text size=10 name=krbdom onChange="setkrb(this.form);"><p>  <input type="hidden" name="enddate"     value='$halfyear' />
 <input type=radio name=login value=int onClick="clickint(this.form);">   </p><p>
 Internally authenticated (with initial password   
 <input type=text size=10 name=intpwd onChange="setint(this.form);">)  
 <p>  
 <input type=radio name=login value=loc onClick="clickloc(this.form);" />  
 Local Authentication with argument  
 <input type=text size=10 name=locarg onChange="setloc(this.form);" />  
 </p>  
 <h3>Starting and Ending Dates</h3>  
 <input type="hidden" value='' name="pres_value">  
 <input type="hidden" value='' name="pres_type">  
 <input type="hidden" value='' name="pres_marker">  
 <input type="hidden" value='$today' name=startdate>  
 <input type="hidden" value='$halfyear' name=enddate>  
 <a   <a 
  href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"   href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"
 >Set Starting Date</a><p>  >Set Starting Date</a>
   </p><p>
 <a   <a 
  href="javascript:pjump('date_end','Enrollment Ending Date',document.studentform.enddate.value,'end','studentform.pres','dateset');"   href="javascript:pjump('date_end','Enrollment Ending Date',document.studentform.enddate.value,'end','studentform.pres','dateset');"
 >Set Ending Date</a><p>  >Set Ending Date</a>
   </p>
 <h3>ID/Student Number</h3>  <h3>ID/Student Number</h3>
 <input type=checkbox name=forceid value=yes>   <p>
   ID/Student Number: <input type="text" name="cstid" size="10">
   </p><p>
   <input type="checkbox" name="forceid" value="yes"> 
 Disable ID/Student Number Safeguard and Force Change of Conflicting IDs  Disable ID/Student Number Safeguard and Force Change of Conflicting IDs
 (only do if you know what you are doing)<p>  (only do if you know what you are doing)
 <input type=button onClick="verify(this.form)" value="Enroll as student"><br>  </p><p>
 <input type=hidden name=phase value=five>  <input type="button" onClick="verify(this.form)" value="Enroll as student">
 ENDSENROLL  </p>
   END
       return;
   }
   
   # =================================================== get the current classlist
   sub get_current_classlist {
       my $r = shift;
       # Call DownloadClasslist
       my $cid = $ENV{'request.course.id'};
       my $c = $r->connection;
       my $classlisthash = &Apache::loncoursedata::DownloadClasslist
           ($cid,'Not downloaded',$c);
       # Call ProcessClasslist
       my %cache;
       my @students = &Apache::loncoursedata::ProcessClasslist(\%cache,
                                                               $classlisthash,
                                                               $cid,$c);
       return (\@students,\%cache);
 }  }
   
 # ========================================================= Menu Phase Two Drop  # ========================================================= Menu Phase Two Drop
   sub print_drop_menu {
       my $r=shift;
       $r->print("<h3>Drop Students</h3>");
       my $cid=$ENV{'request.course.id'};
       my ($student_array,$student_data)=&get_current_classlist($r);
       if (! scalar(@$student_array)) {
           $r->print("There are no students currently enrolled.\n");
           return;
       }
       # Print out the available choices
       &show_drop_list($student_array,$student_data,$r);
       return;
   }
   
 sub menu_phase_two_drop {  # ============================================== view classlist
   sub print_html_classlist {
     my $r=shift;      my $r=shift;
       $r->print(<<END);
   <p>
   <font size="+1">Current Classlist</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
   <font size="+1"><a href="/adm/dropadd?action=classlist&state=csv">CSV format</a></font>
   </p>
   END
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
                  my $classlst=&Apache::lonnet::reply      my ($student_array,$student_data)=&get_current_classlist($r);
                  ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.      if (! scalar(@$student_array)) {
                   $ENV{'course.'.$cid.'.num'}.':classlist',          $r->print("There are no students currently enrolled.\n");
                   $ENV{'course.'.$cid.'.home'});      } else {
                  my %currentlist=();          # Print out the available choices
                  my $now=time;          if ($ENV{'form.action'} eq 'modifystudent') {
                  unless ($classlst=~/^error\:/) {              &show_class_list($r,'view','modify',$student_array,$student_data);
                      foreach (split(/\&/,$classlst)) {          } else {
                         my ($name,$value)=split(/\=/,$_);              &show_class_list($r,'view','aboutme',$student_array,$student_data);
                         my ($end,$start)=split(/\:/,          }
                                             &Apache::lonnet::unescape($value));      }
                         my $active=1;  }
                         if (($end) && ($now>$end)) { $active=0; }  
                         if ($active) {  # ============================================== view classlist
            $currentlist{&Apache::lonnet::unescape($name)}=1;  sub print_csv_classlist {
                         }      my $r=shift;
                      }      my $cid=$ENV{'request.course.id'};
 # ----------------------------------------------------------- Print out choices      my ($student_array,$student_data)=&get_current_classlist($r);
                      &show_drop_list($r,%currentlist);      if (! scalar(@$student_array)) {
          } else {          $r->print("There are no students currently enrolled.\n");
                      $r->print(      } else {
                   '<font color=red><h3>Could not access classlist: '.$classlst.          &show_class_list($r,'csv','nolink',$student_array,$student_data);
                   '</h3></font>');      }
                  }  
 }  }
   
 # =================================================== Show student list to drop  # =================================================== Show student list to drop
   sub show_class_list {
       my ($r,$mode,$linkto,$students,$student_data)=@_;
       my $cid=$ENV{'request.course.id'};
       # Print out header 
       if ($mode eq 'view') {
           if ($linkto eq 'aboutme') {
               $r->print('Select a user name to view the users page.');
           } elsif ($linkto eq 'modify') {
               $r->print('Select a user name to modify the students information');
           }
           $r->print(<<END);
   <p>
   <table border=2>
   <tr><th>username</th><th>domain</th><th>ID</th>
       <th>student name</th><th>section</th></tr>
   END
       } elsif ($mode eq 'csv') {
           $r->print('"'.join('","',("username","domain","ID","student name",
                                     "section")).'"'."\n");
       }
       foreach my $student (@$students) {
           my $username = $student_data->{$student.':username'};
           my $domain   = $student_data->{$student.':domain'};
           my $section  = $student_data->{$student.':section'};
           my $name     = $student_data->{$student.':fullname'};
           my $status   = $student_data->{$student.':Status'};
           my $id       = $student_data->{$student.':id'};
           next if ($status ne 'Active');
           if ($mode eq 'view') {
               $r->print("<tr>\n    <td>\n        ");
               if ($linkto eq 'nothing') {
                   $r->print($username);
               } elsif ($linkto eq 'aboutme') {
                   $r->print(&Apache::loncommon::aboutmewrapper($username,
                                                                $username,
                                                                $domain));
               } elsif ($linkto eq 'modify') {
                   $r->print('<a href="/adm/dropadd?action=modifystudent'.
                             '&state=selected'.'&sname='.$username.
                             '&sdom='.$domain.'">'.$username."</a>\n");
               }
               $r->print(<<"END");
       </td>
       <td>$domain</td>
       <td>$id</td>
       <td>$name</td>
       <td>$section</td>
   </tr>
   END
           } elsif ($mode eq 'csv') {
               # no need to bother with $linkto
               my @line = ();
               foreach ($username,$domain,$id,$name,$section) {
                   push @line,&Apache::loncommon::csv_translate($_);
               }
               my $tmp = $";
               $" = '","';
               $r->print("\"@line\"\n");
               $" = $tmp;
           }
       }
       $r->print('</table><br>') if ($mode eq 'view');
   }
   
   
   #
   # print out form for modification of a single students data
   #
   sub print_modify_student_form {
       my $r = shift();
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['sdom','sname']);
       
       my $sname = $ENV{'form.sname'};
       my $sdom  = $ENV{'form.sdom'};
       # determine the students name information
       my %info=&Apache::lonnet::get('environment',
                                     ['firstname','middlename',
                                      'lastname','generation'],
                                     $sdom, $sname);
       my ($tmp) = keys(%info);
       if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
           $r->print('<font color="#ff0000" size="+2">Error</font>'.
                     '<p>'.
                     'Unable to retrieve environment data for '.$sname.
                     'in domain '.$sdom.'</p><p>'.
                     'Please contact your LON-CAPA administrator '.
                     'regarding this situation.</p></body></html>');
           return;
       }
       # determine the students starting and ending times and section
       my ($starttime,$endtime,$section) = &get_enrollment_data($sname,$sdom);
       # Deal with date forms
       my $startdateform = &Apache::lonhtmlcommon::date_setter('studentform',
                                                               'startdate',
                                                               $starttime);
       my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',
                                                             'enddate',
                                                             $endtime);
       # Make sure student is enrolled in course    
       $r->print(<<END);
   <input type="hidden" name="slogin"  value="$sname"  />
   <input type="hidden" name="sdomain" value="$sdom" />
   <input type="hidden" name="action"  value="modifystudent" />
   <input type="hidden" name="state"  value="done" />
   <h2>Modify Enrollment for $info{'firstname'} $info{'middlename'} 
   $info{'lastname'} $info{'generation'}, $sname\@$sdom</h2>
   <p>
   <b>Student Name</b>
   <table>
   <tr><th>First</th><th>Middle</th><th>Last</th><th>Generation</th></tr>
   <tr><td>
   <input type="text" name="firstname"  value="$info{'firstname'}"  /></td><td>
   <input type="text" name="middlename" value="$info{'middlename'}" /></td><td>
   <input type="text" name="lastname"   value="$info{'lastname'}"   /></td><td>
   <input type="text" name="generation" value="$info{'generation'}" /></td></tr>
   </table>
   </p><p>
   <b>Section</b>: <input type="text" name="section" value="$section" size="4"/>
   </p><p>
   <table>
   <tr><td align="right"><b>Starting Date:</b></td><td>$startdateform</td></tr>
   <tr><td align="right"><b>Ending Date:</b></td><td>$enddateform</td></tr>
   </table>
   </p>
   <input type="submit" value="Submit Modifications" />
   </body></html>
   END
       return;
   }
   
   #
   # modify a single students section 
   #
   sub modify_single_student {
       my $r = shift;
       # make sure user can modify student data?
       my $firstname  = $ENV{'form.firstname'};
       my $middlename = $ENV{'form.middlename'};
       my $lastname   = $ENV{'form.lastname'};
       my $generation = $ENV{'form.generation'};
       my $section    = $ENV{'form.section'};
       my $courseid   = $ENV{'request.course.id'};
       my $sname      = $ENV{'form.slogin'};
       my $sdom       = $ENV{'form.sdomain'};
       my $starttime = &Apache::lonhtmlcommon::get_date_from_form('startdate',
                                                                  time);
       my $endtime   = &Apache::lonhtmlcommon::get_date_from_form('enddate',
                                                                  time);
       my $displayable_starttime = localtime($starttime);
       my $displayable_endtime   = localtime($endtime);
       # talk to the user about what we are going to do
       $r->print(<<END);
   Modifying data for user: $sname \@ $sdom <br />
   <h3>Student Information</h3>
   <table>
   <tr><td>First name  </td><td> $firstname  </td></tr>
   <tr><td>Middle name </td><td> $middlename </td></tr>
   <tr><td>Last name   </td><td> $lastname   </td></tr>
   <tr><td>Generation  </td><td> $generation </td></tr>
   </table>
   <h3>Role Information</h3>
   <table>
   <tr><td>Section     </td><td> $section    </td></tr>
   <tr><td>Start Time  </td><td> $displayable_starttime </td></tr>
   <tr><td>End Time    </td><td> $displayable_endtime   </td></tr>
   </table>
   END
       # send request(s) to modify data
       my $roleresults = 'refused';
       #my $roleresults = &Apache::lonnet::assignrole($sdom,$sname,
       #                                              $courseid.'/'.$section,
       #                                              'st',
       #                                              $endtime,$starttime);
       if ($roleresults =~/refused/) {
           $r->print("Your request to change the role information for this ".
                     "student was refused.");
       } elsif ($roleresults !~ /ok/) {
           $r->print("An error occurred during the attempt to change the role".
                     " information for this student.  The error reported was ".
                     $roleresults);
       } else { # everything is okay!
           $r->print("Student role updated successfully.");
       }
       # 
       $r->print(<<END);
   </body></html>
   END
       return;
   }
   
   sub get_enrollment_data {
       my ($sname,$sdomain) = @_;
       my $courseid = $ENV{'request.course.id'};
       $courseid =~ s:_:/:g;
       my %roles = &Apache::lonnet::dump('roles',$sdomain,$sname);
       my ($tmp) = keys(%roles);
       # Bail out if we were unable to get the students roles
       return "666" if ($tmp =~ /^(con_lost|error|no_such_host)/i);
       # Go through the roles looking for enrollment in this course
       my ($end,$start) = (undef,undef);
       my $section = '';
       my $count = scalar(keys(%roles));
       while (my ($course,$role) = each(%roles)) {
           &Apache::lonnet::logthis('course = '.$course.' role = '.$role);
           if ($course=~ /^\/$courseid\/*\s*(\w+)*_st$/ ) {
               #
               # Get active role
               $section=$1;
               (undef,$end,$start)=split(/\_/,$role);
               my $now=time;
               my $notactive=0;
               if ($start) {
                   if ($now<$start) { $notactive=1; }
               }
               if ($end) {
                   if ($now>$end) { $notactive=1; }
               } 
               unless ($notactive) { return ($start,$end,$section); }
           }
       }
       return ($start,$end,$section);
   }
   
   # =================================================== Show student list to drop
 sub show_drop_list {  sub show_drop_list {
     my ($r,%currentlist)=@_;      my ($students,$student_data,$r)=@_;
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
       $r->print(<<'END');
   <input type="hidden" name="action" value="drop" />
   <input type="hidden" name="state"  value="done" />
   <script>
   function checkAll(field) {
       for (i = 0; i < field.length; i++)
           field[i].checked = true ;
   }
   
     $r->print('<input type=hidden name=phase value=four>');  function uncheckAll(field) {
                      $r->print('<table border=2>');      for (i = 0; i < field.length; i++)
                      foreach (sort keys %currentlist) {          field[i].checked = false ;
                          my ($sname,$sdom)=split(/\:/,$_);  }
                          my %reply=&Apache::lonnet::idrget($sdom,$sname);  </script>
                          my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);  <p>
                          my @reply=split(/[\&\=]/,&Apache::lonnet::reply(  <input type="hidden" name="phase" value="four">
                            'get:'.$sdom.':'.$sname.  <table border=2>
       ':environment:firstname&middlename&lastname&generation',  <tr><th>&nbsp;</th><th>username</th><th>domain</th>
                            &Apache::lonnet::homeserver($sname,$sdom)));      <th>ID</th><th>student name</th><th>section</th></tr>
   $r->print(  END
                   '<tr><td><input type=checkbox name="drop:'.$_.'"></td><td>'.      foreach my $student (@$students) {
                                    $sname.'</td><td>'.$sdom.'</td><td>'.          my $username = $student_data->{$student.':username'};
                                    $reply{$sname}.'</td><td>'.          my $domain   = $student_data->{$student.':domain'};
                                    &Apache::lonnet::unescape($reply[2]).' '.          my $section  = $student_data->{$student.':section'};
                                    &Apache::lonnet::unescape($reply[3]).', '.          my $name     = $student_data->{$student.':fullname'};
                                    &Apache::lonnet::unescape($reply[0]).' '.          my $status   = $student_data->{$student.':Status'};
                                    &Apache::lonnet::unescape($reply[1]).          my $id       = $student_data->{$student.':id'};
                                    '</td><td>'.          next if ($status ne 'Active');
                                    $ssec."</td></tr>\n");          #
                      }          $r->print(<<"END");
                      $r->print('</table><br>');  <tr>
                      $r->print('<input type=submit value="Drop Students">');      <td><input type="checkbox" name="droplist" value="$student"></td>
       <td>$username</td>
       <td>$domain</td>
       <td>$id</td>
       <td>$name</td>
       <td>$section</td>
   </tr>
   END
       }
       $r->print('</table><br>');
       $r->print(<<"END");
   </p><p>
   <input type="button" value="check all" onclick="javascript:checkAll(document.studentform.droplist)"> &nbsp;
   <input type="button" value="uncheck all" onclick="javascript:uncheckAll(document.studentform.droplist)"> 
   <p><input type=submit value="Drop Students"></p>
   END
       return;
 }  }
   
 # ================================================= Drop/Add from uploaded file  #
   # Print out the initial form to get the courselist file
   #
   sub print_first_courselist_upload_form {
       my $r=shift;
       my $upfile_select=&Apache::loncommon::upfile_select_html();
       my $create_classlist_help = 
    &Apache::loncommon::help_open_topic("Course_Create_Class_List",
              "How do I create a class list from a spreadsheet");
       my $create_csv_help =
    &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
              "How do I create a CSV file from a spreadsheet");
       $r->print(<<ENDUPFORM);
   <input type=hidden name=phase value=two>
   <h3>Upload a courselist</h3>
   $upfile_select
   <p>
   <input type=submit name="fileupload" value="Upload Courselist">
   <input type="hidden" name="action" value="upload" />
   <input type="hidden" name="state"  value="got_file" />
   </p>
   $create_classlist_help <br />
   $create_csv_help
   </body></html>
   ENDUPFORM
       return;
   }
   
   # ================================================= Drop/Add from uploaded file
 sub upfile_drop_add {  sub upfile_drop_add {
     my $r=shift;      my $r=shift;
   
     &Apache::loncommon::load_tmp_file($r);      &Apache::loncommon::load_tmp_file($r);
     my @studentdata=&Apache::loncommon::upfile_record_sep();      my @studentdata=&Apache::loncommon::upfile_record_sep();
       my @keyfields = split(/\,/,$ENV{'form.keyfields'});
     my @keyfields=split(/\,/,$ENV{'form.keyfields'});      my $cid = $ENV{'request.course.id'};
     my $cid=$ENV{'request.course.id'};      my %fields=();
              my %fields=();      for (my $i=0; $i<=$ENV{'form.nfields'}; $i++) {
              for (my $i=0;$i<=$ENV{'form.nfields'};$i++) {          if ($ENV{'form.upfile_associate'} eq 'reverse') {
  if ($ENV{'form.upfile_associate'} eq 'reverse') {              if ($ENV{'form.f'.$i} ne 'none') {
      if ($ENV{'form.f'.$i} ne 'none') {                  $fields{$keyfields[$i]}=$ENV{'form.f'.$i};
  $fields{$keyfields[$i]}=$ENV{'form.f'.$i};              }
      }          } else {
  } else {              $fields{$ENV{'form.f'.$i}}=$keyfields[$i];
      $fields{$ENV{'form.f'.$i}}=$keyfields[$i];          }
  }      }
              }      #
              my $startdate=$ENV{'form.startdate'};      my $startdate = $ENV{'form.startdate'};
              my $enddate=$ENV{'form.enddate'};      my $enddate   = $ENV{'form.enddate'};
              if ($startdate=~/\D/) { $startdate=''; }      if ($startdate=~/\D/) { $startdate=''; }
              if ($enddate=~/\D/) { $enddate=''; }      if ($enddate=~/\D/)   { $enddate=''; }
              my $domain=$ENV{'form.lcdomain'};      # Determine domain and desired host (home server)
              my $amode='';      my $domain=$ENV{'form.lcdomain'};
              my $genpwd='';      my $desiredhost = $ENV{'form.lcserver'};
              if ($ENV{'form.login'} eq 'krb') {      if (lc($desiredhost) eq 'default') {
                  $amode='krb4';          $desiredhost = undef;
                  $genpwd=$ENV{'form.krbdom'};      } else {
              } elsif ($ENV{'form.login'} eq 'int') {          my %home_servers = &Apache::loncommon::get_library_servers($domain);
                  $amode='internal';          if (! exists($home_servers{$desiredhost})) {
                  if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {              $r->print('<font color="#ff0000">Error:</font>'.
      $genpwd=$ENV{'form.intpwd'};                        'Invalid home server specified');
                  }              return;
              } elsif ($ENV{'form.login'} eq 'loc') {          }
  $amode='localauth';      }
  if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {      # Determine authentication mechanism
      $genpwd=$ENV{'form.locarg'};      my $amode  = '';
                  }      my $genpwd = '';
      }      if ($ENV{'form.login'} eq 'krb') {
              unless (($domain=~/\W/) || ($amode eq '')) {          $amode='krb';
               $r->print('<h3>Enrolling Students</h3>');   $amode.=$ENV{'form.krbver'};
               my $count=0;          $genpwd=$ENV{'form.krbarg'};
               my $flushc=0;      } elsif ($ENV{'form.login'} eq 'int') {
               my %student=();          $amode='internal';
 # ----------------------------------------------------------- Get new classlist          if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) {
 # --------------------------------------------------------- Enroll new students              $genpwd=$ENV{'form.intarg'};
       foreach (@studentdata) {          }
   my %entries=&Apache::loncommon::record_sep($_);      } elsif ($ENV{'form.login'} eq 'loc') {
           $amode='localauth';
                 unless (($entries{$fields{'username'}} eq '') ||          if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
                         (!defined($entries{$fields{'username'}}))) {              $genpwd=$ENV{'form.locarg'};
                   my $fname=''; my $mname=''; my $lname=''; my $gen='';          }
                   if (defined($fields{'names'})) {      }
       ($lname,$fname,$mname)=      unless (($domain=~/\W/) || ($amode eq '')) {
             ($entries{$fields{'names'}}=~/([^\,]+)\,\s*(\w+)\s*(.*)$/);          #######################################
                   } else {          ##         Enroll Students           ##
                       if (defined($fields{'fname'})) {          #######################################
          $fname=$entries{$fields{'fname'}};          $r->print('<h3>Enrolling Students</h3>');
       }          my $count=0;
                       if (defined($fields{'mname'})) {          my $flushc=0;
          $mname=$entries{$fields{'mname'}};          my %student=();
       }          # Get new classlist
                       if (defined($fields{'lname'})) {          foreach (@studentdata) {
          $lname=$entries{$fields{'lname'}};              my %entries=&Apache::loncommon::record_sep($_);
       }              # Determine student name
                       if (defined($fields{'gen'})) {              unless (($entries{$fields{'username'}} eq '') ||
          $gen=$entries{$fields{'gen'}};                      (!defined($entries{$fields{'username'}}))) {
       }                  my ($fname, $mname, $lname,$gen) = ('','','','');
                   }                  if (defined($fields{'names'})) {
                   if ($entries{$fields{'username'}}=~/\W/) {                      ($lname,$fname,$mname)=($entries{$fields{'names'}}=~
                      $r->print('<p><b>Unacceptable username: '.                                              /([^\,]+)\,\s*(\w+)\s*(.*)$/);
                   } else {
                       if (defined($fields{'fname'})) {
                           $fname=$entries{$fields{'fname'}};
                       }
                       if (defined($fields{'mname'})) {
                           $mname=$entries{$fields{'mname'}};
                       }
                       if (defined($fields{'lname'})) {
                           $lname=$entries{$fields{'lname'}};
                       }
                       if (defined($fields{'gen'})) {
                           $gen=$entries{$fields{'gen'}};
                       }
                   }
                   if ($entries{$fields{'username'}}=~/\W/) {
                       $r->print('<p><b>Unacceptable username: '.
                               $entries{$fields{'username'}}.' for user '.                                $entries{$fields{'username'}}.' for user '.
                               $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');                                $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');
   } else {                  } else {
                       my $sec='';                      # determine section number
                       my $username=$entries{$fields{'username'}};                      my $sec='';
                       if (defined($fields{'sec'})) {                      my $username=$entries{$fields{'username'}};
                          if (defined($entries{$fields{'sec'}})) {                      if (defined($fields{'sec'})) {
      $sec=$entries{$fields{'sec'}};                          if (defined($entries{$fields{'sec'}})) {
                          }                              $sec=$entries{$fields{'sec'}};
                       }                          }
                       my $id='';                      }
                       if (defined($fields{'id'})) {                      # determine student id number
                          if (defined($entries{$fields{'id'}})) {                      my $id='';
      $id=$entries{$fields{'id'}};                      if (defined($fields{'id'})) {
                          }                          if (defined($entries{$fields{'id'}})) {
                          $id=~tr/A-Z/a-z/;                              $id=$entries{$fields{'id'}};
                       }                          }
                       my $password='';                          $id=~tr/A-Z/a-z/;
                       if ($genpwd) {                       }
                          $password=$genpwd;                       # determine student password
       } else {                      my $password='';
                          if (defined($fields{'ipwd'})) {                      if ($genpwd) { 
      if ($entries{$fields{'ipwd'}}) {                          $password=$genpwd; 
  $password=$entries{$fields{'ipwd'}};                      } else {
                              }                          if (defined($fields{'ipwd'})) {
                          }                              if ($entries{$fields{'ipwd'}}) {
                       }                                  $password=$entries{$fields{'ipwd'}};
                       if ($password) {                              }
  &dropstudent($domain,$username,$cid,$sec);                          }
                          my $reply=&Apache::lonnet::modifystudent(                      }
                           $domain,$username,$id,$amode,$password,                      if ($password) {
    $fname,$mname,$lname,$gen,$sec,$enddate,$startdate,                          &modifystudent($domain,$username,$cid,$sec,
                            $ENV{'form.forceid'});                                         $desiredhost);
                          unless ($reply eq 'ok') {                          my $reply=&Apache::lonnet::modifystudent
                             $r->print(                              ($domain,$username,$id,$amode,$password,
                              "<p><b>Error enrolling $username: $reply</b><p>");                               $fname,$mname,$lname,$gen,$sec,$enddate,
                                $startdate,$ENV{'form.forceid'},$desiredhost);
                           if ($reply ne 'ok') {
                               $r->print('<p><b>'.
                                         'Error enrolling '.$username.': '.
                                         $reply.'</b></p>');
           } else {            } else {
                             $count++; $flushc++;                              $count++; $flushc++;
                             $student{$username}=1;                              $student{$username}=1;
Line 833  sub upfile_drop_add { Line 1236  sub upfile_drop_add {
                                 $flushc=0;                                  $flushc=0;
                             }                              }
                         }                          }
                      } else {                      } else {
                             $r->print(                          $r->print("<p><b>No password for $username</b><p>");
                              "<p><b>No password for $username</b><p>");                      }
                      }                  }
                   }              }
                  }                           } # end of foreach (@studentdata)
               }          $r->print('<p>Processed Students: '.$count);
               $r->print('<p>Processed Students: '.$count);          #####################################
 # --------------------------------------------------------------- Drop students          #           Drop students           #
               if ($ENV{'form.fullup'} eq 'yes') {          #####################################
  $r->print('<h3>Dropping Students</h3>');          if ($ENV{'form.fullup'} eq 'yes') {
 # ------------------------------------------------------- Get current classlist              $r->print('<h3>Dropping Students</h3>');
                  my $classlst=&Apache::lonnet::reply              #  Get current classlist
                  ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.              my ($error,%currentlist)=&get_current_classlist($r);
                   $ENV{'course.'.$cid.'.num'}.':classlist',              if (defined($error)) {
                   $ENV{'course.'.$cid.'.home'});                  $r->print('<pre>ERROR:$error</pre>');
                  my %currentlist=();              }
                  my $now=time;              if (defined(%currentlist)) {
                  unless ($classlst=~/^error\:/) {                  # Drop the students
                      foreach (split(/\&/,$classlst)) {                  foreach (@studentdata) {
                         my ($name,$value)=split(/\=/,$_);                      my %entries=&Apache::loncommon::record_sep($_);
                         my ($end,$start)=split(/\:/,                      unless (($entries{$fields{'username'}} eq '') ||
                                             &Apache::lonnet::unescape($value));                              (!defined($entries{$fields{'username'}}))) {
                         my $active=1;                          delete($currentlist{$entries{$fields{'username'}}.
                         if (($end) && ($now>$end)) { $active=0; }                                                  ':'.$domain});
                         if ($active) {                      }
            $currentlist{&Apache::lonnet::unescape($name)}=1;                  }
                         }                  # Print out list of dropped students
                      }                  &show_drop_list($r,%currentlist);
 # ------------------------------------------------ Now got up-to-date classlist              } else {
                      foreach (@studentdata) {                  $r->print("There are no students currently enrolled.\n");
                  my %entries=&Apache::loncommon::record_sep($_);              }
                         unless (($entries{$fields{'username'}} eq '') ||          }
                           (!defined($entries{$fields{'username'}}))) {      } # end of unless
    delete($currentlist{  }
                             $entries{$fields{'username'}}.':'.  
                             $domain});  ###################################################################
         }  ###################################################################
                      }  
 # ----------------------------------------------------------- Print out choices  
                      &show_drop_list($r,%currentlist);  
          } else {  
                      $r->print(  
                   '<font color=red><h3>Could not access classlist: '.$classlst.  
                   '</h3></font>');  
                  }  
      }  
 # ------------------------------------------------------------------------ Done  
   
   }  =pod
   
   =item &drop_students
   
   Inputs: \@droplist, a pointer to an array of students to drop.
   Students should be in format of studentname:studentdomain
   
   Returns: $errors, a string describing any errors encountered.
   $successes, a string describing the successful dropping of students.
   
   =cut
   
   ###################################################################
   ###################################################################
   sub drop_students {
       my @droplist = @{shift()};
       my $courseid = $ENV{'request.course.id'};
       my $successes = '';
       my $errors = '';
       foreach (@droplist) {
           my ($sname,$sdom)=split(/:/,$_);
           my $result = &drop_student($sname,$sdom,$courseid);
           if ($result !~ /ok/) {
               $errors .= "Error dropping $sname\@$sdom: $result\n";
           } else {
               $successes .= "Dropped $sname\@$sdom\n";
           }
       }
       return ($errors,$successes);
 }  }
   ###################################################################
   ###################################################################
   
 # ================================================================== Phase four  
   
   # ================================================================== Phase four
 sub drop_student_list {  sub drop_student_list {
     my $r=shift;      my $r=shift;
     my $count=0;      my $count=0;
     foreach (keys %ENV) {      my @droplist;
  if ($_=~/^form\.drop\:/) {      if (ref($ENV{'form.droplist'})) {
     my ($dummy,$uname,$udom)=split(/\:/,$_);          @droplist = @{$ENV{'form.droplist'}};
             &dropstudent($udom,$uname,$ENV{'request.course.id'});      } else {
           @droplist = ($ENV{'form.droplist'});
       }
       foreach (@droplist) {
           my ($uname,$udom)=split(/\:/,$_);
           my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});
           if ($result eq 'ok' || $result eq 'ok:') {
             $r->print('Dropped '.$uname.' at '.$udom.'<br>');              $r->print('Dropped '.$uname.' at '.$udom.'<br>');
             $count++;          } else {
               $r->print('Error dropping '.$uname.' at '.$udom.': '.$result.
                         '<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.');
 }  }
   
 # ================================================================ Main Handler  ###################################################################
   ###################################################################
   
 sub handler {  =pod
    my $r=shift;  
    $Apache::lonxml::debug=1;  
    if ($r->header_only) {  
       $r->content_type('text/html');  
       $r->send_http_header;  
       return OK;  
    }  
   
 # ----------------------------------------------------- Needs to be in a course  =item &handler
   
    if (($ENV{'request.course.fn'}) &&   The typical handler you see in all these modules.  Takes $r, the
        (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {  http request, as an argument.  
   
   The response to the request is governed by two form variables
   
    form.action      form.state     response
    ---------------------------------------------------
    undefined        undefined      print main menu
    upload           undefined      print courselist upload menu
    upload           got_file       deal with uploaded file,
                                    print the upload managing menu
    upload           enrolling      enroll students based on upload
    drop             undefined      print the classlist ready to drop
    drop             done           drop the selected students
    enrollstudent    undefined      print single student enroll menu
    enrollstudent    enrolling      enroll student
    classlist        undefined      print html classlist
    classlist        csv            print csv classlist
    modifystudent    undefined      print classlist to select student to modify
    modifystudent    selected       print modify student menu
    modifystudent    done           make modifications to student record
   
 # ------------------------------------------------------------------ Start page  =cut
       $r->content_type('text/html');  
       $r->send_http_header;  
       &header($r);  
   
 # --------------------------------------------------- Phase one, initial screen  
       unless ($ENV{'form.phase'}) {  
   &menu_phase_one($r);  
       }  
 # ------------------------------------------------------------------- Phase two  
   
       if ($ENV{'form.associate'} eq 'Reverse Association') {  ###################################################################
  $ENV{'form.phase'} = 'two';  ###################################################################
  if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {  sub handler {
   $ENV{'form.upfile_associate'} = 'reverse';      my $r=shift;
  } else {      if ($r->header_only) {
   $ENV{'form.upfile_associate'} = 'forward';          $r->content_type('text/html');
  }          $r->send_http_header;
       }          return OK;
       if ($ENV{'form.phase'} eq 'two') {      }
  if ($ENV{'form.fileupload'}) {      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
      &menu_phase_two_upload($r);                                              ['action','state']);
          } elsif ($ENV{'form.enroll'}) {      #  Needs to be in a course
              &menu_phase_two_enroll($r);      if (! (($ENV{'request.course.fn'}) &&
          } elsif ($ENV{'form.drop'}) {            (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'})))) {
              &menu_phase_two_drop($r);          # Not in a course, or not allowed to modify parms
          }          $ENV{'user.error.msg'}=
       }              "/adm/dropadd:cst:0:0:Cannot drop or add students";
           return HTTP_NOT_ACCEPTABLE; 
       }
       #
       # Only output the header information if they did not request csv format
 # ----------------------------------------------------------------- Phase three      #
       if ($ENV{'form.phase'} eq 'three') {      if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
   if ($ENV{'form.datatoken'}) {          $r->content_type('text/csv');
       &upfile_drop_add($r);      } else {
           }          # Start page
       }          $r->content_type('text/html');
 # ------------------------------------------------------------------ Phase four          $r->send_http_header;
       if ($ENV{'form.phase'} eq 'four') {          $r->print(&header());
   &drop_student_list($r);      }
       }      #
 # ------------------------------------------------------------------ Phase five      # Main switch on form.action and form.state, as appropriate
       if ($ENV{'form.phase'} eq 'five') {      if (! exists($ENV{'form.action'})) {
   &enroll_single_student($r);          &print_main_menu($r);
       }      } elsif ($ENV{'form.action'} eq 'upload') {
 # ------------------------------------------------------------------------- End          if (! exists($ENV{'form.state'})) {
       $r->print('</form></body></html>');              &print_first_courselist_upload_form($r);            
    } else {          } elsif ($ENV{'form.state'} eq 'got_file') {
 # ----------------------------- Not in a course, or not allowed to modify parms              &print_upload_manager_form($r);
       $ENV{'user.error.msg'}=          } elsif ($ENV{'form.state'} eq 'enrolling') {
         "/adm/dropadd:cst:0:0:Cannot drop or add students";              if ($ENV{'form.datatoken'}) {
       return HTTP_NOT_ACCEPTABLE;                   &upfile_drop_add($r);
    }              } else {
    return OK;                  # Hmmm, this is an error
               }
           } else {
               &print_first_courselist_upload_form($r);            
           }
       } elsif ($ENV{'form.action'} eq 'drop') {
           if (! exists($ENV{'form.state'})) {
               &print_drop_menu($r);
           } elsif ($ENV{'form.state'} eq 'done') {
               &drop_student_list($r);
           } else {
               &menu_phase_two_drop($r);
           }
       } elsif ($ENV{'form.action'} eq 'enrollstudent') {
           if (! exists($ENV{'form.state'})) {
               &print_enroll_single_student_form($r);
           } elsif ($ENV{'form.state'} eq 'enrolling') {
               &enroll_single_student($r);
           } else {
               &print_enroll_single_student_form($r);
           }
       } elsif ($ENV{'form.action'} eq 'classlist') {
           if (! exists($ENV{'form.state'})) {
               &print_html_classlist($r);
           } elsif ($ENV{'form.state'} eq 'csv') {
               &print_csv_classlist($r);
           } else {
               &print_html_classlist($r);
           }
       } elsif ($ENV{'form.action'} eq 'modifystudent') {
           if (! exists($ENV{'form.state'})) {
               &print_html_classlist($r);
           } elsif ($ENV{'form.state'} eq 'selected') {
               &print_modify_student_form($r);
           } elsif ($ENV{'form.state'} eq 'done') {
               &modify_single_student($r);
           } else {
               &print_html_classlist($r);
           }        
       } else {
           # We should not end up here, but I guess it is possible
           &Apache::lonnet::logthis("Undetermined state in londropadd.pm.  ".
                                    "form.action = ".$ENV{'form.action'}.
                                    "Someone should fix this.");
           &print_main_menu($r);
       }
       #
       # Finish up
       if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
           $r->print("\n");
       } else {
           $r->print('</form></body></html>');
       }
       return OK;
 }  }
   
   ###################################################################
   ###################################################################
   
 1;  1;
 __END__  __END__
   
   
Removed from v.1.24  
changed lines
  Added in v.1.51

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