version 1.123, 2008/05/28 23:50:53
|
version 1.125.4.1, 2009/05/20 15:05:19
|
Line 108 sub wysiwygchanger {
|
Line 108 sub wysiwygchanger {
|
} |
} |
my $switchoff=&mt('Disable WYSIWYG editor'); |
my $switchoff=&mt('Disable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |
|
my $warning=''; |
|
if ($env{'user.adv'}) { |
|
$warning.="<p>".&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."</p>"; |
|
} |
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="set_wysiwyg" /> |
<input type="hidden" name="action" value="set_wysiwyg" /> |
|
$warning |
<br /> |
<br /> |
<label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br /> |
<label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br /> |
<label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label> |
<label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label> |
ENDLSCREEN |
ENDLSCREEN |
$r->print('<br /><input type="submit" value="'.&mt('Change').'" />'); |
$r->print('<br /><input type="submit" value="'.&mt('Save').'" />'); |
} |
} |
|
|
|
|
Line 124 sub verify_and_change_wysiwyg {
|
Line 129 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>')); |
|
$message=&Apache::loncommon::confirmwrapper($message); |
|
$r->print(<<ENDVCSCREEN); |
|
$message |
|
ENDVCSCREEN |
} |
} |
|
|
################################################################ |
################################################################ |
Line 153 sub languagechanger {
|
Line 162 sub languagechanger {
|
<input type="hidden" name="action" value="verify_and_change_languages" /> |
<input type="hidden" name="action" value="verify_and_change_languages" /> |
<br />$pref: $selectionbox |
<br />$pref: $selectionbox |
ENDLSCREEN |
ENDLSCREEN |
$r->print('<br /><input type="submit" value="'.&mt('Change').'" />'); |
$r->print('<br /><input type="submit" value="'.&mt('Save').'" />'); |
} |
} |
|
|
|
|
Line 168 sub verify_and_change_languages {
|
Line 177 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); |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
Line 201 sub texenginechanger {
|
Line 212 sub texenginechanger {
|
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'headline' => 'Change Math Preferences', |
'headline' => 'Change Math Preferences', |
'preftxt' => 'Preferred method to display Math', |
'preftxt' => 'Preferred method to display Math', |
'change' => 'Change', |
'change' => 'Save', |
'exmpl' => 'Examples', |
'exmpl' => 'Examples', |
'jsmath' => 'jsMath:', |
'jsmath' => 'jsMath:', |
'tth' => 'tth (TeX to HTML):', |
'tth' => 'tth (TeX to HTML):', |
'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"> |
<input type="hidden" name="action" value="verify_and_change_texengine" /> |
<input type="hidden" name="action" value="verify_and_change_texengine" /> |
<p> |
<p> |
$lt{'preftxt'}:<br /> |
$lt{'preftxt'}: $selectionbox |
$selectionbox <input type="submit" value="$lt{'change'}" /> |
<br /> |
|
<input type="submit" value="$lt{'change'}" /> |
</p> |
</p> |
</form> |
</form> |
<br /> |
<br /> |
Line 226 $lt{'exmpl'}
|
Line 253 $lt{'exmpl'}
|
$jsMath_start |
$jsMath_start |
<script type="text/javascript"> |
<script type="text/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 277 sub verify_and_change_texengine {
|
Line 293 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); |
|
|
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
Line 305 sub rolesprefchanger {
|
Line 320 sub rolesprefchanger {
|
my $hotlist_n=$userenv{'recentrolesn'}; |
my $hotlist_n=$userenv{'recentrolesn'}; |
my $checked; |
my $checked; |
if ($hotlist_flag) { |
if ($hotlist_flag) { |
$checked = 'checked="checked"'; |
$checked = ' checked="checked"'; |
} |
} |
|
|
if (!$hotlist_n) { $hotlist_n=3; } |
if (!$hotlist_n) { $hotlist_n=3; } |
Line 340 sub rolesprefchanger {
|
Line 355 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 358 sub rolesprefchanger {
|
Line 373 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 370 sub rolesprefchanger {
|
Line 385 sub rolesprefchanger {
|
</p> |
</p> |
'.$roles_check_list.' |
'.$roles_check_list.' |
<br /> |
<br /> |
<input type="submit" value="'.&mt('Change').'" /> |
<input type="submit" value="'.&mt('Save').'" /> |
</form>'); |
</form>'); |
} |
} |
|
|
Line 419 sub verify_and_change_rolespref {
|
Line 434 sub verify_and_change_rolespref {
|
$message=&mt('Recent '.$role.'s Hotlist is Enabled'); |
$message=&mt('Recent '.$role.'s Hotlist is Enabled'); |
} else { |
} else { |
&Apache::lonnet::del('environment',['recentroles']); |
&Apache::lonnet::del('environment',['recentroles']); |
&Apache::lonnet::delenv('environment\.recentroles'); |
&Apache::lonnet::delenv('environment.recentroles'); |
$message=&mt('Recent '.$role.'s Hotlist is Disabled'); |
$message=&mt('Recent '.$role.'s Hotlist is Disabled'); |
} |
} |
if ($hotlist_n) { |
if ($hotlist_n) { |
Line 449 sub verify_and_change_rolespref {
|
Line 464 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 457 sub verify_and_change_rolespref {
|
Line 472 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); |
|
|
$r->print(<<ENDRPSCREEN); |
$r->print(<<ENDRPSCREEN); |
$message |
$message |
ENDRPSCREEN |
ENDRPSCREEN |
Line 482 sub screennamechanger {
|
Line 497 sub screennamechanger {
|
('environment',['screenname','nickname']); |
('environment',['screenname','nickname']); |
my $screenname=$userenv{'screenname'}; |
my $screenname=$userenv{'screenname'}; |
my $nickname=$userenv{'nickname'}; |
my $nickname=$userenv{'nickname'}; |
my %lt = &Apache::lonlocal::texthash( |
$r->print('<p>' |
text_screenname => 'New screenname (shown if you post anonymously):', |
.&mt('Change the name that is displayed in your posts.') |
text_nickname => 'New nickname (shown if you post non-anonymously):', |
.'</p>' |
text_submit => 'Change', |
); |
); |
$r->print('<form name="prefs" action="/adm/preferences" method="post">' |
$r->print(<<ENDSCREEN); |
.'<input type="hidden" name="action" value="verify_and_change_screenname" />' |
<form name="prefs" action="/adm/preferences" method="post"> |
.&Apache::lonhtmlcommon::start_pick_box() |
<input type="hidden" name="action" value="verify_and_change_screenname" /> |
.&Apache::lonhtmlcommon::row_title(&mt('New screenname (shown if you post anonymously)')) |
<br />$lt{'text_screenname'} |
.'<input type="text" size="20" value="'.$screenname.'" name="screenname" />' |
<input type="text" size="20" value="$screenname" name="screenname" /> |
.&Apache::lonhtmlcommon::row_closure() |
<br />$lt{'text_nickname'} |
.&Apache::lonhtmlcommon::row_title(&mt('New nickname (shown if you post non-anonymously)')) |
<input type="text" size="20" value="$nickname" name="nickname" /> |
.'<input type="text" size="20" value="'.$nickname.'" name="nickname" />' |
<br /> |
.&Apache::lonhtmlcommon::row_closure() |
<input type="submit" value="$lt{'text_submit'}" /> |
.&Apache::lonhtmlcommon::row_title() |
</form> |
.'<input type="submit" value="'.&mt('Save').'" />' |
ENDSCREEN |
.&Apache::lonhtmlcommon::row_closure(1) |
|
.&Apache::lonhtmlcommon::end_pick_box() |
|
.'</form>' |
|
); |
} |
} |
|
|
sub verify_and_change_screenname { |
sub verify_and_change_screenname { |
Line 511 sub verify_and_change_screenname {
|
Line 529 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 524 sub verify_and_change_screenname {
|
Line 542 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); |
|
$message=&Apache::loncommon::confirmwrapper($message); |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
Line 559 sub iconchanger {
|
Line 578 sub iconchanger {
|
my $useicons=&mt('Use icons and text'); |
my $useicons=&mt('Use icons and text'); |
my $usebuttons=&mt('Use buttons and text'); |
my $usebuttons=&mt('Use buttons and text'); |
my $useicononly=&mt('Use icons only'); |
my $useicononly=&mt('Use icons only'); |
my $change=&mt('Change'); |
my $change=&mt('Save'); |
$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_icons" /> |
<input type="hidden" name="action" value="verify_and_change_icons" /> |
Line 579 sub verify_and_change_icons {
|
Line 598 sub verify_and_change_icons {
|
|
|
&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>')); |
|
$message=&Apache::loncommon::confirmwrapper($message); |
|
$r->print(<<ENDVCSCREEN); |
|
$message |
|
ENDVCSCREEN |
} |
} |
|
|
################################################################ |
################################################################ |
Line 600 sub clickerchanger {
|
Line 623 sub clickerchanger {
|
$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 621 sub verify_and_change_clicker {
|
Line 645 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)); |
|
$message=&Apache::loncommon::confirmwrapper($message); |
|
$r->print(<<ENDVCSCREEN); |
|
$message |
|
ENDVCSCREEN |
} |
} |
|
|
################################################################ |
################################################################ |
Line 636 sub domcoordchanger {
|
Line 664 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'); |
my $change=&mt('Change'); |
my $change=&mt('Save'); |
$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_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 659 sub verify_and_change_domcoord {
|
Line 687 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 $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); |
|
$r->print(<<ENDVCSCREEN); |
|
$message |
|
ENDVCSCREEN |
} |
} |
|
|
################################################################# |
################################################################# |
Line 715 sub msgforwardchanger {
|
Line 747 sub msgforwardchanger {
|
foad => 'Forwarding Address(es)', |
foad => 'Forwarding Address(es)', |
noti => 'Notification E-mail Address(es)', |
noti => 'Notification E-mail Address(es)', |
foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>', |
foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>', |
mnot => 'Email Address(es) which should be notified about new LON-CAPA messages', # old: 'Message Notification Email Address(es)', |
mnot => 'E-mail Address(es) which should be notified about new LON-CAPA messages', |
mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>', |
mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>', |
chg => 'Change', |
chg => 'Save', |
email => 'The e-mail address entered in row ', |
email => 'The e-mail address entered in row ', |
notv => 'is not a valid e-mail address', |
notv => 'is not a valid e-mail address', |
toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", |
toen => "To enter multiple addresses, enter one address at a time, click 'Save' and then add the next one", |
prme => 'Back to preferences menu', |
prme => 'Back', |
); |
); |
my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding"); |
my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding"); |
my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification"); |
my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification"); |
Line 888 ENDMSG
|
Line 920 ENDMSG
|
$r->print(qq| |
$r->print(qq| |
<br /><hr /> |
<br /><hr /> |
<input type="hidden" name="numnotify" value="$num" /> |
<input type="hidden" name="numnotify" value="$num" /> |
<input type="button" value="$lt{'chg'}" onclick="javascript:validate()" /> |
|
<input type="button" value="$lt{'prme'}" onclick="location.href='/adm/preferences'" /> |
<input type="button" value="$lt{'prme'}" onclick="location.href='/adm/preferences'" /> |
|
<input type="button" value="$lt{'chg'}" onclick="javascript:validate()" /> |
</form> |
</form> |
|); |
|); |
|
|
Line 923 sub verify_and_change_msgforward {
|
Line 955 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 935 sub verify_and_change_msgforward {
|
Line 967 sub verify_and_change_msgforward {
|
.'<br />'; |
.'<br />'; |
} else { |
} else { |
&Apache::lonnet::del('environment',['msgforward']); |
&Apache::lonnet::del('environment',['msgforward']); |
&Apache::lonnet::delenv('environment\.msgforward'); |
&Apache::lonnet::delenv('environment.msgforward'); |
$message.= &mt("Set message forwarding to 'off'.").'<br />'; |
$message.= &mt("Set message forwarding to 'off'.").'<br />'; |
} |
} |
my $critnotification; |
my $critnotification; |
Line 975 sub verify_and_change_msgforward {
|
Line 1007 sub verify_and_change_msgforward {
|
$message.=&mt('Set non-critical message notification address(es) to ').'<tt>"'.$notification.'"</tt>.<br />'; |
$message.=&mt('Set non-critical message notification address(es) to ').'<tt>"'.$notification.'"</tt>.<br />'; |
} else { |
} else { |
&Apache::lonnet::del('environment',['notification']); |
&Apache::lonnet::del('environment',['notification']); |
&Apache::lonnet::delenv('environment\.notification'); |
&Apache::lonnet::delenv('environment.notification'); |
$message.=&mt("Set non-critical message notification to 'off'.").'<br />'; |
$message.=&mt("Set non-critical message notification to 'off'.").'<br />'; |
} |
} |
if ($critnotification) { |
if ($critnotification) { |
Line 984 sub verify_and_change_msgforward {
|
Line 1016 sub verify_and_change_msgforward {
|
$message.=&mt('Set critical message notification address(es) to ').'<tt>"'.$critnotification.'"</tt>.<br />'; |
$message.=&mt('Set critical message notification address(es) to ').'<tt>"'.$critnotification.'"</tt>.<br />'; |
} else { |
} else { |
&Apache::lonnet::del('environment',['critnotification']); |
&Apache::lonnet::del('environment',['critnotification']); |
&Apache::lonnet::delenv('environment\.critnotification'); |
&Apache::lonnet::delenv('environment.critnotification'); |
$message.=&mt("Set critical message notification to 'off'.").'<br />'; |
$message.=&mt("Set critical message notification to 'off'.").'<br />'; |
} |
} |
if ($critnotification || $notification) { |
if ($critnotification || $notification) { |
Line 994 sub verify_and_change_msgforward {
|
Line 1026 sub verify_and_change_msgforward {
|
$message.=&mt('Set address(es) to receive excerpts with html retained ').'<tt>"'.$notify_with_html.'"</tt>.'; |
$message.=&mt('Set address(es) to receive excerpts with html retained ').'<tt>"'.$notify_with_html.'"</tt>.'; |
} else { |
} else { |
&Apache::lonnet::del('environment',['notifywithhtml']); |
&Apache::lonnet::del('environment',['notifywithhtml']); |
&Apache::lonnet::delenv('environment\.notifywithhtml'); |
&Apache::lonnet::delenv('environment.notifywithhtml'); |
if ($totaladdresses == 1) { |
if ($totaladdresses == 1) { |
$message.=&mt("Set notification address to receive excerpts with html stripped."); |
$message.=&mt("Set notification address to receive excerpts with html stripped."); |
} else { |
} else { |
Line 1003 sub verify_and_change_msgforward {
|
Line 1035 sub verify_and_change_msgforward {
|
} |
} |
} else { |
} else { |
&Apache::lonnet::del('environment',['notifywithhtml']); |
&Apache::lonnet::del('environment',['notifywithhtml']); |
&Apache::lonnet::delenv('environment\.notifywithhtml'); |
&Apache::lonnet::delenv('environment.notifywithhtml'); |
} |
} |
if ($message) { |
if ($message) { |
$message .= '<br /><hr />'; |
$message .= '<br /><hr />'; |
Line 1021 sub colorschanger {
|
Line 1053 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=('pgbg' => 'Page Background Color', |
'tabbg' => 'Header Background', |
'tabbg' => 'Header Background Color', |
'sidebg'=> 'Header Border', |
'sidebg'=> 'Header Border Color', |
'font' => 'Font', |
'font' => 'Font Color', |
'link' => 'Un-Visited Link', |
'link' => 'Un-Visited Link Color', |
'vlink' => 'Visited Link', |
'vlink' => 'Visited Link Color', |
'alink' => 'Active Link'); |
'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 1038 sub colorschanger {
|
Line 1070 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 $savebutton = &mt('Save'); |
|
my $resetbutton = &mt('Reset All'); |
|
my $resetbuttondesc = &mt('Reset All Colors to Default'); |
$r->print(<<ENDCOL); |
$r->print(<<ENDCOL); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
|
Line 1081 $start_data_table
|
Line 1116 $start_data_table
|
$chtable |
$chtable |
$end_data_table |
$end_data_table |
</table> |
</table> |
<input type="submit" value="Change Custom Colors" /> |
<input type="submit" value="$savebutton" /> |
<input type="submit" name="resetall" value="Reset All Colors to Default" /> |
<input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" /> |
</form> |
</form> |
ENDCOL |
ENDCOL |
} |
} |
Line 1092 sub verify_and_change_colors {
|
Line 1127 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=('pgbg' => 'Page Background Color', |
'tabbg' => 'Header Background', |
'tabbg' => 'Header Background Color', |
'sidebg'=> 'Header Border', |
'sidebg'=> 'Header Border Color', |
'font' => 'Font', |
'font' => 'Font Color', |
'link' => 'Un-Visited Link', |
'link' => 'Un-Visited Link Color', |
'vlink' => 'Visited Link', |
'vlink' => 'Visited Link Color', |
'alink' => 'Active Link'); |
'alink' => 'Active Link Color'); |
|
|
my $message=''; |
my $message=''; |
foreach my $item (keys %colortypes) { |
foreach my $item (keys %colortypes) { |
Line 1107 sub verify_and_change_colors {
|
Line 1142 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}); |
Line 1145 sub passwordchanger {
|
Line 1184 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 1260 sub client_form {
|
Line 1301 sub client_form {
|
'currentpass' => 'Current Password', |
'currentpass' => 'Current Password', |
'newpass' => 'New Password', |
'newpass' => 'New Password', |
'confirmpass' => 'Confirm Password', |
'confirmpass' => 'Confirm Password', |
'changepass' => 'Change Password'); |
'changepass' => 'Save'); |
|
|
my $output = qq| |
my $output = qq| |
<form name="client" > |
<form name="client" > |
Line 1294 sub client_form {
|
Line 1335 sub client_form {
|
<tr><td class="LC_preferences_labeltext"><label for="newpass_2">$lt{'confirmpass'}</label></td> |
<tr><td class="LC_preferences_labeltext"><label for="newpass_2">$lt{'confirmpass'}</label></td> |
<td><input type="password" name="newpass_2" size="10" /> </td></tr> |
<td><input type="password" name="newpass_2" size="10" /> </td></tr> |
<tr><td colspan="2" align="center"> |
<tr><td colspan="2" align="center"> |
<input type="button" value="$lt{'changepass'}" onClick="send();"> |
<input type="button" value="$lt{'changepass'}" onClick="send();" /> |
</table> |
</table> |
<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'}" /> |
Line 1469 ENDERROR
|
Line 1510 ENDERROR
|
($user,$domain,$currentpass,$newpass1,$homeserver,$caller); |
($user,$domain,$currentpass,$newpass1,$homeserver,$caller); |
# Inform the user the password has (not?) been changed |
# Inform the user the password has (not?) been changed |
if ($result =~ /^ok$/) { |
if ($result =~ /^ok$/) { |
$r->print("<h3>".&mt('The password for [_1] was successfully changed',$user)."</h3>"); |
$message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'<i>')); |
|
if ($caller eq 'reset_by_email') { |
|
$r->print($message.'<br />'); |
|
} else { |
|
$r->print(&Apache::loncommon::confirmwrapper($message)); |
|
} |
} else { |
} else { |
# error error: run in circles, scream and shout |
# error error: run in circles, scream and shout |
$r->print("<h3><span class='LC_error'>".&mt("The password for [_1] was not changed",$user)."</span></h3>". |
$message = &Apache::lonhtmlcommon::confirm_success( |
&mt('Please make sure your old password was entered correctly.')); |
&mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.&mt('Please make sure your old password was entered correctly.'),1); |
|
if ($caller eq 'reset_by_email') { |
|
$r->print($message.'<br />'); |
|
} else { |
|
$r->print(&Apache::loncommon::confirmwrapper($message)); |
|
} |
return 1; |
return 1; |
} |
} |
return; |
return; |
Line 1512 sub discussionchanger {
|
Line 1563 sub discussionchanger {
|
'pref' => 'Display Preference', |
'pref' => 'Display Preference', |
'curr' => 'Current setting ', |
'curr' => 'Current setting ', |
'actn' => 'Action', |
'actn' => 'Action', |
'sdpf' => 'Set display preferences for discussion posts for both bulletin boards and individual resources in all your courses.', |
'sdpf' => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.', |
'prca' => 'Preferences can be set that determine', |
'prca' => 'Preferences can be set that determine', |
'whpo' => 'Which posts are displayed when you display a bulletin board or resource, and', |
'whpo' => 'Which posts are displayed when you display a discussion board or resource, and', |
'unwh' => 'Under what circumstances posts are identfied as "New"', |
'unwh' => 'Under what circumstances posts are identfied as "New"', |
'allposts' => 'All posts', |
'allposts' => 'All posts', |
'unread' => 'New posts only', |
'unread' => 'New posts only', |
Line 1523 sub discussionchanger {
|
Line 1574 sub discussionchanger {
|
'disa' => 'Posts displayed?', |
'disa' => 'Posts displayed?', |
'npmr' => 'New posts cease to be identified as "New"?', |
'npmr' => 'New posts cease to be identified as "New"?', |
'thde' => 'The preferences you set here can be overridden within each individual discussion.', |
'thde' => 'The preferences you set here can be overridden within each individual discussion.', |
'chgt' => 'Change to ' |
'chgt' => 'Change to ', |
); |
); |
my $dispchange = $lt{'unread'}; |
my $dispchange = $lt{'unread'}; |
my $markchange = $lt{'ondisp'}; |
my $markchange = $lt{'ondisp'}; |
Line 1547 sub discussionchanger {
|
Line 1598 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 1574 END
|
Line 1625 END
|
END |
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(<<"END"); |
$r->print('<br />'. |
<br /> |
'<input type="submit" name="sub" value="'.&mt('Save').'" />'. |
<br /> |
'</form>'); |
<input type="submit" name="sub" value="Save Changes" /> |
|
<br /> |
|
<br /> |
|
Note: $lt{'thde'} |
|
</form> |
|
END |
|
} |
} |
|
|
sub verify_and_change_discussion { |
sub verify_and_change_discussion { |
Line 1599 sub verify_and_change_discussion {
|
Line 1644 sub verify_and_change_discussion {
|
} else { |
} else { |
$message .= &mt('In discussions: all posts will be displayed.').'<br />'; |
$message .= &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'); |
} |
} |
} |
} |
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'); |
} |
} |
} |
} |
|
$message=&Apache::loncommon::confirmwrapper($message); |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
Line 1639 sub coursedisplaychanger {
|
Line 1685 sub coursedisplaychanger {
|
} |
} |
my %pagenames = ( |
my %pagenames = ( |
firstres => 'First resource', |
firstres => 'First resource', |
whatsnew => "What's new page", |
whatsnew => "What's New Page", |
); |
); |
my $whatsnew_off=&mt('Display the [_1] in the course.','<b>first resource</b>'); |
my $whatsnew_off=&mt('Display the [_1]first resource[_2] in the course.','<b>','</b>'); |
my $whatsnew_on=&mt('Display the "[_1]" page - a summary of items in the course which require attention.',"<b>What's New</b>"); |
my $whatsnew_on=&mt("Display the [_1]What's New Page[_2] - a summary of items in the course which require attention.",'<b>','</b>'); |
|
|
$r->print('<br /><b>'.&mt('Set the default page to be displayed when you select a course role').'</b> '.&mt('(Currently: [_1])',$pagenames{$currvalue}).'<br />'.&mt('The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the "[_1]" page in the course',"<i>What's New</i>").'<br /><br />'); |
$r->print('<br /><b>'. |
|
&mt('Set the default page to be displayed when you select a course role'). |
|
'</b> '. |
|
&mt('(Currently: [_1])',$pagenames{$currvalue}).'<br />'. |
|
&mt("The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the [_1]What's New Page[_2] page in the course.",'<i>','</i>'). |
|
'<br /><br />'); |
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<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_coursepage" /> |
<input type="hidden" name="action" value="verify_and_change_coursepage" /> |
Line 1652 sub coursedisplaychanger {
|
Line 1703 sub coursedisplaychanger {
|
<label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br /> |
<label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br /> |
<label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label><input type="hidden" name="refpage" value="$env{'form.refpage'}" /> |
<label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label><input type="hidden" name="refpage" value="$env{'form.refpage'}" /> |
ENDLSCREEN |
ENDLSCREEN |
$r->print('<br /><br /><input type="submit" value="'.&mt('Change').'" /> |
$r->print('<br /><br /><input type="submit" value="'.&mt('Save').'" /> |
</form>'); |
</form>'); |
} |
} |
|
|
Line 1665 sub verify_and_change_coursepage {
|
Line 1716 sub verify_and_change_coursepage {
|
'ywbt' => 'you will be taken to the start of the course.', |
'ywbt' => 'you will be taken to the start of the course.', |
'apwb' => 'a page will be displayed that lists items in the course that may require action from you.', |
'apwb' => 'a page will be displayed that lists items in the course that may require action from you.', |
'gtts' => 'Go to the start of the course', |
'gtts' => 'Go to the start of the course', |
'dasp' => "Display the What's New page listing course action items", |
'dasp' => "Display the What's New Page", |
); |
); |
my $newdisp = $env{'form.newdisp'}; |
my $newdisp = $env{'form.newdisp'}; |
$message = '<b>'.$lt{'defs'}.'</b>: '.$lt{'when'}.', '; |
$message = '<b>'.$lt{'defs'}.'</b>: '.$lt{'when'}.', '; |
Line 1676 sub verify_and_change_coursepage {
|
Line 1727 sub verify_and_change_coursepage {
|
} else { |
} else { |
$message .= $lt{'apwb'}.'<br />'; |
$message .= $lt{'apwb'}.'<br />'; |
&Apache::lonnet::del('environment',['course_init_display']); |
&Apache::lonnet::del('environment',['course_init_display']); |
&Apache::lonnet::delenv('environment\.course_init_display'); |
&Apache::lonnet::delenv('environment.course_init_display'); |
} |
} |
my $refpage = $env{'form.refpage'}; |
my $refpage = $env{'form.refpage'}; |
if (($env{'request.course.fn'}) && ($env{'request.course.id'})) { |
if (($env{'request.course.fn'}) && ($env{'request.course.id'})) { |
Line 1691 sub verify_and_change_coursepage {
|
Line 1742 sub verify_and_change_coursepage {
|
$refpage.'">'.$lt{'dasp'}.'</a></font>'; |
$refpage.'">'.$lt{'dasp'}.'</a></font>'; |
} |
} |
} |
} |
|
$message = &Apache::lonhtmlcommon::confirm_success($message) |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
$message |
$message |
<br /><br /> |
|
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
|
|
Line 1762 sub handler {
|
Line 1813 sub handler {
|
})); |
})); |
|
|
push (@Options,({ action => 'changemsgforward', |
push (@Options,({ action => 'changemsgforward', |
linktext => 'Change Message Forwarding and Notification Email Addresses', |
linktext => 'Messages & Notifications', |
href => '/adm/preferences', |
href => '/adm/preferences', |
help => 'Prefs_Messages', |
help => 'Prefs_Messages', |
breadcrumb => |
breadcrumb => |
Line 1777 sub handler {
|
Line 1828 sub handler {
|
text => 'Change Message Forwarding/Notification'}, |
text => 'Change Message Forwarding/Notification'}, |
printmenu => 'no', |
printmenu => 'no', |
subroutine => \&verify_and_change_msgforward })); |
subroutine => \&verify_and_change_msgforward })); |
my $aboutmeaction= |
if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) { |
'/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
my $aboutmeaction = '/adm/'.$domain.'/'.$user.'/aboutme'; |
push (@Options,{ action => 'none', |
push (@Options,{ action => 'none', |
linktext => |
linktext =>"Edit the Personal Information Page", |
q{Edit the 'About Me' Personal Information Screen}, |
help => 'Prefs_About_Me', |
help => 'Prefs_About_Me', |
href => $aboutmeaction}); |
href => $aboutmeaction}); |
} |
push (@Options,({ action => 'changecolors', |
push (@Options,({ action => 'changecolors', |
linktext => 'Change Color Scheme', |
linktext => 'Change Color Scheme', |
href => '/adm/preferences', |
href => '/adm/preferences', |
Line 1910 sub handler {
|
Line 1961 sub handler {
|
})); |
})); |
|
|
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, |
breadcrumb => |
breadcrumb => |
Line 1924 sub handler {
|
Line 1975 sub handler {
|
text => 'Register Clicker'}, |
text => 'Register Clicker'}, |
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
if ($env{'user.adv'}) { |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']); |
|
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', |
Line 2057 sub handler {
|
Line 2109 sub handler {
|
|
|
sub toggle_debug { |
sub toggle_debug { |
if ($env{'user.debug'}) { |
if ($env{'user.debug'}) { |
&Apache::lonnet::delenv('user\.debug'); |
&Apache::lonnet::delenv('user.debug'); |
} else { |
} else { |
&Apache::lonnet::appenv({'user.debug' => 1}); |
&Apache::lonnet::appenv({'user.debug' => 1}); |
} |
} |