[BACK]Return to londropadd.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.24 and 1.43

version 1.24, 2002/04/15 23:37:37 version 1.43, 2002/07/31 14:56:34
Line 59  use Apache::Constants qw(:common :http R Line 59  use Apache::Constants qw(:common :http R
 # ================================================================ 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 Enrollment Manager</title>
 </head>  </head>
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
 <img align=right src=/adm/lonIcons/lonlogos.gif>  <img align=right src=/adm/lonIcons/lonlogos.gif>
 <h1>Drop/Add Students</h1>  <h1>$ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h1>
 <form method="post" enctype="multipart/form-data"  <h2>Enrollment Manager</h2>
 action="/adm/dropadd" name="studentform">  <form method="post" enctype="multipart/form-data"  
 <h2>Course: $ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h2>        action="/adm/dropadd" name="studentform">
 ENDHEAD  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,$desiredhost)=@_;
      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 "$1" 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=''; }      my $result = '';
           if (((!$section) && (!$csec)) || ($section ne $csec)) {      foreach my $course (keys(%roles)) {
     my ($dummy,$end,$start)=split(/\_/,          if ($course=~/^$courseid(?:\/)*(?:\s+)*(\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,'','','','','','','',
             unless ($notactive) {                           $section,time,undef,undef,$desiredhost);
                 my $reply=&Apache::lonnet::modifystudent(                      $result .= $reply.':';
                                    $udom,$unam,'','','',                  }
            '','','','',$section,time);  
             }              }
   }  
         }          }
     }      }
       if ($result eq '') {
           $result eq 'Unable to find section for this student';
       } else {
           $result =~ s/(ok:)+/ok/g;
       }
       return $result;
 }  }
   
 # ============================================================== Menu Phase One  # ============ build a domain and server selection form
   sub domain_form {
       my ($defdom) = @_;
       # Set up domain and server selection forms
       #
       # Get the domains
       my @domains = &Apache::loncommon::get_domains();
       # build up the menu information to be passed to 
       # &Apache::loncommon::linked_select_forms
       my %select_menus;
       foreach my $dom (@domains) {
           # set up the text for this domain
           $select_menus{$dom}->{'text'}= $dom;
           # we want a choice of 'default' as the default in the second menu
           $select_menus{$dom}->{'default'}= 'default';
           $select_menus{$dom}->{'select2'}->{'default'} = 'default';
           # Now build up the other items in the second menu
           my %servers = &Apache::loncommon::get_home_servers($dom);
           foreach my $server (keys(%servers)) {
               $select_menus{$dom}->{'select2'}->{$server} 
                                               = "$server $servers{$server}";
           }
       }
       my $result  = &Apache::loncommon::linked_select_forms
           ('studentform',' with home server ',$defdom,
            'lcdomain','lcserver',\%select_menus);
       return $result;
   }
   
   # ============================================================== 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();
       my $create_classlist_help = 
    &Apache::loncommon::help_open_topic("Course_Create_Class_List");
       my $create_csv_help =
    &Apache::loncommon::help_open_topic("Course_Convert_To_CSV");
     $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>
 $upfile_select  $upfile_select
 <p><input type=submit name=fileupload value="Upload Courselist">  <p><input type=submit name="fileupload" value="Upload Courselist">
 <hr>  <br />
   How to create a class list from a spreadsheet $create_classlist_help
   <br />
   How to create a CSV file from your spreadsheet $create_csv_help
   
   <hr />
 <h3>Enroll a single student</h3>  <h3>Enroll a single student</h3>
 <p><input type=submit name=enroll value="Enroll Student">  <p><input type=submit name="enroll" value="Enroll Student"></p>
 <hr>  <hr />
   <h3>Classlist</h3>
   <p><input type=submit name="view" value="View Class List">
   <input type=submit name="viewcsv" value="Comma Separated Class List"></p>
   <hr />
 <h3>Drop students</h3>  <h3>Drop students</h3>
 <p><input type=submit name=drop value="Selection List">  <p><input type=submit name="drop" value="Selection List"></p>
 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 140  sub phase_two_header { Line 183  sub phase_two_header {
     }      }
     my $javascript_validations=&javascript_validations($krbdefdom);      my $javascript_validations=&javascript_validations($krbdefdom);
     $r->print(<<ENDPICK);      $r->print(<<ENDPICK);
   <h3>Uploading Class List</h3>
 <hr>  <hr>
 <h3>Identify fields</h3>  <h3>Identify fields</h3>
 Total number of records found in file: $distotal <hr />  Total number of records found in file: $distotal <hr />
 Enter as many fields as you can. The system will inform you and bring you back  Enter as many fields as you can. The system will inform you and bring you back
 to this page if the data selected is insufficient to run your class.<hr />  to this page if the data selected is insufficient to run your class.<hr />
 <input type="submit" name="associate" value="Reverse Association" />  <input type="button" value="Reverse Association" onClick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" />
 <input type="hidden" name="phase" value="three" />  <input type="hidden" name="associate"  value="" />
 <input type="hidden" name="datatoken" value="$datatoken" />  <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="fileupload" value="$ENV{'form.fileupload'}" />
 <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" />  <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" />
 <input type="hidden" name="upfile_associate" value="$ENV{'form.upfile_associate'}" />  <input type="hidden" name="upfile_associate" 
                                          value="$ENV{'form.upfile_associate'}" />
 <hr />  <hr />
 <script>  <script type="text/javascript" language="Javascript">
 $javascript  $javascript
   
 $javascript_validations  $javascript_validations
 </script>  </script>
 ENDPICK  ENDPICK
