version 1.179.2.3, 2010/09/19 14:00:49
|
version 1.186.2.6, 2011/05/16 00:57:08
|
Line 117 sub wysiwygchanger {
|
Line 117 sub wysiwygchanger {
|
my $switchon=&mt('Enable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |
my $warning=''; |
my $warning=''; |
if ($env{'user.adv'}) { |
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>"; |
$warning.='<p class="LC_warning">'.&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"> |
Line 166 sub languagechanger {
|
Line 166 sub languagechanger {
|
= &Apache::loncommon::plainlanguagedescription($_); |
= &Apache::loncommon::plainlanguagedescription($_); |
} |
} |
} |
} |
|
%langchoices = &Apache::lonlocal::texthash(%langchoices); |
my $selectionbox= |
my $selectionbox= |
&Apache::loncommon::select_form( |
&Apache::loncommon::select_form( |
$language, |
$language, |
'language', |
'language', |
&Apache::lonlocal::texthash(%langchoices)); |
\%langchoices); |
$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_languages" /> |
<input type="hidden" name="action" value="verify_and_change_languages" /> |
Line 191 sub verify_and_change_languages {
|
Line 192 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=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Preferred language').'</i>','<tt>"'.$newlanguage.'"</tt>.')); |
$message=&Apache::lonhtmlcommon::confirm_success( |
|
&mt('Set [_1] to [_2]', |
|
'<i>'.&mt('Preferred language').'</i>', |
|
'<tt>"'.$newlanguage.'"</tt>.')) |
|
.'<br />' |
|
.&mt('The change will become active on the next page.'); |
} else { |
} else { |
&Apache::lonnet::del('environment',['languages']); |
&Apache::lonnet::del('environment',['languages']); |
&Apache::lonnet::delenv('environment.languages'); |
&Apache::lonnet::delenv('environment.languages'); |
Line 224 sub texenginechanger {
|
Line 230 sub texenginechanger {
|
'mimetex' => 'mimetex (Convert to Images)', |
'mimetex' => 'mimetex (Convert to Images)', |
'raw' => 'Raw (Screen Reader)' |
'raw' => 'Raw (Screen Reader)' |
); |
); |
|
%mathchoices = &Apache::lonlocal::texthash(%mathchoices); |
my $selectionbox= |
my $selectionbox= |
&Apache::loncommon::select_form( |
&Apache::loncommon::select_form( |
$texengine, |
$texengine, |
'texengine', |
'texengine', |
&Apache::lonlocal::texthash(%mathchoices)); |
\%mathchoices); |
my $jsMath_start=&Apache::lontexconvert::jsMath_header(); |
my $jsMath_start=&Apache::lontexconvert::jsMath_header(); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'headline' => 'Change how math is displayed', |
'headline' => 'Change how math is displayed', |
Line 399 sub rolesprefchanger {
|
Line 406 sub rolesprefchanger {
|
</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 />'. |
<input type="checkbox"'.$checked.' name="recentroles" value="true" /></label> |
'<h2>'.&mt('Recent '.$role.'s Hotlist').'</h2>'. |
<br />'.&mt('Number of '.$role.'s in Hotlist:').' |
&Apache::lonhtmlcommon::start_pick_box(). |
<select name="recentrolesn" size="1"> |
&Apache::lonhtmlcommon::row_title('<label for="Hotlist">'.&mt('Enable Recent '.$role.'s Hotlist').'</label>'). |
'.$options.' |
'<input id="Hotlist" type="checkbox"'.$checked.' name="recentroles" value="true" />'. |
</select> |
&Apache::lonhtmlcommon::row_closure(). |
<p>'.&mt('This list below can be used to <q>freeze</q> '.$lc_role.'s on your screen. Those marked as frozen will not be removed from the list, even if they have not been used recently.').' |
&Apache::lonhtmlcommon::row_title('<label for="NumberOfRoles">'.&mt('Number of '.$role.'s in Hotlist').'</label>'). |
|
'<select name="recentrolesn" size="1" id ="NumberOfRoles">'. |
|
$options. |
|
'</select>'. |
|
&Apache::lonhtmlcommon::row_closure(1). |
|
&Apache::lonhtmlcommon::end_pick_box(). |
|
'<br/><h2>'.&mt('Freeze Roles').'</h2>'. |
|
'<p>'.&mt('This list below can be used to <q>freeze</q> '.$lc_role.'s on your screen. Those marked as frozen will not be removed from the list, even if they have not been used recently.').' |
</p> |
</p> |
'.$roles_check_list.' |
'.$roles_check_list.' |
<br /> |
<br /> |
Line 455 sub verify_and_change_rolespref {
|
Line 469 sub verify_and_change_rolespref {
|
if ($hotlist_flag) { |
if ($hotlist_flag) { |
&Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag}); |
&Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag}); |
&Apache::lonnet::appenv({'environment.recentroles' => $hotlist_flag}); |
&Apache::lonnet::appenv({'environment.recentroles' => $hotlist_flag}); |
$message=&mt('Recent '.$role.'s Hotlist is Enabled'); |
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Recent '.$role.'s Hotlist is Enabled.')." ".&mt('Display [_1] Most Recent '.$role.'s.',$hotlist_n)); |
} 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=&Apache::lonhtmlcommon::confirm_success(&mt('Recent '.$role.'s Hotlist is Disabled')); |
} |
} |
if ($hotlist_n) { |
if ($hotlist_n) { |
&Apache::lonnet::put('environment',{'recentrolesn' => $hotlist_n}); |
&Apache::lonnet::put('environment',{'recentrolesn' => $hotlist_n}); |
&Apache::lonnet::appenv({'environment.recentrolesn' => $hotlist_n}); |
&Apache::lonnet::appenv({'environment.recentrolesn' => $hotlist_n}); |
if ($hotlist_flag) { |
|
$message.="<br />". |
|
&mt('Display [_1] Most Recent '.$role.'s',$hotlist_n)."\n"; |
|
} |
|
} |
} |
|
|
# Get list of froze roles and list of recent roles |
# Get list of froze roles and list of recent roles |
Line 586 sub verify_and_change_screenname {
|
Line 596 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 Menu Display'}); |
$r->print(Apache::loncommon::start_page('Page Display Settings')); |
$r->print(Apache::loncommon::start_page('Page Display Settings')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Main Menu')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Menu Display')); |
|
|
my $user = $env{'user.name'}; |
my $user = $env{'user.name'}; |
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
my %userenv = &Apache::lonnet::get |
my %userenv = &Apache::lonnet::get('environment',['icons']); |
('environment',['icons']); |
|
my $iconic='checked="checked"'; |
my $iconic='checked="checked"'; |
my $classic=''; |
my ($classic,$onlyicon,$iconic_preview,$iconsonly_preview); |
my $onlyicon=''; |
|
if ($userenv{'icons'} eq 'classic') { |
if ($userenv{'icons'} eq 'classic') { |
$classic='checked="checked"'; |
$iconic=''; |
$iconic=''; |
$classic='<div class="LC_info">'. |
|
&mt('Your current selection: "Use buttons and text" is deprecated - it is recommended that you change this to "Use icons and text".').'</div>'; |
} |
} |
if ($userenv{'icons'} eq 'iconsonly') { |
if ($userenv{'icons'} eq 'iconsonly') { |
$onlyicon='checked="checked"'; |
$onlyicon='checked="checked"'; |
$iconic=''; |
$iconic=''; |
} |
} |
my $useicons=&mt('Use icons and text'); |
|
my $usebuttons=&mt('Use buttons and text'); |
|
my $useicononly=&mt('Use icons only'); |
|
my $change=&mt('Save'); |
my $change=&mt('Save'); |
|
my %lt = &icon_options(); |
|
my ($inlinetools,$toolsorder) = &icon_previews(); |
|
if ((ref($inlinetools) eq 'HASH') && (ref($toolsorder) eq 'ARRAY')) { |
|
foreach my $tool (@{$toolsorder}) { |
|
my ($command,$row,$col,$img,$top,$bot,$act,$desc) = |
|
split(/\&/,$inlinetools->{$tool}); |
|
$iconic_preview .= '<li><a title="'.$desc.'" class="LC_menubuttons_link" href=""><img alt="'.$desc.'" src="/res/adm/pages/'.$img.'" class="LC_icon" /><span class="LC_menubuttons_inline_text">'.$top.(' ' x 2).'</span></a></li>'; |
|
$iconsonly_preview .= '<li><a title="'.$desc.'" class="LC_menubuttons_link" href=""><img alt="'.$desc.'" src="/res/adm/pages/'.$img.'" class="LC_icon" /> </a></li>'; |
|
} |
|
} |
|
$iconsonly_preview = '<ul class="LC_breadcrumb_tools_outerlist"><li>'. |
|
'<ul>'. |
|
$iconsonly_preview. |
|
'</ul></li></ul>'; |
|
$iconic_preview = '<ul class="LC_breadcrumb_tools_outerlist"><li>'. |
|
'<ul>'. |
|
$iconic_preview. |
|
'</ul></li></ul>'; |
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
|
$classic |
<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" /> |
<label><input type="radio" name="menumode" value="iconic" $iconic /> $useicons</label><br /> |
<label><input type="radio" name="menumode" value="iconic" $iconic /> $lt{'iconic'}</label>$iconic_preview<br /> |
<label><input type="radio" name="menumode" value="classic" $classic /> $usebuttons</label><br /> |
<label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $lt{'iconsonly'}</label>$iconsonly_preview<br /> |
<label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $useicononly</label><br /> |
|
<input type="submit" value="$change" /> |
<input type="submit" value="$change" /> |
</form> |
</form> |
ENDSCREEN |
ENDSCREEN |
Line 626 sub verify_and_change_icons {
|
Line 650 sub verify_and_change_icons {
|
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'}; |
|
my %lt = &icon_options(); |
|
my $newchoice = $newicons; |
|
if ($lt{$newicons}) { |
|
$newchoice = $lt{$newicons}; |
|
} |
&Apache::lonnet::put('environment',{'icons' => $newicons}); |
&Apache::lonnet::put('environment',{'icons' => $newicons}); |
&Apache::lonnet::appenv({'environment.icons' => $newicons}); |
&Apache::lonnet::appenv({'environment.icons' => $newicons}); |
my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Menu Display').'</i>','<tt>'.$newicons.'</tt>')); |
my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Menu Display').'</i>','<tt>'.$newchoice.'</tt>')); |
$message=&Apache::loncommon::confirmwrapper($message); |
$message=&Apache::loncommon::confirmwrapper($message); |
&print_main_menu($r, $message); |
&print_main_menu($r, $message); |
} |
} |
|
|
|
sub icon_options { |
|
my %lt = &Apache::lonlocal::texthash( |
|
iconic => 'Use icons and text', |
|
iconsonly => 'Use icons only', |
|
); |
|
return %lt; |
|
} |
|
|
|
sub icon_previews { |
|
my %icon_text = ( |
|
annotate => 'Notes', |
|
bookmark => 'Bookmark', |
|
catalog => 'Info', |
|
evaluate => 'Evaluate', |
|
feedback => 'Communicate', |
|
printout => 'Print', |
|
); |
|
my %inlinetools = ( |
|
printout => "s&8&3&prt.png&$icon_text{'printout'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document", |
|
bookmark => "s&9&1&sbkm.png&$icon_text{'bookmark'}&bookmark[_2]&set_bookmark()&Set a bookmark for this resource", |
|
evaluate => "s&8&1&eval.png&$icon_text{'evaluate'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource", |
|
feedback => "s&8&2&fdbk.png&$icon_text{'feedback'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource", |
|
annotate => "s&9&3&anot.png&$icon_text{'annotate'}&tations[_1]&annotate()&Make notes and annotations about this resource", |
|
catalog => "s&6&3&catalog.png&$icon_text{'catalog'}&info[_1]&catalog_info()&Show Metadata", |
|
); |
|
my @toolsorder = qw(annotate bookmark evaluate feedback printout catalog); |
|
return (\%inlinetools,\@toolsorder); |
|
} |
|
|
################################################################ |
################################################################ |
# Clicker Subroutines # |
# Clicker Subroutines # |
################################################################ |
################################################################ |
Line 1005 sub verify_and_change_msgforward {
|
Line 1062 sub verify_and_change_msgforward {
|
$msuser = &LONCAPA::clean_username($msuser); |
$msuser = &LONCAPA::clean_username($msuser); |
$msdomain = &LONCAPA::clean_domain($msdomain); |
$msdomain = &LONCAPA::clean_domain($msdomain); |
if (($msuser) && ($msdomain)) { |
if (($msuser) && ($msdomain)) { |
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 />'; |
} |
} |
} |
} |
} |
} |
$newscreen=~s/\,$//; |
$newscreen=~s/\,$//; |
if ($newscreen) { |
if ($newscreen) { |
&Apache::lonnet::put('environment',{'msgforward' => $newscreen}); |
&Apache::lonnet::put('environment',{'msgforward' => $newscreen}); |
&Apache::lonnet::appenv({'environment.msgforward' => $newscreen}); |
&Apache::lonnet::appenv({'environment.msgforward' => $newscreen}); |
$message .= &mt('Set message forwarding to ').'<tt>"'.$newscreen.'"</tt>.' |
$message .= &Apache::lonhtmlcommon::confirm_success(&mt('Set message forwarding to ').'<tt>"'.$newscreen.'"</tt>.<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.= &Apache::lonhtmlcommon::confirm_success(&mt("Set message forwarding to 'off'.").'<br />'); |
} |
} |
my $critnotification; |
my $critnotification; |
my $notification; |
my $notification; |
Line 1057 sub verify_and_change_msgforward {
|
Line 1113 sub verify_and_change_msgforward {
|
if ($notification) { |
if ($notification) { |
&Apache::lonnet::put('environment',{'notification' => $notification}); |
&Apache::lonnet::put('environment',{'notification' => $notification}); |
&Apache::lonnet::appenv({'environment.notification' => $notification}); |
&Apache::lonnet::appenv({'environment.notification' => $notification}); |
$message.=&mt('Set non-critical message notification address(es) to ').'<tt>"'.$notification.'"</tt>.<br />'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&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.=&Apache::lonhtmlcommon::confirm_success(&mt("Set non-critical message notification to 'off'.").'<br />'); |
} |
} |
if ($critnotification) { |
if ($critnotification) { |
&Apache::lonnet::put('environment',{'critnotification' => $critnotification}); |
&Apache::lonnet::put('environment',{'critnotification' => $critnotification}); |
&Apache::lonnet::appenv({'environment.critnotification' => $critnotification}); |
&Apache::lonnet::appenv({'environment.critnotification' => $critnotification}); |
$message.=&mt('Set critical message notification address(es) to ').'<tt>"'.$critnotification.'"</tt>.<br />'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&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.=&Apache::lonhtmlcommon::confirm_success(&mt("Set critical message notification to 'off'.").'<br />'); |
} |
} |
if ($critnotification || $notification) { |
if ($critnotification || $notification) { |
if ($notify_with_html) { |
if ($notify_with_html) { |
&Apache::lonnet::put('environment',{'notifywithhtml' => $notify_with_html}); |
&Apache::lonnet::put('environment',{'notifywithhtml' => $notify_with_html}); |
&Apache::lonnet::appenv({'environment.notifywithhtml' => $notify_with_html}); |
&Apache::lonnet::appenv({'environment.notifywithhtml' => $notify_with_html}); |
$message.=&mt('Set address(es) to receive excerpts with html retained ').'<tt>"'.$notify_with_html.'"</tt>.'; |
$message.=&Apache::lonhtmlcommon::confirm_success(&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.=&Apache::lonhtmlcommon::confirm_success(&mt("Set notification address to receive excerpts with html stripped.")); |
} else { |
} else { |
$message.=&mt("Set all notification addresses to receive excerpts with html stripped."); |
$message.=&Apache::lonhtmlcommon::confirm_success(&mt("Set all notification addresses to receive excerpts with html stripped.")); |
} |
} |
} |
} |
} else { |
} else { |
&Apache::lonnet::del('environment',['notifywithhtml']); |
&Apache::lonnet::del('environment',['notifywithhtml']); |
&Apache::lonnet::delenv('environment.notifywithhtml'); |
&Apache::lonnet::delenv('environment.notifywithhtml'); |
} |
} |
if ($message) { |
|
$message .= '<br /><hr />'; |
|
} |
|
&Apache::loncommon::flush_email_cache($user,$domain); |
&Apache::loncommon::flush_email_cache($user,$domain); |
|
$message=&Apache::loncommon::confirmwrapper($message); |
&msgforwardchanger($r,$message); |
&msgforwardchanger($r,$message); |
} |
} |
|
|
Line 1583 ENDERROR
|
Line 1637 ENDERROR
|
my $message; |
my $message; |
if ($result =~ /^ok$/) { |
if ($result =~ /^ok$/) { |
$message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'</i>')); |
$message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'</i>')); |
|
$message = &Apache::loncommon::confirmwrapper($message); |
if ($caller eq 'reset_by_email') { |
if ($caller eq 'reset_by_email') { |
$r->print($message.'<br />'); |
$r->print($message.'<br />'); |
} else { |
} else { |
Line 1825 sub verify_and_change_coursepage {
|
Line 1880 sub verify_and_change_coursepage {
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my ($furl,$ferr)= |
my ($furl,$ferr)= |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
$message .= '<br /><font size="+1"><a href="'.$furl.'">'.$lt{'gtts'}.' <i>'.&mt('now').'</i></a></font>'; |
$message .= '<br /><a href="'.$furl.'">'.$lt{'gtts'}.' <i>'.&mt('now').'</i></a>'; |
|
} else { |
|
$message .= '<br /><a href="/adm/whatsnew?refpage='. |
|
$refpage.'">'.$lt{'dasp'}.'</a>'; |
|
} |
|
} |
|
$message = &Apache::lonhtmlcommon::confirm_success($message); |
|
$message = &Apache::loncommon::confirmwrapper($message); |
|
&print_main_menu($r,$message); |
|
} |
|
|
|
sub lockednameschanger { |
|
my $r = shift; |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{ href => '/adm/preferences?action=changelockednames', |
|
text => 'Automatic name changes'}); |
|
$r->print(Apache::loncommon::start_page('Automatic name changes')); |
|
$r->print(Apache::lonhtmlcommon::breadcrumbs('Allow/disallow name updates')); |
|
my %userenv = &Apache::lonnet::get('environment',['lockedname']); |
|
my $lockedname=''; |
|
if (&can_toggle_namelocking()) { |
|
if ($userenv{'lockedname'}) { |
|
$lockedname = ' checked="checked"'; |
|
} |
|
my %updateable; |
|
my %domconfig = |
|
&Apache::lonnet::get_dom('configuration',['autoupdate'],$env{'user.domain'}); |
|
if (ref($domconfig{'autoupdate'}) eq 'HASH') { |
|
if ($domconfig{'autoupdate'}{'run'}) { |
|
my @inststatuses = split(':',$env{'environment.inststatus'}); |
|
unless (@inststatuses) { |
|
@inststatuses = ('default'); |
|
} |
|
%updateable = &updateable_userinfo($domconfig{'autoupdate'},\@inststatuses); |
|
} |
|
} |
|
if (keys(%updateable)) { |
|
my %longnames = &Apache::lonlocal::texthash ( |
|
firstname => 'First Name', |
|
middlename => 'Middle Name', |
|
lastname => 'Last Name', |
|
); |
|
my $text=&mt('By default, based on your institutional affiliation, your LON-CAPA account can be automatically updated nightly based on directory information from your institution.').'<br />'.&mt('The following may be updated, unless you disallow updates:'). |
|
'<ul>'; |
|
foreach my $item ('firstname','middlename','lastname') { |
|
if ($updateable{$item}) { |
|
$text .= '<li>'.$longnames{$item}.'</li>'; |
|
} |
|
} |
|
$text .= '</ul>'; |
|
my $locking=&mt('Disallow automatic updates to name information for your LON-CAPA account'); |
|
my $change=&mt('Save'); |
|
$r->print(<<ENDSCREEN); |
|
<form name="prefs" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="verify_and_change_lockednames" /> |
|
$text<br /> |
|
<label><input type="checkbox" value="1" name="lockednames"$lockedname />$locking</label><br /> |
|
<input type="submit" value="$change" /> |
|
</form> |
|
ENDSCREEN |
|
} else { |
|
my $message = &mt('Based on your institutional affiliation no name information is automatically updated for your LON-CAPA account.'); |
|
&print_main_menu($r,$message); |
|
} |
|
} else { |
|
my $message = &mt('You are not permitted to set a user preference for automatic name updates for your LON-CAPA account.'); |
|
&print_main_menu($r,$message); |
|
} |
|
} |
|
|
|
sub verify_and_change_lockednames { |
|
my $r = shift; |
|
my $message; |
|
if (&can_toggle_namelocking()) { |
|
my $newlockedname = $env{'form.lockednames'}; |
|
$newlockedname =~ s/\D//g; |
|
my $currlockedname = $env{'environment.lockedname'}; |
|
if ($newlockedname ne $currlockedname) { |
|
if ($newlockedname) { |
|
if (&Apache::lonnet::put('environment',{lockedname => $newlockedname}) eq 'ok') { |
|
&Apache::lonnet::appenv({'environment.lockedname' => $newlockedname}); |
|
} |
|
} elsif (&Apache::lonnet::del('environment',['lockedname']) eq 'ok') { |
|
&Apache::lonnet::delenv('environment.lockedname'); |
|
} |
|
} |
|
my $status=''; |
|
if ($newlockedname) { |
|
$status=&mt('disallowed'); |
} else { |
} else { |
$message .= '<br /><font size="+1"><a href="/adm/whatsnew?refpage='. |
$status=&mt('allowed'); |
$refpage.'">'.$lt{'dasp'}.'</a></font>'; |
|
} |
} |
|
$message=&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.&mt('Automatic update of first, middle and last names if institutional directory information indicates changes').'</i>','<tt>'.$status.'</tt>')); |
|
$message=&Apache::loncommon::confirmwrapper($message); |
} |
} |
&print_main_menu($r, &Apache::lonhtmlcommon::confirm_success($message)); |
&print_main_menu($r,$message); |
} |
} |
|
|
sub print_main_menu { |
sub print_main_menu { |
Line 1850 if (&Apache::lonnet::usertools_access($u
|
Line 1994 if (&Apache::lonnet::usertools_access($u
|
} |
} |
my @menu= |
my @menu= |
({ categorytitle=>'Personal Data', |
({ categorytitle=>'Personal Data', |
items =>[] |
|
}, |
|
{ categorytitle=>'Page Display Settings', |
|
items =>[ |
items =>[ |
{ linktext => 'Color Scheme', |
{ linktext => 'Personal Information Page', |
url => '/adm/preferences?action=changecolors', |
url => $aboutmeurl, |
|
permission => $permissions{'aboutme'}, |
|
#help => 'Prefs_About_Me', |
|
icon => 'system-users.png', |
|
linktitle => 'Edit information about yourself that should be displayed on your public profile.' |
|
}, |
|
{ linktext => 'Screen Name', |
|
url => '/adm/preferences?action=changescreenname', |
permission => 'F', |
permission => 'F', |
#help => 'Change_Colors', |
#help => 'Prefs_Screen_Name_Nickname', |
icon => 'preferences-desktop-theme.png', |
icon => 'preferences-desktop-font.png', |
linktitle => 'Change LON-CAPA default colors.' |
linktitle => 'Change the name that is displayed in your posts.' |
}, |
}, |
] |
] |
}, |
}, |
{ categorytitle=>'Content Display Settings', |
{ categorytitle=>'Content Display Settings', |
items =>[ |
items =>[ |
{ linktext => 'WYSIWYG Editor', |
{ linktext => 'Language', |
url => '/adm/preferences?action=changewysiwyg', |
url => '/adm/preferences?action=changelanguages', |
|
permission => 'F', |
|
#help => 'Prefs_Language', |
|
icon => 'preferences-desktop-locale.png', |
|
linktitle => 'Choose the default language for this user.' |
|
}, |
|
{ linktext => $role.' Page', |
|
url => '/adm/preferences?action=changerolespref', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'edit-select-all.png', |
icon => 'role_hotlist.png', |
linktitle => 'Enable or disable the WYSIWYG-Editor.' |
linktitle => 'Configure the roles hotlist.' |
}, |
}, |
{ linktext => 'Math display settings', |
{ linktext => 'Math display settings', |
url => '/adm/preferences?action=changetexenginepref', |
url => '/adm/preferences?action=changetexenginepref', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'stat.png', |
icon => 'dismath.png', |
linktitle => 'Change how math is displayed.' |
linktitle => 'Change how math is displayed.' |
}, |
}, |
] |
] |
}, |
}, |
|
{ categorytitle=>'Page Display Settings', |
|
items =>[ |
|
{ linktext => 'Color Scheme', |
|
url => '/adm/preferences?action=changecolors', |
|
permission => 'F', |
|
#help => 'Change_Colors', |
|
icon => 'preferences-desktop-theme.png', |
|
linktitle => 'Change LON-CAPA default colors.' |
|
}, |
|
{ linktext => 'Menu Display', |
|
url => '/adm/preferences?action=changeicons', |
|
permission => 'F', |
|
#help => '', |
|
icon => 'preferences-system-windows.png', |
|
linktitle => 'Change whether the menus are displayed with icons or icons and text.' |
|
} |
|
] |
|
}, |
{ categorytitle=>'Messages & Notifications', |
{ categorytitle=>'Messages & Notifications', |
items =>[ |
items =>[ |
{ linktext => 'Messages & Notifications', |
{ linktext => 'Messages & Notifications', |
Line 1890 my @menu=
|
Line 2063 my @menu=
|
icon => 'mail-reply-all.png', |
icon => 'mail-reply-all.png', |
linktitle => 'Change messageforwarding or notifications settings.' |
linktitle => 'Change messageforwarding or notifications settings.' |
}, |
}, |
|
{ linktext => 'Discussion Display', |
|
url => '/adm/preferences?action=changediscussions', |
|
permission => 'F', |
|
#help => 'Change_Discussion_Display', |
|
icon => 'chat.png', |
|
linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.' |
|
}, |
] |
] |
}, |
}, |
{ categorytitle=>'Other', |
{ categorytitle=>'Other', |
items =>[] |
items =>[ |
|
{ linktext => 'Register Response Devices ("Clickers")', |
|
url => '/adm/preferences?action=changeclicker', |
|
permission => 'F', |
|
#help => '', |
|
icon => 'network-workgroup.png', |
|
linktitle => 'Register your clicker.' |
|
}, |
|
] |
}, |
}, |
); |
); |
|
|
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'},'aboutme')) { |
|
push(@{ $menu[0]->{items} }, |
|
{ linktext => 'Personal Information Page', |
|
url => $aboutmeurl, |
|
permission => $permissions{'aboutme'}, |
|
#help => 'Prefs_About_Me', |
|
icon => 'system-users.png', |
|
linktitle => 'Edit information about yourself that should be displayed on your public profile.' |
|
}); |
|
} |
|
|
|
unless ($env{'user.domain'} eq 'gcitest') { |
|
push(@{ $menu[0]->{items} }, |
|
{ linktext => 'Screen Name', |
|
url => '/adm/preferences?action=changescreenname', |
|
permission => 'F', |
|
#help => 'Prefs_Screen_Name_Nickname', |
|
icon => 'preferences-desktop-font.png', |
|
linktitle => 'Change the name that is displayed in your posts.' |
|
}); |
|
} |
|
|
|
if ($currentauth =~ /^(unix|internal):/) { |
if ($currentauth =~ /^(unix|internal):/) { |
push(@{ $menu[0]->{items} }, { |
push(@{ $menu[0]->{items} }, { |
linktext => 'Password', |
linktext => 'Password', |
Line 1930 push(@{ $menu[0]->{items} }, {
|
Line 2095 push(@{ $menu[0]->{items} }, {
|
linktitle => 'Change your password.', |
linktitle => 'Change your password.', |
}); |
}); |
} |
} |
|
if ($env{'environment.remote'} eq 'off') { |
unless ((&Apache::loncommon::needs_gci_custom()) || ($env{'user.domain'} eq 'gcitest')) { |
push(@{ $menu[1]->{items} }, { |
push(@{ $menu[1]->{items} }, |
linktext => 'Launch Remote Control', |
{ linktext => 'Menu Display', |
url => '/adm/remote?url=/adm/preferences&action=launch', |
url => '/adm/preferences?action=changeicons', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'remotecontrol.png', |
icon => 'preferences-system-windows.png', |
linktitle => 'Launch the remote control for LON-CAPA.', |
linktitle => 'Change whether the menus are displayed with buttons, icons or icons and text.' |
}); |
}); |
}else{ |
|
push(@{ $menu[1]->{items} }, { |
|
linktext => 'Collapse Remote Control', |
|
url => '/adm/remote?url=/adm/preferences&action=collapse', |
|
permission => 'F', |
|
#help => '', |
|
icon => 'remotecontrol.png', |
|
linktitle => 'Collapse the remote control for LON-CAPA.', |
|
}); |
} |
} |
|
|
unless ($env{'user.domain'} eq 'gcitest') { |
|
push(@{ $menu[3]->{items} }, |
if (&can_toggle_namelocking()) { |
{ linktext => 'Discussion Display', |
push(@{ $menu[0]->{items} }, { |
url => '/adm/preferences?action=changediscussions', |
linktext => 'Automatic name changes', |
permission => 'F', |
url => '/adm/preferences?action=changelockednames', |
#help => 'Change_Discussion_Display', |
permission => 'F', |
icon => 'mail-message-new.png', |
#help => '', |
linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.' |
icon => 'system-lock-screen.png', |
}); |
linktitle => 'Allow/disallow propagation of name changes from institutional directory service', |
|
}); |
} |
} |
|
|
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']); |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']); |
Line 1965 push(@{ $menu[4]->{items} }, {
|
Line 2139 push(@{ $menu[4]->{items} }, {
|
}); |
}); |
} |
} |
|
|
unless ((&Apache::loncommon::needs_gci_custom()) || ($env{'user.domain'} eq 'gcitest')) { |
if (&Apache::lonnet::allowed('whn',$env{'request.course.id'}) |
if (&Apache::lonnet::allowed('whn',$env{'request.course.id'}) |
|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/' |
|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/' |
.$env{'request.course.sec'})) { |
.$env{'request.course.sec'})) { |
|
push(@{ $menu[4]->{items} }, { |
push(@{ $menu[4]->{items} }, { |
linktext => 'Course Initialization', |
linktext => 'Course Initialization', |
url => '/adm/preferences?action=changecourseinit', |
url => '/adm/preferences?action=changecourseinit', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'edit-copy.png', |
icon => 'course_ini.png', |
linktitle => 'Set the default page to be displayed when you select a course role.', |
linktitle => 'Set the default page to be displayed when you select a course role.', |
}); |
}); |
|
|
} |
|
} |
} |
if (&can_toggle_debug()) { |
if (&can_toggle_debug()) { |
push(@{ $menu[4]->{items} }, { |
push(@{ $menu[4]->{items} }, { |
Line 2085 sub handler {
|
Line 2257 sub handler {
|
&toggle_debug(); |
&toggle_debug(); |
} |
} |
&print_main_menu($r); |
&print_main_menu($r); |
|
} elsif ($env{'form.action'} eq 'changelockednames') { |
|
&lockednameschanger($r); |
|
} elsif ($env{'form.action'} eq 'verify_and_change_lockednames') { |
|
&verify_and_change_lockednames($r); |
} |
} |
|
|
# Properly end the HTML page of all preference pages |
# Properly end the HTML page of all preference pages |
Line 2117 sub can_toggle_debug {
|
Line 2293 sub can_toggle_debug {
|
return $can_toggle; |
return $can_toggle; |
} |
} |
|
|
|
sub can_toggle_namelocking { |
|
my $lockablenames; |
|
my %domconfig = |
|
&Apache::lonnet::get_dom('configuration',['autoupdate'],$env{'user.domain'}); |
|
if (ref($domconfig{'autoupdate'}) eq 'HASH') { |
|
if ($domconfig{'autoupdate'}{'run'}) { |
|
my @inststatuses = split(':',$env{'environment.inststatus'}); |
|
unless (@inststatuses) { |
|
@inststatuses = ('default'); |
|
} |
|
my %updateable = &updateable_userinfo($domconfig{'autoupdate'},\@inststatuses); |
|
if ($updateable{'lastname'} || $updateable{'firstname'} || |
|
$updateable{'middlename'}) { |
|
if (ref($domconfig{'autoupdate'}{'lockablenames'}) eq 'ARRAY') { |
|
unless (@inststatuses) { |
|
@inststatuses = ('default'); |
|
} |
|
foreach my $status (@inststatuses) { |
|
if (grep(/^\Q$status\E$/,@{$domconfig{'autoupdate'}{'lockablenames'}})) { |
|
$lockablenames = 1; |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return $lockablenames; |
|
} |
|
|
|
sub updateable_userinfo { |
|
my ($autoupdate,$inststatuses) = @_; |
|
my %updateable; |
|
return %updateable unless ((ref($autoupdate) eq 'HASH') && |
|
(ref($inststatuses) eq 'ARRAY')); |
|
if (ref($autoupdate->{'fields'}) eq 'HASH') { |
|
foreach my $status (@{$inststatuses}) { |
|
if (ref($autoupdate->{'fields'}{$status}) eq 'ARRAY') { |
|
foreach my $field (@{$autoupdate->{'fields'}{$status}}) { |
|
$updateable{$field} = 1; |
|
} |
|
} |
|
} |
|
} |
|
return %updateable; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |