version 1.168, 2009/08/12 20:43:18
|
version 1.176, 2009/10/16 23:52:20
|
Line 42 use Apache::loncommon();
|
Line 42 use Apache::loncommon();
|
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use LONCAPA::lonauthcgi(); |
use LONCAPA(); |
use LONCAPA(); |
|
|
# |
# |
Line 778 sub msgforwardchanger {
|
Line 779 sub msgforwardchanger {
|
all => 'All', |
all => 'All', |
crit => 'Critical only', |
crit => 'Critical only', |
reg => 'Non-critical only', |
reg => 'Non-critical only', |
foad => 'Forwarding Address(es)', |
foad => 'Forward to account(s)', |
noti => 'Notification E-mail Address(es)', |
fwdm => 'Forward messages to other account(s) in LON-CAPA', |
|
noti => 'E-mail notification of LON-CAPA messages', |
foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>', |
foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>', |
mnot => 'E-mail Address(es) which should be notified about new LON-CAPA messages', |
mnot => 'E-mail address(es) which should be notified about new LON-CAPA messages', |
# old: 'Message Notification Email Address(es)', |
|
mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>', |
mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>', |
chg => 'Save', |
chg => 'Save', |
email => 'The e-mail address entered in row ', |
email => 'The e-mail address entered in row ', |
Line 792 sub msgforwardchanger {
|
Line 793 sub msgforwardchanger {
|
); |
); |
Apache::lonhtmlcommon::add_breadcrumb( |
Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/preferences?action=changemsgforward', |
{ href => '/adm/preferences?action=changemsgforward', |
text => 'Change Message Forwarding/Notification'}); |
text => 'Messages & Notifications'}); |
$r->print(Apache::loncommon::start_page('Message Management')); |
$r->print(Apache::loncommon::start_page('Message Management')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Message Forwarding/Notification')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Message Forwarding/Notification')); |
my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding"); |
my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding"); |
Line 860 $validatescript
|
Line 861 $validatescript
|
$r->print(<<ENDMSG); |
$r->print(<<ENDMSG); |
$jscript |
$jscript |
$message |
$message |
<h3>$lt{'foad'} $forwardingHelp</h3> |
<h3>$lt{'fwdm'} $forwardingHelp</h3> |
<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_msgforward" /> |
<input type="hidden" name="action" value="verify_and_change_msgforward" /> |
$lt{'foad'} ($lt{'foad_exmpl'}): |
$lt{'foad'} ($lt{'foad_exmpl'}): |
<input type="text" size="40" value="$msgforward" name="msgforward" /><br /> |
<input type="text" size="40" value="$msgforward" name="msgforward" /> |
|
<br /><br /> |
<h3>$lt{'noti'} $notificationHelp</h3> |
<h3>$lt{'noti'} $notificationHelp</h3> |
$lt{'mnot'} ($lt{'mnot_exmpl'}):<br /> |
$lt{'mnot'} ($lt{'mnot_exmpl'}):<br /> |
ENDMSG |
ENDMSG |
Line 909 ENDMSG
|
Line 911 ENDMSG
|
'<input type="radio" name="notify_type_'.$num. |
'<input type="radio" name="notify_type_'.$num. |
'" value="'.$type.'" '.$chk{$type}. |
'" value="'.$type.'" '.$chk{$type}. |
' onchange="javascript:address_changes('."'$num'".')" />'. |
' onchange="javascript:address_changes('."'$num'".')" />'. |
$lt{$type}.'</label></span> '; |
$lt{$type}.'</label></span>'.(' ' x4); |
} |
} |
my $htmlon = ''; |
my $htmlon = ''; |
my $htmloff = ''; |
my $htmloff = ''; |
Line 921 ENDMSG
|
Line 923 ENDMSG
|
$output .= '</td><td><label><input type="radio" name="html_'.$num. |
$output .= '</td><td><label><input type="radio" name="html_'.$num. |
'" value="1" '.$htmlon. |
'" value="1" '.$htmlon. |
' onchange="javascript:address_changes('."'$num'".')" />'. |
' onchange="javascript:address_changes('."'$num'".')" />'. |
&mt('Yes').'</label> '. |
&mt('Yes').'</label>'.(' ' x3). |
'<label><input type="radio" name="html_'.$num.'" value="0" '. |
'<label><input type="radio" name="html_'.$num.'" value="0" '. |
$htmloff. ' onchange="javascript:address_changes('."'$num'". |
$htmloff. ' onchange="javascript:address_changes('."'$num'". |
')" />'. |
')" />'. |
Line 946 ENDMSG
|
Line 948 ENDMSG
|
$output .= '<span class="LC_nobreak"><label>'. |
$output .= '<span class="LC_nobreak"><label>'. |
'<input type="radio" name="notify_type_'.$num. |
'<input type="radio" name="notify_type_'.$num. |
'" value="'.$type.'" '.$defchk{$type}.'/>'. |
'" value="'.$type.'" '.$defchk{$type}.'/>'. |
$lt{$type}.'</label></span> '; |
$lt{$type}.'</label></span>'.(' ' x4); |
} |
} |
$output .= '</td><td><label><input type="radio" name="html_'.$num. |
$output .= '</td><td><label><input type="radio" name="html_'.$num. |
'" value="1" />'.&mt('Yes').'</label> '. |
'" value="1" />'.&mt('Yes').'</label>'.(' ' x3). |
'<label><input type="radio" name="html_'.$num.'" value="0" '. |
'<label><input type="radio" name="html_'.$num.'" value="0" '. |
' checked="checked" />'. |
' checked="checked" />'. |
&mt('No').'</label></td>'. |
&mt('No').'</label></td>'. |
Line 1338 sub jscript_send {
|
Line 1340 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 1356 sub client_form {
|
Line 1360 sub client_form {
|
'currentpass' => 'Current Password', |
'currentpass' => 'Current Password', |
'newpass' => 'New Password', |
'newpass' => 'New Password', |
'confirmpass' => 'Confirm Password', |
'confirmpass' => 'Confirm Password', |
'changepass' => 'Save'); |
'changepass' => 'Save', |
|
); |
|
|
my $output = '<form name="client">' |
my $output = '<form name="client">' |
.&Apache::lonhtmlcommon::start_pick_box(); |
.&Apache::lonhtmlcommon::start_pick_box(); |
Line 1421 sub server_form {
|
Line 1426 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 1565 ENDERROR
|
Line 1571 ENDERROR
|
# Inform the user the password has (not?) been changed |
# Inform the user the password has (not?) been changed |
my $message; |
my $message; |
if ($result =~ /^ok$/) { |
if ($result =~ /^ok$/) { |
$message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'<i>')); |
$message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'</i>')); |
if ($caller eq 'reset_by_email') { |
if ($caller eq 'reset_by_email') { |
$r->print($message.'<br />'); |
$r->print($message.'<br />'); |
} else { |
} else { |
Line 1573 ENDERROR
|
Line 1579 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 1607 sub discussionchanger {
|
Line 1618 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 1651 sub discussionchanger {
|
Line 1662 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 1700 sub verify_and_change_discussion {
|
Line 1711 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 1943 push(@{ $menu[1]->{items} }, {
|
Line 1954 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 1952 push(@{ $menu[1]->{items} }, {
|
Line 1963 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.', |
}); |
}); |
} |
} |
Line 1981 push(@{ $menu[4]->{items} }, {
|
Line 1992 push(@{ $menu[4]->{items} }, {
|
}); |
}); |
|
|
} |
} |
if ($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/) { |
if (&can_toggle_debug()) { |
push(@{ $menu[4]->{items} }, { |
push(@{ $menu[4]->{items} }, { |
linktext => 'Toggle Debug Messages (Current:'.$env{'user.debug'}.')', |
linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'), |
url => '/adm/preferences?action=debugtoggle', |
url => '/adm/preferences?action=debugtoggle', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
Line 2082 sub handler {
|
Line 2093 sub handler {
|
}elsif($env{'form.action'} eq 'verify_and_change_coursepage'){ |
}elsif($env{'form.action'} eq 'verify_and_change_coursepage'){ |
&verify_and_change_coursepage($r); |
&verify_and_change_coursepage($r); |
}elsif($env{'form.action'} eq 'debugtoggle'){ |
}elsif($env{'form.action'} eq 'debugtoggle'){ |
&toggle_debug(); |
if (&can_toggle_debug()) { |
|
&toggle_debug(); |
|
} |
&print_main_menu($r); |
&print_main_menu($r); |
} |
} |
|
|
Line 2105 sub toggle_debug {
|
Line 2118 sub toggle_debug {
|
} |
} |
} |
} |
|
|
|
sub can_toggle_debug { |
|
my $can_toggle = 0; |
|
my $page = 'toggledebug'; |
|
if (&LONCAPA::lonauthcgi::can_view($page)) { |
|
$can_toggle = 1; |
|
} elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page)) { |
|
$can_toggle = 1; |
|
} |
|
return $can_toggle; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |