version 1.22, 2003/04/30 15:12:29
|
version 1.25, 2003/06/20 19:22:14
|
Line 50 use Apache::File;
|
Line 50 use Apache::File;
|
use Crypt::DES; |
use Crypt::DES; |
use DynaLoader; # for Crypt::DES version |
use DynaLoader; # for Crypt::DES version |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lonhtmlcommon(); |
|
|
# |
# |
# Write lonnet::passwd to do the call below. |
# Write lonnet::passwd to do the call below. |
Line 185 sub msgforwardchanger {
|
Line 186 sub msgforwardchanger {
|
my $critnotification=$userenv{'critnotification'}; |
my $critnotification=$userenv{'critnotification'}; |
my $bodytag=&Apache::loncommon::bodytag( |
my $bodytag=&Apache::loncommon::bodytag( |
'Change Your Message Forwarding and Notification'); |
'Change Your Message Forwarding and Notification'); |
|
my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding", |
|
"What are forwarding ". |
|
"and notification ". |
|
"addresses"); |
$r->print(<<ENDMSG); |
$r->print(<<ENDMSG); |
<html> |
<html> |
$bodytag |
$bodytag |
|
$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 304 sub colorschanger {
|
Line 309 sub colorschanger {
|
"','".$curcol."','" |
"','".$curcol."','" |
.$item."','parmform.pres','psub'".');">Select</a></td></tr>'; |
.$item."','parmform.pres','psub'".');">Select</a></td></tr>'; |
} |
} |
|
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
$r->print(<<ENDCOL); |
$r->print(<<ENDCOL); |
<html> |
<html> |
<script> |
<script> |
Line 314 sub colorschanger {
|
Line 320 sub colorschanger {
|
parmwin.close(); |
parmwin.close(); |
} |
} |
|
|
function pjump(type,dis,value,marker,ret,call) { |
$pjump_def |
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
|
+"&value="+escape(value)+"&marker="+escape(marker) |
|
+"&return="+escape(ret) |
|
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms", |
|
"height=350,width=350,scrollbars=no,menubar=no"); |
|
|
|
} |
|
|
|
function psub() { |
function psub() { |
pclose(); |
pclose(); |
Line 656 sub handler {
|
Line 655 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 711 ENDABOUTME
|
Line 712 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" /> |