version 1.29, 2003/09/17 01:45:14
|
version 1.38, 2004/03/16 20:18:01
|
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 |
# 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. |
Line 51 use Crypt::DES;
|
Line 41 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; |
|
|
# |
# |
# Write lonnet::passwd to do the call below. |
# Write lonnet::passwd to do the call below. |
Line 62 use Apache::lonhtmlcommon();
|
Line 53 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 108 sub languagechanger {
|
Line 99 sub languagechanger {
|
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','translator']); |
('environment',['languages']); |
my $language=$userenv{'languages'}; |
my $language=$userenv{'languages'}; |
my $translator=$userenv{'translator'}; |
|
my $bodytag=&Apache::loncommon::bodytag( |
|
'Change Your Language Preferences'); |
|
$r->print(<<ENDLSCREEN); |
|
<html> |
|
$bodytag |
|
|
|
|
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"> |
<form name="server" 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 />Preferred language: |
<br />$pref: $selectionbox |
<input type="text" size="5" value="$language" name="language" /> |
|
ENDLSCREEN |
ENDLSCREEN |
if ($ENV{'user.adv'}) { |
$r->print('<br /><input type="submit" value="'.&mt('Change').'" />'); |
$r->print (<<ENDTRSC); |
|
<br />Willing to translate for language: |
|
<input type="text" size="5" value="$translator" name="translator" /> |
|
ENDTRSC |
|
} |
|
$r->print('<br /><input type="submit" value="Change" /></form></body></html>'); |
|
} |
} |
|
|
|
|
Line 149 sub verify_and_change_languages {
|
Line 138 sub verify_and_change_languages {
|
&Apache::lonnet::delenv('environment\.languages'); |
&Apache::lonnet::delenv('environment\.languages'); |
$message='Reset preferred language'; |
$message='Reset preferred language'; |
} |
} |
if ($ENV{'user.adv'}) { |
|
$message.='<br />'; |
|
my $newtrans = $ENV{'form.translator'}; |
|
$newtrans=~s/[^\-\w]//g; |
|
if ($newtrans) { |
|
&Apache::lonnet::put('environment',{'translator' => $newtrans}); |
|
&Apache::lonnet::appenv('environment.translator' => $newtrans); |
|
$message.='Set translator to '.$newtrans; |
|
} else { |
|
&Apache::lonnet::del('environment',['translator']); |
|
&Apache::lonnet::delenv('environment\.translator'); |
|
$message.='Reset translator'; |
|
} |
|
} |
|
|
|
my $bodytag=&Apache::loncommon::bodytag( |
|
'Change Your Language Preferences'); |
|
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
<html> |
|
$bodytag |
|
</p> |
</p> |
$message |
$message |
</body></html> |
|
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
|
|
Line 187 sub screennamechanger {
|
Line 156 sub screennamechanger {
|
('environment',['screenname','nickname']); |
('environment',['screenname','nickname']); |
my $screenname=$userenv{'screenname'}; |
my $screenname=$userenv{'screenname'}; |
my $nickname=$userenv{'nickname'}; |
my $nickname=$userenv{'nickname'}; |
my $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 201 $bodytag
|
Line 165 $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 |
} |
} |
|
|
Line 237 sub verify_and_change_screenname {
|
Line 199 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> |
</p> |
$message |
$message |
</body></html> |
|
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
|
|
Line 260 sub msgforwardchanger {
|
Line 217 sub msgforwardchanger {
|
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( |
|
'Change Your Message Forwarding and Notification'); |
|
my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding", |
my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding", |
"What are forwarding ". |
"What are forwarding ". |
"and notification ". |
"and notification ". |
Line 270 sub msgforwardchanger {
|
Line 225 sub msgforwardchanger {
|
"What are critical messages"); |
"What are critical messages"); |
|
|
$r->print(<<ENDMSG); |
$r->print(<<ENDMSG); |
<html> |
|
$bodytag |
|
$forwardingHelp <br /> |
$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" /> |
Line 283 New Critical Message Notification Email
|
Line 236 New Critical Message Notification Email
|
<input type="text" size="40" value="$critnotification" name="critnotification" />$criticalMessageHelp<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 |
} |
} |
|
|
Line 338 sub verify_and_change_msgforward {
|
Line 289 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> |
</p> |
$message |
$message |
</body></html> |
|
ENDVCMSG |
ENDVCMSG |
} |
} |
|
|
Line 355 ENDVCMSG
|
Line 301 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)/) { |
Line 390 sub colorschanger {
|
Line 333 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 417 sub colorschanger {
|
Line 359 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 431 $chtable
|
Line 372 $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 473 sub verify_and_change_colors {
|
Line 412 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> |
</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 530 sub passwordchanger {
|
Line 463 sub passwordchanger {
|
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 565 $bodytag
|
Line 493 $bodytag
|
$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 --> |
|
|
Line 711 sub handler {
|
Line 639 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']); |
} 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 'changelanguages') { |
subroutine => \&passwordchanger, |
&languagechanger($r); |
breadcrumb => |
} elsif ($ENV{'form.action'} eq 'verify_and_change_languages') { |
{ href => '/adm/preferences?action=changepass', |
&verify_and_change_languages($r); |
text => 'Change Password'}, |
} elsif ($ENV{'form.action'} eq 'debugtoggle') { |
}, |
if (($ENV{'user.name'} eq 'albertel' ) || |
{ action => 'verify_and_change_pass', |
($ENV{'user.name'} eq 'kortemey' ) || |
subroutine => \&verify_and_change_password, |
($ENV{'user.name'} eq 'korte')) { |
breadcrumb => |
if ($ENV{'user.debug'}) { |
{ href =>'/adm/preferences?action=changepass', |
&Apache::lonnet::delenv('user\.debug'); |
text => 'Change Password'}, |
} else { |
printmenu => 'yes', |
&Apache::lonnet::appenv('user.debug' => 1); |
})); |
} |
} |
} |
push (@Options,({ action => 'changescreenname', |
} else { |
linktext => 'Change Screen Name', |
$r->print(<<ENDHEADER); |
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', |
|
text => '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}, |
|
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 Prefences', |
|
href => '/adm/preferences', |
|
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, } |
|
)); |
|
if ($ENV{'user.name'} =~ /^(albertel|koretemey|korte|hallmat3|turtle)$/) { |
|
push (@Options,({ action => 'debugtoggle', |
|
printmenu => 'yes', |
|
subroutine => \&toggle_debug, |
|
})); |
|
} |
|
$r->print(<<ENDHEADER); |
<html> |
<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 $printmenu = 'yes'; |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
foreach my $option (@Options) { |
if ($currentauth =~ /^(unix|internal):/) { |
if ($option->{'action'} eq $ENV{'form.action'}) { |
$r->print(<<ENDPASSWORDFORM); |
$call = $option->{'subroutine'}; |
<form name="client" action="/adm/preferences" method="post"> |
$printmenu = $option->{'printmenu'}; |
<input type="hidden" name="action" value="changepass" /> |
if (exists($option->{'breadcrumb'})) { |
<input type="submit" value="Change password" /> |
&Apache::lonhtmlcommon::add_breadcrumb |
</form> |
($option->{'breadcrumb'}); |
ENDPASSWORDFORM |
} |
} |
} |
# Change screen name |
} |
$r->print(<<ENDSCREENNAMEFORM); |
$r->print(&Apache::loncommon::bodytag('Change Preferences')); |
<form name="client" action="/adm/preferences" method="post"> |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
<input type="hidden" name="action" value="changescreenname" /> |
(undef,'Change Preferences')); |
<input type="submit" |
if (defined($call)) { |
value="Change nickname and anonymous discussion screen name" /> |
$call->($r); |
</form> |
} |
ENDSCREENNAMEFORM |
if ($printmenu eq 'yes') { |
$r->print(<<ENDMSGFORWARDFORM); |
my $optionlist = '<table cellpadding="5">'; |
<form name="client" action="/adm/preferences" method="post"> |
if ($ENV{'user.name'} =~ |
<input type="hidden" name="action" value="changemsgforward" /> |
/^(albertel|kortemey|korte|hallmat3|turtle)$/ |
<input type="submit" value="Change message forwarding and notification addresses" /> |
) { |
</form> |
push (@Options,({ action => 'debugtoggle', |
ENDMSGFORWARDFORM |
linktext => 'Toggle Debug Messages', |
# The "about me" page |
text => 'Current Debug status is -'. |
my $aboutmeaction= |
$ENV{'user.debug'}.'-.', |
'/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; |
href => '/adm/preferences', |
$r->print(<<ENDABOUTME); |
printmenu => 'yes', |
<form name="client" action="$aboutmeaction" method="post"> |
subroutine => \&toggle_debug, |
<input type="hidden" name="action" value="changescreenname" /> |
})); |
<input type="submit" value="Edit the 'About Me' personal information screen" /> |
} |
</form> |
foreach my $option(@Options) { |
ENDABOUTME |
my $optiontext = ''; |
$r->print(<<ENDCOLORFORM); |
if (exists($option->{'href'})) { |
<form name="client" action="/adm/preferences" method="post"> |
$optiontext .= |
<input type="hidden" name="action" value="changecolors" /> |
'<a href="'.$option->{'href'}. |
<input type="submit" value="Change color scheme" /> |
'?action='.$option->{'action'}.'">'. |
</form> |
$option->{'linktext'}.'</a>'; |
ENDCOLORFORM |
} |
|
if (exists($option->{'text'})) { |
$r->print(<<ENDLANGUAGES); |
$optiontext .= ' '.$option->{'text'}; |
<form name="client" action="/adm/preferences" method="post"> |
} |
<input type="hidden" name="action" value="changelanguages" /> |
if ($optiontext ne '') { |
<input type="submit" value="Change language preferences" /> |
$optiontext = '<font size="+1">'.$optiontext.'</font>'; |
</form> |
my $helplink = ' '; |
ENDLANGUAGES |
if (exists($option->{'help'})) { |
|
$helplink = &Apache::loncommon::help_open_topic |
if (($ENV{'user.name'} eq 'albertel' ) || |
($option->{'help'}); |
($ENV{'user.name'} eq 'kortemey' ) || |
} |
($ENV{'user.name'} eq 'korte')) { |
$optionlist .= '<tr>'. |
$r->print(<<ENDDEBUG); |
'<td>'.$helplink.'</td>'. |
<form name="client" action="/adm/preferences" method="post"> |
'<td>'.$optiontext.'</td>'. |
<input type="hidden" name="action" value="debugtoggle" /> |
'</tr>'; |
<input type="submit" value="Toggle Debug" /> |
} |
Current Debug status is -$ENV{'user.debug'}-. |
} |
</form> |
$optionlist .= '</table>'; |
ENDDEBUG |
$r->print($optionlist); |
} |
|
# Other preference setting code should be added here |
|
} |
} |
$r->print(<<ENDFOOTER); |
$r->print(<<ENDFOOTER); |
</body> |
</body> |
Line 822 ENDFOOTER
|
Line 822 ENDFOOTER
|
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__ |