Line 162  ENDPICK Line 207  ENDPICK
   
 sub javascript_validations {  sub javascript_validations {
     my ($krbdefdom)=@_;      my ($krbdefdom)=@_;
       my %param = ( formname => 'studentform',
                     kerb_def_dom => $krbdefdom );
       my $authheader = &Apache::loncommon::authform_header(%param);
     return (<<ENDPICK);      return (<<ENDPICK);
 function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) {  function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec) {
     var foundatype=0;      var foundatype=0;
     var message='';      var message='';
     if (founduname==0) {      if (founduname==0) {
  alert('You need to specify at least the username field');   alert('You need to specify the username field');
         return;          return;
     }      }
     if (vf.login[0].checked) {      if (current.radiovalue == null || current.radiovalue == 'nochange') {
  foundatype=1;          // They did not check any of the login radiobuttons.
         if (vf.krbdom.value=='') {          alert('You must choose an authentication type');
     alert('You need to specify the Kerberos domain');          return;
             return;  
         }  
     }      }
     if (vf.login[1].checked) {      foundatype=1;
  foundatype=1;      if (current.argfield == null || current.argfield == '') {
         if ((vf.intpwd.value=='') && (foundpwd==0)) {          var alertmsg = '';
     alert('You need to specify the initial password');          switch (current.value) {
               case 'krb': 
                   alertmsg = 'You need to specify the Kerberos domain';
                   break;
               case 'loc':
               case 'fsys':
                   alertmsg = 'You need to specify the initial password';
                   break;
               case 'fsys':
                   alertmsg = '';
                   break;
               default: 
                   alertmsg = '';
           }
           if (alertmsg != '') {
               alert(alertmsg);
             return;              return;
         }          }
     }      }
     if (vf.login[2].checked) {  
  foundatype=1;  
  //An argument is not required  
     }  
     if (foundatype==0) {  
  alert('You need to set the login type');  
         return;  
     }  
     if (foundname==0) { message='No name fields specified. '; }      if (foundname==0) { message='No name fields specified. '; }
     if (foundid==0) { message+='No ID or student number field specified. '; }      if (foundid==0) { message+='No ID or student number field specified. '; }
     if (foundsec==0) { message+='No section or group field specified. '; }      if (foundsec==0) { message+='No section or group field specified. '; }
Line 219  function verify_message (vf,founduname,f Line 273  function verify_message (vf,founduname,f
     }      }
 }  }
   
 function setkrb(vf) {  
     if (vf.krbdom.value!='') {  
        clearpwd(vf);  
        vf.login[0].checked=true;  
        vf.krbdom.value=vf.krbdom.value.toUpperCase();  
        vf.intpwd.value='';  
        vf.locarg.value='';  
    }  
 }  
   
 function setint(vf) {  
     if (vf.intpwd.value!='') {  
        clearpwd(vf);  
        vf.login[1].checked=true;  
        vf.krbdom.value='';  
        vf.locarg.value='';  
    }  
 }  
   
 function setloc(vf) {  
     if (vf.locarg.value!='') {  
        vf.login[2].checked=true;  
        vf.krbdom.value='';  
        vf.intpwd.value='';  
    }  
 }  
   
 function clickkrb(vf) {  
     vf.krbdom.value='$krbdefdom';  
     clearpwd(vf);  
     vf.intpwd.value='';  
     vf.locarg.value='';  
 }  
   
 function clickint(vf) {  
     vf.krbdom.value='';  
     vf.locarg.value='';  
 }  
   
 function clickloc(vf) {  
     vf.krbdom.value='';  
     vf.intpwd.value='';  
 }  
   
     function pclose() {      function pclose() {
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",          parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
Line 290  function clickloc(vf) { Line 301  function clickloc(vf) {
         pclose();          pclose();
     }      }
   
   $authheader
 ENDPICK  ENDPICK
   
 }  }
   
 sub phase_two_javascript_forward_associate {  sub phase_two_javascript_forward_associate {
Line 313  function verify(vf) { Line 326  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 343  function flip(vf,tf) { Line 355  function flip(vf,tf) {
       }        }
    }     }
    if (nw==9) {     if (nw==9) {
        vf.login[1].checked=true;         changed_radio('int',document.studentform);
        vf.intpwd.value='';         set_auth_radio_buttons('int',document.studentform);
        vf.krbdom.value='';         vf.intarg.value='';
          vf.krbarg.value='';
        vf.locarg.value='';         vf.locarg.value='';
    }     }
 }  }
Line 398  function flip(vf,tf) { Line 411  function flip(vf,tf) {
    }     }
    // intial password specified, pick internal authentication     // intial password specified, pick internal authentication
    if (tf==8 && nw!=0) {     if (tf==8 && nw!=0) {
        vf.login[1].checked=true;         changed_radio('int',document.studentform);
        vf.intpwd.value='';         set_auth_radio_buttons('int',document.studentform);
        vf.krbdom.value='';         vf.krbarg.value='';
          vf.intarg.value='';
        vf.locarg.value='';         vf.locarg.value='';
    }     }
 }  }
