version 1.147, 2009/02/26 16:17:29
|
version 1.164, 2009/05/27 17:14:56
|
Line 135 sub verify_and_change_wysiwyg {
|
Line 135 sub verify_and_change_wysiwyg {
|
my $newsetting=$env{'form.wysiwyg'}; |
my $newsetting=$env{'form.wysiwyg'}; |
&Apache::lonnet::put('environment',{'wysiwygeditor' => $newsetting}); |
&Apache::lonnet::put('environment',{'wysiwygeditor' => $newsetting}); |
&Apache::lonnet::appenv({'environment.wysiwygeditor' => $newsetting}); |
&Apache::lonnet::appenv({'environment.wysiwygeditor' => $newsetting}); |
# $r->print('<p>'.&mt('Setting WYSIWYG editor to:').' '.&mt($newsetting).'</p>'); |
my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('WYSIWYG Editor').'</i>','<tt>'.&mt($newsetting).'</tt>')); |
print_main_menu($r,'<p>'.&mt('Setting WYSIWYG editor to:').' ' |
$message=&Apache::loncommon::confirmwrapper($message); |
.&mt($newsetting).'</p>'); |
&print_main_menu($r,$message); |
} |
} |
|
|
################################################################ |
################################################################ |
Line 187 sub verify_and_change_languages {
|
Line 187 sub verify_and_change_languages {
|
if ($newlanguage) { |
if ($newlanguage) { |
&Apache::lonnet::put('environment',{'languages' => $newlanguage}); |
&Apache::lonnet::put('environment',{'languages' => $newlanguage}); |
&Apache::lonnet::appenv({'environment.languages' => $newlanguage}); |
&Apache::lonnet::appenv({'environment.languages' => $newlanguage}); |
$message=&mt('Set new preferred languages to ').'<tt>"'.$newlanguage.'"</tt>.'; |
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Preferred language').'</i>','<tt>"'.$newlanguage.'"</tt>.')); |
} else { |
} else { |
&Apache::lonnet::del('environment',['languages']); |
&Apache::lonnet::del('environment',['languages']); |
&Apache::lonnet::delenv('environment.languages'); |
&Apache::lonnet::delenv('environment.languages'); |
$message=&mt('Reset preferred language.'); |
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.&mt('Preferred language').'</i>')); |
} |
} |
|
$message=&Apache::loncommon::confirmwrapper($message); |
&Apache::loncommon::flush_langs_cache($user,$domain); |
&Apache::loncommon::flush_langs_cache($user,$domain); |
print_main_menu($r, $message); |
&print_main_menu($r, $message); |
# $r->print(<<ENDVCSCREEN); |
|
#$message |
|
#ENDVCSCREEN |
|
} |
} |
|
|
################################################################ |
################################################################ |
Line 234 sub texenginechanger {
|
Line 232 sub texenginechanger {
|
'mimetex' => 'mimetex (Convert to Images):', |
'mimetex' => 'mimetex (Convert to Images):', |
); |
); |
|
|
|
my $jsMathWarning='<p>' |
|
.'<div class="LC_warning">' |
|
.&mt("It looks like you don't have the TeX math fonts installed.") |
|
.'</div>' |
|
.'<div>' |
|
.&mt('The jsMath example on this page may not look right without them. ' |
|
.'The [_1]jsMath Home Page[_2] has information on how to download the ' |
|
.'needed fonts. In the meantime, jsMath will do the best it can ' |
|
.'with the fonts you have, but it may not be pretty and some equations ' |
|
.'may not be rendered correctly.' |
|
,'<a href="http://www.math.union.edu/locate/jsMath/" target="_blank">' |
|
,'</a>') |
|
.'</div>' |
|
.'</p>'; |
|
|
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<h2>$lt{'headline'}</h2> |
<h2>$lt{'headline'}</h2> |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
Line 251 $lt{'exmpl'}
|
Line 264 $lt{'exmpl'}
|
<h3>$lt{'jsmath'}</h3> |
<h3>$lt{'jsmath'}</h3> |
<p> |
<p> |
$jsMath_start |
$jsMath_start |
<script type="text/javascript"> |
<script type="text/javascript" language="JavaScript"> |
if (jsMath.nofonts == 1) { |
if (jsMath.nofonts == 1) { |
document.writeln |
document.writeln($jsMathWarning); |
('<div style="padding: 10; border-style: solid; border-width:3;' |
|
+' border-color: #DD0000; background-color: #FFF8F8; width: 75%; text-align: left">' |
|
+'<small><font color="#AA0000"><b>Warning:</b> ' |
|
+'It looks like you don\\\'t have the TeX math fonts installed. ' |
|
+'The jsMath example on this page may not look right without them. ' |
|
+'The <a href="http://www.math.union.edu/locate/jsMath/" target="_blank"> ' |
|
+'jsMath Home Page</a> has information on how to download the ' |
|
+'needed fonts. In the meantime, jsMath will do the best it can ' |
|
+'with the fonts you have, but it may not be pretty and some equations ' |
|
+'may not be rendered correctly. ' |
|
+'</font></small></div>'); |
|
} |
} |
</script> |
</script> |
<iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=jsMath" width="400" height="120"></iframe> |
<iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=jsMath" width="400" height="120"></iframe> |
Line 281 if (jsMath.nofonts == 1) {
|
Line 283 if (jsMath.nofonts == 1) {
|
</p> |
</p> |
ENDLSCREEN |
ENDLSCREEN |
if ($env{'environment.texengine'} ne 'jsMath') { |
if ($env{'environment.texengine'} ne 'jsMath') { |
$r->print('<script type="text/javascript">jsMath.Process()</script>'); |
$r->print('<script type="text/javascript" language="JavaScript">jsMath.Process()</script>'); |
} |
} |
} |
} |
|
|
Line 304 sub verify_and_change_texengine {
|
Line 306 sub verify_and_change_texengine {
|
if ($newtexengine) { |
if ($newtexengine) { |
&Apache::lonnet::put('environment',{'texengine' => $newtexengine}); |
&Apache::lonnet::put('environment',{'texengine' => $newtexengine}); |
&Apache::lonnet::appenv({'environment.texengine' => $newtexengine}); |
&Apache::lonnet::appenv({'environment.texengine' => $newtexengine}); |
$message=&mt('Set new preferred math display to ').'<tt>"'.$newtexengine.'"</tt>.'; |
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Preferred method to display Math').'</i>','<tt>"'.$newtexengine.'"</tt>')); |
} else { |
} else { |
&Apache::lonnet::del('environment',['texengine']); |
&Apache::lonnet::del('environment',['texengine']); |
&Apache::lonnet::delenv('environment.texengine'); |
&Apache::lonnet::delenv('environment.texengine'); |
$message=&mt('Reset preferred math display.'); |
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.&mt('Preferred method to display Math').'</i>')); |
} |
} |
|
$message=&Apache::loncommon::confirmwrapper($message); |
|
&print_main_menu($r, $message); |
# $r->print(<<ENDVCSCREEN); |
|
#$message |
|
#ENDVCSCREEN |
|
print_main_menu($r, $message); |
|
} |
} |
|
|
################################################################ |
################################################################ |
Line 373 sub rolesprefchanger {
|
Line 371 sub rolesprefchanger {
|
my $checked = ""; |
my $checked = ""; |
my $value = $recent_roles{$role_key}; |
my $value = $recent_roles{$role_key}; |
if ($frozen_roles{$role_key}) { |
if ($frozen_roles{$role_key}) { |
$checked = "checked=\"checked\""; |
$checked = ' checked="checked"'; |
} |
} |
$count++; |
$count++; |
$roles_check_list .= |
$roles_check_list .= |
&Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::start_data_table_row(). |
'<td class="LC_table_cell_checkbox">'. |
'<td class="LC_table_cell_checkbox">'. |
"<input type=\"checkbox\" $checked name=\"freezeroles\"". |
"<input type=\"checkbox\"$checked name=\"freezeroles\"". |
" id=\"freezeroles$count\" value=\"$role_key\" /></td>". |
" id=\"freezeroles$count\" value=\"$role_key\" /></td>". |
"<td><label for=\"freezeroles$count\">". |
"<td><label for=\"freezeroles$count\">". |
"$role_text{$role_key}</label></td>". |
"$role_text{$role_key}</label></td>". |
Line 391 sub rolesprefchanger {
|
Line 389 sub rolesprefchanger {
|
$r->print(' |
$r->print(' |
<p>'.&mt('Some LON-CAPA users have a long list of '.$lc_role.'s. The Recent '.$role.'s Hotlist feature keeps track of the last N '.$lc_role.'s which have been visited and places a table of these at the top of the '.$lc_role.'s page. People with very few '.$lc_role.'s should leave this feature disabled.').' |
<p>'.&mt('Some LON-CAPA users have a long list of '.$lc_role.'s. The Recent '.$role.'s Hotlist feature keeps track of the last N '.$lc_role.'s which have been visited and places a table of these at the top of the '.$lc_role.'s page. People with very few '.$lc_role.'s should leave this feature disabled.').' |
</p> |
</p> |
<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_rolespref" /> |
<input type="hidden" name="action" value="verify_and_change_rolespref" /> |
<br /><label>'.&mt('Enable Recent '.$role.'s Hotlist:').' |
<br /><label>'.&mt('Enable Recent '.$role.'s Hotlist:').' |
<input type="checkbox" '.$checked.' name="recentroles" value="true" /></label> |
<input type="checkbox"'.$checked.' name="recentroles" value="true" /></label> |
<br />'.&mt('Number of '.$role.'s in Hotlist:').' |
<br />'.&mt('Number of '.$role.'s in Hotlist:').' |
<select name="recentrolesn" size="1"> |
<select name="recentrolesn" size="1"> |
'.$options.' |
'.$options.' |
Line 482 sub verify_and_change_rolespref {
|
Line 480 sub verify_and_change_rolespref {
|
# Unset any roles that were previously frozen but aren't in list |
# Unset any roles that were previously frozen but aren't in list |
foreach my $role_key (sort(keys(%recent_roles))) { |
foreach my $role_key (sort(keys(%recent_roles))) { |
if (($frozen_roles{$role_key}) && (!exists($freeze{$role_key}))) { |
if (($frozen_roles{$role_key}) && (!exists($freeze{$role_key}))) { |
$message .= "<br />".&mt('Unfreezing '.$role.': [_1]',$role_text{$role_key})."\n"; |
$message .= "<br />".&Apache::lonhtmlcommon::confirm_success(&mt('Unfreezing '.$role.': [_1]','<i>'.$role_text{$role_key}.'</i>')); |
&Apache::lonhtmlcommon::store_recent('roles',$role_key,' ',0); |
&Apache::lonhtmlcommon::store_recent('roles',$role_key,' ',0); |
} |
} |
} |
} |
Line 490 sub verify_and_change_rolespref {
|
Line 488 sub verify_and_change_rolespref {
|
# Freeze selected roles |
# Freeze selected roles |
foreach my $role_key (@freeze_list) { |
foreach my $role_key (@freeze_list) { |
if (!$frozen_roles{$role_key}) { |
if (!$frozen_roles{$role_key}) { |
$message .= "<br />".&mt('Freezing '.$role.': [_1]',$role_text{$role_key})."\n"; |
$message .= "<br />". |
|
&Apache::lonhtmlcommon::confirm_success(&mt('Freezing '.$role.': [_1]','<i>'.$role_text{$role_key}.'</i>')); |
&Apache::lonhtmlcommon::store_recent('roles', |
&Apache::lonhtmlcommon::store_recent('roles', |
$role_key,' ',1); |
$role_key,' ',1); |
} |
} |
} |
} |
$message .= "<hr /><br />\n"; |
$message=&Apache::loncommon::confirmwrapper($message); |
|
&print_main_menu($r, $message); |
# $r->print(<<ENDRPSCREEN); |
|
#$message |
|
#ENDRPSCREEN |
|
print_main_menu($r, $message); |
|
} |
} |
|
|
|
|
Line 528 sub screennamechanger {
|
Line 523 sub screennamechanger {
|
$r->print('<form name="prefs" action="/adm/preferences" method="post">' |
$r->print('<form name="prefs" action="/adm/preferences" method="post">' |
.'<input type="hidden" name="action" value="verify_and_change_screenname" />' |
.'<input type="hidden" name="action" value="verify_and_change_screenname" />' |
.&Apache::lonhtmlcommon::start_pick_box() |
.&Apache::lonhtmlcommon::start_pick_box() |
.&Apache::lonhtmlcommon::row_title(&mt('New screenname (shown if you post anonymously)')) |
.&Apache::lonhtmlcommon::row_title(&mt('Screenname').' '.&mt('(shown if you post anonymously)')) |
.'<input type="text" size="20" value="'.$screenname.'" name="screenname" />' |
.'<input type="text" size="20" value="'.$screenname.'" name="screenname" />' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_title(&mt('New nickname (shown if you post non-anonymously)')) |
.&Apache::lonhtmlcommon::row_title(&mt('Nickname').' '.&mt('(shown if you post non-anonymously)')) |
.'<input type="text" size="20" value="'.$nickname.'" name="nickname" />' |
.'<input type="text" size="20" value="'.$nickname.'" name="nickname" />' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_title() |
.&Apache::lonhtmlcommon::row_title() |
Line 553 sub verify_and_change_screenname {
|
Line 548 sub verify_and_change_screenname {
|
if ($newscreen) { |
if ($newscreen) { |
&Apache::lonnet::put('environment',{'screenname' => $newscreen}); |
&Apache::lonnet::put('environment',{'screenname' => $newscreen}); |
&Apache::lonnet::appenv({'environment.screenname' => $newscreen}); |
&Apache::lonnet::appenv({'environment.screenname' => $newscreen}); |
$message=&mt('Set new screenname to ').'<tt>"'.$newscreen.'."</tt>.'; |
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Screenname').'</i>','<tt>"'.$newscreen.'"</tt>')); |
} else { |
} else { |
&Apache::lonnet::del('environment',['screenname']); |
&Apache::lonnet::del('environment',['screenname']); |
&Apache::lonnet::delenv('environment.screenname'); |
&Apache::lonnet::delenv('environment.screenname'); |
$message=&mt('Reset screenname.'); |
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.&mt('Screenname').'</i>')); |
} |
} |
# Nickname |
# Nickname |
$message.='<br />'; |
$message.='<br />'; |
Line 566 sub verify_and_change_screenname {
|
Line 561 sub verify_and_change_screenname {
|
if ($newscreen) { |
if ($newscreen) { |
&Apache::lonnet::put('environment',{'nickname' => $newscreen}); |
&Apache::lonnet::put('environment',{'nickname' => $newscreen}); |
&Apache::lonnet::appenv({'environment.nickname' => $newscreen}); |
&Apache::lonnet::appenv({'environment.nickname' => $newscreen}); |
$message.=&mt('Set new nickname to ').'<tt>"'.$newscreen.'"</tt>.'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Nickname').'</i>','<tt>"'.$newscreen.'"</tt>')); |
} else { |
} else { |
&Apache::lonnet::del('environment',['nickname']); |
&Apache::lonnet::del('environment',['nickname']); |
&Apache::lonnet::delenv('environment.nickname'); |
&Apache::lonnet::delenv('environment.nickname'); |
$message.=&mt('Reset nickname.'); |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.&mt('Nickname').'</i>')); |
} |
} |
&Apache::lonnet::devalidate_cache_new('namescache',$user.':'.$domain); |
&Apache::lonnet::devalidate_cache_new('namescache',$user.':'.$domain); |
# $r->print(<<ENDVCSCREEN); |
$message=&Apache::loncommon::confirmwrapper($message); |
#$message |
&print_main_menu($r, $message); |
#ENDVCSCREEN |
|
print_main_menu($r, $message); |
|
} |
} |
|
|
################################################################ |
################################################################ |
Line 584 sub verify_and_change_screenname {
|
Line 577 sub verify_and_change_screenname {
|
################################################################ |
################################################################ |
sub iconchanger { |
sub iconchanger { |
my $r = shift; |
my $r = shift; |
Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/preferences?action=changeicons', |
{ href => '/adm/preferences?action=changeicons', |
text => 'Change Main Menu'}); |
text => 'Change Main Menu'}); |
$r->print(Apache::loncommon::start_page('Page Display Settings')); |
$r->print(Apache::loncommon::start_page('Page Display Settings')); |
Line 624 sub verify_and_change_icons {
|
Line 617 sub verify_and_change_icons {
|
my $r = shift; |
my $r = shift; |
my $user = $env{'user.name'}; |
my $user = $env{'user.name'}; |
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
my $newicons = $env{'form.menumode'}; |
my $newicons = $env{'form.menumode'}; |
|
|
&Apache::lonnet::put('environment',{'icons' => $newicons}); |
&Apache::lonnet::put('environment',{'icons' => $newicons}); |
&Apache::lonnet::appenv({'environment.icons' => $newicons}); |
&Apache::lonnet::appenv({'environment.icons' => $newicons}); |
# $r->print(&mt('Set menu mode to [_1].',$newicons)); |
my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Menu Display').'</i>','<tt>'.$newicons.'</tt>')); |
print_main_menu($r, &mt('Set menu mode to [_1].',$newicons)); |
$message=&Apache::loncommon::confirmwrapper($message); |
|
&print_main_menu($r, $message); |
} |
} |
|
|
################################################################ |
################################################################ |
Line 638 sub verify_and_change_icons {
|
Line 632 sub verify_and_change_icons {
|
|
|
sub clickerchanger { |
sub clickerchanger { |
my $r = shift; |
my $r = shift; |
Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/preferences?action=changeclicker', |
{ href => '/adm/preferences?action=changeclicker', |
text => 'Register Clicker'}); |
text => 'Register Clicker'}); |
$r->print(Apache::loncommon::start_page('Other')); |
$r->print(Apache::loncommon::start_page('Other')); |
Line 650 sub clickerchanger {
|
Line 644 sub clickerchanger {
|
my $clickers=$userenv{'clickers'}; |
my $clickers=$userenv{'clickers'}; |
$clickers=~s/\,/\n/gs; |
$clickers=~s/\,/\n/gs; |
my $text=&mt('Enter response device ("clicker") numbers'); |
my $text=&mt('Enter response device ("clicker") numbers'); |
my $change=&mt('Register'); |
my $change=&mt('Save'); |
my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('Locating your clicker ID')); |
my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('Locating your clicker ID')); |
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
<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_clicker" /> |
<input type="hidden" name="action" value="verify_and_change_clicker" /> |
<label>$text $helplink<br /> |
<label>$helplink<br /><br />$text<br /> |
<textarea name="clickers" rows="5" cols="20">$clickers</textarea> |
<textarea name="clickers" rows="5" cols="20">$clickers</textarea> |
</label> |
</label> |
|
<br /> |
<input type="submit" value="$change" /> |
<input type="submit" value="$change" /> |
</form> |
</form> |
ENDSCREEN |
ENDSCREEN |
Line 676 sub verify_and_change_clicker {
|
Line 671 sub verify_and_change_clicker {
|
$newclickers=~s/\,$//; |
$newclickers=~s/\,$//; |
&Apache::lonnet::put('environment',{'clickers' => $newclickers}); |
&Apache::lonnet::put('environment',{'clickers' => $newclickers}); |
&Apache::lonnet::appenv({'environment.clickers' => $newclickers}); |
&Apache::lonnet::appenv({'environment.clickers' => $newclickers}); |
# $r->print(&mt('Registering clickers: [_1]',$newclickers)); |
my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Registering clickers: [_1]',$newclickers)); |
print_main_menu($r, &mt('Registering clickers: [_1]',$newclickers)); |
$message=&Apache::loncommon::confirmwrapper($message); |
|
&print_main_menu($r, $message); |
} |
} |
|
|
################################################################ |
################################################################ |
Line 686 sub verify_and_change_clicker {
|
Line 682 sub verify_and_change_clicker {
|
|
|
sub domcoordchanger { |
sub domcoordchanger { |
my $r = shift; |
my $r = shift; |
Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/preferences?action=changedomcoord', |
{ href => '/adm/preferences?action=changedomcoord', |
text => 'Restrict Domain Coordinator Access'}); |
text => 'Restrict Domain Coordinator Access'}); |
$r->print(Apache::loncommon::start_page('Restrict Domain Coordinator Access')); |
$r->print(Apache::loncommon::start_page('Restrict Domain Coordinator Access')); |
Line 697 sub domcoordchanger {
|
Line 693 sub domcoordchanger {
|
('environment',['domcoord.author']); |
('environment',['domcoord.author']); |
my $constchecked=''; |
my $constchecked=''; |
if ($userenv{'domcoord.author'} eq 'blocked') { |
if ($userenv{'domcoord.author'} eq 'blocked') { |
$constchecked='checked="checked"'; |
$constchecked=' checked="checked"'; |
} |
} |
my $text=&mt('By default, the Domain Coordinator can enter your construction space.'); |
my $text=&mt('By default, the Domain Coordinator can enter your construction space.'); |
my $construction=&mt('Block access to construction space'); |
my $construction=&mt('Block access to construction space'); |
Line 706 sub domcoordchanger {
|
Line 702 sub domcoordchanger {
|
<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_domcoord" /> |
<input type="hidden" name="action" value="verify_and_change_domcoord" /> |
$text<br /> |
$text<br /> |
<label><input type="checkbox" name="construction" $constchecked />$construction</label><br /> |
<label><input type="checkbox" name="construction"$constchecked />$construction</label><br /> |
<input type="submit" value="$change" /> |
<input type="submit" value="$change" /> |
</form> |
</form> |
ENDSCREEN |
ENDSCREEN |
Line 720 sub verify_and_change_domcoord {
|
Line 716 sub verify_and_change_domcoord {
|
if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; } |
if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; } |
&Apache::lonnet::put('environment',\%domcoord); |
&Apache::lonnet::put('environment',\%domcoord); |
&Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}}); |
&Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}}); |
# $r->print(&mt('Registering Domain Coordinator access restrictions.')); |
my $status=''; |
print_main_menu($r, &mt('Registering Domain Coordinator access restrictions.')); |
if ($domcoord{'domcoord.author'} eq 'blocked') { |
|
$status=&mt('on'); |
|
} else { |
|
$status=&mt('off'); |
|
} |
|
my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Block access to construction space').'</i>','<tt>'.$status.'</tt>')); |
|
$message=&Apache::loncommon::confirmwrapper($message); |
|
&print_main_menu($r,$message); |
} |
} |
|
|
################################################################# |
################################################################# |
Line 798 sub msgforwardchanger {
|
Line 801 sub msgforwardchanger {
|
my %allnot = &get_notifications(\%userenv); |
my %allnot = &get_notifications(\%userenv); |
my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email(); |
my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email(); |
my $jscript = qq| |
my $jscript = qq| |
<script type="text/javascript"> |
<script type="text/javascript" language="JavaScript"> |
function validate() { |
function validate() { |
for (var i=0; i<document.prefs.numnotify.value; i++) { |
for (var i=0; i<document.prefs.numnotify.value; i++) { |
var checkaddress = 0; |
var checkaddress = 0; |
Line 991 sub verify_and_change_msgforward {
|
Line 994 sub verify_and_change_msgforward {
|
if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') { |
if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') { |
$newscreen.=$msuser.':'.$msdomain.','; |
$newscreen.=$msuser.':'.$msdomain.','; |
} else { |
} else { |
$message.= &mt('No such user: ').'<tt>'.$msuser.':'.$msdomain.'</tt><br>'; |
$message.= &mt('No such user: ').'<tt>'.$msuser.':'.$msdomain.'</tt><br />'; |
} |
} |
} |
} |
} |
} |
Line 1094 sub colorschanger {
|
Line 1097 sub colorschanger {
|
# figure out colors |
# figure out colors |
my $function=&Apache::loncommon::get_users_function(); |
my $function=&Apache::loncommon::get_users_function(); |
my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
my %colortypes=('pgbg' => 'Page Background', |
my %colortypes=&Apache::lonlocal::texthash( |
'tabbg' => 'Header Background', |
'pgbg' => 'Page Background Color', |
'sidebg'=> 'Header Border', |
'tabbg' => 'Header Background Color', |
'font' => 'Font', |
'sidebg' => 'Header Border Color', |
'link' => 'Un-Visited Link', |
'font' => 'Font Color', |
'vlink' => 'Visited Link', |
'fontmenu' => 'Font Menu Color', |
'alink' => 'Active Link'); |
'link' => 'Un-Visited Link Color', |
|
'vlink' => 'Visited Link Color', |
|
'alink' => 'Active Link Color', |
|
); |
my $start_data_table = &Apache::loncommon::start_data_table(); |
my $start_data_table = &Apache::loncommon::start_data_table(); |
my $chtable=''; |
my $chtable=''; |
foreach my $item (sort(keys(%colortypes))) { |
foreach my $item (sort(keys(%colortypes))) { |
Line 1111 sub colorschanger {
|
Line 1117 sub colorschanger {
|
'" size="10" value="'.$curcol. |
'" size="10" value="'.$curcol. |
'" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}. |
'" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}. |
"','".$curcol."','" |
"','".$curcol."','" |
.$item."','parmform.pres','psub'".');">Select</a></td>'. |
.$item."','parmform.pres','psub'".');">'.&mt('Select').'</a></td>'. |
&Apache::loncommon::end_data_table_row()."\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
} |
} |
my $end_data_table = &Apache::loncommon::end_data_table(); |
my $end_data_table = &Apache::loncommon::end_data_table(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $save = &mt('Save'); |
my $savebutton = &mt('Save'); |
my $rstall = &mt('Reset All'); |
my $resetbutton = &mt('Reset All'); |
my $resetdefault = &mt('Reset All Colors to Default'); |
my $resetbuttondesc = &mt('Reset All Colors to Default'); |
$r->print(<<ENDCOL); |
$r->print(<<ENDCOL); |
<script type="text/javascript"> |
<script type="text/javascript" language="JavaScript"> |
|
|
function pclose() { |
function pclose() { |
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
Line 1157 $start_data_table
|
Line 1163 $start_data_table
|
$chtable |
$chtable |
$end_data_table |
$end_data_table |
</table> |
</table> |
<input type="submit" value="$save" /> |
<p> |
<input type="submit" name="resetall" value="$rstall" title="$resetdefault" /> |
<input type="submit" value="$savebutton" /> |
|
<input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" /> |
|
</p> |
</form> |
</form> |
ENDCOL |
ENDCOL |
} |
} |
Line 1168 sub verify_and_change_colors {
|
Line 1176 sub verify_and_change_colors {
|
# figure out colors |
# figure out colors |
my $function=&Apache::loncommon::get_users_function(); |
my $function=&Apache::loncommon::get_users_function(); |
my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
my %colortypes=('pgbg' => 'Page Background', |
my %colortypes=&Apache::lonlocal::texthash( |
'tabbg' => 'Header Background', |
'pgbg' => 'Page Background Color', |
'sidebg'=> 'Header Border', |
'tabbg' => 'Header Background Color', |
'font' => 'Font', |
'sidebg' => 'Header Border Color', |
'link' => 'Un-Visited Link', |
'font' => 'Font Color', |
'vlink' => 'Visited Link', |
'fontmenu' => 'Font Menu Color', |
'alink' => 'Active Link'); |
'link' => 'Un-Visited Link Color', |
|
'vlink' => 'Visited Link Color', |
|
'alink' => 'Active Link Color', |
|
); |
|
|
my $message=''; |
my $message=''; |
foreach my $item (keys %colortypes) { |
foreach my $item (keys %colortypes) { |
Line 1183 sub verify_and_change_colors {
|
Line 1194 sub verify_and_change_colors {
|
if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) { |
if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) { |
&Apache::lonnet::put('environment',{$entry => $color}); |
&Apache::lonnet::put('environment',{$entry => $color}); |
&Apache::lonnet::appenv({'environment.'.$entry => $color}); |
&Apache::lonnet::appenv({'environment.'.$entry => $color}); |
$message.=&mt('Set '.$colortypes{$item}.' to ').'<tt>"'.$color.'"</tt>.<br />'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.$colortypes{$item}.'</i>','<tt>"'.$color.'"</tt>')) |
|
.'<br />'; |
} else { |
} else { |
&Apache::lonnet::del('environment',[$entry]); |
&Apache::lonnet::del('environment',[$entry]); |
&Apache::lonnet::delenv('environment.'.$entry); |
&Apache::lonnet::delenv('environment.'.$entry); |
$message.=&mt('Reset '.$colortypes{$item}.'.').'<br />'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.$colortypes{$item}.'</i>')) |
|
.'<br />'; |
} |
} |
} |
} |
|
$message=&Apache::loncommon::confirmwrapper($message); |
|
|
my $now = time; |
my $now = time; |
&Apache::lonnet::put('environment',{'color.timestamp' => $now}); |
&Apache::lonnet::put('environment',{'color.timestamp' => $now}); |
&Apache::lonnet::appenv({'environment.color.timestamp' => $now}); |
&Apache::lonnet::appenv({'environment.color.timestamp' => $now}); |
|
|
print_main_menu($r, $message); |
&print_main_menu($r, $message); |
# $r->print(<<ENDVCCOL); |
|
#$message |
|
#<form name="client" action="/adm/preferences" method="post"> |
|
#<input type="hidden" name="action" value="changecolors" /> |
|
#</form> |
|
#ENDVCCOL |
|
} |
} |
|
|
###################################################### |
###################################################### |
Line 1212 sub passwordchanger {
|
Line 1221 sub passwordchanger {
|
# Passwords are encrypted using londes.js (DES encryption) |
# Passwords are encrypted using londes.js (DES encryption) |
$errormessage = ($errormessage || ''); |
$errormessage = ($errormessage || ''); |
my ($user,$domain,$currentpass,$defdom); |
my ($user,$domain,$currentpass,$defdom); |
Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/preferences?action=changepass', |
{ href => '/adm/preferences?action=changepass', |
text => 'Change Password'}); |
text => 'Change Password'}); |
unless ($caller eq 'reset_by_email') { |
unless ($caller eq 'reset_by_email') { |
Line 1229 sub passwordchanger {
|
Line 1238 sub passwordchanger {
|
$defdom = $r->dir_config('lonDefDomain'); |
$defdom = $r->dir_config('lonDefDomain'); |
my %data = &Apache::lonnet::tmpget($mailtoken); |
my %data = &Apache::lonnet::tmpget($mailtoken); |
if (keys(%data) == 0) { |
if (keys(%data) == 0) { |
$r->print(&mt('Sorry, the URL you provided to complete the reset of your password was invalid. Either the token included in the URL has been deleted or the URL you provided was invalid. Please submit a <a href="/adm/resetpw">new request</a> for a password reset, and follow the link to the new URL included in the e-mail that will be sent to you, to allow you to enter a new password.')); |
$r->print(&mt('Sorry, the URL you provided to complete the reset of your password was invalid. Either the token included in the URL has been deleted or the URL you provided was invalid. Please submit a [_1]new request[_2] for a password reset, and follow the link to the new URL included in the e-mail that will be sent to you, to allow you to enter a new password.' |
|
,'<a href="/adm/resetpw">','</a>') |
|
); |
return; |
return; |
} |
} |
if (defined($data{time})) { |
if (defined($data{time})) { |
Line 1298 ENDFORM
|
Line 1309 ENDFORM
|
sub jscript_send { |
sub jscript_send { |
my ($caller) = @_; |
my ($caller) = @_; |
my $output = qq| |
my $output = qq| |
<script language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |
|
|
function send() { |
function send() { |
uextkey=this.document.client.elements.ukey_cpass.value; |
uextkey=this.document.client.elements.ukey_cpass.value; |
Line 1346 sub client_form {
|
Line 1357 sub client_form {
|
'confirmpass' => 'Confirm Password', |
'confirmpass' => 'Confirm Password', |
'changepass' => 'Save'); |
'changepass' => 'Save'); |
|
|
my $output = qq| |
my $output = '<form name="client">' |
<form name="client" > |
.&Apache::lonhtmlcommon::start_pick_box(); |
<table> |
|
|; |
|
if ($caller eq 'reset_by_email') { |
if ($caller eq 'reset_by_email') { |
$output .= qq| |
$output .= &Apache::lonhtmlcommon::row_title( |
<tr><td class="LC_preferences_labeltext"><label for="email">$lt{'email'}</label>:</td> |
'<label for="email">'.$lt{'email'}.'</label>') |
<td><input type="text" name="email" size="30" /> </td></tr> |
.'<input type="text" name="email" size="30" />' |
<tr><td class="LC_preferences_labeltext"><label for="uname">$lt{'username'}</label>:</td> |
.&Apache::lonhtmlcommon::row_closure() |
<td> |
.&Apache::lonhtmlcommon::row_title( |
<input type="text" name="uname" size="15" /> |
'<label for="uname">'.$lt{'username'}.'</label>') |
<input type="hidden" name="currentpass" value="$currentpass" /> |
.'<input type="text" name="uname" size="15" />' |
</td></tr> |
.'<input type="hidden" name="currentpass" value="'.$currentpass.'" />' |
<tr><td class="LC_preferences_labeltext"><label for="udom">$lt{'domain'}</label>:</td> |
.&Apache::lonhtmlcommon::row_closure() |
<td> |
.&Apache::lonhtmlcommon::row_title( |
|; |
'<label for="udom">'.$lt{'domain'}.'</label>') |
$output .= &Apache::loncommon::select_dom_form($defdom,'udom').' |
.&Apache::loncommon::select_dom_form($defdom,'udom') |
</td> |
.&Apache::lonhtmlcommon::row_closure(); |
</tr> |
|
'; |
|
} else { |
} else { |
$output .= qq| |
$output .= &Apache::lonhtmlcommon::row_title( |
<tr><td class="LC_preferences_labeltext"><label for="currentpass">$lt{'currentpass'}</label></td> |
'<label for="currentpass">'.$lt{'currentpass'}.'</label>') |
<td><input type="password" name="currentpass" size="10"/> </td></tr> |
.'<input type="password" name="currentpass" size="10"/>' |
|; |
.&Apache::lonhtmlcommon::row_closure(); |
} |
} |
$output .= <<"ENDFORM"; |
$output .= &Apache::lonhtmlcommon::row_title( |
<tr><td class="LC_preferences_labeltext"><label for="newpass_1">$lt{'newpass'}</label></td> |
'<label for="newpass_1">'.$lt{'newpass'}.'</label>') |
<td><input type="password" name="newpass_1" size="10" /> </td></tr> |
.'<input type="password" name="newpass_1" size="10" />' |
<tr><td class="LC_preferences_labeltext"><label for="newpass_2">$lt{'confirmpass'}</label></td> |
.&Apache::lonhtmlcommon::row_closure() |
<td><input type="password" name="newpass_2" size="10" /> </td></tr> |
.&Apache::lonhtmlcommon::row_title( |
<tr><td colspan="2" align="center"> |
'<label for="newpass_2">'.$lt{'confirmpass'}.'</label>') |
<input type="button" value="$lt{'changepass'}" onClick="send();"> |
.'<input type="password" name="newpass_2" size="10" />' |
</table> |
.&Apache::lonhtmlcommon::row_closure(1) |
|
.&Apache::lonhtmlcommon::end_pick_box(); |
|
$output .= '<p><input type="button" value="'.$lt{'changepass'}.'" onClick="send();" /></p>' |
|
.qq| |
<input type="hidden" name="ukey_cpass" value="$hexkey->{'ukey_cpass'}" /> |
<input type="hidden" name="ukey_cpass" value="$hexkey->{'ukey_cpass'}" /> |
<input type="hidden" name="lkey_cpass" value="$hexkey->{'lkey_cpass'}" /> |
<input type="hidden" name="lkey_cpass" value="$hexkey->{'lkey_cpass'}" /> |
<input type="hidden" name="ukey_npass1" value="$hexkey->{'ukey_npass1'}" /> |
<input type="hidden" name="ukey_npass1" value="$hexkey->{'ukey_npass1'}" /> |
Line 1388 sub client_form {
|
Line 1398 sub client_form {
|
<input type="hidden" name="lkey_npass2" value="$hexkey->{'lkey_npass2'}" /> |
<input type="hidden" name="lkey_npass2" value="$hexkey->{'lkey_npass2'}" /> |
</form> |
</form> |
</p> |
</p> |
ENDFORM |
|; |
return $output; |
return $output; |
} |
} |
|
|
Line 1554 ENDERROR
|
Line 1564 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 = &mt('The password for [_1] was successfully changed.',$user); |
$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 { |
&print_main_menu($r, $message); |
&print_main_menu($r, $message); |
} |
} |
# $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 |
$message = &mt("The password for [_1] was not changed.",$user).' '.&mt('Please make sure your old password was entered correctly.'); |
$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); |
unless ($caller eq 'reset_by_email') { |
unless ($caller eq 'reset_by_email') { |
|
$message=&Apache::loncommon::confirmwrapper($message); |
&print_main_menu($r, $message); |
&print_main_menu($r, $message); |
} |
} |
# $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 1; |
return 1; |
} |
} |
return; |
return; |
Line 1647 sub discussionchanger {
|
Line 1656 sub discussionchanger {
|
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
<br /> |
<br /> |
$lt{'sdpf'}<br /> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol> |
$lt{'sdpf'}<br /> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol> |
<br /> |
|
<br /> |
|
END |
END |
|
|
|
$r->print('<p class="LC_info">'.$lt{'thde'}.'</p>'); |
|
|
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<tr> |
<tr> |
Line 1675 END
|
Line 1685 END
|
$r->print(&Apache::loncommon::end_data_table_row(). |
$r->print(&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table()); |
&Apache::loncommon::end_data_table()); |
|
|
$r->print('<br /><br /><input type="submit" name="sub" value="'.&mt('Save').'" /><br /><br />'.&mt('Note').': '.$lt{'thde'}.'</form>'); |
$r->print('<br />' |
|
.'<input type="submit" name="sub" value="'.&mt('Save').'" />' |
|
.'</form>' |
|
); |
} |
} |
|
|
sub verify_and_change_discussion { |
sub verify_and_change_discussion { |
Line 1698 sub verify_and_change_discussion {
|
Line 1711 sub verify_and_change_discussion {
|
if (defined($env{'form.discmark'}) ) { |
if (defined($env{'form.discmark'}) ) { |
my $newmark = $env{'form.newmark'}; |
my $newmark = $env{'form.newmark'}; |
if ($newmark eq 'ondisp') { |
if ($newmark eq 'ondisp') { |
$message.=&mt('In discussions: new posts will be cease to be identified as "NEW" after display.').'<br />'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: new posts will be cease to be identified as "NEW" after display.')).'<br />'; |
&Apache::lonnet::put('environment',{'discmarkread' => $newmark}); |
&Apache::lonnet::put('environment',{'discmarkread' => $newmark}); |
&Apache::lonnet::appenv({'environment.discmarkread' => $newmark}); |
&Apache::lonnet::appenv({'environment.discmarkread' => $newmark}); |
} else { |
} else { |
$message.=&mt('In discussions: posts will be identified as "NEW" until marked as read by the reader.').'<br />'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: posts will be identified as "NEW" until marked as read by the reader.')).'<br />'; |
&Apache::lonnet::del('environment',['discmarkread']); |
&Apache::lonnet::del('environment',['discmarkread']); |
&Apache::lonnet::delenv('environment.discmarkread'); |
&Apache::lonnet::delenv('environment.discmarkread'); |
} |
} |
} |
} |
# $r->print(<<ENDVCSCREEN); |
$message=&Apache::loncommon::confirmwrapper($message); |
#$message |
&print_main_menu($r, $message); |
#ENDVCSCREEN |
|
print_main_menu($r, $message); |
|
} |
} |
|
|
################################################################ |
################################################################ |
Line 1718 sub verify_and_change_discussion {
|
Line 1729 sub verify_and_change_discussion {
|
################################################################ |
################################################################ |
sub coursedisplaychanger { |
sub coursedisplaychanger { |
my $r = shift; |
my $r = shift; |
Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/preferences?action=changecourseinit', |
{ href => '/adm/preferences?action=changecourseinit', |
text => 'Change Course Init. Pref.'}); |
text => 'Change Course Init. Pref.'}); |
$r->print(Apache::loncommon::start_page('Change Course Initialization Preference')); |
$r->print(Apache::loncommon::start_page('Change Course Initialization Preference')); |
Line 1797 sub verify_and_change_coursepage {
|
Line 1808 sub verify_and_change_coursepage {
|
$refpage.'">'.$lt{'dasp'}.'</a></font>'; |
$refpage.'">'.$lt{'dasp'}.'</a></font>'; |
} |
} |
} |
} |
# $r->print(<<ENDVCSCREEN); |
&print_main_menu($r, &Apache::lonhtmlcommon::confirm_success($message)); |
#$message |
|
#<br /><br /> |
|
#ENDVCSCREEN |
|
print_main_menu($r, $message); |
|
} |
} |
|
|
sub print_main_menu { |
sub print_main_menu { |
Line 1890 my @menu=
|
Line 1897 my @menu=
|
}, |
}, |
{ categorytitle=>'Message Management', |
{ categorytitle=>'Message Management', |
items =>[ |
items =>[ |
{ linktext => 'Messages & Notifications', |
{ linktext => 'Messages & Notifications', |
url => '/adm/preferences?action=changemsgforward', |
url => '/adm/preferences?action=changemsgforward', |
permission => 'F', |
permission => 'F', |
#help => 'Prefs_Messages', |
#help => 'Prefs_Messages', |
Line 1908 my @menu=
|
Line 1915 my @menu=
|
}, |
}, |
{ categorytitle=>'Other', |
{ categorytitle=>'Other', |
items =>[ |
items =>[ |
{ linktext => 'Register Response Devices ("Clickers")', |
{ linktext => 'Register Response Devices ("Clickers")', |
url => '/adm/preferences?action=changeclicker', |
url => '/adm/preferences?action=changeclicker', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
Line 2012 sub handler {
|
Line 2019 sub handler {
|
Apache::lonhtmlcommon::clear_breadcrumbs(); |
Apache::lonhtmlcommon::clear_breadcrumbs(); |
Apache::lonhtmlcommon::add_breadcrumb |
Apache::lonhtmlcommon::add_breadcrumb |
({href => '/adm/preferences', |
({href => '/adm/preferences', |
text => 'Set User Preferences'}); |
text => 'Set User Preferences', |
|
help => |
|
'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display'}); |
if(!exists $env{'form.action'}) { |
if(!exists $env{'form.action'}) { |
&print_main_menu($r); |
&print_main_menu($r); |
}elsif($env{'form.action'} eq 'changepass'){ |
}elsif($env{'form.action'} eq 'changepass'){ |
&passwordchanger($r); |
&passwordchanger($r); |
}elsif($env{'form.action'} eq 'verify_and_change_pass'){ |
}elsif($env{'form.action'} eq 'verify_and_change_pass'){ |
Line 2072 sub handler {
|
Line 2081 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(); |
&toggle_debug(); |
print_main_menu($r); |
&print_main_menu($r); |
} |
} |
|
|
return OK; |
return OK; |
Line 2354 sub handler2 {
|
Line 2363 sub handler2 {
|
})); |
})); |
} |
} |
|
|
if ($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/) { |
if (($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/) |
|
&& ($env{'user.domain'} =~/^(msu|gerd)$/)){ |
push (@Options,({ action => 'debugtoggle', |
push (@Options,({ action => 'debugtoggle', |
printmenu => 'yes', |
printmenu => 'yes', |
subroutine => \&toggle_debug, |
subroutine => \&toggle_debug, |