version 1.14, 2002/09/13 19:32:09
|
version 1.16, 2002/10/16 19:36:25
|
Line 478 sub handler {
|
Line 478 sub handler {
|
&msgforwardchanger($r); |
&msgforwardchanger($r); |
} elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') { |
} elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') { |
&verify_and_change_msgforward($r); |
&verify_and_change_msgforward($r); |
|
} elsif ($ENV{'form.action'} eq 'debugtoggle') { |
|
if ($ENV{'user.name'} eq 'albertel' ) { |
|
if ($ENV{'user.debug'}) { |
|
&Apache::lonnet::delenv('user\.debug'); |
|
} else { |
|
&Apache::lonnet::appenv('user.debug' => 1); |
|
} |
|
} |
} else { |
} else { |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
Line 511 ENDSCREENNAMEFORM
|
Line 519 ENDSCREENNAMEFORM
|
</form> |
</form> |
ENDMSGFORWARDFORM |
ENDMSGFORWARDFORM |
# The "about me" page |
# The "about me" page |
my $aboutmeaction= |
my $aboutmeaction= |
'/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; |
'/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; |
$r->print(<<ENDABOUTME); |
$r->print(<<ENDABOUTME); |
<form name="client" action="$aboutmeaction" method="post"> |
<form name="client" action="$aboutmeaction" method="post"> |
<input type="hidden" name="action" value="changescreenname" /> |
<input type="hidden" name="action" value="changescreenname" /> |
<input type="submit" value="Edit the 'About Me' Personal Information Screen" /> |
<input type="submit" value="Edit the 'About Me' Personal Information Screen" /> |
</form> |
</form> |
ENDABOUTME |
ENDABOUTME |
# Other preference setting code should be added here |
if ($ENV{'user.name'} eq 'albertel') { |
|
$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(<<ENDFOOTER); |
</body> |
</body> |