version 1.55, 2005/02/25 06:48:00
|
version 1.77, 2006/03/21 19:43:21
|
Line 40 use DynaLoader; # for Crypt::DES version
|
Line 40 use DynaLoader; # for Crypt::DES version
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
# |
# |
# Write lonnet::passwd to do the call below. |
# Write lonnet::passwd to do the call below. |
Line 97 sub wysiwygchanger {
|
Line 98 sub wysiwygchanger {
|
my $r = shift; |
my $r = shift; |
my %userenv = &Apache::lonnet::get |
my %userenv = &Apache::lonnet::get |
('environment',['wysiwygeditor']); |
('environment',['wysiwygeditor']); |
my $offselect=''; |
|
my $onselect='checked="1"'; |
my $onselect='checked="1"'; |
if ($userenv{'wysiwygeditor'}) { |
my $offselect=''; |
|
if ($userenv{'wysiwygeditor'} eq 'on') { |
$onselect=''; |
$onselect=''; |
$offselect='checked="1"'; |
$offselect='checked="1"'; |
} |
} |
my $switchoff=&mt('Disable WYSIWYG editor'); |
my $switchoff=&mt('Disable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<form name="server" 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" /> |
<br /> |
<br /> |
<input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff<br /> |
<label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br /> |
<input type="radio" name="wysiwyg" value="on" $offselect /> $switchon |
<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('Change').'" />'); |
} |
} |
Line 118 ENDLSCREEN
|
Line 119 ENDLSCREEN
|
|
|
sub verify_and_change_wysiwyg { |
sub verify_and_change_wysiwyg { |
my $r = shift; |
my $r = shift; |
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>'); |
$r->print('<p>'.&mt('Setting WYSIWYG editor to:').' '.&mt($newsetting).'</p>'); |
Line 129 sub verify_and_change_wysiwyg {
|
Line 130 sub verify_and_change_wysiwyg {
|
################################################################ |
################################################################ |
sub languagechanger { |
sub languagechanger { |
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',['languages']); |
('environment',['languages']); |
my $language=$userenv{'languages'}; |
my $language=$userenv{'languages'}; |
Line 146 sub languagechanger {
|
Line 147 sub languagechanger {
|
my $selectionbox=&Apache::loncommon::select_form($language,'language', |
my $selectionbox=&Apache::loncommon::select_form($language,'language', |
%langchoices); |
%langchoices); |
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<form name="server" 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" /> |
<br />$pref: $selectionbox |
<br />$pref: $selectionbox |
ENDLSCREEN |
ENDLSCREEN |
Line 156 ENDLSCREEN
|
Line 157 ENDLSCREEN
|
|
|
sub verify_and_change_languages { |
sub verify_and_change_languages { |
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 $newlanguage = $ENV{'form.language'}; |
my $newlanguage = $env{'form.language'}; |
$newlanguage=~s/[^\-\w]//g; |
$newlanguage=~s/[^\-\w]//g; |
my $message=''; |
my $message=''; |
if ($newlanguage) { |
if ($newlanguage) { |
Line 172 sub verify_and_change_languages {
|
Line 173 sub verify_and_change_languages {
|
$message='Reset preferred language'; |
$message='Reset preferred language'; |
} |
} |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
</p> |
|
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
Line 182 ENDVCSCREEN
|
Line 182 ENDVCSCREEN
|
################################################################ |
################################################################ |
sub texenginechanger { |
sub texenginechanger { |
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',['texengine']); |
my %userenv = &Apache::lonnet::get('environment',['texengine']); |
my $texengine=$userenv{'texengine'}; |
my $texengine=$userenv{'texengine'}; |
|
|
my $pref=&mt('Preferred method to display Math'); |
my $pref=&mt('Preferred method to display Math'); |
my %mathchoices=('' => 'No Preference', |
my %mathchoices=('' => 'Default', |
'tth' => 'TeX to HTML', |
'tth' => 'TeX to HTML', |
#'ttm' => 'TeX to MathML', |
#'ttm' => 'TeX to MathML', |
'jsMath' => 'jsMath', |
'jsMath' => 'jsMath', |
#'mimetex' => 'Convert to Images' |
'mimetex' => 'Convert to Images' |
); |
); |
my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine', |
my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine', |
%mathchoices); |
%mathchoices); |
my $mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$'; |
my $jsMath_start=&Apache::lontexconvert::jsMath_header(); |
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); |
|
my $change=&mt('Change'); |
my $change=&mt('Change'); |
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<form name="server" action="/adm/preferences" method="post"> |
<br /> |
|
|
|
<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>$pref: $selectionbox</p> |
<p>$pref: $selectionbox</p> |
<p><input type="submit" value="$change" /></p> |
<p><input type="submit" value="$change" /></p> |
</form> |
</form> |
Examples: |
Examples: |
<p> TeX to HTML <br /> $tth_example</p> |
<p> TeX to HTML <br /> |
<script type"text/javascript">function NoFontMessage () { }</script> |
<iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=tth" width="400" hieght="200"></iframe> |
<script src="/adm/jsMath/jsMath.js"></script> |
</p> |
<p>jsMath <br /> |
<p>jsMath <br /> |
|
$jsMath_start |
<script type"text/javascript"> |
<script type="text/javascript"> |
if (jsMath.nofonts == 1) { |
if (jsMath.nofonts == 1) { |
document.writeln |
document.writeln |
('<center><div style="padding: 10; border-style: solid; border-width:3;' |
('<center><div style="padding: 10; border-style: solid; border-width:3;' |
Line 229 if (jsMath.nofonts == 1) {
|
Line 228 if (jsMath.nofonts == 1) {
|
+'</font></small></div></center>'); |
+'</font></small></div></center>'); |
} |
} |
</script> |
</script> |
|
<iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=jsMath" width="400" hieght="200"></iframe> |
|
|
$jsMath_example</p> |
</p> |
|
<p> Convert to Images <br /> |
|
<br /> |
|
<iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=mimetex" width="400" hieght="200"></iframe> |
|
</p> |
ENDLSCREEN |
ENDLSCREEN |
if ($ENV{'environment.texengine'} ne 'jsMath') { |
if ($env{'environment.texengine'} ne 'jsMath') { |
$r->print('<script type="text/javascript">jsMath.Process()</script>'); |
$r->print('<script type="text/javascript">jsMath.Process()</script>'); |
} |
} |
} |
} |
Line 240 ENDLSCREEN
|
Line 244 ENDLSCREEN
|
|
|
sub verify_and_change_texengine { |
sub verify_and_change_texengine { |
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 $newtexengine = $ENV{'form.texengine'}; |
my $newtexengine = $env{'form.texengine'}; |
$newtexengine=~s/[^\-\w]//g; |
$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=''; |
my $message=''; |
if ($newtexengine) { |
if ($newtexengine) { |
&Apache::lonnet::put('environment',{'texengine' => $newtexengine}); |
&Apache::lonnet::put('environment',{'texengine' => $newtexengine}); |
Line 255 sub verify_and_change_texengine {
|
Line 266 sub verify_and_change_texengine {
|
&Apache::lonnet::delenv('environment\.texengine'); |
&Apache::lonnet::delenv('environment\.texengine'); |
$message='Reset preferred math display.'; |
$message='Reset preferred math display.'; |
} |
} |
|
|
|
|
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
</p> |
|
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
Line 266 ENDVCSCREEN
|
Line 278 ENDVCSCREEN
|
################################################################ |
################################################################ |
sub rolesprefchanger { |
sub rolesprefchanger { |
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',['recentroles','recentrolesn']); |
('environment',['recentroles','recentrolesn']); |
my $hotlist_flag=$userenv{'recentroles'}; |
my $hotlist_flag=$userenv{'recentroles'}; |
Line 292 visited and places a table of these at t
|
Line 304 visited and places a table of these at t
|
People with very few roles should leave this feature disabled. |
People with very few roles should leave this feature disabled. |
</p> |
</p> |
|
|
<form name="server" 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 />Enable Recent Roles Hotlist: |
<br />Enable Recent Roles Hotlist: |
<input type="checkbox" $checked name="recentroles" value="true" /> |
<input type="checkbox" $checked name="recentroles" value="true" /> |
Line 308 ENDSCREEN
|
Line 320 ENDSCREEN
|
|
|
sub verify_and_change_rolespref { |
sub verify_and_change_rolespref { |
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'}; |
# Recent Roles Hotlist Flag |
# Recent Roles Hotlist Flag |
my $hotlist_flag = $ENV{'form.recentroles'}; |
my $hotlist_flag = $env{'form.recentroles'}; |
my $hotlist_n = $ENV{'form.recentrolesn'}; |
my $hotlist_n = $env{'form.recentrolesn'}; |
my $message=''; |
my $message=''; |
if ($hotlist_flag) { |
if ($hotlist_flag) { |
&Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag}); |
&Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag}); |
Line 332 sub verify_and_change_rolespref {
|
Line 344 sub verify_and_change_rolespref {
|
} |
} |
|
|
$r->print(<<ENDRPSCREEN); |
$r->print(<<ENDRPSCREEN); |
</p> |
|
$message |
$message |
ENDRPSCREEN |
ENDRPSCREEN |
} |
} |
Line 344 ENDRPSCREEN
|
Line 355 ENDRPSCREEN
|
################################################################ |
################################################################ |
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'}; |
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
<form name="server" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="POST"> |
<input type="hidden" name="action" value="verify_and_change_screenname" /> |
<input type="hidden" name="action" value="verify_and_change_screenname" /> |
<br />New screenname (shown if you post anonymously): |
<br />New screenname (shown if you post anonymously): |
<input type="text" size="20" value="$screenname" name="screenname" /> |
<input type="text" size="20" value="$screenname" name="screenname" /> |
Line 364 ENDSCREEN
|
Line 375 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 381 sub verify_and_change_screenname {
|
Line 392 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 392 sub verify_and_change_screenname {
|
Line 403 sub verify_and_change_screenname {
|
&Apache::lonnet::delenv('environment\.nickname'); |
&Apache::lonnet::delenv('environment\.nickname'); |
$message.='Reset nickname'; |
$message.='Reset nickname'; |
} |
} |
|
&Apache::lonnet::devalidate_cache_new('namescache',$user.':'.$domain); |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
</p> |
|
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
Line 405 ENDVCSCREEN
|
Line 415 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','notification','critnotification']); |
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'}; |
Line 420 sub msgforwardchanger {
|
Line 430 sub msgforwardchanger {
|
|
|
$r->print(<<ENDMSG); |
$r->print(<<ENDMSG); |
$forwardingHelp <br /> |
$forwardingHelp <br /> |
<form name="server" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="POST"> |
<input type="hidden" name="action" value="verify_and_change_msgforward" /> |
<input type="hidden" name="action" value="verify_and_change_msgforward" /> |
New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>): |
New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>): |
<input type="text" size="40" value="$msgforward" name="msgforward" /><hr /> |
<input type="text" size="40" value="$msgforward" name="msgforward" /><hr /> |
Line 435 ENDMSG
|
Line 445 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 461 sub verify_and_change_msgforward {
|
Line 471 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 472 sub verify_and_change_msgforward {
|
Line 482 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 484 sub verify_and_change_msgforward {
|
Line 494 sub verify_and_change_msgforward {
|
$message.='Reset critical message notification<br />'; |
$message.='Reset critical message notification<br />'; |
} |
} |
$r->print(<<ENDVCMSG); |
$r->print(<<ENDVCMSG); |
</p> |
|
$message |
$message |
ENDVCMSG |
ENDVCMSG |
} |
} |
Line 497 sub colorschanger {
|
Line 506 sub colorschanger {
|
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 541 sub colorschanger {
|
Line 550 sub colorschanger {
|
pclose(); |
pclose(); |
if (document.parmform.pres_marker.value!='') { |
if (document.parmform.pres_marker.value!='') { |
if (document.parmform.pres_type.value!='') { |
if (document.parmform.pres_type.value!='') { |
eval('document.server.'+ |
eval('document.prefs.'+ |
document.parmform.pres_marker.value+ |
document.parmform.pres_marker.value+ |
'.value=document.parmform.pres_value.value;'); |
'.value=document.parmform.pres_value.value;'); |
} |
} |
Line 558 sub colorschanger {
|
Line 567 sub colorschanger {
|
<input type="hidden" name="pres_type" /> |
<input type="hidden" name="pres_type" /> |
<input type="hidden" name="pres_value" /> |
<input type="hidden" name="pres_value" /> |
</form> |
</form> |
<form name="server" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="POST"> |
<input type="hidden" name="action" value="verify_and_change_colors" /> |
<input type="hidden" name="action" value="verify_and_change_colors" /> |
<table border="2"> |
<table border="2"> |
$chtable |
$chtable |
Line 573 sub verify_and_change_colors {
|
Line 582 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 594 sub verify_and_change_colors {
|
Line 603 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 607 sub verify_and_change_colors {
|
Line 616 sub verify_and_change_colors {
|
} |
} |
} |
} |
$r->print(<<ENDVCCOL); |
$r->print(<<ENDVCCOL); |
</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" /> |
</form> |
</form> |
ENDVCCOL |
ENDVCCOL |
Line 624 sub passwordchanger {
|
Line 632 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 651 sub passwordchanger {
|
Line 659 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 |
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"); |
Line 692 $errormessage
|
Line 698 $errormessage
|
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="pserver" 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 726 ENDFORM
|
Line 732 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(); |
my $currentpass = $env{'form.currentpass'}; |
$r->print(<<ENDHEADER); |
my $newpass1 = $env{'form.newpass_1'}; |
$html |
my $newpass2 = $env{'form.newpass_2'}; |
<head> |
my $logtoken = $env{'form.logtoken'}; |
<title>LON-CAPA Preferences: Change password for $user</title> |
|
</head> |
|
ENDHEADER |
|
# |
|
my $currentpass = $ENV{'form.currentpass'}; |
|
my $newpass1 = $ENV{'form.newpass_1'}; |
|
my $newpass2 = $ENV{'form.newpass_2'}; |
|
my $logtoken = $ENV{'form.logtoken'}; |
|
# Check for empty data |
# Check for empty data |
unless (defined($currentpass) && |
unless (defined($currentpass) && |
defined($newpass1) && |
defined($newpass1) && |
Line 765 password decryption. Please log out and
|
Line 763 password decryption. Please log out and
|
</p> |
</p> |
ENDERROR |
ENDERROR |
# Probably should log an error here |
# Probably should log an error here |
return; |
return 1; |
} |
} |
my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo); |
my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo); |
# |
# |
Line 778 ENDERROR
|
Line 776 ENDERROR
|
'<font color="#ff0000">ERROR:</font>'. |
'<font color="#ff0000">ERROR:</font>'. |
'The new passwords you entered do not match. '. |
'The new passwords you entered do not match. '. |
'Please try again.'); |
'Please try again.'); |
return; |
return 1; |
} |
} |
if (length($newpass1) < 7) { |
if (length($newpass1) < 7) { |
&passwordchanger($r, |
&passwordchanger($r, |
'<font color="#ff0000">ERROR:</font>'. |
'<font color="#ff0000">ERROR:</font>'. |
'Passwords must be a minimum of 7 characters long. '. |
'Passwords must be a minimum of 7 characters long. '. |
'Please try again.'); |
'Please try again.'); |
return; |
return 1; |
} |
} |
# |
# |
# Check for bad characters |
# Check for bad characters |
Line 820 ENDTEXT
|
Line 818 ENDTEXT
|
<h2><font color="#ff0000">The password for $user was not changed</font></h2> |
<h2><font color="#ff0000">The password for $user was not changed</font></h2> |
Please make sure your old password was entered correctly. |
Please make sure your old password was entered correctly. |
ENDERROR |
ENDERROR |
|
return 1; |
} |
} |
return; |
return; |
} |
} |
Line 829 ENDERROR
|
Line 828 ENDERROR
|
################################################################ |
################################################################ |
sub discussionchanger { |
sub discussionchanger { |
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',['discdisplay','discmarkread']); |
('environment',['discdisplay','discmarkread']); |
my $discdisp = 'allposts'; |
my $discdisp = 'allposts'; |
Line 852 sub discussionchanger {
|
Line 851 sub discussionchanger {
|
|
|
my $function = &Apache::loncommon::get_users_function(); |
my $function = &Apache::loncommon::get_users_function(); |
my $color = &Apache::loncommon::designparm($function.'.tabbg', |
my $color = &Apache::loncommon::designparm($function.'.tabbg', |
$ENV{'user.domain'}); |
$env{'user.domain'}); |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'pref' => 'Display Preference', |
'pref' => 'Display Preference', |
'curr' => 'Current setting ', |
'curr' => 'Current setting ', |
Line 888 sub discussionchanger {
|
Line 887 sub discussionchanger {
|
} |
} |
|
|
$r->print(<<"END"); |
$r->print(<<"END"); |
<form name="server" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="POST"> |
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
<input type="hidden" name="action" value="verify_and_change_discussion" /> |
<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> |
Line 934 END
|
Line 933 END
|
|
|
sub verify_and_change_discussion { |
sub verify_and_change_discussion { |
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 $message=''; |
my $message=''; |
if (defined($ENV{'form.discdisp'}) ) { |
if (defined($env{'form.discdisp'}) ) { |
my $newdisp = $ENV{'form.newdisp'}; |
my $newdisp = $env{'form.newdisp'}; |
if ($newdisp eq 'unread') { |
if ($newdisp eq 'unread') { |
$message .='In discussions: only new posts will be displayed.<br/>'; |
$message .='In discussions: only new posts will be displayed.<br/>'; |
&Apache::lonnet::put('environment',{'discdisplay' => $newdisp}); |
&Apache::lonnet::put('environment',{'discdisplay' => $newdisp}); |
Line 949 sub verify_and_change_discussion {
|
Line 948 sub verify_and_change_discussion {
|
&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.='In discussions: new posts will be cease to be identified as "new" after display.<br/>'; |
$message.='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}); |
Line 962 sub verify_and_change_discussion {
|
Line 961 sub verify_and_change_discussion {
|
} |
} |
} |
} |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
</p> |
|
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
|
|
|
################################################################ |
|
# Subroutines for page display on course access (Course Coordinators) |
|
################################################################ |
|
sub coursedisplaychanger { |
|
my $r = shift; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
my %userenv = &Apache::lonnet::get('environment',['course_init_display']); |
|
my $currvalue = 'whatsnew'; |
|
my $firstselect = ''; |
|
my $whatsnewselect = 'checked="checked"'; |
|
if (exists($userenv{'course_init_display'})) { |
|
if ($userenv{'course_init_display'} eq 'firstres') { |
|
$currvalue = 'firstres'; |
|
$firstselect = 'checked="checked"'; |
|
$whatsnewselect = ''; |
|
} |
|
} |
|
my %pagenames = ( |
|
firstres => 'First resource', |
|
whatsnew => "What's new page", |
|
); |
|
my $whatsnew_off=&mt('Display the [_1] in the course.','<b>first resource</b>'); |
|
my $whatsnew_on=&mt('Display the "[_1]" page - a summary of items in the course which require attention.',"<b>What's New</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(<<ENDLSCREEN); |
|
<form name="prefs" action="/adm/preferences" method="POST"> |
|
<input type="hidden" name="action" value="verify_and_change_coursepage" /> |
|
<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'}" /> |
|
ENDLSCREEN |
|
$r->print('<br /><br /><input type="submit" value="'.&mt('Change').'" /> |
|
</form>'); |
|
} |
|
|
|
sub verify_and_change_coursepage { |
|
my $r = shift; |
|
my $message=''; |
|
my %lt = &Apache::lonlocal::texthash( |
|
'defs' => 'Default now set', |
|
'when' => 'when you select a course role from the roles screen', |
|
'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.', |
|
'gtts' => 'Go to the start of the course', |
|
'dasp' => "Display the What's New page listing course action items", |
|
); |
|
my $newdisp = $env{'form.newdisp'}; |
|
$message = '<b>'.$lt{'defs'}.'</b>: '.$lt{'when'}.', '; |
|
if ($newdisp eq 'firstres') { |
|
$message .= $lt{'ywbt'}.'<br/>'; |
|
&Apache::lonnet::put('environment',{'course_init_display' => $newdisp}); |
|
&Apache::lonnet::appenv('environment.course_init_display' => $newdisp); |
|
} else { |
|
$message .= $lt{'apwb'}.'<br/>'; |
|
&Apache::lonnet::del('environment',['course_init_display']); |
|
&Apache::lonnet::delenv('environment\.course_init_display'); |
|
} |
|
my $refpage = $env{'form.refpage'}; |
|
if (($env{'request.course.fn'}) && ($env{'request.course.id'})) { |
|
if ($newdisp eq 'firstres') { |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my ($furl,$ferr)= |
|
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
|
$message .= '<br /><font size="+1"><a href="'.$furl.'">'.$lt{'gtts'}.' <i>'.&mt('now').'</i></a></font>'; |
|
} else { |
|
$message .= '<br /><font size="+1"><a href="/adm/whatsnew?refpage='. |
|
$refpage.'">'.$lt{'dasp'}.'</a></font>'; |
|
} |
|
} |
|
$r->print(<<ENDVCSCREEN); |
|
$message |
|
<br /><br /> |
|
ENDVCSCREEN |
|
} |
|
|
|
|
###################################################### |
###################################################### |
# other handler subroutines # |
# other handler subroutines # |
###################################################### |
###################################################### |
Line 976 ENDVCSCREEN
|
Line 1053 ENDVCSCREEN
|
################################################################ |
################################################################ |
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'}; |
&Apache::loncommon::content_type($r,'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); |
Line 985 sub handler {
|
Line 1062 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
# |
# |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['action','wysiwyg','returnurl']); |
['action','wysiwyg','returnurl','refpage']); |
# |
# |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
Line 1010 sub handler {
|
Line 1087 sub handler {
|
breadcrumb => |
breadcrumb => |
{ href =>'/adm/preferences?action=changepass', |
{ href =>'/adm/preferences?action=changepass', |
text => 'Change Password'}, |
text => 'Change Password'}, |
printmenu => 'yes', |
printmenu => 'not_on_error', |
})); |
})); |
} |
} |
push (@Options,({ action => 'changescreenname', |
push (@Options,({ action => 'changescreenname', |
Line 1046 sub handler {
|
Line 1123 sub handler {
|
printmenu => 'yes', |
printmenu => 'yes', |
subroutine => \&verify_and_change_msgforward })); |
subroutine => \&verify_and_change_msgforward })); |
my $aboutmeaction= |
my $aboutmeaction= |
'/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; |
'/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
push (@Options,{ action => 'none', |
push (@Options,{ action => 'none', |
linktext => |
linktext => |
q{Edit the 'About Me' Personal Information Screen}, |
q{Edit the 'About Me' Personal Information Screen}, |
Line 1147 sub handler {
|
Line 1224 sub handler {
|
text => 'Change Math Preferences'}, |
text => 'Change Math Preferences'}, |
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
|
if (&Apache::lonnet::allowed('whn',$env{'request.course.id'}) |
|
|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/' |
|
.$env{'request.course.sec'})) { |
|
push (@Options,({ action => 'changecourseinit', |
|
linktext => 'Change Course Initialization Preference', |
|
href => '/adm/preferences', |
|
subroutine => \&coursedisplaychanger, |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changecourseinit', |
|
text => 'Change Course Init. Pref.'}, |
|
}, |
|
{ action => 'verify_and_change_coursepage', |
|
breadcrumb => |
|
{ href => '/adm/preferences?action=changecourseinit', text => 'Change Course Initialization Preference'}, |
|
printmenu => 'yes', |
|
subroutine => \&verify_and_change_coursepage, |
|
})); |
|
} |
|
|
|
if ($env{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle|raeburn)$/) { |
if ($ENV{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle)$/) { |
|
push (@Options,({ action => 'debugtoggle', |
push (@Options,({ action => 'debugtoggle', |
printmenu => 'yes', |
printmenu => 'yes', |
subroutine => \&toggle_debug, |
subroutine => \&toggle_debug, |
})); |
})); |
} |
} |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<ENDHEADER); |
$r->print(&Apache::loncommon::start_page('Change Preferences')); |
$html |
|
<head> |
|
<title>LON-CAPA Preferences</title> |
|
</head> |
|
ENDHEADER |
|
my $call = undef; |
my $call = undef; |
my $help = undef; |
my $help = undef; |
my $printmenu = 'yes'; |
my $printmenu = 'yes'; |
foreach my $option (@Options) { |
foreach my $option (@Options) { |
if ($option->{'action'} eq $ENV{'form.action'}) { |
if ($option->{'action'} eq $env{'form.action'}) { |
$call = $option->{'subroutine'}; |
$call = $option->{'subroutine'}; |
$printmenu = $option->{'printmenu'}; |
$printmenu = $option->{'printmenu'}; |
if (exists($option->{'breadcrumb'})) { |
if (exists($option->{'breadcrumb'})) { |
Line 1176 ENDHEADER
|
Line 1266 ENDHEADER
|
$help=$option->{'help'}; |
$help=$option->{'help'}; |
} |
} |
} |
} |
$r->print(&Apache::loncommon::bodytag('Change Preferences')); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,'Change Preferences',$help)); |
(undef,'Change Preferences',$help)); |
|
my $error; |
if (defined($call)) { |
if (defined($call)) { |
$call->($r); |
$error = $call->($r); |
} |
} |
if (($printmenu eq 'yes') && (!$ENV{'form.returnurl'})) { |
if ( ( ($printmenu eq 'yes') |
|
|| ($printmenu eq 'not_on_error' && !$error) ) |
|
&& (!$env{'form.returnurl'})) { |
my $optionlist = '<table cellpadding="5">'; |
my $optionlist = '<table cellpadding="5">'; |
if ($ENV{'user.name'} =~ |
if ($env{'user.name'} =~ |
/^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle)$/ |
/^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle|raeburn)$/ |
) { |
) { |
push (@Options,({ action => 'debugtoggle', |
push (@Options,({ action => 'debugtoggle', |
linktext => 'Toggle Debug Messages', |
linktext => 'Toggle Debug Messages', |
text => 'Current Debug status is -'. |
text => 'Current Debug status is -'. |
$ENV{'user.debug'}.'-.', |
$env{'user.debug'}.'-.', |
href => '/adm/preferences', |
href => '/adm/preferences', |
printmenu => 'yes', |
printmenu => 'yes', |
subroutine => \&toggle_debug, |
subroutine => \&toggle_debug, |
Line 1222 ENDHEADER
|
Line 1314 ENDHEADER
|
} |
} |
$optionlist .= '</table>'; |
$optionlist .= '</table>'; |
$r->print($optionlist); |
$r->print($optionlist); |
} elsif ($ENV{'form.returnurl'}) { |
} elsif ($env{'form.returnurl'}) { |
$r->print('<br /><a href="'.$ENV{'form.returnurl'}.'"><font size="+1">'. |
$r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'. |
&mt('Return').'</font></a>'); |
&mt('Return').'</font></a>'); |
} |
} |
$r->print(&Apache::loncommon::endbodytag().'</html>'); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
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); |