[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.23 and 1.27

version 1.23, 2002/04/04 20:41:17 version 1.27, 2002/04/17 13:55:35
Line 52 Line 52
 package Apache::londropadd;  package Apache::londropadd;
   
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet();
   use Apache::loncommon();
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
   
 # ================================================================ Print header  # ================================================================ Print header
   
 sub header {  sub header {
     my $r=shift;      return(<<ENDHEAD);
     $r->print(<<ENDHEAD);  
 <html>  <html>
 <head>  <head>
 <title>LON-CAPA Student Drop/Add</title>  <title>LON-CAPA Student Drop/Add</title>
Line 73  action="/adm/dropadd" name="studentform" Line 73  action="/adm/dropadd" name="studentform"
 ENDHEAD  ENDHEAD
 }  }
   
 # ========================================================= Store uploaded file  
 # needs $ENV{'form.upfile'}  
 # return $datatoken to be put into hidden field  
   
 sub upfile_store {  
     my $r=shift;  
     $ENV{'form.upfile'}=~s/\r/\n/gs;  
     $ENV{'form.upfile'}=~s/\f/\n/gs;  
     $ENV{'form.upfile'}=~s/\n+/\n/gs;  
     $ENV{'form.upfile'}=~s/\n+$//gs;  
         
     my $datatoken=$ENV{'user.name'}.'_'.$ENV{'user.domain'}.  
   '_enroll_'.$ENV{'request.course.id'}.'_'.time.'_'.$$;  
     {  
        my $fh=Apache::File->new('>'.$r->dir_config('lonDaemons').  
                                    '/tmp/'.$datatoken.'.tmp');  
        print $fh $ENV{'form.upfile'};  
     }  
     return $datatoken;  
 }  
   
 # ================================================= Load uploaded file from tmp  
 # needs $ENV{'form.datatoken'}  
 # sets $ENV{'form.upfile'}  
   
 sub load_tmp_file {  
     my $r=shift;  
     my @studentdata=();  
     {  
       my $fh;  
       if ($fh=Apache::File->new($r->dir_config('lonDaemons').  
   '/tmp/'.$ENV{'form.datatoken'}.'.tmp')) {  
      @studentdata=<$fh>;  
       }  
     }  
     $ENV{'form.upfile'}=join('',@studentdata);  
 }  
   
 # ========================================= Separate uploaded file into records  
 # returns array of records  
   
 sub upfile_record_sep {  
     if ($ENV{'form.upfiletype'} eq 'xml') {  
     } else {  
        return split(/\n/,$ENV{'form.upfile'});  
     }  
 }  
   
 # =============================================== Separate a record into fields  
   
 sub record_sep {  
     my $record=shift;  
     my %components=();  
     if ($ENV{'form.upfiletype'} eq 'xml') {  
     } elsif ($ENV{'form.upfiletype'} eq 'space') {  
         my $i=0;  
         foreach (split(/\s+/,$record)) {  
             my $field=$_;  
             $field=~s/^(\"|\')//;  
             $field=~s/(\"|\')$//;  
             $components{$i}=$field;  
             $i++;  
         }  
     } elsif ($ENV{'form.upfiletype'} eq 'tab') {  
         my $i=0;  
         foreach (split(/\t+/,$record)) {  
             my $field=$_;  
             $field=~s/^(\"|\')//;  
             $field=~s/(\"|\')$//;  
             $components{$i}=$field;  
             $i++;  
         }  
     } else {  
         my @allfields=split(/\,/,$record);  
         my $i=0;  
         my $j;  
         for ($j=0;$j<=$#allfields;$j++) {  
             my $field=$allfields[$j];  
             if ($field=~/^\s*(\"|\')/) {  
  my $delimiter=$1;  
                 while (($field!~/$delimiter$/) && ($j<$#allfields)) {  
     $j++;  
     $field.=','.$allfields[$j];  
  }  
                 $field=~s/^\s*$delimiter//;  
                 $field=~s/$delimiter\s*$//;  
             }  
             $components{$i}=$field;  
     $i++;  
         }  
     }  
     return %components;  
 }  
   
 # =========== Drop student from all sections of a course, except optional $csec  # =========== Drop student from all sections of a course, except optional $csec
   sub modifystudent {
 sub dropstudent {      my ($udom,$unam,$courseid,$csec)=@_;
      my ($udom,$unam,$courseid,$csec)=@_;      # if $csec is undefined, drop the student from all the courses matching
      $courseid=~s/\_/\//g;      # this one.  If $csec is defined, drop them from all other sections of 
      $courseid=~s/^(\w)/\/$1/;      # this course and add them to section $csec
      foreach (split(/\&/,      $courseid=~s/\_/\//g;
     &Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',      $courseid=~s/^(\w)/\/$1/;
      &Apache::lonnet::homeserver($unam,$udom)))) {      my %roles = &Apache::lonnet::dump('roles',$udom,$unam);
         my ($key,$value)=split(/\=/,$_);      my ($tmp) = keys(%roles);
         $key=&Apache::lonnet::unescape($key);      # Bail out if we were unable to get the students roles
         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {      return if ($tmp =~ /^(con_lost|error|no_such_host)/i);
           my $section=$1;      # Go through the roles looking for enrollment in this course
           if ($key eq $courseid.'_st') { $section=''; }      foreach my $course (keys(%roles)) {
           if (((!$section) && (!$csec)) || ($section ne $csec)) {          my $value = $roles{$course};
     my ($dummy,$end,$start)=split(/\_/,          if ($course=~/^$courseid(?:\/)*(\w+)*\_st$/) {
                                     &Apache::lonnet::unescape($value));              # We are in this course
             my $now=time;              my $section=$1;
             my $notactive=0;              $section='' if ($course eq $courseid.'_st');
             if ($start) {              if (((!$section) && (!$csec)) || ($section ne $csec)) {
  if ($now<$start) { $notactive=1; }                  my (undef,$end,$start)=split(/\_/,$roles{$course});
             }                  my $now=time;
             if ($end) {                  if (!($start && ($now<$start)) || !($end && ($now>$end))) {
                 if ($now>$end) { $notactive=1; }                      my $reply=&Apache::lonnet::modifystudent
             }                           ($udom,$unam,'','','','','','','',$section,time);
             unless ($notactive) {                  }
                 my $reply=&Apache::lonnet::modifystudent(  
                                    $udom,$unam,'','','',  
            '','','','',$section,time);  
             }              }
   }  
         }          }
     }      }
 }  }
   
 # ============================================================== Menu Phase One  # ============================================================== Menu Phase One
   
 sub menu_phase_one {  sub menu_phase_one {
     my $r=shift;      my $r=shift;
       my $upfile_select=&Apache::loncommon::upfile_select_html();
     $r->print(<<ENDUPFORM);      $r->print(<<ENDUPFORM);
 <input type=hidden name=phase value=two>  <input type=hidden name=phase value=two>
 <hr>  <hr>
 <h3>Upload a courselist</h3>  <h3>Upload a courselist</h3>
 <input type=file name=upfile size=50>  $upfile_select
 <br>Type: <select name=upfiletype>  
 <option value=csv>CSV (comma separated values, spreadsheet)</option>  
 <option value=space>Space separated</option>  
 <option value=tab>Tabulator separated</option>  
 <option value=xml>HTML/XML</option>  
 </select>  
 <p><input type=submit name=fileupload value="Upload Courselist">  <p><input type=submit name=fileupload value="Upload Courselist">
 <hr>  <hr>
 <h3>Enroll a single student</h3>  <h3>Enroll a single student</h3>
Line 227  sub menu_phase_one { Line 123  sub menu_phase_one {
 ENDUPFORM  ENDUPFORM
 }  }
   
   
 sub phase_two_header {  sub phase_two_header {
     my ($r,$datatoken,$distotal,$krbdefdom)=@_;      my ($r,$datatoken,$distotal,$krbdefdom)=@_;
       my $javascript;
       if ($ENV{'form.upfile_associate'} eq 'reverse') {
    $javascript=&phase_two_javascript_reverse_associate();
       } else {
    $javascript=&phase_two_javascript_forward_associate();
       }
       my $javascript_validations=&javascript_validations($krbdefdom);
     $r->print(<<ENDPICK);      $r->print(<<ENDPICK);
 <input type=hidden name=phase value=three>  
 <input type=hidden name=datatoken value="$datatoken">  
 <input type=hidden name=upfiletype value=$ENV{'form.upfiletype'}>  
 <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="hidden" name="phase"      value="three" />
   <input type="hidden" name="datatoken"  value="$datatoken" />
   <input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" />
   <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" />
   <input type="hidden" name="upfile_associate" 
                                          value="$ENV{'form.upfile_associate'}" />
   <hr />
 <script>  <script>
 function verify(vf) {  $javascript
     var founduname=0;  $javascript_validations
     var foundpwd=0;  </script>
     var foundname=0;  ENDPICK
     var foundid=0;  }
     var foundsec=0;  
   sub javascript_validations {
       my ($krbdefdom)=@_;
       return (<<ENDPICK);
   function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) {
     var foundatype=0;      var foundatype=0;
     var tw;  
     var message='';      var message='';
     for (i=0;i<=vf.nfields.value;i++) {  
         tw=eval('vf.f'+i+'.selectedIndex');  
         if (tw==1) { founduname=1; }  
         if ((tw>=2) && (tw<=6)) { foundname=1; }  
         if (tw==7) { foundid=1; }  
         if (tw==8) { foundsec=1; }   
         if (tw==9) { foundpwd=1; }  
     }  
     if (founduname==0) {      if (founduname==0) {
  alert('You need to specify at least the username field');   alert('You need to specify at least the username field');
         return;          return;
Line 307  function verify(vf) { Line 209  function verify(vf) {
     } else {      } else {
       pclose();        pclose();
       vf.submit();        vf.submit();
     }         }
 }  
   
 function flip(vf,tf) {  
    var nw=eval('vf.f'+tf+'.selectedIndex');  
    var i;  
    for (i=0;i<=vf.nfields.value;i++) {  
       if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {  
           eval('vf.f'+i+'.selectedIndex=0;')        
       }   
    }  
    if (nw==2) {  
       for (i=0;i<=vf.nfields.value;i++) {  
          if ((eval('vf.f'+i+'.selectedIndex')>=3) &&  
              (eval('vf.f'+i+'.selectedIndex')<=6)) {  
              eval('vf.f'+i+'.selectedIndex=0;')  
          }  
       }        
    }  
    if ((nw>=3) && (nw<=6)) {  
       for (i=0;i<=vf.nfields.value;i++) {  
          if (eval('vf.f'+i+'.selectedIndex')==2) {  
              eval('vf.f'+i+'.selectedIndex=0;')  
          }  
       }        
    }  
    if (nw==9) {  
        vf.login[1].checked=true;  
        vf.intpwd.value='';  
        vf.krbdom.value='';  
        vf.locarg.value='';  
    }  
   
 }  
   
 function clearpwd(vf) {  
     var i;  
     for (i=0;i<=vf.nfields.value;i++) {  
         if (eval('vf.f'+i+'.selectedIndex')==9) {  
             eval('vf.f'+i+'.selectedIndex=0;')  
         }  
     }        
 }  }
   
 function setkrb(vf) {  function setkrb(vf) {
Line 357  function setkrb(vf) { Line 218  function setkrb(vf) {
        vf.login[0].checked=true;         vf.login[0].checked=true;
        vf.krbdom.value=vf.krbdom.value.toUpperCase();         vf.krbdom.value=vf.krbdom.value.toUpperCase();
        vf.intpwd.value='';         vf.intpwd.value='';
          vf.locarg.value='';
    }     }
 }  }
   
Line 365  function setint(vf) { Line 227  function setint(vf) {
        clearpwd(vf);         clearpwd(vf);
        vf.login[1].checked=true;         vf.login[1].checked=true;
        vf.krbdom.value='';         vf.krbdom.value='';
          vf.locarg.value='';
      }
   }
   
   function setloc(vf) {
       if (vf.locarg.value!='') {
          vf.login[2].checked=true;
          vf.krbdom.value='';
          vf.intpwd.value='';
    }     }
 }  }
   
Line 372  function clickkrb(vf) { Line 243  function clickkrb(vf) {
     vf.krbdom.value='$krbdefdom';      vf.krbdom.value='$krbdefdom';
     clearpwd(vf);      clearpwd(vf);
     vf.intpwd.value='';      vf.intpwd.value='';
       vf.locarg.value='';
 }  }
   
 function clickint(vf) {  function clickint(vf) {
     vf.krbdom.value='';      vf.krbdom.value='';
       vf.locarg.value='';
   }
   
   function clickloc(vf) {
       vf.krbdom.value='';
       vf.intpwd.value='';
 }  }
   
     function pclose() {      function pclose() {
Line 405  function clickint(vf) { Line 283  function clickint(vf) {
         pclose();          pclose();
     }      }
   
 </script>  ENDPICK
 <table border=2><tr><th>Field</th><th>Samples</th></tr>  }
   
   sub phase_two_javascript_forward_associate {
       return(<<ENDPICK);
   function verify(vf) {
       var founduname=0;
       var foundpwd=0;
       var foundname=0;
       var foundid=0;
       var foundsec=0;
       var tw;
       for (i=0;i<=vf.nfields.value;i++) {
           tw=eval('vf.f'+i+'.selectedIndex');
           if (tw==1) { founduname=1; }
           if ((tw>=2) && (tw<=6)) { foundname=1; }
           if (tw==7) { foundid=1; }
           if (tw==8) { foundsec=1; }
           if (tw==9) { foundpwd=1; }
       }
       verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
   }
   
   function flip(vf,tf) {
      var nw=eval('vf.f'+tf+'.selectedIndex');
      var i;
      for (i=0;i<=vf.nfields.value;i++) {
         if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) {
             eval('vf.f'+i+'.selectedIndex=0;')
         }
      }
      if (tf==1 && nw!=0) {
         for (i=2;i<=5;i++) {
            eval('vf.f'+i+'.selectedIndex=0;')
         }
      }
      if (nw==2) {
         for (i=0;i<=vf.nfields.value;i++) {
            if ((eval('vf.f'+i+'.selectedIndex')>=3) &&
                (eval('vf.f'+i+'.selectedIndex')<=6)) {
                eval('vf.f'+i+'.selectedIndex=0;')
            }
         }
      }
      if ((nw>=3) && (nw<=6)) {
         for (i=0;i<=vf.nfields.value;i++) {
            if (eval('vf.f'+i+'.selectedIndex')==2) {
                eval('vf.f'+i+'.selectedIndex=0;')
            }
         }
      }
      if (nw==9) {
          vf.login[1].checked=true;
          vf.intpwd.value='';
          vf.krbdom.value='';
          vf.locarg.value='';
      }
   }
   
   function clearpwd(vf) {
       var i;
       for (i=0;i<=vf.nfields.value;i++) {
           if (eval('vf.f'+i+'.selectedIndex')==9) {
               eval('vf.f'+i+'.selectedIndex=0;')
           }
       }
   }
   
   ENDPICK
   }
   
   sub phase_two_javascript_reverse_associate {
       return(<<ENDPICK);
   function verify(vf) {
       var founduname=0;
       var foundpwd=0;
       var foundname=0;
       var foundid=0;
       var foundsec=0;
       var tw;
       for (i=0;i<=vf.nfields.value;i++) {
           tw=eval('vf.f'+i+'.selectedIndex');
           if (i==0 && tw!=0) { founduname=1; }
           if (((i>=1) && (i<=5)) && tw!=0 ) { foundname=1; }
           if (i==6 && tw!=0) { foundid=1; }
           if (i==7 && tw!=0) { foundsec=1; }
           if (i==8 && tw!=0) { foundpwd=1; }
       }
       verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
   }
   
   function flip(vf,tf) {
      var nw=eval('vf.f'+tf+'.selectedIndex');
      var i;
      // picked the all one one name field, reset the other name ones to blank
      if (tf==1 && nw!=0) {
         for (i=2;i<=5;i++) {
            eval('vf.f'+i+'.selectedIndex=0;')
         }
      }
      //picked one of the piecewise name fields, reset the all in
      //one field to blank
      if ((tf>=2) && (tf<=5) && (nw!=0)) {
         eval('vf.f1.selectedIndex=0;')
      }
      // intial password specified, pick internal authentication
      if (tf==8 && nw!=0) {
          vf.login[1].checked=true;
          vf.intpwd.value='';
          vf.krbdom.value='';
          vf.locarg.value='';
      }
   }
   
   function clearpwd(vf) {
       var i;
       if (eval('vf.f8.selectedIndex')!=0) {
           eval('vf.f8.selectedIndex=0;')
       }
   }
 ENDPICK  ENDPICK
 }  }
   
Line 419  sub phase_two_end { Line 415  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);" />  <input type="radio" name="login" value="krb" onClick="clickkrb(this.form);" />
 Kerberos authenticated with domain  Kerberos authenticated with domain
 <input type=text size=10 name=krbdom onChange="setkrb(this.form);" />  <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);" />  <input type="radio" name="login" value="int" onClick="clickint(this.form);" />
 Internally authenticated (with initial password   Internally authenticated (with initial password 
 <input type=text size=10 name=intpwd onChange="setint(this.form);" />)  <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);" />  <input type="radio" name="login" value="loc" onClick="clickloc(this.form);" />
 Local Authentication with argument  Local Authentication with argument
 <input type=text size=10 name=locarg onChange="setloc(this.form);" />  <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: <input type=text size=10 value=$defdom name=lcdomain><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 455  LON-CAPA domain: <input type=text size=1 Line 451  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="verify(this.form)" value="Update Courselist"><br>
 Note: for large courses, this operation might be time consuming.  Note: for large courses, this operation might be time consuming.
 ENDPICK  ENDPICK
 }  }
 # ======================================================= Menu Phase Two Upload  
   
   # ======================================================= Menu Phase Two Upload
 sub menu_phase_two_upload {  sub menu_phase_two_upload {
     my $r=shift;      my $r=shift;
   
     my $datatoken=&upfile_store($r);      my $datatoken;
       if (!$ENV{'form.datatoken'}) {
     my @records=&upfile_record_sep();        $datatoken=&Apache::loncommon::upfile_store($r);
       } else {
         $datatoken=$ENV{'form.datatoken'};
         &Apache::loncommon::load_tmp_file($r);
       }
       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');
   
     &phase_two_header($r,$datatoken,$distotal,$krbdefdom);      &phase_two_header($r,$datatoken,$distotal,$krbdefdom);
       my $i;
     my %sone; my %stwo; my %sthree;      my $keyfields;
     my $i=0;  
   
     if ($total>=0) {      if ($total>=0) {
  %sone=&record_sep($records[0]);   my @d=(['username','Username'],['names','Last Name, First Names'],
  if ($total>=1) {         ['fname','First Name'],['mname','Middle Names/Initials'],
     %stwo=&record_sep($records[1]);         ['lname','Last Name'],['gen','Generation'],
  }         ['id','ID/Student Number'],['sec','Group/Section'],
  if ($total>=2) {         ['ipwd','Initial Password']);
     %sthree=&record_sep($records[2]);   if ($ENV{'form.upfile_associate'} eq 'reverse') {
  }      &Apache::loncommon::csv_print_samples($r,\@records);
  foreach (sort keys %sone) {      $i=&Apache::loncommon::csv_print_select_table($r,\@records,\@d);
     $r->print('<tr><td><select name=f'.$i.      foreach (@d) { $keyfields.=$_->[0].','; }
       ' onChange="flip(this.form,'.$i.');">');      chop($keyfields);
     foreach ('none: ','username:Username',   } else {
      'names:Last Name, First Names',      unshift(@d,['none','']);
      'fname:First Name','mname:Middle Names/Initials',      $i=&Apache::loncommon::csv_samples_select_table($r,\@records,\@d);
      'lname:Last Name','gen:Generation',      my %sone=&Apache::loncommon::record_sep($records[0]);
      'id:ID/Student Number','sec:Group/Section',      $keyfields=join(',',sort(keys(%sone)));
      'ipwd:Initial Password') {  
  my ($value,$display)=split(/\:/,$_);  
  $r->print('<option value='.$value.'>'.$display.  
   '</option>');  
     }  
     $r->print('</select></td><td>');  
     if (defined($sone{$_})) {   
  $r->print($sone{$_}."</br>\n");   
     }  
     if (defined($stwo{$_})) {   
  $r->print($stwo{$_}."</br>\n");   
     }  
     if (defined($sthree{$_})) {   
  $r->print($sthree{$_}."</br>\n");   
     }  
     $r->print('</td></tr>');  
     $i++;  
  }   }
  $i--;  
     }      }
     my $keyfields=join(',',sort keys %sone);  
   
     &phase_two_end($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>');
Line 546  sub enroll_single_student { Line 520  sub enroll_single_student {
     if (!$genpwd) { $genpwd=" "; }      if (!$genpwd) { $genpwd=" "; }
  }   }
         if (($amode) && ($genpwd)) {          if (($amode) && ($genpwd)) {
    &dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'},              &modifystudent($ENV{'form.cdomain'},$ENV{'form.cuname'},
        $ENV{'request.course.id'},$ENV{'form.csec'});                             $ENV{'request.course.id'},$ENV{'form.csec'});
           $r->print(&Apache::lonnet::modifystudent(            $r->print(&Apache::lonnet::modifystudent(
                       $ENV{'form.cdomain'},$ENV{'form.cuname'},                        $ENV{'form.cdomain'},$ENV{'form.cuname'},
                       $ENV{'form.cstid'},$amode,$genpwd,                        $ENV{'form.cstid'},$amode,$genpwd,
Line 564  sub enroll_single_student { Line 538  sub enroll_single_student {
 }  }
   
 # ======================================================= Menu Phase Two Enroll  # ======================================================= Menu Phase Two Enroll
   
 sub menu_phase_two_enroll {  sub menu_phase_two_enroll {
     my $r=shift;      my $r=shift;
           my ($krbdefdom) = $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
     $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);
     $r->print(<<ENDSENROLL);      $r->print(<<ENDSENROLL);
 <script>  <script>
 function verify(vf) {  function verify(vf) {
Line 585  function verify(vf) { Line 554  function verify(vf) {
     var foundname=0;      var foundname=0;
     var foundid=0;      var foundid=0;
     var foundsec=0;      var foundsec=0;
     var foundatype=0;  
     var tw;      var tw;
     var message='';      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.cdomain.value)!="undefined") && (vf.cdomain.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 verify(vf) { Line 573  function verify(vf) {
  alert('You need to specify at least the username and domain fields');   alert('You need to specify at least the username and domain fields');
         return;          return;
     }      }
     if (vf.login[0].checked) {      verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
  foundatype=1;  
         if (vf.krbdom.value=='') {  
     alert('You need to specify the Kerberos domain');  
             return;  
         }  
     }  
     if (vf.login[1].checked) {  
  foundatype=1;  
         if ((vf.intpwd.value=='') && (foundpwd==0)) {  
     alert('You need to specify the initial password');  
             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 first and last name specified. '; }  
     if (foundid==0) { message+='No ID or student number field specified. '; }  
     if (foundsec==0) { message+='No section or group field specified. '; }  
     if (vf.startdate.value=='') {  
  message+='No starting date set. ';  
     }  
     if (vf.enddate.value=='') {  
         message+='No ending date set. ';  
     }  
     if ((vf.enddate.value!='') && (vf.startdate.value!='')) {  
        if (Math.round(vf.enddate.value)<Math.round(vf.startdate.value)) {  
           alert('Ending date is before starting date');  
           return;  
        }  
     }  
     if (message!='') {  
        message+='Continue enrollment?';  
        if (confirm(message)) {  
   pclose();  
   vf.submit();  
        }  
     } else {  
       pclose();  
       vf.submit();  
     }     
 }  }
   
 function setkrb(vf) {  $javascript_validations
     if (vf.krbdom.value!='') {  
        vf.login[0].checked=true;  
        vf.krbdom.value=vf.krbdom.value.toUpperCase();  
        vf.intpwd.value='';  
        vf.locarg.value='';  
    }  
 }  
   
 function setint(vf) {  function clearpwd(vf) {
     if (vf.intpwd.value!='') {      //nothing else needs clearing
        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';  
     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() {  
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
         parmwin.close();  
     }  
   
     function pjump(type,dis,value,marker,ret,call) {  
         parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)  
                  +"&value="+escape(value)+"&marker="+escape(marker)  
                  +"&return="+escape(ret)  
                  +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
   
     }  
   
     function dateset() {  
         if (document.studentform.pres_marker.value=='end') {  
            document.studentform.enddate.value=  
        document.studentform.pres_value.value;  
         }  
         if (document.studentform.pres_marker.value=='start') {  
            document.studentform.startdate.value=  
        document.studentform.pres_value.value;  
         }  
         pclose();  
     }  
   
 </script>  </script>
 <h3>Personal Data</h3>  <h3>Personal Data</h3>
 First Name: <input type=text name=cfirst size=15><br>  First Name:  <input type="text" name="cfirst"  size="15"><br>
 Middle Name: <input type=text name=cmiddle size=15><br>  Middle Name: <input type="text" name="cmiddle" size="15"><br>
 Last Name: <input type=text name=clast size=15><br>  Last Name:   <input type="text" name="clast"   size="15"><br>
 Generation: <input type=text name=cgen size=5><p>  Generation:  <input type="text" name="cgen"    size="5"> 
   
 ID/Student Number: <input type=text name=cstid size=10><p>  <p>ID/Student Number: <input type="text" name="cstid" size="10"></p>
   
 Group/Section: <input type=text name=csec size=5><p>  <p>Group/Section: <input type=text name=csec size=5></p>
   
 <h3>Login Data</h3>  <h3>Login Data</h3>
 Username: <input type=text name=cuname size=15><p>  <p>Username: <input type="text" name="cuname"  size="15"></p>
 Domain: <input type=text size=10 value=$defdom name=cdomain><p>  <p>Domain:   <input type="text" name="cdomain" size="10" value="$defdom"></p>
 Note: login settings below  will not take effect if the user already exists<p>  <p>Note: login settings below  will not take effect if the user already exists
   </p><p>
 <input type=radio name=login value=krb onClick="clickkrb(this.form);">  <input type="radio" name="login" value="krb" onClick="clickkrb(this.form);">
 Kerberos authenticated with domain  Kerberos authenticated with domain 
 <input type=text size=10 name=krbdom onChange="setkrb(this.form);"><p>  <input type="text" name="krbdom" size="10"  onChange="setkrb(this.form);">
 <input type=radio name=login value=int onClick="clickint(this.form);">   </p><p>
   <input type="radio" name="login"  value="int" onClick="clickint(this.form);"> 
 Internally authenticated (with initial password   Internally authenticated (with initial password 
 <input type=text size=10 name=intpwd onChange="setint(this.form);">)  <input type="text"  name="intpwd" size="10" onChange="setint(this.form);">)
 <p>  </p><p>
 <input type=radio name=login value=loc onClick="clickloc(this.form);" />  <input type="radio" name="login" value="loc" onClick="clickloc(this.form);" />
 Local Authentication with argument  Local Authentication with argument
 <input type=text size=10 name=locarg onChange="setloc(this.form);" />  <input type="text" name="locarg" size="10"  onChange="setloc(this.form);" />
 </p>  </p><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>
   </p><p>
 <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><p>
 <h3>ID/Student Number</h3>  <h3>ID/Student Number</h3>
 <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="Enroll as student"><br>  <input type="button" onClick="verify(this.form)" value="Enroll as student"><br>
 <input type=hidden name=phase value=five>  <input type="hidden" name="phase" value="five">
   </p>
 ENDSENROLL  ENDSENROLL
 }  }
   
 # ========================================================= Menu Phase Two Drop  # =================================================== get the current classlist
   sub get_current_classlist {
       my ($domain,$identifier) = @_;
       # domain is the domain the class is being run in
       # identifier is the internal, unique identifier for the class.
       my %currentlist=();
       my $now=time;
       my %results=&Apache::lonnet::dump('classlist',$domain,$identifier);
       my ($tmp) = keys(%results);
       if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
           foreach my $student (keys(%results)) {
               # Extract the start and end dates
               my ($end,$start)=split(/\:/,$results{$student});
               # If the class isn't over, put it in the list
               unless (($end) && ($now>$end)) { 
                   $currentlist{$student}=1;
               }
           }
           return (undef,%currentlist);
       } else {
           return ($tmp,undef);
       }
   }
   
   # ========================================================= Menu Phase Two Drop
 sub menu_phase_two_drop {  sub menu_phase_two_drop {
     my $r=shift;      my $r=shift;
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
                  my $classlst=&Apache::lonnet::reply      my ($error,%currentlist)=&get_current_classlist($ENV{'course.'.$cid.'.domain'},
                  ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.                                             $ENV{'course.'.$cid.'.num'});
                   $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\:/) {          $r->print("There are no students currently enrolled.\n");
                      foreach (split(/\&/,$classlst)) {      } else {
                         my ($name,$value)=split(/\=/,$_);          # Print out the available choices
                         my ($end,$start)=split(/\:/,          &show_drop_list($r,%currentlist);
                                             &Apache::lonnet::unescape($value));      }
                         my $active=1;  
                         if (($end) && ($now>$end)) { $active=0; }  
                         if ($active) {  
            $currentlist{&Apache::lonnet::unescape($name)}=1;  
                         }  
                      }  
 # ----------------------------------------------------------- Print out choices  
                      &show_drop_list($r,%currentlist);  
          } else {  
                      $r->print(  
                   '<font color=red><h3>Could not access classlist: '.$classlst.  
                   '</h3></font>');  
                  }  
 }  }
   
 # =================================================== Show student list to drop  # =================================================== Show student list to drop
   
 sub show_drop_list {  sub show_drop_list {
     my ($r,%currentlist)=@_;      my ($r,%currentlist)=@_;
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
       $r->print(<<'END');
     $r->print('<input type=hidden name=phase value=four>');  <input type="hidden" name="phase" value="four">
                      $r->print('<table border=2>');  <table border=2>
                      foreach (sort keys %currentlist) {  <tr><th>&nbsp;</th><th>username</th><th>domain</th>
                          my ($sname,$sdom)=split(/\:/,$_);  <th>ID</th><th>student name</th><th>generation</th>
                          my %reply=&Apache::lonnet::idrget($sdom,$sname);  <th>section</th></tr>
                          my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);  END
                          my @reply=split(/[\&\=]/,&Apache::lonnet::reply(      foreach (sort keys %currentlist) {
                            'get:'.$sdom.':'.$sname.          my ($sname,$sdom)=split(/\:/,$_);
       ':environment:firstname&middlename&lastname&generation',          my %reply=&Apache::lonnet::idrget($sdom,$sname);
                            &Apache::lonnet::homeserver($sname,$sdom)));          my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);
   $r->print(          my %info=&Apache::lonnet::get('environment',
                   '<tr><td><input type=checkbox name="drop:'.$_.'"></td><td>'.                                        ['firstname','middlename',
                                    $sname.'</td><td>'.$sdom.'</td><td>'.                                         'lastname','generation'],
                                    $reply{$sname}.'</td><td>'.                                        $sdom, $sname);
                                    &Apache::lonnet::unescape($reply[2]).' '.          my ($tmp) = keys(%info);
                                    &Apache::lonnet::unescape($reply[3]).', '.          if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
                                    &Apache::lonnet::unescape($reply[0]).' '.              $r->print('<tr><td colspan="7"><font color="red">'.
                                    &Apache::lonnet::unescape($reply[1]).                        'Internal error: unable to get environment '.
                                    '</td><td>'.                        'for '.$sname.' in domain '.$sdom.'</font></td></tr>');
                                    $ssec."</td></tr>\n");          } else {
                      }              $r->print(<<"END");
                      $r->print('</table><br>');  <tr>
                      $r->print('<input type=submit value="Drop Students">');      <td><input type="checkbox" name="droplist" value="$_"></td>
       <td>$sname</td>
       <td>$sdom</td>
       <td>$reply{$sname}</td>
       <td>$info{'lastname'}, $info{'firstname'} $info{'middlename'}</td>
       <td>$info{'generation'}</td>
       <td>$ssec</td>
   </tr>
   END
           }
       }
       $r->print('</table><br>');
       $r->print('<input type=submit value="Drop Students">');
 }  }
   
 # ================================================= Drop/Add from uploaded file  # ================================================= 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);
     &load_tmp_file($r);      my @studentdata=&Apache::loncommon::upfile_record_sep();
     my @studentdata=&upfile_record_sep();      my @keyfields = split(/\,/,$ENV{'form.keyfields'});
       my $cid = $ENV{'request.course.id'};
     my @keyfields=split(/\,/,$ENV{'form.keyfields'});      my %fields=();
     my $cid=$ENV{'request.course.id'};      for (my $i=0; $i<=$ENV{'form.nfields'}; $i++) {
           if ($ENV{'form.upfile_associate'} eq 'reverse') {
              my %fields=();              if ($ENV{'form.f'.$i} ne 'none') {
              for (my $i=0;$i<=$ENV{'form.nfields'};$i++) {                  $fields{$keyfields[$i]}=$ENV{'form.f'.$i};
                  $fields{$ENV{'form.f'.$i}}=$keyfields[$i];              }
              }          } else {
              my $startdate=$ENV{'form.startdate'};              $fields{$ENV{'form.f'.$i}}=$keyfields[$i];
              my $enddate=$ENV{'form.enddate'};          }
              if ($startdate=~/\D/) { $startdate=''; }      }
              if ($enddate=~/\D/) { $enddate=''; }      #
              my $domain=$ENV{'form.lcdomain'};      my $startdate = $ENV{'form.startdate'};
              my $amode='';      my $enddate   = $ENV{'form.enddate'};
              my $genpwd='';      if ($startdate=~/\D/) { $startdate=''; }
              if ($ENV{'form.login'} eq 'krb') {      if ($enddate=~/\D/)   { $enddate=''; }
                  $amode='krb4';      #
                  $genpwd=$ENV{'form.krbdom'};      my $domain=$ENV{'form.lcdomain'};
              } elsif ($ENV{'form.login'} eq 'int') {      # Determine authentication mechanism
                  $amode='internal';      my $amode  = '';
                  if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {      my $genpwd = '';
      $genpwd=$ENV{'form.intpwd'};      if ($ENV{'form.login'} eq 'krb') {
                  }          $amode='krb4';
              } elsif ($ENV{'form.login'} eq 'loc') {          $genpwd=$ENV{'form.krbdom'};
  $amode='localauth';      } elsif ($ENV{'form.login'} eq 'int') {
  if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {          $amode='internal';
      $genpwd=$ENV{'form.locarg'};          if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {
                  }              $genpwd=$ENV{'form.intpwd'};
      }          }
              unless (($domain=~/\W/) || ($amode eq '')) {      } elsif ($ENV{'form.login'} eq 'loc') {
               $r->print('<h3>Enrolling Students</h3>');          $amode='localauth';
               my $count=0;          if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
               my $flushc=0;              $genpwd=$ENV{'form.locarg'};
               my %student=();          }
 # ----------------------------------------------------------- Get new classlist      }
 # --------------------------------------------------------- Enroll new students      unless (($domain=~/\W/) || ($amode eq '')) {
       foreach (@studentdata) {          #######################################
   my %entries=&record_sep($_);          ##         Enroll Students           ##
           #######################################
                 unless (($entries{$fields{'username'}} eq '') ||          $r->print('<h3>Enrolling Students</h3>');
                         (!defined($entries{$fields{'username'}}))) {          my $count=0;
                   my $fname=''; my $mname=''; my $lname=''; my $gen='';          my $flushc=0;
                   if (defined($fields{'names'})) {          my %student=();
       ($lname,$fname,$mname)=          # Get new classlist
             ($entries{$fields{'names'}}=~/([^\,]+)\,\s*(\w+)\s*(.*)$/);          foreach (@studentdata) {
                   } else {              my %entries=&Apache::loncommon::record_sep($_);
                       if (defined($fields{'fname'})) {              # Determine student name
          $fname=$entries{$fields{'fname'}};              unless (($entries{$fields{'username'}} eq '') ||
       }                      (!defined($entries{$fields{'username'}}))) {
                       if (defined($fields{'mname'})) {                  my ($fname, $mname, $lname,$gen) = ('','','','');
          $mname=$entries{$fields{'mname'}};                  if (defined($fields{'names'})) {
       }                      ($lname,$fname,$mname)=($entries{$fields{'names'}}=~
                       if (defined($fields{'lname'})) {                                              /([^\,]+)\,\s*(\w+)\s*(.*)$/);
          $lname=$entries{$fields{'lname'}};                  } else {
       }                      if (defined($fields{'fname'})) {
                       if (defined($fields{'gen'})) {                          $fname=$entries{$fields{'fname'}};
          $gen=$entries{$fields{'gen'}};                      }
       }                      if (defined($fields{'mname'})) {
                   }                          $mname=$entries{$fields{'mname'}};
                   if ($entries{$fields{'username'}}=~/\W/) {                      }
                      $r->print('<p><b>Unacceptable username: '.                      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'});                          my $reply=&Apache::lonnet::modifystudent
                          unless ($reply eq 'ok') {                              ($domain,$username,$id,$amode,$password,
                             $r->print(                               $fname,$mname,$lname,$gen,$sec,$enddate,
                              "<p><b>Error enrolling $username: $reply</b><p>");                               $startdate,$ENV{'form.forceid'});
                           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 947  sub upfile_drop_add { Line 842  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
                   $ENV{'course.'.$cid.'.num'}.':classlist',                  ($ENV{'course.'.$cid.'.domain'},
                   $ENV{'course.'.$cid.'.home'});                   $ENV{'course.'.$cid.'.num'});
                  my %currentlist=();              if (defined($error)) {
                  my $now=time;                  $r->print('<pre>ERROR:$error</pre>');
                  unless ($classlst=~/^error\:/) {              }
                      foreach (split(/\&/,$classlst)) {              if (defined(%currentlist)) {
                         my ($name,$value)=split(/\=/,$_);                  # Drop the students
                         my ($end,$start)=split(/\:/,                  foreach (@studentdata) {
                                             &Apache::lonnet::unescape($value));                      my %entries=&Apache::loncommon::record_sep($_);
                         my $active=1;                      unless (($entries{$fields{'username'}} eq '') ||
                         if (($end) && ($now>$end)) { $active=0; }                              (!defined($entries{$fields{'username'}}))) {
                         if ($active) {                          delete($currentlist{$entries{$fields{'username'}}.
            $currentlist{&Apache::lonnet::unescape($name)}=1;                                                  ':'.$domain});
                         }                      }
                      }                  }
 # ------------------------------------------------ Now got up-to-date classlist                  # Print out list of dropped students
                      foreach (@studentdata) {                  &show_drop_list($r,%currentlist);
                  my %entries=&record_sep($_);              } else {
                         unless (($entries{$fields{'username'}} eq '') ||                  $r->print("There are no students currently enrolled.\n");
                           (!defined($entries{$fields{'username'}}))) {              }
    delete($currentlist{          }
                             $entries{$fields{'username'}}.':'.      } # end of unless
                             $domain});  
         }  
                      }  
 # ----------------------------------------------------------- Print out choices  
                      &show_drop_list($r,%currentlist);  
          } else {  
                      $r->print(  
                   '<font color=red><h3>Could not access classlist: '.$classlst.  
                   '</h3></font>');  
                  }  
      }  
 # ------------------------------------------------------------------------ Done  
   
   }  
 }  }
   
 # ================================================================== 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) {      foreach (@{$ENV{'form.droplist'}}) {
  if ($_=~/^form\.drop\:/) {          my ($uname,$udom)=split(/\:/,$_);
     my ($dummy,$uname,$udom)=split(/\:/,$_);          &modifystudent($udom,$uname,$ENV{'request.course.id'});
             &dropstudent($udom,$uname,$ENV{'request.course.id'});          $r->print('Dropped '.$uname.' at '.$udom.'<br>');
             $r->print('Dropped '.$uname.' at '.$udom.'<br>');          $count++;
             $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  # ================================================================ Main Handler
   
 sub handler {  sub handler {
    my $r=shift;      my $r=shift;
       $Apache::lonxml::debug=1;
    if ($r->header_only) {      if ($r->header_only) {
       $r->content_type('text/html');          $r->content_type('text/html');
       $r->send_http_header;          $r->send_http_header;
       return OK;          return OK;
    }      }
       #  Needs to be in a course
 # ----------------------------------------------------- Needs to be in a course      if (($ENV{'request.course.fn'}) && 
           (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {
    if (($ENV{'request.course.fn'}) &&           # Start page
        (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {          $r->content_type('text/html');
           $r->send_http_header;
 # ------------------------------------------------------------------ Start page          $r->print(&header());
       $r->content_type('text/html');          # Phase one, initial screen
       $r->send_http_header;          unless ($ENV{'form.phase'}) {
       &header($r);              &menu_phase_one($r);
           }
 # --------------------------------------------------- Phase one, initial screen          # Phase two
       unless ($ENV{'form.phase'}) {          if ($ENV{'form.associate'} eq 'Reverse Association') {
   &menu_phase_one($r);              $ENV{'form.phase'} = 'two';
       }              if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {
 # ------------------------------------------------------------------- Phase two                  $ENV{'form.upfile_associate'} = 'reverse';
       if ($ENV{'form.phase'} eq 'two') {              } else {
  if ($ENV{'form.fileupload'}) {                  $ENV{'form.upfile_associate'} = 'forward';
      &menu_phase_two_upload($r);              }
          } elsif ($ENV{'form.enroll'}) {          }
              &menu_phase_two_enroll($r);          if ($ENV{'form.phase'} eq 'two') {
          } elsif ($ENV{'form.drop'}) {              if ($ENV{'form.fileupload'}) {
              &menu_phase_two_drop($r);                  &menu_phase_two_upload($r);
          }              } elsif ($ENV{'form.enroll'}) {
       }                  &menu_phase_two_enroll($r);
               } elsif ($ENV{'form.drop'}) {
                   &menu_phase_two_drop($r);
               }
           }
 # ----------------------------------------------------------------- Phase three          # Phase three
       if ($ENV{'form.phase'} eq 'three') {          if ($ENV{'form.phase'} eq 'three') {
   if ($ENV{'form.datatoken'}) {              if ($ENV{'form.datatoken'}) {
       &upfile_drop_add($r);                  &upfile_drop_add($r);
           }              }
       }          }
 # ------------------------------------------------------------------ Phase four          # Phase four
       if ($ENV{'form.phase'} eq 'four') {          if ($ENV{'form.phase'} eq 'four') {
   &drop_student_list($r);              &drop_student_list($r);
       }          }
 # ------------------------------------------------------------------ Phase four          # Phase five
       if ($ENV{'form.phase'} eq 'five') {          if ($ENV{'form.phase'} eq 'five') {
   &enroll_single_student($r);              &enroll_single_student($r);
       }          }
 # ------------------------------------------------------------------------- End           # End
       $r->print('</form></body></html>');          $r->print('</form></body></html>');
    } else {      } else {
 # ----------------------------- Not in a course, or not allowed to modify parms          # Not in a course, or not allowed to modify parms
       $ENV{'user.error.msg'}=          $ENV{'user.error.msg'}=
         "/adm/dropadd:cst:0:0:Cannot drop or add students";              "/adm/dropadd:cst:0:0:Cannot drop or add students";
       return HTTP_NOT_ACCEPTABLE;           return HTTP_NOT_ACCEPTABLE; 
    }      }
    return OK;      return OK;
 }  }
   
 1;  1;
 __END__  __END__
   
   
   
   
Removed from v.1.23  
changed lines
  Added in v.1.27

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