version 1.125.2.4, 2009/10/09 13:09:01
|
version 1.125.6.2, 2009/09/16 21:04:27
|
Line 1248 sub jscript_send {
|
Line 1248 sub jscript_send {
|
this.document.client.elements.uname.value; |
this.document.client.elements.uname.value; |
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; |
this.document.pserver.elements.email.value = |
|
this.document.client.elements.email.value; |
|
|; |
|; |
} |
} |
$ output .= qq| |
$ output .= qq| |
Line 1334 sub server_form {
|
Line 1332 sub server_form {
|
<input type="hidden" name="token" value="$mailtoken" /> |
<input type="hidden" name="token" value="$mailtoken" /> |
<input type="hidden" name="uname" value="" /> |
<input type="hidden" name="uname" value="" /> |
<input type="hidden" name="udom" value="" /> |
<input type="hidden" name="udom" value="" /> |
<input type="hidden" name="email" value="" /> |
|
|
|
|; |
|; |
} |
} |
Line 1481 ENDERROR
|
Line 1478 ENDERROR
|
$r->print("<h3>".&mt('The password for [_1] was successfully changed',$user)."</h3>"); |
$r->print("<h3>".&mt('The password for [_1] was successfully changed',$user)."</h3>"); |
} else { |
} else { |
# error error: run in circles, scream and shout |
# error error: run in circles, scream and shout |
if ($caller eq 'reset_by_email') { |
$r->print("<h3><span class='LC_error'>".&mt("The password for [_1] was not changed",$user)."</span></h3>". |
if (!$result) { |
&mt('Please make sure your old password was entered correctly.')); |
return 1; |
return 1; |
} else { |
|
return $result; |
|
} |
|
} else { |
|
$r->print("<h3><span class='LC_error'>".&mt("The password for [_1] was not changed",$user)."</span></h3>". |
|
&mt('Please make sure your old password was entered correctly.')); |
|
} |
|
} |
} |
return; |
return; |
} |
} |
Line 1816 sub handler {
|
Line 1806 sub handler {
|
printmenu => 'yes', |
printmenu => 'yes', |
subroutine => \&verify_and_change_colors, |
subroutine => \&verify_and_change_colors, |
})); |
})); |
push (@Options,({ action => 'changelanguages', |
if ($env{'user.adv'}) { |
|
push (@Options,({ action => 'changelanguages', |
linktext => 'Change Language Preferences', |
linktext => 'Change Language Preferences', |
href => '/adm/preferences', |
href => '/adm/preferences', |
help => 'Prefs_Language', |
help => 'Prefs_Language', |
Line 1832 sub handler {
|
Line 1823 sub handler {
|
printmenu => 'yes', |
printmenu => 'yes', |
subroutine=>\&verify_and_change_languages, } |
subroutine=>\&verify_and_change_languages, } |
)); |
)); |
|
} |
push (@Options,({ action => 'changewysiwyg', |
push (@Options,({ action => 'changewysiwyg', |
linktext => 'Change WYSIWYG Editor Preferences', |
linktext => 'Change WYSIWYG Editor Preferences', |
href => '/adm/preferences', |
href => '/adm/preferences', |
Line 1863 sub handler {
|
Line 1855 sub handler {
|
printmenu => 'yes', |
printmenu => 'yes', |
subroutine => \&verify_and_change_discussion, } |
subroutine => \&verify_and_change_discussion, } |
)); |
)); |
|
if ($env{'user.adv'}) { |
my $role = ($env{'user.adv'} ? 'Roles' : 'Course'); |
my $role = ($env{'user.adv'} ? 'Roles' : 'Course'); |
push (@Options,({ action => 'changerolespref', |
push (@Options,({ action => 'changerolespref', |
linktext => 'Change '.$role.' Page Preferences', |
linktext => 'Change '.$role.' Page Preferences', |
href => '/adm/preferences', |
href => '/adm/preferences', |
subroutine => \&rolesprefchanger, |
subroutine => \&rolesprefchanger, |
Line 1881 sub handler {
|
Line 1873 sub handler {
|
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
|
|
push (@Options,({ action => 'changetexenginepref', |
push (@Options,({ action => 'changetexenginepref', |
linktext => 'Change How Math Equations Are Displayed', |
linktext => 'Change How Math Equations Are Displayed', |
href => '/adm/preferences', |
href => '/adm/preferences', |
subroutine => \&texenginechanger, |
subroutine => \&texenginechanger, |
Line 1897 sub handler {
|
Line 1889 sub handler {
|
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
|
|
if ($env{'environment.remote'} eq 'off') { |
if ($env{'environment.remote'} eq 'off') { |
push (@Options,({ action => 'launch', |
push (@Options,({ action => 'launch', |
linktext => 'Launch Remote Control', |
linktext => 'Launch Remote Control', |
href => '/adm/remote?url=/adm/preferences', |
href => '/adm/remote?url=/adm/preferences', |
})); |
})); |
} else { |
} else { |
push (@Options,({ action => 'collapse', |
push (@Options,({ action => 'collapse', |
linktext => 'Collapse Remote Control', |
linktext => 'Collapse Remote Control', |
href => '/adm/remote?url=/adm/preferences', |
href => '/adm/remote?url=/adm/preferences', |
})); |
})); |
|
} |
} |
} |
|
|
push (@Options,({ action => 'changeicons', |
push (@Options,({ action => 'changeicons', |
Line 1924 sub handler {
|
Line 1917 sub handler {
|
text => 'Change Main Menu'}, |
text => 'Change Main Menu'}, |
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
|
if ($env{'user.adv'}) { |
push (@Options,({ action => 'changeclicker', |
push (@Options,({ action => 'changeclicker', |
linktext => 'Register Response Devices ("Clickers")', |
linktext => 'Register Response Devices ("Clickers")', |
href => '/adm/preferences', |
href => '/adm/preferences', |
subroutine => \&clickerchanger, |
subroutine => \&clickerchanger, |
Line 1940 sub handler {
|
Line 1933 sub handler {
|
text => 'Register Clicker'}, |
text => 'Register Clicker'}, |
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']); |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']); |
if (keys(%author_roles) > 0) { |
if (keys(%author_roles) > 0) { |
push (@Options,({ action => 'changedomcoord', |
push (@Options,({ action => 'changedomcoord', |
linktext => 'Restrict Domain Coordinator Access', |
linktext => 'Restrict Domain Coordinator Access', |
href => '/adm/preferences', |
href => '/adm/preferences', |
subroutine => \&domcoordchanger, |
subroutine => \&domcoordchanger, |
Line 1957 sub handler {
|
Line 1950 sub handler {
|
text => 'Restrict Domain Coordinator Access'}, |
text => 'Restrict Domain Coordinator Access'}, |
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
|
} |
} |
} |
|
|
push (@Options,({ action => 'lockwarning', |
push (@Options,({ action => 'lockwarning', |