[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.60 and 1.63

version 1.60, 2002/11/08 20:51:48 version 1.63, 2002/12/10 00:54:37
Line 93  sub modifystudent { Line 93  sub modifystudent {
         }          }
     }      }
     if ($result eq '') {      if ($result eq '') {
         $result eq 'Unable to find section for this student';          $result = 'Unable to find section for this student';
     } else {      } else {
         $result =~ s/(ok:)+/ok/g;          $result =~ s/(ok:)+/ok/g;
     }      }
Line 221  function verify_message (vf,founduname,f Line 221  function verify_message (vf,founduname,f
  alert('You need to specify the username field');   alert('You need to specify the username field');
         return;          return;
     }      }
       // alert('current.radiovalue = '+current.radiovalue);
     if (current.radiovalue == null || current.radiovalue == 'nochange') {      if (current.radiovalue == null || current.radiovalue == 'nochange') {
         // They did not check any of the login radiobuttons.          // They did not check any of the login radiobuttons.
         alert('You must choose an authentication type');          alert('You must choose an authentication type');
Line 772  END Line 773  END
         $r->print(<<END);          $r->print(<<END);
 <font size="+1">  <font size="+1">
 <a href="javascript:document.studentform.state.value='csv';document.studentform.submit();">CSV format</a>  <a href="javascript:document.studentform.state.value='csv';document.studentform.submit();">CSV format</a>
   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 <a href="javascript:document.studentform.state.value='excel';document.studentform.submit();">Excel format</a>  <a href="javascript:document.studentform.state.value='excel';document.studentform.submit();">Excel format</a>
 </font>  </font>
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
   Student Status:
 END  END
     }      }
     $r->print($status_select."</p>\n");      $r->print($status_select."</p>\n");
Line 1083  sub modify_single_student { Line 1086  sub modify_single_student {
     my $displayable_endtime   = localtime($endtime);      my $displayable_endtime   = localtime($endtime);
     #       # 
     # check for forceid override      # check for forceid override
     if (($sid ne $old{'id'}) && (! exists($ENV{'form.forceid'}))) {      if ((defined($old{'id'})) && ($old{'id'} ne '') && 
           ($sid ne $old{'id'}) && (! exists($ENV{'form.forceid'}))) {
         $r->print("<font color=\"ff0000\">You changed the students id ".          $r->print("<font color=\"ff0000\">You changed the students id ".
                   " but did not disable the ID change safeguard.".                    " but did not disable the ID change safeguard.".
                   "  The students id will not be changed.</font>");                    "  The students id will not be changed.</font>");
Line 1134  sub modify_single_student { Line 1138  sub modify_single_student {
 <p>  <p>
 END  END
     #      #
     # Send request(s) to modify data      # Send request(s) to modify data (final undef is for 'desiredhost',
       # which is a moot point because the student already has an account.
       my $modify_section_results = &modifystudent($sdom,$slogin,
                                                   $ENV{'request.course.id'},
                                                   $section,undef);
       if ($modify_section_results !~ /^ok/) {
           $r->print("An error occured during the attempt to change the ".
                     "section for this student.<br />");
       }
     my $roleresults = &Apache::lonnet::modifystudent      my $roleresults = &Apache::lonnet::modifystudent
         ($sdom,$slogin,$sid,undef,undef,$firstname,$middlename,$lastname,          ($sdom,$slogin,$sid,undef,undef,$firstname,$middlename,$lastname,
          $generation,$section,$endtime,$starttime,$ENV{'form.forceid'});           $generation,$section,$endtime,$starttime,$ENV{'form.forceid'});
Removed from v.1.60  
changed lines
  Added in v.1.63

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