Line 416  ENDPICK Line 430  ENDPICK
   
 sub phase_two_end {  sub phase_two_end {
     my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_;      my ($r,$i,$keyfields,$defdom,$today,$halfyear)=@_;
       my %param = ( formname => 'document.studentform');
       my $krbform = &Apache::loncommon::authform_kerberos(%param);
       my $intform = &Apache::loncommon::authform_internal(%param);
       my $locform = &Apache::loncommon::authform_local(%param);
       my $domform = &domain_form($defdom);
     $r->print(<<ENDPICK);      $r->print(<<ENDPICK);
 </table>  </table>
 <input type=hidden name=nfields value=$i>  <input type=hidden name=nfields value=$i>
Line 423  sub phase_two_end { Line 442  sub phase_two_end {
 <h3>Login Type</h3>  <h3>Login Type</h3>
 <p>Note: this will not take effect if the user already exists</p>  <p>Note: this will not take effect if the user already exists</p>
 <p>  <p>
 <input type=radio name=login value=krb onClick="clickkrb(this.form);" />  $krbform
 Kerberos authenticated with domain  
 <input type=text size=10 name=krbdom onChange="setkrb(this.form);" />  
 </p>  </p>
 <p>  <p>
 <input type=radio name=login value=int onClick="clickint(this.form);" />  $intform
 Internally authenticated (with initial password   
 <input type=text size=10 name=intpwd onChange="setint(this.form);" />)  
 </p>  </p>
 <p>  <p>
 <input type=radio name=login value=loc onClick="clickloc(this.form);" />  $locform
 Local Authentication with argument  
 <input type=text size=10 name=locarg onChange="setloc(this.form);" />  
 </p>  </p>
 <h3>LON-CAPA Domain for Students</h3>  <h3>LON-CAPA Domain for Students</h3>
 LON-CAPA domain: <input type=text size=10 value=$defdom name=lcdomain><p>  LON-CAPA domain: $domform <p>
 <h3>Starting and Ending Dates</h3>  <h3>Starting and Ending Dates</h3>
 <input type="hidden" value='' name="pres_value">  <input type="hidden" value=''          name="pres_value"  >
 <input type="hidden" value='' name="pres_type">  <input type="hidden" value=''          name="pres_type"   >
 <input type="hidden" value='' name="pres_marker">  <input type="hidden" value=''          name="pres_marker" >
 <input type="hidden" value='$today' name=startdate>  <input type="hidden" value='$today'    name="startdate"   >
 <input type="hidden" value='$halfyear' name=enddate>  <input type="hidden" value='$halfyear' name="enddate"     >
 <a   <a 
  href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"   href="javascript:pjump('date_start','Enrollment Starting Date',document.studentform.startdate.value,'start','studentform.pres','dateset');"
 >Set Starting Date</a><p>  >Set Starting Date</a><p>
Line 459  LON-CAPA domain: <input type=text size=1 Line 472  LON-CAPA domain: <input type=text size=1
 <input type=checkbox name=forceid value=yes>   <input type=checkbox name=forceid value=yes> 
 Disable ID/Student Number Safeguard and Force Change of Conflicting IDs  Disable ID/Student Number Safeguard and Force Change of Conflicting IDs
 (only do if you know what you are doing)<p>  (only do if you know what you are doing)<p>
 <input type=button onClick="verify(this.form)" value="Update Courselist"><br>  <input type="button" onClick="javascript:verify(this.form)" value="Update Courselist" /><br />
 Note: for large courses, this operation might be time consuming.  Note: for large courses, this operation 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;
   
Line 479  sub menu_phase_two_upload { Line 491  sub menu_phase_two_upload {
     my @records=&Apache::loncommon::upfile_record_sep();      my @records=&Apache::loncommon::upfile_record_sep();
     my $total=$#records;      my $total=$#records;
     my $distotal=$total+1;      my $distotal=$total+1;
   
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;      $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
     my $krbdefdom=$1;      my $krbdefdom=$1;
     $krbdefdom=~tr/a-z/A-Z/;      $krbdefdom=~tr/a-z/A-Z/;
   
     my $today=time;      my $today=time;
     my $halfyear=$today+15552000;      my $halfyear=$today+15552000;
   
     my $defdom=$r->dir_config('lonDefDomain');      my $defdom=$r->dir_config('lonDefDomain');
   
     &phase_two_header($r,$datatoken,$distotal,$krbdefdom);      &phase_two_header($r,$datatoken,$distotal,$krbdefdom);
   
     my $i;      my $i;
     my $keyfields;      my $keyfields;
     if ($total>=0) {      if ($total>=0) {
Line 511  sub menu_phase_two_upload { Line 518  sub menu_phase_two_upload {
     $keyfields=join(',',sort(keys(%sone)));      $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>');
       $r->print('<p>Enrolling '.$ENV{'form.cuname'}." in domain ".
                 $ENV{'form.lcdomain'}.'</p>');
     if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&      if (($ENV{'form.cuname'})&&($ENV{'form.cuname'}!~/\W/)&&
         ($ENV{'form.cdomain'})&&($ENV{'form.cdomain'}!~/\W/)) {          ($ENV{'form.lcdomain'})&&($ENV{'form.lcdomain'}!~/\W/)) {
           # Deal with home server selection
           my $domain=$ENV{'form.lcdomain'};
           my $desiredhost = $ENV{'form.lcserver'};
           if (lc($desiredhost) eq 'default') {
               $desiredhost = undef;
           } else {
               my %home_servers = &Apache::loncommon::get_home_servers($domain);
               if (! exists($home_servers{$desiredhost})) {
                   $r->print('<font color="#ff0000">Error:</font>'.
                             'Invalid home server specified');
                   return;
               }
           }
           $r->print(" with server $desiredhost :") if (defined($desiredhost));
           # End of home server selection logic
  my $amode='';   my $amode='';
         my $genpwd='';          my $genpwd='';
         if ($ENV{'form.login'} eq 'krb') {          if ($ENV{'form.login'} eq 'krb') {
            $amode='krb4';             $amode='krb4';
            $genpwd=$ENV{'form.krbdom'};             $genpwd=$ENV{'form.krbarg'};
         } elsif ($ENV{'form.login'} eq 'int') {          } elsif ($ENV{'form.login'} eq 'int') {
            $amode='internal';             $amode='internal';
            $genpwd=$ENV{'form.intpwd'};             $genpwd=$ENV{'form.intarg'};
         }  elsif ($ENV{'form.login'} eq 'loc') {          }  elsif ($ENV{'form.login'} eq 'loc') {
     $amode='localauth';      $amode='localauth';
     $genpwd=$ENV{'form.locarg'};      $genpwd=$ENV{'form.locarg'};
     if (!$genpwd) { $genpwd=" "; }      if (!$genpwd) { $genpwd=" "; }
  }   }
         if (($amode) && ($genpwd)) {          my $home = &Apache::lonnet::homeserver($ENV{'form.cuname'},
    &dropstudent($ENV{'form.cdomain'},$ENV{'form.cuname'},                                                     $ENV{'form.lcdomain'});
        $ENV{'request.course.id'},$ENV{'form.csec'});          if ((($amode) && ($genpwd)) || ($home ne 'no_host')) {
               &modifystudent($ENV{'form.lcdomain'},$ENV{'form.cuname'},
                              $ENV{'request.course.id'},$ENV{'form.csec'},
                               $desiredhost);
           $r->print(&Apache::lonnet::modifystudent(            $r->print(&Apache::lonnet::modifystudent(
                       $ENV{'form.cdomain'},$ENV{'form.cuname'},                        $ENV{'form.lcdomain'},$ENV{'form.cuname'},
                       $ENV{'form.cstid'},$amode,$genpwd,                        $ENV{'form.cstid'},$amode,$genpwd,
                $ENV{'form.cfirst'},$ENV{'form.cmiddle'},                 $ENV{'form.cfirst'},$ENV{'form.cmiddle'},
                       $ENV{'form.clast'},$ENV{'form.cgen'},                        $ENV{'form.clast'},$ENV{'form.cgen'},
                       $ENV{'form.csec'},$ENV{'form.enddate'},                        $ENV{'form.csec'},$ENV{'form.enddate'},
                       $ENV{'form.startdate'},$ENV{'form.forceid'}));                        $ENV{'form.startdate'},$ENV{'form.forceid'},
                       $desiredhost));
  } else {   } else {
            $r->print('Invalid login mode or password');                  $r->print('<p><font color="#ff0000">ERROR</font>&nbsp;'.
                         'Invalid login mode or password.  '.
                         'Unable to enroll '.$ENV{'form.cuname'}.'.</p>');
         }                    }          
     } else {      } else {
         $r->print('Invalid username or domain');          $r->print('Invalid username or domain');
Line 555  sub enroll_single_student { Line 582  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;
           $r->print("<h3>Enroll One Student</h3>");
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;      my ($krbdefdom) = $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
     my $krbdefdom=$1;  
     $krbdefdom=~tr/a-z/A-Z/;      $krbdefdom=~tr/a-z/A-Z/;
       my $today    = time;
     my $today=time;      my $halfyear = $today+15552000;
     my $halfyear=$today+15552000;  
   
     my $defdom=$r->dir_config('lonDefDomain');      my $defdom=$r->dir_config('lonDefDomain');
     my $javascript_validations=&javascript_validations($krbdefdom);      my $javascript_validations=&javascript_validations($krbdefdom);
       # Set up authentication forms
       my %param = ( formname => 'document.studentform');
       my $krbform = &Apache::loncommon::authform_kerberos(%param);
       my $intform = &Apache::loncommon::authform_internal(%param);
       my $locform = &Apache::loncommon::authform_local(%param);
       # Set up domain selection form
       my $domform = &domain_form($defdom);
       # Print it all out
     $r->print(<<ENDSENROLL);      $r->print(<<ENDSENROLL);
 <script>  <script type="text/javascript" language="Javascript">
 function verify(vf) {  function verify(vf) {
     var founduname=0;      var founduname=0;
     var foundpwd=0;      var foundpwd=0;
Line 577  function verify(vf) { Line 608  function verify(vf) {
     var foundid=0;      var foundid=0;
     var foundsec=0;      var foundsec=0;
     var tw;      var tw;
     if ((typeof(vf.cuname.value)!="undefined") && (vf.cuname.value!='') &&       if ((typeof(vf.cuname.value) !="undefined") && (vf.cuname.value!='') && 
  (typeof(vf.cdomain.value)!="undefined") && (vf.cdomain.value!='')) {   (typeof(vf.lcdomain.value)!="undefined") && (vf.lcdomain.value!='')) {
         founduname=1;          founduname=1;
     }      }
     if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') &&      if ((typeof(vf.cfirst.value)!="undefined") && (vf.cfirst.value!='') &&
  (typeof(vf.clast.value)!="undefined") && (vf.clast.value!='')) {   (typeof(vf.clast.value) !="undefined") && (vf.clast.value!='')) {
         foundname=1;          foundname=1;
     }      }
     if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) {      if ((typeof(vf.csec.value)!="undefined") && (vf.csec.value!='')) {
Line 606  function clearpwd(vf) { Line 637  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:   $domform</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);">  $krbform
 Kerberos authenticated with domain  </p><p>
 <input type=text size=10 name=krbdom onChange="setkrb(this.form);"><p>  $intform
 <input type=radio name=login value=int onClick="clickint(this.form);">   </p><p>
 Internally authenticated (with initial password   $locform
 <input type=text size=10 name=intpwd onChange="setint(this.form);">)  </p><p>
 <p>  
 <input type=radio name=login value=loc onClick="clickloc(this.form);" />  
 Local Authentication with argument  
 <input type=text size=10 name=locarg onChange="setloc(this.form);" />  
 </p>  
 <h3>Starting and Ending Dates</h3>  <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 {
           $tmp =~ s/^error://;
           return ($tmp,undef);
       }
   }
   
   # ========================================================= Menu Phase Two Drop
 sub menu_phase_two_drop {  sub menu_phase_two_drop {
     my $r=shift;      my $r=shift;
       $r->print("<h3>Drop Students</h3>");
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
                  my $classlst=&Apache::lonnet::reply      my ($error,%currentlist)=&get_current_classlist
                  ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.          ($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});
                   $ENV{'course.'.$cid.'.num'}.':classlist',      if (defined($error)) {
                   $ENV{'course.'.$cid.'.home'});          if ($error =~ /^No such file or directory/) {
                  my %currentlist=();              $r->print("There are no students currently enrolled.\n");
                  my $now=time;          } else {
                  unless ($classlst=~/^error\:/) {              $r->print("<pre>ERROR:$error</pre>");
                      foreach (split(/\&/,$classlst)) {          }
                         my ($name,$value)=split(/\=/,$_);      } elsif (!defined(%currentlist)) { 
                         my ($end,$start)=split(/\:/,          $r->print("There are no students currently enrolled.\n");
                                             &Apache::lonnet::unescape($value));      } else {
                         my $active=1;          # Print out the available choices
                         if (($end) && ($now>$end)) { $active=0; }          &show_drop_list($r,%currentlist);
                         if ($active) {      }
            $currentlist{&Apache::lonnet::unescape($name)}=1;  }
                         }  
                      }  # ============================================== view classlist
 # ----------------------------------------------------------- Print out choices  sub menu_phase_two_view {
                      &show_drop_list($r,%currentlist);      my $r=shift;
          } else {      $r->print("<h3>Current Classlist</h3>");
                      $r->print(      my $cid=$ENV{'request.course.id'};
                   '<font color=red><h3>Could not access classlist: '.$classlst.      my ($error,%currentlist)=&get_current_classlist
                   '</h3></font>');          ($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});
                  }      if (defined($error)) {
           if ($error =~ /^No such file or directory/) {
               $r->print("There are no students currently enrolled.\n");
           } else {
               $r->print("<pre>ERROR:$error</pre>");
           }
       } elsif (!defined(%currentlist)) { 
           $r->print("There are no students currently enrolled.\n");
       } else {
           # Print out the available choices
           &show_class_list($r,'view',%currentlist);
       }
   }
   
   # ============================================== view classlist
   sub menu_phase_two_viewcsv {
       my $r=shift;
       my $cid=$ENV{'request.course.id'};
       my ($error,%currentlist)=&get_current_classlist
           ($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});
       if (defined($error)) {
           if ($error =~ /^No such file or directory/) {
               $r->print("There are no students currently enrolled.\n");
           } else {
               $r->print("<pre>ERROR:$error</pre>");
           }
       } elsif (!defined(%currentlist)) { 
           $r->print("There are no students currently enrolled.\n");
       } else {
           &show_class_list($r,'csv',%currentlist);
       }
 }  }
   
 # =================================================== Show student list to drop  # =================================================== Show student list to drop
   sub show_class_list {
       my ($r,$mode,%currentlist)=@_;
       my $cid=$ENV{'request.course.id'};
       # Print out header 
       if ($mode eq 'view') {
           $r->print(<<END);
   <p>
   <table border=2>
   <tr><th>username</th><th>domain</th><th>ID</th>
       <th>student name</th><th>generation</th><th>section</th></tr>
   END
       } elsif ($mode eq 'csv') {
           $r->print(<<END);
   username,domain,ID,last name,first name,middle name,generation,section
   END
       }
       foreach (sort keys %currentlist) {
           my ($sname,$sdom)=split(/\:/,$_);
           my %reply=&Apache::lonnet::idrget($sdom,$sname);
           my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);
           my %info=&Apache::lonnet::get('environment',
                                         ['firstname','middlename',
                                          'lastname','generation'],
                                         $sdom, $sname);
           my ($tmp) = keys(%info);
           if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
               $r->print( ($mode eq 'view' ? 
                          '<tr><td colspan="6"><font color="red">' :'').
                          'Internal error: unable to get environment '.
                          'for '.$sname.' in domain '.$sdom.
                          ( $mode eq 'view' ?'</font></td></tr>' :''));
           } else {
               if ($mode eq 'view') {
                   $r->print(<<"END");
   <tr>
       <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
               } elsif ($mode eq 'csv') {
                   my @line = ();
                   foreach ($sname,$sdom,$reply{$sname},
                            $info{'lastname'},$info{'firstname'},
                            $info{'middlename'},$info{'generation'},$ssec) {
                       push @line,&Apache::loncommon::csv_translate($_);
                   }
                   my $tmp = $";
                   $" = '","';
                   $r->print("\"@line\"\n");
                   $" = $tmp;
               }
           }
       }
       $r->print('</table><br>') if ($mode eq 'view');
   }
   
   # =================================================== 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');
   <script>
   function checkAll(field)
   {
       for (i = 0; i < field.length; i++)
           field[i].checked = true ;
   }
   
     $r->print('<input type=hidden name=phase value=four>');  function uncheckAll(field)
                      $r->print('<table border=2>');  {
                      foreach (sort keys %currentlist) {      for (i = 0; i < field.length; i++)
                          my ($sname,$sdom)=split(/\:/,$_);          field[i].checked = false ;
                          my %reply=&Apache::lonnet::idrget($sdom,$sname);  }
                          my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);  </script>
                          my @reply=split(/[\&\=]/,&Apache::lonnet::reply(  <p>
                            'get:'.$sdom.':'.$sname.  <input type="hidden" name="phase" value="four">
       ':environment:firstname&middlename&lastname&generation',  <table border=2>
                            &Apache::lonnet::homeserver($sname,$sdom)));  <tr><th>&nbsp;</th><th>username</th><th>domain</th>
   $r->print(  <th>ID</th><th>student name</th><th>generation</th>
                   '<tr><td><input type=checkbox name="drop:'.$_.'"></td><td>'.  <th>section</th></tr>
                                    $sname.'</td><td>'.$sdom.'</td><td>'.  END
                                    $reply{$sname}.'</td><td>'.      foreach (sort keys %currentlist) {
                                    &Apache::lonnet::unescape($reply[2]).' '.          my ($sname,$sdom)=split(/\:/,$_);
                                    &Apache::lonnet::unescape($reply[3]).', '.          my %reply=&Apache::lonnet::idrget($sdom,$sname);
                                    &Apache::lonnet::unescape($reply[0]).' '.          my $ssec=&Apache::lonnet::usection($sdom,$sname,$cid);
                                    &Apache::lonnet::unescape($reply[1]).          my %info=&Apache::lonnet::get('environment',
                                    '</td><td>'.                                        ['firstname','middlename',
                                    $ssec."</td></tr>\n");                                         'lastname','generation'],
                      }                                        $sdom, $sname);
                      $r->print('</table><br>');          my ($tmp) = keys(%info);
                      $r->print('<input type=submit value="Drop Students">');          if ($tmp =~ /^(con_lost|error|no_such_host)/i) {
               $r->print('<tr><td colspan="7"><font color="red">'.
                         'Internal error: unable to get environment '.
                         'for '.$sname.' in domain '.$sdom.'</font></td></tr>');
           } else {
               $r->print(<<"END");
   <tr>
       <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(<<"END");
   </p><p>
   <input type="button" value="check all" onclick="javascript:checkAll(document.studentform.droplist)"> &nbsp;
   <input type="button" value="uncheck all" onclick="javascript:uncheckAll(document.studentform.droplist)"> 
   <p><input type=submit value="Drop Students"></p>
   END
 }  }
   
 # ================================================= 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};              }
      }          } else {
  } else {              $fields{$ENV{'form.f'.$i}}=$keyfields[$i];
      $fields{$ENV{'form.f'.$i}}=$keyfields[$i];          }
  }      }
              }      #
              my $startdate=$ENV{'form.startdate'};      my $startdate = $ENV{'form.startdate'};
              my $enddate=$ENV{'form.enddate'};      my $enddate   = $ENV{'form.enddate'};
              if ($startdate=~/\D/) { $startdate=''; }      if ($startdate=~/\D/) { $startdate=''; }
              if ($enddate=~/\D/) { $enddate=''; }      if ($enddate=~/\D/)   { $enddate=''; }
              my $domain=$ENV{'form.lcdomain'};      # Determine domain and desired host (home server)
              my $amode='';      my $domain=$ENV{'form.lcdomain'};
              my $genpwd='';      my $desiredhost = $ENV{'form.lcserver'};
              if ($ENV{'form.login'} eq 'krb') {      if (lc($desiredhost) eq 'default') {
                  $amode='krb4';          $desiredhost = undef;
                  $genpwd=$ENV{'form.krbdom'};      } else {
              } elsif ($ENV{'form.login'} eq 'int') {          my %home_servers = &Apache::loncommon::get_home_servers($domain);
                  $amode='internal';          if (! exists($home_servers{$desiredhost})) {
                  if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) {              $r->print('<font color="#ff0000">Error:</font>'.
      $genpwd=$ENV{'form.intpwd'};                        'Invalid home server specified');
                  }              return;
              } elsif ($ENV{'form.login'} eq 'loc') {          }
  $amode='localauth';      }
  if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {      # Determine authentication mechanism
      $genpwd=$ENV{'form.locarg'};      my $amode  = '';
                  }      my $genpwd = '';
      }      if ($ENV{'form.login'} eq 'krb') {
              unless (($domain=~/\W/) || ($amode eq '')) {          $amode='krb4';
               $r->print('<h3>Enrolling Students</h3>');          $genpwd=$ENV{'form.krbarg'};
               my $count=0;      } elsif ($ENV{'form.login'} eq 'int') {
               my $flushc=0;          $amode='internal';
               my %student=();          if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) {
 # ----------------------------------------------------------- Get new classlist              $genpwd=$ENV{'form.intarg'};
 # --------------------------------------------------------- Enroll new students          }
       foreach (@studentdata) {      } elsif ($ENV{'form.login'} eq 'loc') {
   my %entries=&Apache::loncommon::record_sep($_);          $amode='localauth';
           if ((defined($ENV{'form.locarg'})) && ($ENV{'form.locarg'})) {
                 unless (($entries{$fields{'username'}} eq '') ||              $genpwd=$ENV{'form.locarg'};
                         (!defined($entries{$fields{'username'}}))) {          }
                   my $fname=''; my $mname=''; my $lname=''; my $gen='';      }
                   if (defined($fields{'names'})) {      unless (($domain=~/\W/) || ($amode eq '')) {
       ($lname,$fname,$mname)=          #######################################
             ($entries{$fields{'names'}}=~/([^\,]+)\,\s*(\w+)\s*(.*)$/);          ##         Enroll Students           ##
                   } else {          #######################################
                       if (defined($fields{'fname'})) {          $r->print('<h3>Enrolling Students</h3>');
          $fname=$entries{$fields{'fname'}};          my $count=0;
       }          my $flushc=0;
                       if (defined($fields{'mname'})) {          my %student=();
          $mname=$entries{$fields{'mname'}};          # Get new classlist
       }          foreach (@studentdata) {
                       if (defined($fields{'lname'})) {              my %entries=&Apache::loncommon::record_sep($_);
          $lname=$entries{$fields{'lname'}};              # Determine student name
       }              unless (($entries{$fields{'username'}} eq '') ||
                       if (defined($fields{'gen'})) {                      (!defined($entries{$fields{'username'}}))) {
          $gen=$entries{$fields{'gen'}};                  my ($fname, $mname, $lname,$gen) = ('','','','');
       }                  if (defined($fields{'names'})) {
                   }                      ($lname,$fname,$mname)=($entries{$fields{'names'}}=~
                   if ($entries{$fields{'username'}}=~/\W/) {                                              /([^\,]+)\,\s*(\w+)\s*(.*)$/);
                      $r->print('<p><b>Unacceptable username: '.                  } else {
                       if (defined($fields{'fname'})) {
                           $fname=$entries{$fields{'fname'}};
                       }
                       if (defined($fields{'mname'})) {
                           $mname=$entries{$fields{'mname'}};
                       }
                       if (defined($fields{'lname'})) {
                           $lname=$entries{$fields{'lname'}};
                       }
                       if (defined($fields{'gen'})) {
                           $gen=$entries{$fields{'gen'}};
                       }
                   }
                   if ($entries{$fields{'username'}}=~/\W/) {
                       $r->print('<p><b>Unacceptable username: '.
                               $entries{$fields{'username'}}.' for user '.                                $entries{$fields{'username'}}.' for user '.
                               $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');                                $fname.' '.$mname.' '.$lname.' '.$gen.'</b><p>');
   } else {                  } else {
                       my $sec='';                      # determine section number
                       my $username=$entries{$fields{'username'}};                      my $sec='';
                       if (defined($fields{'sec'})) {                      my $username=$entries{$fields{'username'}};
                          if (defined($entries{$fields{'sec'}})) {                      if (defined($fields{'sec'})) {
      $sec=$entries{$fields{'sec'}};                          if (defined($entries{$fields{'sec'}})) {
                          }                              $sec=$entries{$fields{'sec'}};
                       }                          }
                       my $id='';                      }
                       if (defined($fields{'id'})) {                      # determine student id number
                          if (defined($entries{$fields{'id'}})) {                      my $id='';
      $id=$entries{$fields{'id'}};                      if (defined($fields{'id'})) {
                          }                          if (defined($entries{$fields{'id'}})) {
                          $id=~tr/A-Z/a-z/;                              $id=$entries{$fields{'id'}};
                       }                          }
                       my $password='';                          $id=~tr/A-Z/a-z/;
                       if ($genpwd) {                       }
                          $password=$genpwd;                       # determine student password
       } else {                      my $password='';
                          if (defined($fields{'ipwd'})) {                      if ($genpwd) { 
      if ($entries{$fields{'ipwd'}}) {                          $password=$genpwd; 
  $password=$entries{$fields{'ipwd'}};                      } else {
                              }                          if (defined($fields{'ipwd'})) {
                          }                              if ($entries{$fields{'ipwd'}}) {
                       }                                  $password=$entries{$fields{'ipwd'}};
                       if ($password) {                              }
  &dropstudent($domain,$username,$cid,$sec);                          }
                          my $reply=&Apache::lonnet::modifystudent(                      }
                           $domain,$username,$id,$amode,$password,                      if ($password) {
    $fname,$mname,$lname,$gen,$sec,$enddate,$startdate,                          &modifystudent($domain,$username,$cid,$sec,
                            $ENV{'form.forceid'});                                         $desiredhost);
                          unless ($reply eq 'ok') {                          my $reply=&Apache::lonnet::modifystudent
                             $r->print(                              ($domain,$username,$id,$amode,$password,
                              "<p><b>Error enrolling $username: $reply</b><p>");                               $fname,$mname,$lname,$gen,$sec,$enddate,
                                $startdate,$ENV{'form.forceid'},$desiredhost);
                           if ($reply ne 'ok') {
                               $r->print('<p><b>'.
                                         'Error enrolling '.$username.': '.
                                         $reply.'</b></p>');
           } else {            } else {
                             $count++; $flushc++;                              $count++; $flushc++;
                             $student{$username}=1;                              $student{$username}=1;
Line 833  sub upfile_drop_add { Line 1026  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=&Apache::loncommon::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) {      my @droplist;
  if ($_=~/^form\.drop\:/) {      if (ref($ENV{'form.droplist'})) {
     my ($dummy,$uname,$udom)=split(/\:/,$_);          @droplist = @{$ENV{'form.droplist'}};
             &dropstudent($udom,$uname,$ENV{'request.course.id'});      } else {
           @droplist = ($ENV{'form.droplist'});
       }
       foreach (@droplist) {
           my ($uname,$udom)=split(/\:/,$_);
           my $result = &modifystudent($udom,$uname,$ENV{'request.course.id'});
           if ($result eq 'ok' || $result eq 'ok:') {
             $r->print('Dropped '.$uname.' at '.$udom.'<br>');              $r->print('Dropped '.$uname.' at '.$udom.'<br>');
             $count++;          } else {
               $r->print('Error dropping '.$uname.' at '.$udom.': '.$result.
                         '<br />');
         }          }
           $count++;
     }      }
     $r->print('<p><b>Dropped '.$count.' student(s).</b>');      $r->print('<p><b>Dropped '.$count.' student(s).</b>');
     $r->print('<p>Re-enrollment will re-activate data.');      $r->print('<p>Re-enrollment will re-activate data.');
 }  }
   
 # ================================================================ Main Handler  # ================================================================ 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
       if (($ENV{'request.course.fn'}) && 
 # ----------------------------------------------------- Needs to be in a course          (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {
           # Start page
    if (($ENV{'request.course.fn'}) &&           $r->content_type('text/html') if (! exists($ENV{'form.viewcsv'}));
        (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {          $r->send_http_header;
           $r->print(&header()) if (! exists($ENV{'form.viewcsv'}));
 # ------------------------------------------------------------------ Start page          # Phase one, initial screen
       $r->content_type('text/html');          unless ($ENV{'form.phase'}) {
       $r->send_http_header;              &menu_phase_one($r);
       &header($r);          }
           # Phase two
 # --------------------------------------------------- Phase one, initial screen          if ($ENV{'form.associate'} eq 'Reverse Association') {
       unless ($ENV{'form.phase'}) {              $ENV{'form.phase'} = 'two';
   &menu_phase_one($r);              if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {
       }                  $ENV{'form.upfile_associate'} = 'reverse';
 # ------------------------------------------------------------------- Phase two              } else {
                   $ENV{'form.upfile_associate'} = 'forward';
       if ($ENV{'form.associate'} eq 'Reverse Association') {              }
  $ENV{'form.phase'} = 'two';          }
  if ( $ENV{'form.upfile_associate'} ne 'reverse' ) {          if ($ENV{'form.phase'} eq 'two') {
   $ENV{'form.upfile_associate'} = 'reverse';              if ($ENV{'form.fileupload'}) {
  } else {                  &menu_phase_two_upload($r);
   $ENV{'form.upfile_associate'} = 'forward';              } elsif ($ENV{'form.enroll'}) {
  }                  &menu_phase_two_enroll($r);
       }              } elsif ($ENV{'form.drop'}) {
       if ($ENV{'form.phase'} eq 'two') {                  &menu_phase_two_drop($r);
  if ($ENV{'form.fileupload'}) {              } elsif ($ENV{'form.view'}) {
      &menu_phase_two_upload($r);                  &menu_phase_two_view($r);
          } elsif ($ENV{'form.enroll'}) {              } elsif ($ENV{'form.viewcsv'}) {
              &menu_phase_two_enroll($r);                  &menu_phase_two_viewcsv($r);
          } elsif ($ENV{'form.drop'}) {              }
              &menu_phase_two_drop($r);          }
          }          # Phase three
       }          if ($ENV{'form.phase'} eq 'three') {
               if ($ENV{'form.datatoken'}) {
                   &upfile_drop_add($r);
               }
           }
 # ----------------------------------------------------------------- Phase three          # Phase four
       if ($ENV{'form.phase'} eq 'three') {          if ($ENV{'form.phase'} eq 'four') {
   if ($ENV{'form.datatoken'}) {              &drop_student_list($r);
       &upfile_drop_add($r);          }
           }          # Phase five
       }          if ($ENV{'form.phase'} eq 'five') {
 # ------------------------------------------------------------------ Phase four              &enroll_single_student($r);
       if ($ENV{'form.phase'} eq 'four') {          }
   &drop_student_list($r);           # End
       }          $r->print('</form></body></html>') if (! exists($ENV{'form.viewcsv'}));
 # ------------------------------------------------------------------ Phase five      } else {
       if ($ENV{'form.phase'} eq 'five') {          # Not in a course, or not allowed to modify parms
   &enroll_single_student($r);          $ENV{'user.error.msg'}=
       }              "/adm/dropadd:cst:0:0:Cannot drop or add students";
 # ------------------------------------------------------------------------- End          return HTTP_NOT_ACCEPTABLE; 
       $r->print('</form></body></html>');      }
    } else {      return OK;
 # ----------------------------- Not in a course, or not allowed to modify parms  
       $ENV{'user.error.msg'}=  
         "/adm/dropadd:cst:0:0:Cannot drop or add students";  
       return HTTP_NOT_ACCEPTABLE;   
    }  
    return OK;  
 }  }
   
 1;  1;
Removed from v.1.24  
changed lines
  Added in v.1.43

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