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

Diff for /loncom/interface/lonpreferences.pm between versions 1.186.2.8.2.1 and 1.186.2.8.2.2

version 1.186.2.8.2.1, 2012/02/07 16:21:32 version 1.186.2.8.2.2, 2012/02/17 03:32:34
Line 1360  sub passwordchanger { Line 1360  sub passwordchanger {
  my $jsh=Apache::File->new($include."/londes.js");   my $jsh=Apache::File->new($include."/londes.js");
  $r->print(<$jsh>);   $r->print(<$jsh>);
     }      }
     $r->print(&jscript_send($caller));      $r->print(&jscript_send($caller,$domain));
     $r->print(<<ENDFORM);      $r->print(<<ENDFORM);
 $errormessage  $errormessage
   
Line 1377  ENDFORM Line 1377  ENDFORM
 }  }
   
 sub jscript_send {  sub jscript_send {
     my ($caller) = @_;      my ($caller,$domain) = @_;
     my $output = qq|      my $output = qq|
 <script type="text/javascript" language="JavaScript">  <script type="text/javascript" language="JavaScript">
   
Line 1405  sub jscript_send { Line 1405  sub jscript_send {
         $output .= qq|          $output .= qq|
         this.document.pserver.elements.uname.value =          this.document.pserver.elements.uname.value =
                    this.document.client.elements.uname.value;                     this.document.client.elements.uname.value;
   |;
           if ($domain eq 'relate') {
               $output .= qq|
           this.document.pserver.elements.udom.value =
                      this.document.client.elements.udom.value;
   |;
           } else {
               $output .= qq|
         this.document.pserver.elements.udom.value =          this.document.pserver.elements.udom.value =
                    this.document.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value;                     this.document.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value;
   |;
           }
           $output .= qq| 
         this.document.pserver.elements.email.value =          this.document.pserver.elements.email.value =
                    this.document.client.elements.email.value;                     this.document.client.elements.email.value;
 |;  |;
Line 1440  sub client_form { Line 1451  sub client_form {
                   .&Apache::lonhtmlcommon::row_title(                    .&Apache::lonhtmlcommon::row_title(
                        '<label for="uname">'.$lt{'username'}.'</label>')                         '<label for="uname">'.$lt{'username'}.'</label>')
                   .'<input type="text" name="uname" size="30" />'                    .'<input type="text" name="uname" size="30" />'
                   .'<input type="hidden" name="currentpass" value="'.$currentpass.'" />'                    .'<input type="hidden" name="currentpass" value="'.$currentpass.'" />';
                   .&Apache::lonhtmlcommon::row_closure()          if ($defdom eq 'relate') {
                   .&Apache::lonhtmlcommon::row_title(              $output .= '<input type="hidden" name="udom" value="'.$defdom.'" />'
                        '<label for="udom">'.$lt{'domain'}.'</label>')                        .&Apache::lonhtmlcommon::row_closure(); 
                   .&Apache::loncommon::select_dom_form($defdom,'udom')          } else {
                   .&Apache::lonhtmlcommon::row_closure();              $output .= &Apache::lonhtmlcommon::row_closure()
                         .&Apache::lonhtmlcommon::row_title(
                              '<label for="udom">'.$lt{'domain'}.'</label>')
                         .&Apache::loncommon::select_dom_form($defdom,'udom')
                         .&Apache::lonhtmlcommon::row_closure();
           }
     } else {      } else {
         $output .= &Apache::lonhtmlcommon::row_title(          $output .= &Apache::lonhtmlcommon::row_title(
                        '<label for="currentpass">'.$lt{'currentpass'}.'</label>')                         '<label for="currentpass">'.$lt{'currentpass'}.'</label>')
Removed from v.1.186.2.8.2.1  
changed lines
  Added in v.1.186.2.8.2.2

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