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>') |