version 1.24, 2003/05/21 00:48:27
|
version 1.61, 2005/06/06 02:32:36
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Internal Server Error Handler |
|
# |
|
# (Login Screen |
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, |
|
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) |
|
# |
|
# 3/1/1 Gerd Kortemeyer) |
|
# |
|
# 3/1 Gerd Kortemeyer |
|
# |
|
# 2/13/02 2/14 2/15 Matthew Hall |
|
# |
|
# This package uses the "londes.js" javascript code. |
# This package uses the "londes.js" javascript code. |
# |
# |
# TODOs that have to be completed: |
# TODOs that have to be completed: |
Line 51 use Crypt::DES;
|
Line 39 use Crypt::DES;
|
use DynaLoader; # for Crypt::DES version |
use DynaLoader; # for Crypt::DES version |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
|
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
# |
# |
# Write lonnet::passwd to do the call below. |
# Write lonnet::passwd to do the call below. |
Line 62 use Apache::lonhtmlcommon();
|
Line 52 use Apache::lonhtmlcommon();
|
################################################## |
################################################## |
sub des_keys { |
sub des_keys { |
# Make a new key for DES encryption. |
# Make a new key for DES encryption. |
# Each key has two parts which are returned seperately. |
# Each key has two parts which are returned separately. |
# Please note: Each key must be passed through the &hex function |
# Please note: Each key must be passed through the &hex function |
# before it is output to the web browser. The hex versions cannot |
# before it is output to the web browser. The hex versions cannot |
# be used to decrypt. |
# be used to decrypt. |
Line 101 sub des_decrypt {
|
Line 91 sub des_decrypt {
|
################################################################ |
################################################################ |
|
|
################################################################ |
################################################################ |
|
# Language Change Subroutines # |
|
################################################################ |
|
|
|
sub wysiwygchanger { |
|
my $r = shift; |
|
my %userenv = &Apache::lonnet::get |
|
('environment',['wysiwygeditor']); |
|
my $offselect=''; |
|
my $onselect='checked="1"'; |
|
if ($userenv{'wysiwygeditor'}) { |
|
$onselect=''; |
|
$offselect='checked="1"'; |
|
} |
|
my $switchoff=&mt('Disable WYSIWYG editor'); |
|
my $switchon=&mt('Enable WYSIWYG editor'); |
|
$r->print(<<ENDLSCREEN); |
|
<form name="server" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="set_wysiwyg" /> |
|
<br /> |
|
<input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff<br /> |
|
<input type="radio" name="wysiwyg" value="on" $offselect /> $switchon |
|
ENDLSCREEN |
|
$r->print('<br /><input type="submit" value="'.&mt('Change').'" />'); |
|
} |
|
|
|
|
|
sub verify_and_change_wysiwyg { |
|
my $r = shift; |
|
my $newsetting=$env{'form.wysiwyg'}; |
|
&Apache::lonnet::put('environment',{'wysiwygeditor' => $newsetting}); |
|
&Apache::lonnet::appenv('environment.wysiwygeditor' => $newsetting); |
|
$r->print('<p>'.&mt('Setting WYSIWYG editor to:').' '.&mt($newsetting).'</p>'); |
|
} |
|
|
|
################################################################ |
|
# Language Change Subroutines # |
|
################################################################ |
|
sub languagechanger { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
my %userenv = &Apache::lonnet::get |
|
('environment',['languages']); |
|
my $language=$userenv{'languages'}; |
|
|
|
my $pref=&mt('Preferred language'); |
|
my %langchoices=('' => 'No language preference'); |
|
foreach (&Apache::loncommon::languageids()) { |
|
if (&Apache::loncommon::supportedlanguagecode($_)) { |
|
$langchoices{&Apache::loncommon::supportedlanguagecode($_)} |
|
= &Apache::loncommon::plainlanguagedescription($_); |
|
} |
|
} |
|
my $selectionbox=&Apache::loncommon::select_form($language,'language', |
|
%langchoices); |
|
$r->print(<<ENDLSCREEN); |
|
<form name="server" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="verify_and_change_languages" /> |
|
<br />$pref: $selectionbox |
|
ENDLSCREEN |
|
$r->print('<br /><input type="submit" value="'.&mt('Change').'" />'); |
|
} |
|
|
|
|
|
sub verify_and_change_languages { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
# Screenname |
|
my $newlanguage = $env{'form.language'}; |
|
$newlanguage=~s/[^\-\w]//g; |
|
my $message=''; |
|
if ($newlanguage) { |
|
&Apache::lonnet::put('environment',{'languages' => $newlanguage}); |
|
&Apache::lonnet::appenv('environment.languages' => $newlanguage); |
|
$message='Set new preferred languages to '.$newlanguage; |
|
} else { |
|
&Apache::lonnet::del('environment',['languages']); |
|
&Apache::lonnet::delenv('environment\.languages'); |
|
$message='Reset preferred language'; |
|
} |
|
$r->print(<<ENDVCSCREEN); |
|
$message |
|
ENDVCSCREEN |
|
} |
|
|
|
################################################################ |
|
# Tex Engine Change Subroutines # |
|
################################################################ |
|
sub texenginechanger { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
my %userenv = &Apache::lonnet::get('environment',['texengine']); |
|
my $texengine=$userenv{'texengine'}; |
|
|
|
my $pref=&mt('Preferred method to display Math'); |
|
my %mathchoices=('' => 'No Preference', |
|
'tth' => 'TeX to HTML', |
|
'ttm' => 'TeX to MathML', |
|
'jsMath' => 'jsMath', |
|
'mimetex' => 'Convert to Images' |
|
); |
|
my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine', |
|
%mathchoices); |
|
my $mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$'; |
|
my $jsMath_example=&Apache::lontexconvert::jsMath_converted(\$mathexample); |
|
$mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$'; |
|
my $tth_example=&Apache::lontexconvert::tth_converted(\$mathexample); |
|
$mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$'; |
|
my $mimetex_example=&Apache::lontexconvert::mimetex_converted(\$mathexample); |
|
my $change=&mt('Change'); |
|
$r->print(<<ENDLSCREEN); |
|
<form name="server" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="verify_and_change_texengine" /> |
|
<p>$pref: $selectionbox</p> |
|
<p><input type="submit" value="$change" /></p> |
|
</form> |
|
Examples: |
|
<p> TeX to HTML <br /> $tth_example</p> |
|
<script type="text/javascript">function NoFontMessage () { }</script> |
|
<script src="/adm/jsMath/jsMath.js"></script> |
|
<p>jsMath <br /> |
|
|
|
<script type="text/javascript"> |
|
if (jsMath.nofonts == 1) { |
|
document.writeln |
|
('<center><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></center>'); |
|
} |
|
</script> |
|
|
|
$jsMath_example</p> |
|
<p> Convert to Images <br /> $mimetex_example</p> |
|
ENDLSCREEN |
|
if ($env{'environment.texengine'} ne 'jsMath') { |
|
$r->print('<script type="text/javascript">jsMath.Process()</script>'); |
|
} |
|
} |
|
|
|
|
|
sub verify_and_change_texengine { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
# Screenname |
|
my $newtexengine = $env{'form.texengine'}; |
|
$newtexengine=~s/[^\-\w]//g; |
|
if ($newtexengine eq 'ttm') { |
|
&Apache::lonnet::appenv('browser.mathml' => 1); |
|
} else { |
|
if ($env{'environment.texengine'} eq 'ttm') { |
|
&Apache::lonnet::appenv('browser.mathml' => 0); |
|
} |
|
} |
|
my $message=''; |
|
if ($newtexengine) { |
|
&Apache::lonnet::put('environment',{'texengine' => $newtexengine}); |
|
&Apache::lonnet::appenv('environment.texengine' => $newtexengine); |
|
$message='Set new preferred math display to '.$newtexengine; |
|
} else { |
|
&Apache::lonnet::del('environment',['texengine']); |
|
&Apache::lonnet::delenv('environment\.texengine'); |
|
$message='Reset preferred math display.'; |
|
} |
|
|
|
|
|
$r->print(<<ENDVCSCREEN); |
|
$message |
|
ENDVCSCREEN |
|
} |
|
|
|
################################################################ |
|
# Roles Page Preference Change Subroutines # |
|
################################################################ |
|
sub rolesprefchanger { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
my %userenv = &Apache::lonnet::get |
|
('environment',['recentroles','recentrolesn']); |
|
my $hotlist_flag=$userenv{'recentroles'}; |
|
my $hotlist_n=$userenv{'recentrolesn'}; |
|
my $checked; |
|
if ($hotlist_flag) { |
|
$checked = 'checked="checked"'; |
|
} |
|
|
|
if (!$hotlist_n) { $hotlist_n=3; } |
|
my $options; |
|
for (my $i=1; $i<10; $i++) { |
|
my $select; |
|
if ($hotlist_n == $i) { $select = 'selected="selected"'; } |
|
$options .= "<option $select>$i</option>\n"; |
|
} |
|
|
|
$r->print(<<ENDSCREEN); |
|
<p>Some LON-CAPA users have a long list of roles. The Recent Roles Hotlist |
|
feature keeps track of the last N roles which have been |
|
visited and places a table of these at the top of the roles page. |
|
People with very few roles should leave this feature disabled. |
|
</p> |
|
|
|
<form name="server" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="verify_and_change_rolespref" /> |
|
<br />Enable Recent Roles Hotlist: |
|
<input type="checkbox" $checked name="recentroles" value="true" /> |
|
<br />Number of roles in Hotlist: |
|
<select name="recentrolesn" size="1"> |
|
$options |
|
</select> |
|
<br /> |
|
<input type="submit" value="Change" /> |
|
</form> |
|
ENDSCREEN |
|
} |
|
|
|
sub verify_and_change_rolespref { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
# Recent Roles Hotlist Flag |
|
my $hotlist_flag = $env{'form.recentroles'}; |
|
my $hotlist_n = $env{'form.recentrolesn'}; |
|
my $message=''; |
|
if ($hotlist_flag) { |
|
&Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag}); |
|
&Apache::lonnet::appenv('environment.recentroles' => $hotlist_flag); |
|
$message='Recent Roles Hotlist is Enabled'; |
|
} else { |
|
&Apache::lonnet::del('environment',['recentroles']); |
|
&Apache::lonnet::delenv('environment\.recentroles'); |
|
$message='Recent Roles Hotlist is Disabled'; |
|
} |
|
if ($hotlist_n) { |
|
&Apache::lonnet::put('environment',{'recentrolesn' => $hotlist_n}); |
|
&Apache::lonnet::appenv('environment.recentrolesn' => $hotlist_n); |
|
if ($hotlist_flag) { |
|
$message.="<br />Display $hotlist_n Most Recent Roles\n"; |
|
} |
|
} |
|
|
|
$r->print(<<ENDRPSCREEN); |
|
$message |
|
ENDRPSCREEN |
|
} |
|
|
|
|
|
|
|
################################################################ |
# Anonymous Discussion Name Change Subroutines # |
# Anonymous Discussion Name Change Subroutines # |
################################################################ |
################################################################ |
sub screennamechanger { |
sub screennamechanger { |
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 %userenv = &Apache::lonnet::get |
my %userenv = &Apache::lonnet::get |
('environment',['screenname','nickname']); |
('environment',['screenname','nickname']); |
my $screenname=$userenv{'screenname'}; |
my $screenname=$userenv{'screenname'}; |
my $nickname=$userenv{'nickname'}; |
my $nickname=$userenv{'nickname'}; |
my $bodytag=&Apache::loncommon::bodytag( |
|
'Change Your Nickname and Anonymous Screen Name'); |
|
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
<html> |
|
$bodytag |
|
|
|
<form name="server" action="/adm/preferences" method="post"> |
<form name="server" 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" /> |
<br />New screenname (shown if you post anonymously): |
<br />New screenname (shown if you post anonymously): |
Line 125 $bodytag
|
Line 369 $bodytag
|
<input type="text" size="20" value="$nickname" name="nickname" /> |
<input type="text" size="20" value="$nickname" name="nickname" /> |
<input type="submit" value="Change" /> |
<input type="submit" value="Change" /> |
</form> |
</form> |
</body> |
|
</html> |
|
ENDSCREEN |
ENDSCREEN |
} |
} |
|
|
sub verify_and_change_screenname { |
sub verify_and_change_screenname { |
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'}; |
# Screenname |
# Screenname |
my $newscreen = $ENV{'form.screenname'}; |
my $newscreen = $env{'form.screenname'}; |
$newscreen=~s/[^ \w]//g; |
$newscreen=~s/[^ \w]//g; |
my $message=''; |
my $message=''; |
if ($newscreen) { |
if ($newscreen) { |
Line 149 sub verify_and_change_screenname {
|
Line 391 sub verify_and_change_screenname {
|
} |
} |
# Nickname |
# Nickname |
$message.='<br />'; |
$message.='<br />'; |
$newscreen = $ENV{'form.nickname'}; |
$newscreen = $env{'form.nickname'}; |
$newscreen=~s/[^ \w]//g; |
$newscreen=~s/[^ \w]//g; |
if ($newscreen) { |
if ($newscreen) { |
&Apache::lonnet::put('environment',{'nickname' => $newscreen}); |
&Apache::lonnet::put('environment',{'nickname' => $newscreen}); |
Line 161 sub verify_and_change_screenname {
|
Line 403 sub verify_and_change_screenname {
|
$message.='Reset nickname'; |
$message.='Reset nickname'; |
} |
} |
|
|
my $bodytag=&Apache::loncommon::bodytag( |
|
'Change Your Nickname and Anonymous Screen Name'); |
|
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
<html> |
|
$bodytag |
|
</p> |
|
$message |
$message |
</body></html> |
|
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
|
|
Line 178 ENDVCSCREEN
|
Line 414 ENDVCSCREEN
|
|
|
sub msgforwardchanger { |
sub msgforwardchanger { |
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 %userenv = &Apache::lonnet::get('environment',['msgforward']); |
my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']); |
my $msgforward=$userenv{'msgforward'}; |
my $msgforward=$userenv{'msgforward'}; |
my $notification=$userenv{'notification'}; |
my $notification=$userenv{'notification'}; |
my $critnotification=$userenv{'critnotification'}; |
my $critnotification=$userenv{'critnotification'}; |
my $bodytag=&Apache::loncommon::bodytag( |
my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding", |
'Change Your Message Forwarding and Notification'); |
"What are forwarding ". |
$r->print(<<ENDMSG); |
"and notification ". |
<html> |
"addresses"); |
$bodytag |
my $criticalMessageHelp = Apache::loncommon::help_open_topic("Course_Critical_Message", |
|
"What are critical messages"); |
|
|
|
$r->print(<<ENDMSG); |
|
$forwardingHelp <br /> |
<form name="server" action="/adm/preferences" method="post"> |
<form name="server" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_msgforward" /> |
<input type="hidden" name="action" value="verify_and_change_msgforward" /> |
New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>): |
New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>): |
Line 197 New Forwarding Address(es) (<tt>user:dom
|
Line 436 New Forwarding Address(es) (<tt>user:dom
|
New Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>): |
New Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>): |
<input type="text" size="40" value="$notification" name="notification" /><hr /> |
<input type="text" size="40" value="$notification" name="notification" /><hr /> |
New Critical Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>): |
New Critical Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>): |
<input type="text" size="40" value="$critnotification" name="critnotification" /><hr /> |
<input type="text" size="40" value="$critnotification" name="critnotification" />$criticalMessageHelp<hr /> |
<input type="submit" value="Change" /> |
<input type="submit" value="Change" /> |
</form> |
</form> |
</body> |
|
</html> |
|
ENDMSG |
ENDMSG |
} |
} |
|
|
sub verify_and_change_msgforward { |
sub verify_and_change_msgforward { |
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 $newscreen = ''; |
my $newscreen = ''; |
my $message=''; |
my $message=''; |
foreach (split(/\,/,$ENV{'form.msgforward'})) { |
foreach (split(/\,/,$env{'form.msgforward'})) { |
my ($msuser,$msdomain)=split(/[\@\:]/,$_); |
my ($msuser,$msdomain)=split(/[\@\:]/,$_); |
$msuser=~s/\W//g; |
$msuser=~s/\W//g; |
$msdomain=~s/\W//g; |
$msdomain=~s/\W//g; |
Line 233 sub verify_and_change_msgforward {
|
Line 470 sub verify_and_change_msgforward {
|
&Apache::lonnet::delenv('environment\.msgforward'); |
&Apache::lonnet::delenv('environment\.msgforward'); |
$message.='Reset message forwarding<br />'; |
$message.='Reset message forwarding<br />'; |
} |
} |
my $notification=$ENV{'form.notification'}; |
my $notification=$env{'form.notification'}; |
$notification=~s/\s//gs; |
$notification=~s/\s//gs; |
if ($notification) { |
if ($notification) { |
&Apache::lonnet::put('environment',{'notification' => $notification}); |
&Apache::lonnet::put('environment',{'notification' => $notification}); |
Line 244 sub verify_and_change_msgforward {
|
Line 481 sub verify_and_change_msgforward {
|
&Apache::lonnet::delenv('environment\.notification'); |
&Apache::lonnet::delenv('environment\.notification'); |
$message.='Reset message notification<br />'; |
$message.='Reset message notification<br />'; |
} |
} |
my $critnotification=$ENV{'form.critnotification'}; |
my $critnotification=$env{'form.critnotification'}; |
$critnotification=~s/\s//gs; |
$critnotification=~s/\s//gs; |
if ($critnotification) { |
if ($critnotification) { |
&Apache::lonnet::put('environment',{'critnotification' => $critnotification}); |
&Apache::lonnet::put('environment',{'critnotification' => $critnotification}); |
Line 255 sub verify_and_change_msgforward {
|
Line 492 sub verify_and_change_msgforward {
|
&Apache::lonnet::delenv('environment\.critnotification'); |
&Apache::lonnet::delenv('environment\.critnotification'); |
$message.='Reset critical message notification<br />'; |
$message.='Reset critical message notification<br />'; |
} |
} |
my $bodytag=&Apache::loncommon::bodytag( |
|
'Change Your Message Forwarding and Notifications'); |
|
$r->print(<<ENDVCMSG); |
$r->print(<<ENDVCMSG); |
<html> |
|
$bodytag |
|
</p> |
|
$message |
$message |
</body></html> |
|
ENDVCMSG |
ENDVCMSG |
} |
} |
|
|
Line 272 ENDVCMSG
|
Line 503 ENDVCMSG
|
|
|
sub colorschanger { |
sub colorschanger { |
my $r = shift; |
my $r = shift; |
my $bodytag=&Apache::loncommon::bodytag( |
|
'Change Color Scheme for Current Role Type','', |
|
'onUnload="pclose();"'); |
|
# figure out colors |
# figure out colors |
my $function='student'; |
my $function='student'; |
if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |
if ($env{'request.role'}=~/^(cc|in|ta|ep)/) { |
$function='coordinator'; |
$function='coordinator'; |
} |
} |
if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { |
if ($env{'request.role'}=~/^(su|dc|ad|li)/) { |
$function='admin'; |
$function='admin'; |
} |
} |
if (($ENV{'request.role'}=~/^(au|ca)/) || |
if (($env{'request.role'}=~/^(au|ca)/) || |
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
$function='author'; |
$function='author'; |
} |
} |
Line 307 sub colorschanger {
|
Line 535 sub colorschanger {
|
} |
} |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
$r->print(<<ENDCOL); |
$r->print(<<ENDCOL); |
<html> |
|
<script> |
<script> |
|
|
function pclose() { |
function pclose() { |
Line 334 sub colorschanger {
|
Line 561 sub colorschanger {
|
|
|
|
|
</script> |
</script> |
$bodytag |
|
<form name="parmform"> |
<form name="parmform"> |
<input type="hidden" name="pres_marker" /> |
<input type="hidden" name="pres_marker" /> |
<input type="hidden" name="pres_type" /> |
<input type="hidden" name="pres_type" /> |
Line 348 $chtable
|
Line 574 $chtable
|
<input type="submit" value="Change Custom Colors" /> |
<input type="submit" value="Change Custom Colors" /> |
<input type="submit" name="resetall" value="Reset All Colors to Default" /> |
<input type="submit" name="resetall" value="Reset All Colors to Default" /> |
</form> |
</form> |
</body> |
|
</html> |
|
ENDCOL |
ENDCOL |
} |
} |
|
|
Line 357 sub verify_and_change_colors {
|
Line 581 sub verify_and_change_colors {
|
my $r = shift; |
my $r = shift; |
# figure out colors |
# figure out colors |
my $function='student'; |
my $function='student'; |
if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |
if ($env{'request.role'}=~/^(cc|in|ta|ep)/) { |
$function='coordinator'; |
$function='coordinator'; |
} |
} |
if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { |
if ($env{'request.role'}=~/^(su|dc|ad|li)/) { |
$function='admin'; |
$function='admin'; |
} |
} |
if (($ENV{'request.role'}=~/^(au|ca)/) || |
if (($env{'request.role'}=~/^(au|ca)/) || |
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
$function='author'; |
$function='author'; |
} |
} |
Line 378 sub verify_and_change_colors {
|
Line 602 sub verify_and_change_colors {
|
|
|
my $message=''; |
my $message=''; |
foreach my $item (keys %colortypes) { |
foreach my $item (keys %colortypes) { |
my $color=$ENV{'form.'.$item}; |
my $color=$env{'form.'.$item}; |
my $entry='color.'.$function.'.'.$item; |
my $entry='color.'.$function.'.'.$item; |
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.='Set '.$colortypes{$item}.' to '.$color.'<br />'; |
$message.='Set '.$colortypes{$item}.' to '.$color.'<br />'; |
Line 390 sub verify_and_change_colors {
|
Line 614 sub verify_and_change_colors {
|
$message.='Reset '.$colortypes{$item}.'<br />'; |
$message.='Reset '.$colortypes{$item}.'<br />'; |
} |
} |
} |
} |
my $bodytag=&Apache::loncommon::bodytag( |
|
'Change Color Scheme for Current Role Type'); |
|
$r->print(<<ENDVCCOL); |
$r->print(<<ENDVCCOL); |
<html> |
|
$bodytag |
|
</p> |
|
$message |
$message |
<form name="client" action="/adm/preferences" method="post"> |
<form name="client" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="changecolors" /> |
<input type="hidden" name="action" value="changecolors" /> |
<input type="submit" value="Revise color scheme again" /> |
|
</form> |
</form> |
</body></html> |
|
ENDVCCOL |
ENDVCCOL |
} |
} |
|
|
Line 414 sub passwordchanger {
|
Line 631 sub passwordchanger {
|
my $r = shift; |
my $r = shift; |
my $errormessage = shift; |
my $errormessage = shift; |
$errormessage = ($errormessage || ''); |
$errormessage = ($errormessage || ''); |
my $user = $ENV{'user.name'}; |
my $user = $env{'user.name'}; |
my $domain = $ENV{'user.domain'}; |
my $domain = $env{'user.domain'}; |
my $homeserver = $ENV{'user.home'}; |
my $homeserver = $env{'user.home'}; |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
# Check for authentication types that allow changing of the password. |
# Check for authentication types that allow changing of the password. |
return if ($currentauth !~ /^(unix|internal):/); |
return if ($currentauth !~ /^(unix|internal):/); |
Line 441 sub passwordchanger {
|
Line 658 sub passwordchanger {
|
$lkey_npass2= hex($lkey_npass2); |
$lkey_npass2= hex($lkey_npass2); |
# Output javascript to deal with passwords |
# Output javascript to deal with passwords |
# Output DES javascript |
# Output DES javascript |
$r->print("<html><head>"); |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print($html."<head>"); |
{ |
{ |
my $include = $r->dir_config('lonIncludes'); |
my $include = $r->dir_config('lonIncludes'); |
my $jsh=Apache::File->new($include."/londes.js"); |
my $jsh=Apache::File->new($include."/londes.js"); |
$r->print(<$jsh>); |
$r->print(<$jsh>); |
} |
} |
my $bodytag=&Apache::loncommon::bodytag('Change Password','', |
|
'onLoad="init();"'); |
|
$r->print(<<ENDFORM); |
$r->print(<<ENDFORM); |
</head> |
|
$bodytag |
|
|
|
<script language="JavaScript"> |
<script language="JavaScript"> |
|
|
function send() { |
function send() { |
Line 460 $bodytag
|
Line 673 $bodytag
|
lextkey=this.document.client.elements.lkey_cpass.value; |
lextkey=this.document.client.elements.lkey_cpass.value; |
initkeys(); |
initkeys(); |
|
|
this.document.server.elements.currentpass.value |
this.document.pserver.elements.currentpass.value |
=crypted(this.document.client.elements.currentpass.value); |
=crypted(this.document.client.elements.currentpass.value); |
|
|
uextkey=this.document.client.elements.ukey_npass1.value; |
uextkey=this.document.client.elements.ukey_npass1.value; |
lextkey=this.document.client.elements.lkey_npass1.value; |
lextkey=this.document.client.elements.lkey_npass1.value; |
initkeys(); |
initkeys(); |
this.document.server.elements.newpass_1.value |
this.document.pserver.elements.newpass_1.value |
=crypted(this.document.client.elements.newpass_1.value); |
=crypted(this.document.client.elements.newpass_1.value); |
|
|
uextkey=this.document.client.elements.ukey_npass2.value; |
uextkey=this.document.client.elements.ukey_npass2.value; |
lextkey=this.document.client.elements.lkey_npass2.value; |
lextkey=this.document.client.elements.lkey_npass2.value; |
initkeys(); |
initkeys(); |
this.document.server.elements.newpass_2.value |
this.document.pserver.elements.newpass_2.value |
=crypted(this.document.client.elements.newpass_2.value); |
=crypted(this.document.client.elements.newpass_2.value); |
|
|
this.document.server.submit(); |
this.document.pserver.submit(); |
} |
} |
|
|
</script> |
</script> |
$errormessage |
$errormessage |
|
|
<p> |
<p> |
<!-- We seperate the forms into 'server' and 'client' in order to |
<!-- We separate the forms into 'server' and 'client' in order to |
ensure that unencrypted passwords will not be sent out by a |
ensure that unencrypted passwords will not be sent out by a |
crappy browser --> |
crappy browser --> |
|
|
<form name="server" action="/adm/preferences" method="post"> |
<form name="pserver" action="/adm/preferences" method="post"> |
<input type="hidden" name="logtoken" value="$logtoken" /> |
<input type="hidden" name="logtoken" value="$logtoken" /> |
<input type="hidden" name="action" value="verify_and_change_pass" /> |
<input type="hidden" name="action" value="verify_and_change_pass" /> |
<input type="hidden" name="currentpass" value="" /> |
<input type="hidden" name="currentpass" value="" /> |
Line 520 ENDFORM
|
Line 733 ENDFORM
|
|
|
sub verify_and_change_password { |
sub verify_and_change_password { |
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 $homeserver = $ENV{'user.home'}; |
my $homeserver = $env{'user.home'}; |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
# Check for authentication types that allow changing of the password. |
# Check for authentication types that allow changing of the password. |
return if ($currentauth !~ /^(unix|internal):/); |
return if ($currentauth !~ /^(unix|internal):/); |
# |
# |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
$html |
<head> |
<head> |
<title>LON-CAPA Preferences: Change password for $user</title> |
<title>LON-CAPA Preferences: Change password for $user</title> |
</head> |
</head> |
ENDHEADER |
ENDHEADER |
# |
# |
my $currentpass = $ENV{'form.currentpass'}; |
my $currentpass = $env{'form.currentpass'}; |
my $newpass1 = $ENV{'form.newpass_1'}; |
my $newpass1 = $env{'form.newpass_1'}; |
my $newpass2 = $ENV{'form.newpass_2'}; |
my $newpass2 = $env{'form.newpass_2'}; |
my $logtoken = $ENV{'form.logtoken'}; |
my $logtoken = $env{'form.logtoken'}; |
# Check for empty data |
# Check for empty data |
unless (defined($currentpass) && |
unless (defined($currentpass) && |
defined($newpass1) && |
defined($newpass1) && |
Line 617 ENDERROR
|
Line 831 ENDERROR
|
return; |
return; |
} |
} |
|
|
|
################################################################ |
|
# discussion display subroutines |
|
################################################################ |
|
sub discussionchanger { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
my %userenv = &Apache::lonnet::get |
|
('environment',['discdisplay','discmarkread']); |
|
my $discdisp = 'allposts'; |
|
my $discmark = 'onmark'; |
|
|
|
if (defined($userenv{'discdisplay'})) { |
|
unless ($userenv{'discdisplay'} eq '') { |
|
$discdisp = $userenv{'discdisplay'}; |
|
} |
|
} |
|
if (defined($userenv{'discmarkread'})) { |
|
unless ($userenv{'discdisplay'} eq '') { |
|
$discmark = $userenv{'discmarkread'}; |
|
} |
|
} |
|
|
|
my $newdisp = 'unread'; |
|
my $newmark = 'ondisp'; |
|
|
|
my $function = &Apache::loncommon::get_users_function(); |
|
my $color = &Apache::loncommon::designparm($function.'.tabbg', |
|
$env{'user.domain'}); |
|
my %lt = &Apache::lonlocal::texthash( |
|
'pref' => 'Display Preference', |
|
'curr' => 'Current setting ', |
|
'actn' => 'Action', |
|
'sdpf' => 'Set display preferences for discussion posts for both bulletin boards and individual resources in all your courses.', |
|
'prca' => 'Preferences can be set that determine', |
|
'whpo' => 'Which posts are displayed when you display a bulletin board or resource, and', |
|
'unwh' => 'Under what circumstances posts are identfied as "New"', |
|
'allposts' => 'All posts', |
|
'unread' => 'New posts only', |
|
'ondisp' => 'Once displayed', |
|
'onmark' => 'Once marked as read', |
|
'disa' => 'Posts displayed?', |
|
'npmr' => 'New posts cease to be identified as "New"?', |
|
'thde' => 'The preferences you set here can be overridden within each individual discussion.', |
|
'chgt' => 'Change to ' |
|
); |
|
my $dispchange = $lt{'unread'}; |
|
my $markchange = $lt{'ondisp'}; |
|
my $currdisp = $lt{'allposts'}; |
|
my $currmark = $lt{'onmark'}; |
|
|
|
if ($discdisp eq 'unread') { |
|
$dispchange = $lt{'allposts'}; |
|
$currdisp = $lt{'unread'}; |
|
$newdisp = 'allposts'; |
|
} |
|
|
|
if ($discmark eq 'ondisp') { |
|
$markchange = $lt{'onmark'}; |
|
$currmark = $lt{'ondisp'}; |
|
$newmark = 'onmark'; |
|
} |
|
|
|
$r->print(<<"END"); |
|
<form name="server" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
|
<br /> |
|
$lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol> |
|
<br /> |
|
<br /> |
|
<table border="0" cellpadding="0" cellspacing="0"> |
|
<tr> |
|
<td width="100%" bgcolor="#000000"> |
|
<table width="100%" border="0" cellpadding="1" cellspacing="0"> |
|
<tr> |
|
<td width="100%" bgcolor="#000000"> |
|
<table border="0" cellpadding="3" cellspacing="3" bgcolor="#FFFFFF"> |
|
<tr bgcolor="$color"> |
|
<td><b>$lt{'pref'}</b></td> |
|
<td><b>$lt{'curr'}</b></td> |
|
<td><b>$lt{'actn'}?</b></td> |
|
</tr> |
|
<tr bgcolor="#dddddd"> |
|
<td>$lt{'disa'}</td> |
|
<td>$lt{$discdisp}</td> |
|
<td><input type="checkbox" name="discdisp" /><input type="hidden" name="newdisp" value="$newdisp" /> $lt{'chgt'} "$dispchange"</td> |
|
</tr><tr bgcolor="#eeeeee"> |
|
<td>$lt{'npmr'}</td> |
|
<td>$lt{$discmark}</td> |
|
<td><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" /> $lt{'chgt'} "$markchange"</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
</td> |
|
</tr> |
|
</table> |
|
<br /> |
|
<br /> |
|
<input type="submit" name="sub" value="Store Changes" /> |
|
<br /> |
|
<br /> |
|
Note: $lt{'thde'} |
|
</form> |
|
END |
|
} |
|
|
|
sub verify_and_change_discussion { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
my $message=''; |
|
if (defined($env{'form.discdisp'}) ) { |
|
my $newdisp = $env{'form.newdisp'}; |
|
if ($newdisp eq 'unread') { |
|
$message .='In discussions: only new posts will be displayed.<br/>'; |
|
&Apache::lonnet::put('environment',{'discdisplay' => $newdisp}); |
|
&Apache::lonnet::appenv('environment.discdisplay' => $newdisp); |
|
} else { |
|
$message .= 'In discussions: all posts will be displayed.<br/>'; |
|
&Apache::lonnet::del('environment',['discdisplay']); |
|
&Apache::lonnet::delenv('environment\.discdisplay'); |
|
} |
|
} |
|
if (defined($env{'form.discmark'}) ) { |
|
my $newmark = $env{'form.newmark'}; |
|
if ($newmark eq 'ondisp') { |
|
$message.='In discussions: new posts will be cease to be identified as "new" after display.<br/>'; |
|
&Apache::lonnet::put('environment',{'discmarkread' => $newmark}); |
|
&Apache::lonnet::appenv('environment.discmarkread' => $newmark); |
|
} else { |
|
$message.='In discussions: posts will be identified as "new" until marked as read by the reader.<br/>'; |
|
&Apache::lonnet::del('environment',['discmarkread']); |
|
&Apache::lonnet::delenv('environment\.discmarkread'); |
|
} |
|
} |
|
$r->print(<<ENDVCSCREEN); |
|
$message |
|
ENDVCSCREEN |
|
} |
|
|
###################################################### |
###################################################### |
# other handler subroutines # |
# other handler subroutines # |
###################################################### |
###################################################### |
Line 626 ENDERROR
|
Line 982 ENDERROR
|
################################################################ |
################################################################ |
sub handler { |
sub handler { |
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'}; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
# Some pages contain DES keys and should not be cached. |
# Some pages contain DES keys and should not be cached. |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
# |
# |
if ($ENV{'form.action'} eq 'changepass') { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&passwordchanger($r); |
['action','wysiwyg','returnurl']); |
} elsif ($ENV{'form.action'} eq 'verify_and_change_pass') { |
# |
&verify_and_change_password($r); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
} elsif ($ENV{'form.action'} eq 'changescreenname') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&screennamechanger($r); |
({href => '/adm/preferences', |
} elsif ($ENV{'form.action'} eq 'verify_and_change_screenname') { |
text => 'Set User Preferences'}); |
&verify_and_change_screenname($r); |
|
} elsif ($ENV{'form.action'} eq 'changemsgforward') { |
my @Options; |
&msgforwardchanger($r); |
# Determine current authentication method |
} elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') { |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
&verify_and_change_msgforward($r); |
if ($currentauth =~ /^(unix|internal):/) { |
} elsif ($ENV{'form.action'} eq 'changecolors') { |
push (@Options,({ action => 'changepass', |
&colorschanger($r); |
linktext => 'Change Password', |
} elsif ($ENV{'form.action'} eq 'verify_and_change_colors') { |
href => '/adm/preferences', |
&verify_and_change_colors($r); |
help => 'Change_Password', |
} elsif ($ENV{'form.action'} eq 'debugtoggle') { |
subroutine => \&passwordchanger, |
if (($ENV{'user.name'} eq 'albertel' ) || |
breadcrumb => |
($ENV{'user.name'} eq 'kortemey' ) || |
{ href => '/adm/preferences?action=changepass', |
($ENV{'user.name'} eq 'korte')) { |
text => 'Change Password'}, |
if ($ENV{'user.debug'}) { |
}, |
&Apache::lonnet::delenv('user\.debug'); |
{ action => 'verify_and_change_pass', |
} else { |
subroutine => \&verify_and_change_password, |
&Apache::lonnet::appenv('user.debug' => 1); |
breadcrumb => |
} |
{ href =>'/adm/preferences?action=changepass', |
} |
text => 'Change Password'}, |
} else { |
printmenu => 'yes', |
$r->print(<<ENDHEADER); |
})); |
<html> |
} |
|
push (@Options,({ action => 'changescreenname', |
|
linktext => 'Change Screen Name', |
|
href => '/adm/preferences', |
|
help => 'Prefs_Screen_Name_Nickname', |
|
subroutine => \&screennamechanger, |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changescreenname', |
|
text => 'Change Screen Name'}, |
|
}, |
|
{ action => 'verify_and_change_screenname', |
|
subroutine => \&verify_and_change_screenname, |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changescreenname', |
|
text => 'Change Screen Name'}, |
|
printmenu => 'yes', |
|
})); |
|
|
|
push (@Options,({ action => 'changemsgforward', |
|
linktext => 'Change Message Forwarding and Notification Addresses', |
|
href => '/adm/preferences', |
|
help => 'Prefs_Forwarding', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changemsgforward', |
|
text => 'Change Message Forwarding'}, |
|
subroutine => \&msgforwardchanger, |
|
}, |
|
{ action => 'verify_and_change_msgforward', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changemsgforward', |
|
text => 'Change Message Forwarding'}, |
|
printmenu => 'yes', |
|
subroutine => \&verify_and_change_msgforward })); |
|
my $aboutmeaction= |
|
'/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
|
push (@Options,{ action => 'none', |
|
linktext => |
|
q{Edit the 'About Me' Personal Information Screen}, |
|
help => 'Prefs_About_Me', |
|
href => $aboutmeaction}); |
|
push (@Options,({ action => 'changecolors', |
|
linktext => 'Change Color Scheme', |
|
href => '/adm/preferences', |
|
help => 'Change_Colors', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changecolors', |
|
text => 'Change Colors'}, |
|
subroutine => \&colorschanger, |
|
}, |
|
{ action => 'verify_and_change_colors', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changecolors', |
|
text => 'Change Colors'}, |
|
printmenu => 'yes', |
|
subroutine => \&verify_and_change_colors, |
|
})); |
|
push (@Options,({ action => 'changelanguages', |
|
linktext => 'Change Language Preferences', |
|
href => '/adm/preferences', |
|
help => 'Prefs_Language', |
|
breadcrumb=> |
|
{ href => '/adm/preferences?action=changelanguages', |
|
text => 'Change Language'}, |
|
subroutine => \&languagechanger, |
|
}, |
|
{ action => 'verify_and_change_languages', |
|
breadcrumb=> |
|
{href => '/adm/preferences?action=changelanguages', |
|
text => 'Change Language'}, |
|
printmenu => 'yes', |
|
subroutine=>\&verify_and_change_languages, } |
|
)); |
|
push (@Options,({ action => 'changewysiwyg', |
|
linktext => 'Change WYSIWYG Editor Preferences', |
|
href => '/adm/preferences', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changewysiwyg', |
|
text => 'Change WYSIWYG Preferences'}, |
|
subroutine => \&wysiwygchanger, |
|
}, |
|
{ action => 'set_wysiwyg', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changewysiwyg', |
|
text => 'Change WYSIWYG Preferences'}, |
|
printmenu => 'yes', |
|
subroutine => \&verify_and_change_wysiwyg, } |
|
)); |
|
push (@Options,({ action => 'changediscussions', |
|
linktext => 'Change Discussion Display Preferences', |
|
href => '/adm/preferences', |
|
help => 'Change_Discussion_Display', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changediscussions', |
|
text => 'Change Discussion Preferences'}, |
|
subroutine => \&discussionchanger, |
|
}, |
|
{ action => 'verify_and_change_discussion', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changediscussions', |
|
text => 'Change Discussion Preferences'}, |
|
printmenu => 'yes', |
|
subroutine => \&verify_and_change_discussion, } |
|
)); |
|
|
|
push (@Options,({ action => 'changerolespref', |
|
linktext => 'Change Roles Page Preferences', |
|
href => '/adm/preferences', |
|
subroutine => \&rolesprefchanger, |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changerolespref', |
|
text => 'Change Roles Pref'}, |
|
}, |
|
{ action => 'verify_and_change_rolespref', |
|
subroutine => \&verify_and_change_rolespref, |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changerolespref', |
|
text => 'Change Roles Preferences'}, |
|
printmenu => 'yes', |
|
})); |
|
|
|
push (@Options,({ action => 'changetexenginepref', |
|
linktext => 'Change How Math Equations Are Displayed', |
|
href => '/adm/preferences', |
|
subroutine => \&texenginechanger, |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changetexenginepref', |
|
text => 'Change Math Pref'}, |
|
}, |
|
{ action => 'verify_and_change_texengine', |
|
subroutine => \&verify_and_change_texengine, |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changetexenginepref', |
|
text => 'Change Math Preferences'}, |
|
printmenu => 'yes', |
|
})); |
|
|
|
|
|
if ($env{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle)$/) { |
|
push (@Options,({ action => 'debugtoggle', |
|
printmenu => 'yes', |
|
subroutine => \&toggle_debug, |
|
})); |
|
} |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<ENDHEADER); |
|
$html |
<head> |
<head> |
<title>LON-CAPA Preferences</title> |
<title>LON-CAPA Preferences</title> |
</head> |
</head> |
ENDHEADER |
ENDHEADER |
$r->print(&Apache::loncommon::bodytag('Change Your Preferences')); |
my $call = undef; |
# Determine current authentication method |
my $help = undef; |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
my $printmenu = 'yes'; |
if ($currentauth =~ /^(unix|internal):/) { |
foreach my $option (@Options) { |
$r->print(<<ENDPASSWORDFORM); |
if ($option->{'action'} eq $env{'form.action'}) { |
<form name="client" action="/adm/preferences" method="post"> |
$call = $option->{'subroutine'}; |
<input type="hidden" name="action" value="changepass" /> |
$printmenu = $option->{'printmenu'}; |
<input type="submit" value="Change password" /> |
if (exists($option->{'breadcrumb'})) { |
</form> |
&Apache::lonhtmlcommon::add_breadcrumb |
ENDPASSWORDFORM |
($option->{'breadcrumb'}); |
|
} |
|
$help=$option->{'help'}; |
} |
} |
# Change screen name |
|
$r->print(<<ENDSCREENNAMEFORM); |
|
<form name="client" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="changescreenname" /> |
|
<input type="submit" |
|
value="Change nickname and anonymous discussion screen name" /> |
|
</form> |
|
ENDSCREENNAMEFORM |
|
$r->print(<<ENDMSGFORWARDFORM); |
|
<form name="client" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="changemsgforward" /> |
|
<input type="submit" value="Change message forwarding and notification addresses" /> |
|
</form> |
|
ENDMSGFORWARDFORM |
|
# The "about me" page |
|
my $aboutmeaction= |
|
'/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; |
|
$r->print(<<ENDABOUTME); |
|
<form name="client" action="$aboutmeaction" method="post"> |
|
<input type="hidden" name="action" value="changescreenname" /> |
|
<input type="submit" value="Edit the 'About Me' personal information screen" /> |
|
</form> |
|
ENDABOUTME |
|
$r->print(<<ENDCOLORFORM); |
|
<form name="client" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="changecolors" /> |
|
<input type="submit" value="Change color scheme" /> |
|
</form> |
|
ENDCOLORFORM |
|
|
|
if (($ENV{'user.name'} eq 'albertel' ) || |
|
($ENV{'user.name'} eq 'kortemey' ) || |
|
($ENV{'user.name'} eq 'korte')) { |
|
$r->print(<<ENDDEBUG); |
|
<form name="client" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="debugtoggle" /> |
|
<input type="submit" value="Toggle Debug" /> |
|
Current Debug status is -$ENV{'user.debug'}-. |
|
</form> |
|
ENDDEBUG |
|
} |
|
# Other preference setting code should be added here |
|
} |
} |
$r->print(<<ENDFOOTER); |
$r->print(&Apache::loncommon::bodytag('Change Preferences')); |
</body> |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
</html> |
(undef,'Change Preferences',$help)); |
ENDFOOTER |
if (defined($call)) { |
|
$call->($r); |
|
} |
|
if (($printmenu eq 'yes') && (!$env{'form.returnurl'})) { |
|
my $optionlist = '<table cellpadding="5">'; |
|
if ($env{'user.name'} =~ |
|
/^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle)$/ |
|
) { |
|
push (@Options,({ action => 'debugtoggle', |
|
linktext => 'Toggle Debug Messages', |
|
text => 'Current Debug status is -'. |
|
$env{'user.debug'}.'-.', |
|
href => '/adm/preferences', |
|
printmenu => 'yes', |
|
subroutine => \&toggle_debug, |
|
})); |
|
} |
|
foreach my $option(@Options) { |
|
my $optiontext = ''; |
|
if (exists($option->{'href'})) { |
|
$optiontext .= |
|
'<a href="'.$option->{'href'}. |
|
'?action='.$option->{'action'}.'">'. |
|
&mt($option->{'linktext'}).'</a>'; |
|
} |
|
if (exists($option->{'text'})) { |
|
$optiontext .= ' '.&mt($option->{'text'}); |
|
} |
|
if ($optiontext ne '') { |
|
$optiontext = '<font size="+1">'.$optiontext.'</font>'; |
|
my $helplink = ' '; |
|
if (exists($option->{'help'})) { |
|
$helplink = &Apache::loncommon::help_open_topic |
|
($option->{'help'}); |
|
} |
|
$optionlist .= '<tr>'. |
|
'<td>'.$helplink.'</td>'. |
|
'<td>'.$optiontext.'</td>'. |
|
'</tr>'; |
|
} |
|
} |
|
$optionlist .= '</table>'; |
|
$r->print($optionlist); |
|
} elsif ($env{'form.returnurl'}) { |
|
$r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'. |
|
&mt('Return').'</font></a>'); |
|
} |
|
$r->print(&Apache::loncommon::endbodytag().'</html>'); |
return OK; |
return OK; |
} |
} |
|
|
|
sub toggle_debug { |
|
if ($env{'user.debug'}) { |
|
&Apache::lonnet::delenv('user\.debug'); |
|
} else { |
|
&Apache::lonnet::appenv('user.debug' => 1); |
|
} |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |