[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.25 and 1.26

version 1.25, 2002/04/16 19:08:49 version 1.26, 2002/04/16 21:02:17
Line 75  ENDHEAD Line 75  ENDHEAD
 }  }
   
 # =========== 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
       # this one.  If $csec is defined, drop them from all other sections of 
       # this course and add them to section $csec
     $courseid=~s/\_/\//g;      $courseid=~s/\_/\//g;
     $courseid=~s/^(\w)/\/$1/;      $courseid=~s/^(\w)/\/$1/;
     foreach (split(/\&/,      my %roles = &Apache::lonnet::dump('roles',$udom,$unam);
                    &Apache::lonnet::reply('dump:'.$udom.':'.$unam.':roles',      my ($tmp) = keys(%roles);
      &Apache::lonnet::homeserver($unam,$udom)))) {      # Bail out if we were unable to get the students roles
         my ($key,$value)=split(/\=/,$_);      return if ($tmp =~ /^(con_lost|error|no_such_host)/i);
         $key=&Apache::lonnet::unescape($key);      # Go through the roles looking for enrollment in this course
         if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) {      foreach my $course (keys(%roles)) {
           my $value = $roles{$course};
           if ($course=~/^$courseid(?:\/)*(\w+)*\_st$/) {
               # We are in this course
             my $section=$1;              my $section=$1;
             if ($key eq $courseid.'_st') { $section=''; }              $section='' if ($course eq $courseid.'_st');
             if (((!$section) && (!$csec)) || ($section ne $csec)) {              if (((!$section) && (!$csec)) || ($section ne $csec)) {
                 my ($dummy,$end,$start)=split(/\_/,                  my (undef,$end,$start)=split(/\_/,$course);
                                               &Apache::lonnet::unescape  
                                               ($value));  
                 my $now=time;                  my $now=time;
                 my $notactive=0;                  if (($start) && ($end) && ($now>$start) && ($now<$end)) {
                 if ($start) {  
                     if ($now<$start) { $notactive=1; }  
                 }  
                 if ($end) {  
                     if ($now>$end) { $notactive=1; }  
                 }   
                 unless ($notactive) {  
                     my $reply=&Apache::lonnet::modifystudent                      my $reply=&Apache::lonnet::modifystudent
                         ($udom,$unam,'','','',                          ($udom,$unam,'','','','','','','',$section,time);
                          '','','','',$section,time);  
                 }                  }
             }              }
         }          }
Line 111  sub dropstudent { Line 106  sub dropstudent {
 }  }
   
 # ============================================================== 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();      my $upfile_select=&Apache::loncommon::upfile_select_html();
Line 130  $upfile_select Line 124  $upfile_select
 ENDUPFORM  ENDUPFORM
 }  }
   
   
 sub phase_two_header {  sub phase_two_header {
     my ($r,$datatoken,$distotal,$krbdefdom)=@_;      my ($r,$datatoken,$distotal,$krbdefdom)=@_;
     my $javascript;      my $javascript;
Line 146  sub phase_two_header { Line 139  sub phase_two_header {
 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="submit" name="associate"  value="Reverse Association" />
 <input type="hidden" name="phase" value="three" />  <input type="hidden" name="phase"      value="three" />
 <input type="hidden" name="datatoken" value="$datatoken" />  <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>
 $javascript  $javascript
   
 $javascript_validations  $javascript_validations
 </script>  </script>
 ENDPICK  ENDPICK
Line 314  function verify(vf) { Line 307  function verify(vf) {
     verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);      verify_message(vf,founduname,foundpwd,foundname,foundid,foundsec);
 }  }
   
   
 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;
Line 424  sub phase_two_end { Line 416  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 460  LON-CAPA domain: <input type=text size=1 Line 452  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;      my $datatoken;
     if (!$ENV{'form.datatoken'}) {      if (!$ENV{'form.datatoken'}) {
         $datatoken=&Apache::loncommon::upfile_store($r);        $datatoken=&Apache::loncommon::upfile_store($r);
     } else {      } else {
         $datatoken=$ENV{'form.datatoken'};        $datatoken=$ENV{'form.datatoken'};
         &Apache::loncommon::load_tmp_file($r);        &Apache::loncommon::load_tmp_file($r);
     }      }
     my @records=&Apache::loncommon::upfile_record_sep();      my @records=&Apache::loncommon::upfile_record_sep();
     my $total=$#records;      my $total=$#records;
Line 510  sub menu_phase_two_upload { Line 502  sub menu_phase_two_upload {
 }  }
   
 # ======================================================= 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 519  sub enroll_single_student { Line 510  sub enroll_single_student {
  my $amode='';   my $amode='';
         my $genpwd='';          my $genpwd='';
         if ($ENV{'form.login'} eq 'krb') {          if ($ENV{'form.login'} eq 'krb') {
             $amode='krb4';             $amode='krb4';
             $genpwd=$ENV{'form.krbdom'};             $genpwd=$ENV{'form.krbdom'};
         } elsif ($ENV{'form.login'} eq 'int') {          } elsif ($ENV{'form.login'} eq 'int') {
             $amode='internal';             $amode='internal';
             $genpwd=$ENV{'form.intpwd'};             $genpwd=$ENV{'form.intpwd'};
         }  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)) {          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,
                        $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'}));
  } else {   } else {
             $r->print('Invalid login mode or password');                 $r->print('Invalid login mode or password');    
         }                    }          
     } else {      } else {
         $r->print('Invalid username or domain');          $r->print('Invalid username or domain');
     }      }    
 }  }
   
 # ======================================================= Menu Phase Two Enroll  # ======================================================= Menu Phase Two Enroll
   
 sub menu_phase_two_enroll {  sub menu_phase_two_enroll {
     my $r=shift;      my $r=shift;
     $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);      $r->print(<<ENDSENROLL);
Line 567  function verify(vf) { Line 556  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.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 596  function clearpwd(vf) { Line 585  function clearpwd(vf) {
   
 </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 {
 sub menu_phase_two_drop {      my ($domain,$identifier) = @_;
     my $r=shift;      # domain is the domain the class is being run in
     my $cid=$ENV{'request.course.id'};      # identifier is the internal, unique identifier for the class.
     my $classlst=&Apache::lonnet::reply  
         ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.  
          $ENV{'course.'.$cid.'.num'}.':classlist',  
          $ENV{'course.'.$cid.'.home'});  
     my %currentlist=();      my %currentlist=();
     my $now=time;      my $now=time;
     unless ($classlst=~/^error\:/) {      my %results=&Apache::lonnet::dump('classlist',$domain,$identifier);
         foreach (split(/\&/,$classlst)) {      my ($tmp) = keys(%results);
             my ($name,$value)=split(/\=/,$_);      if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
             my ($end,$start)=split(/\:/,          foreach my $student (keys(%results)) {
                                    &Apache::lonnet::unescape($value));              # Extract the start and end dates
             my $active=1;              my ($end,$start)=split(/\:/,$results{$student});
             if (($end) && ($now>$end)) { $active=0; }              # If the class isn't over, put it in the list
             if ($active) {              unless (($end) && ($now>$end)) { 
                 $currentlist{&Apache::lonnet::unescape($name)}=1;                  $currentlist{$student}=1;
             }              }
         }          }
 # ----------------------------------------------------------- Print out choices          return %currentlist;
         &show_drop_list($r,%currentlist);  
     } else {      } else {
         $r->print('<font color=red><h3>Could not access classlist: '.$classlst.          return undef;
                   '</h3></font>');  
     }      }
 }  }
   
 # =================================================== Show student list to drop  # ========================================================= Menu Phase Two Drop
   sub menu_phase_two_drop {
       my $r=shift;
       my $cid=$ENV{'request.course.id'};
       my %currentlist=&get_current_classlist($ENV{'course.'.$cid.'.domain'},
                                              $ENV{'course.'.$cid.'.num'});
       if (!defined(%currentlist)) { 
           $r->print('<font color=red>'.
                     '<h3> Could not access classlist.</h3></font>');
       } else {
           # Print out the available choices
           &show_drop_list($r,%currentlist);
       }
   }
   
   # =================================================== 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>
   <tr><th>&nbsp;</th><th>username</th><th>domain</th>
   <th>ID</th><th>student name</th><th>generation</th>
   <th>section</th></tr>
   END
     foreach (sort keys %currentlist) {      foreach (sort keys %currentlist) {
         my ($sname,$sdom)=split(/\:/,$_);          my ($sname,$sdom)=split(/\:/,$_);
         my %reply=&Apache::lonnet::idrget($sdom,$sname);          my %reply=&Apache::lonnet::idrget($sdom,$sname);
         my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);          my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);
         my @reply=split(/[\&\=]/,&Apache::lonnet::reply          my %info=&Apache::lonnet::get('environment',
                         ('get:'.$sdom.':'.$sname.                                        ['firstname','middlename',
                          ':environment:firstname&middlename&lastname&generation',                                         'lastname','generation'],
                          &Apache::lonnet::homeserver($sname,$sdom)));                                        $sdom, $sname);
         $r->print('<tr><td><input type=checkbox name="drop:'.$_.'"></td><td>'.          my ($tmp) = keys(%info);
                   $sname.'</td><td>'.$sdom.'</td><td>'.          if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
                   $reply{$sname}.'</td><td>'.              $r->print('<tr><td colspan="7"><font color="red">'.
                   &Apache::lonnet::unescape($reply[2]).' '.                        'Internal error: unable to get environment '.
                   &Apache::lonnet::unescape($reply[3]).', '.                        'for '.$sname.' in domain '.$sdom.'</font></td></tr>');
                   &Apache::lonnet::unescape($reply[0]).' '.          } else {
                   &Apache::lonnet::unescape($reply[1]).              $r->print(<<"END");
                   '</td><td>'.  <tr>
                   $ssec."</td></tr>\n");      <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('</table><br>');
     $r->print('<input type=submit value="Drop Students">');      $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);      &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};
Line 721  sub upfile_drop_add { Line 734  sub upfile_drop_add {
             $fields{$ENV{'form.f'.$i}}=$keyfields[$i];              $fields{$ENV{'form.f'.$i}}=$keyfields[$i];
         }          }
     }      }
     my $startdate=$ENV{'form.startdate'};      #
     my $enddate=$ENV{'form.enddate'};      my $startdate = $ENV{'form.startdate'};
       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'};      my $domain=$ENV{'form.lcdomain'};
     my $amode='';      # Determine authentication mechanism
     my $genpwd='';      my $amode  = '';
       my $genpwd = '';
     if ($ENV{'form.login'} eq 'krb') {      if ($ENV{'form.login'} eq 'krb') {
         $amode='krb4';          $amode='krb4';
         $genpwd=$ENV{'form.krbdom'};          $genpwd=$ENV{'form.krbdom'};
Line 743  sub upfile_drop_add { Line 759  sub upfile_drop_add {
         }          }
     }      }
     unless (($domain=~/\W/) || ($amode eq '')) {      unless (($domain=~/\W/) || ($amode eq '')) {
           #######################################
           ##         Enroll Students           ##
           #######################################
         $r->print('<h3>Enrolling Students</h3>');          $r->print('<h3>Enrolling Students</h3>');
         my $count=0;          my $count=0;
         my $flushc=0;          my $flushc=0;
         my %student=();          my %student=();
 # ----------------------------------------------------------- Get new classlist          # Get new classlist
 # --------------------------------------------------------- Enroll new students  
         foreach (@studentdata) {          foreach (@studentdata) {
             my %entries=&Apache::loncommon::record_sep($_);              my %entries=&Apache::loncommon::record_sep($_);
               # Determine student name
             unless (($entries{$fields{'username'}} eq '') ||              unless (($entries{$fields{'username'}} eq '') ||
                     (!defined($entries{$fields{'username'}}))) {                      (!defined($entries{$fields{'username'}}))) {
                 my $fname=''; my $mname=''; my $lname=''; my $gen='';                  my ($fname, $mname, $lname,$gen) = ('','','','');
                 if (defined($fields{'names'})) {                  if (defined($fields{'names'})) {
                     ($lname,$fname,$mname)=                      ($lname,$fname,$mname)=($entries{$fields{'names'}}=~
                         ($entries{$fields{'names'}}=~/([^\,]+)\,\s*(\w+)\s*(.*)$/);                                              /([^\,]+)\,\s*(\w+)\s*(.*)$/);
                 } else {                  } else {
                     if (defined($fields{'fname'})) {                      if (defined($fields{'fname'})) {
                         $fname=$entries{$fields{'fname'}};                          $fname=$entries{$fields{'fname'}};
Line 776  sub upfile_drop_add { Line 795  sub upfile_drop_add {
                               $entries{$fields{'username'}}.' for user '.                                $entries{$fields{'username'}}.' for user '.
                               $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');                                $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');
                 } else {                  } else {
                       # determine section number
                     my $sec='';                      my $sec='';
                     my $username=$entries{$fields{'username'}};                      my $username=$entries{$fields{'username'}};
                     if (defined($fields{'sec'})) {                      if (defined($fields{'sec'})) {
Line 783  sub upfile_drop_add { Line 803  sub upfile_drop_add {
                             $sec=$entries{$fields{'sec'}};                              $sec=$entries{$fields{'sec'}};
                         }                          }
                     }                      }
                       # determine student id number
                     my $id='';                      my $id='';
                     if (defined($fields{'id'})) {                      if (defined($fields{'id'})) {
                         if (defined($entries{$fields{'id'}})) {                          if (defined($entries{$fields{'id'}})) {
Line 790  sub upfile_drop_add { Line 811  sub upfile_drop_add {
                         }                          }
                         $id=~tr/A-Z/a-z/;                          $id=~tr/A-Z/a-z/;
                     }                      }
                       # determine student password
                     my $password='';                      my $password='';
                     if ($genpwd) {                       if ($genpwd) { 
                         $password=$genpwd;                           $password=$genpwd; 
Line 801  sub upfile_drop_add { Line 823  sub upfile_drop_add {
                         }                          }
                     }                      }
                     if ($password) {                      if ($password) {
                         &dropstudent($domain,$username,$cid,$sec);                          &modifystudent($domain,$username,$cid,$sec);
                         my $reply=&Apache::lonnet::modifystudent                          my $reply=&Apache::lonnet::modifystudent
                             ($domain,$username,$id,$amode,$password,                              ($domain,$username,$id,$amode,$password,
                              $fname,$mname,$lname,$gen,$sec,$enddate,                               $fname,$mname,$lname,$gen,$sec,$enddate,
                              $startdate,$ENV{'form.forceid'});                               $startdate,$ENV{'form.forceid'});
                         unless ($reply eq 'ok') {                          if ($reply ne 'ok') {
                             $r->print(                              $r->print('<p><b>'.
                              "<p><b>Error enrolling $username: $reply</b><p>");                                        'Error enrolling '.$username.': '.
                                         $reply.'</b></p>');
           } else {            } else {
                             $count++; $flushc++;                              $count++; $flushc++;
                             $student{$username}=1;                              $student{$username}=1;
Line 822  sub upfile_drop_add { Line 845  sub upfile_drop_add {
                         $r->print("<p><b>No password for $username</b><p>");                          $r->print("<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') {          if ($ENV{'form.fullup'} eq 'yes') {
             $r->print('<h3>Dropping Students</h3>');              $r->print('<h3>Dropping Students</h3>');
 # ------------------------------------------------------- Get current classlist              #  Get current classlist
             my $classlst=&Apache::lonnet::reply              my %currentlist=&get_current_classlist
                 ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.                  ($ENV{'course.'.$cid.'.domain'},
                          $ENV{'course.'.$cid.'.num'}.':classlist',                   $ENV{'course.'.$cid.'.num'});
                          $ENV{'course.'.$cid.'.home'});              if (defined(%currentlist)) {
             my %currentlist=();                  # Drop the students
             my $now=time;  
             unless ($classlst=~/^error\:/) {  
                 foreach (split(/\&/,$classlst)) {  
                     my ($name,$value)=split(/\=/,$_);  
                     my ($end,$start)=split(/\:/,  
                                            &Apache::lonnet::unescape($value));  
                     my $active=1;  
                     if (($end) && ($now>$end)) { $active=0; }  
                     if ($active) {  
                         $currentlist{&Apache::lonnet::unescape($name)}=1;  
                     }  
                 }  
 # ------------------------------------------------ Now got up-to-date classlist  
                 foreach (@studentdata) {                  foreach (@studentdata) {
                     my %entries=&Apache::loncommon::record_sep($_);                      my %entries=&Apache::loncommon::record_sep($_);
                     unless (($entries{$fields{'username'}} eq '') ||                      unless (($entries{$fields{'username'}} eq '') ||
                             (!defined($entries{$fields{'username'}}))) {                              (!defined($entries{$fields{'username'}}))) {
                         delete($currentlist{                          delete($currentlist{$entries{$fields{'username'}}.
                             $entries{$fields{'username'}}.':'.                                                  ':'.$domain});
                                 $domain});  
                     }                      }
                 }                  }
 # ----------------------------------------------------------- Print out choices                  # Print out list of dropped students
                 &show_drop_list($r,%currentlist);                  &show_drop_list($r,%currentlist);
             } else {              } else {
                 $r->print('<font color=red><h3>Could not access classlist: '.                  $r->print('<font color=red>'.
                           $classlst.'</h3></font>');                            '<h3>Could not access classlist</h3></font>');
             }              }
         }          }
 # ------------------------------------------------------------------------ Done      } # end of unless
     }  
 }  }
   
 # ================================================================== 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;      $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'}) &&       if (($ENV{'request.course.fn'}) && 
        (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {          (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {
 # ------------------------------------------------------------------ Start page          # Start page
        $r->content_type('text/html');          $r->content_type('text/html');
        $r->send_http_header;          $r->send_http_header;
        &header($r);          &header($r);
 # --------------------------------------------------- Phase one, initial screen          # Phase one, initial screen
        unless ($ENV{'form.phase'}) {          unless ($ENV{'form.phase'}) {
            &menu_phase_one($r);              &menu_phase_one($r);
        }          }
 # ------------------------------------------------------------------- Phase two          # Phase two
        if ($ENV{'form.associate'} eq 'Reverse Association') {          if ($ENV{'form.associate'} eq 'Reverse Association') {
            $ENV{'form.phase'} = 'two';              $ENV{'form.phase'} = 'two';
            if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {              if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {
                $ENV{'form.upfile_associate'} = 'reverse';                  $ENV{'form.upfile_associate'} = 'reverse';
            } else {              } else {
                $ENV{'form.upfile_associate'} = 'forward';                  $ENV{'form.upfile_associate'} = 'forward';
            }              }
        }          }
        if ($ENV{'form.phase'} eq 'two') {          if ($ENV{'form.phase'} eq 'two') {
            if ($ENV{'form.fileupload'}) {              if ($ENV{'form.fileupload'}) {
                &menu_phase_two_upload($r);                  &menu_phase_two_upload($r);
            } elsif ($ENV{'form.enroll'}) {              } elsif ($ENV{'form.enroll'}) {
                &menu_phase_two_enroll($r);                  &menu_phase_two_enroll($r);
            } elsif ($ENV{'form.drop'}) {              } elsif ($ENV{'form.drop'}) {
                &menu_phase_two_drop($r);                  &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 five          # 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;
Removed from v.1.25  
changed lines
  Added in v.1.26

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