version 1.170, 2009/09/08 22:17:02
|
version 1.173, 2009/10/08 19:54:37
|
Line 1338 sub jscript_send {
|
Line 1338 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 1422 sub server_form {
|
Line 1424 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 1574 ENDERROR
|
Line 1577 ENDERROR
|
} |
} |
} else { |
} else { |
# error error: run in circles, scream and shout |
# error error: run in circles, scream and shout |
$message = &Apache::lonhtmlcommon::confirm_success( |
if ($caller eq 'reset_by_email') { |
&mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.&mt('Please make sure your old password was entered correctly.'),1); |
if (!$result) { |
unless ($caller eq 'reset_by_email') { |
return 1; |
|
} else { |
|
return $result; |
|
} |
|
} else { |
|
$message = &Apache::lonhtmlcommon::confirm_success( |
|
&mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.&mt('Please make sure your old password was entered correctly.'),1); |
$message=&Apache::loncommon::confirmwrapper($message); |
$message=&Apache::loncommon::confirmwrapper($message); |
&print_main_menu($r, $message); |
&print_main_menu($r, $message); |
} |
} |
return 1; |
|
} |
} |
return; |
return; |
} |
} |
Line 1608 sub discussionchanger {
|
Line 1616 sub discussionchanger {
|
} |
} |
} |
} |
if (defined($userenv{'discmarkread'})) { |
if (defined($userenv{'discmarkread'})) { |
unless ($userenv{'discdisplay'} eq '') { |
unless ($userenv{'discmarkread'} eq '') { |
$discmark = $userenv{'discmarkread'}; |
$discmark = $userenv{'discmarkread'}; |
} |
} |
} |
} |
Line 1652 sub discussionchanger {
|
Line 1660 sub discussionchanger {
|
$currmark = $lt{'ondisp'}; |
$currmark = $lt{'ondisp'}; |
$newmark = 'onmark'; |
$newmark = 'onmark'; |
} |
} |
|
|
$r->print(<<"END"); |
$r->print(<<"END"); |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
Line 1701 sub verify_and_change_discussion {
|
Line 1709 sub verify_and_change_discussion {
|
if (defined($env{'form.discdisp'}) ) { |
if (defined($env{'form.discdisp'}) ) { |
my $newdisp = $env{'form.newdisp'}; |
my $newdisp = $env{'form.newdisp'}; |
if ($newdisp eq 'unread') { |
if ($newdisp eq 'unread') { |
$message .=&mt('In discussions: only new posts will be displayed.').'<br />'; |
$message .=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: only new posts will be displayed.')).'<br />'; |
&Apache::lonnet::put('environment',{'discdisplay' => $newdisp}); |
&Apache::lonnet::put('environment',{'discdisplay' => $newdisp}); |
&Apache::lonnet::appenv({'environment.discdisplay' => $newdisp}); |
&Apache::lonnet::appenv({'environment.discdisplay' => $newdisp}); |
} else { |
} else { |
$message .= &mt('In discussions: all posts will be displayed.').'<br />'; |
$message .= &Apache::lonhtmlcommon::confirm_success(&mt('In discussions: all posts will be displayed.')).'<br />'; |
&Apache::lonnet::del('environment',['discdisplay']); |
&Apache::lonnet::del('environment',['discdisplay']); |
&Apache::lonnet::delenv('environment.discdisplay'); |
&Apache::lonnet::delenv('environment.discdisplay'); |
} |
} |
Line 1944 push(@{ $menu[1]->{items} }, {
|
Line 1952 push(@{ $menu[1]->{items} }, {
|
url => '/adm/remote?url=/adm/preferences&action=launch', |
url => '/adm/remote?url=/adm/preferences&action=launch', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'network-wireless.png', |
icon => 'remotecontrol.png', |
linktitle => 'Launch the remote control for LON-CAPA.', |
linktitle => 'Launch the remote control for LON-CAPA.', |
}); |
}); |
}else{ |
}else{ |
Line 1953 push(@{ $menu[1]->{items} }, {
|
Line 1961 push(@{ $menu[1]->{items} }, {
|
url => '/adm/remote?url=/adm/preferences&action=collapse', |
url => '/adm/remote?url=/adm/preferences&action=collapse', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'network-wireless.png', |
icon => 'remotecontrol.png', |
linktitle => 'Collapse the remote control for LON-CAPA.', |
linktitle => 'Collapse the remote control for LON-CAPA.', |
}); |
}); |
} |
} |