loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2003/04/30 15:49:45	version 1.24, 2003/05/21 00:48:27
Line 651 sub handler {	Line 651 sub handler {
} elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {	} elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {
&verify_and_change_colors($r);	&verify_and_change_colors($r);
} elsif ($ENV{'form.action'} eq 'debugtoggle') {	} elsif ($ENV{'form.action'} eq 'debugtoggle') {
if ($ENV{'user.name'} eq 'albertel' ) {	if (($ENV{'user.name'} eq 'albertel' ) \|\|
	($ENV{'user.name'} eq 'kortemey' ) \|\|
	($ENV{'user.name'} eq 'korte')) {
if ($ENV{'user.debug'}) {	if ($ENV{'user.debug'}) {
&Apache::lonnet::delenv('user\.debug');	&Apache::lonnet::delenv('user\.debug');
} else {	} else {
Line 706 ENDABOUTME	Line 708 ENDABOUTME
</form>	</form>
ENDCOLORFORM	ENDCOLORFORM

if ($ENV{'user.name'} eq 'albertel') {	if (($ENV{'user.name'} eq 'albertel' ) \|\|
	($ENV{'user.name'} eq 'kortemey' ) \|\|
	($ENV{'user.name'} eq 'korte')) {
$r->print(<<ENDDEBUG);	$r->print(<<ENDDEBUG);
<form name="client" action="/adm/preferences" method="post">	<form name="client" action="/adm/preferences" method="post">
<input type="hidden" name="action" value="debugtoggle" />	<input type="hidden" name="action" value="debugtoggle" />