--- loncom/interface/lonpreferences.pm 2003/04/30 15:12:29 1.22
+++ loncom/interface/lonpreferences.pm 2003/05/21 00:48:27 1.24
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.22 2003/04/30 15:12:29 matthew Exp $
+# $Id: lonpreferences.pm,v 1.24 2003/05/21 00:48:27 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,6 +50,7 @@ use Apache::File;
use Crypt::DES;
use DynaLoader; # for Crypt::DES version
use Apache::loncommon();
+use Apache::lonhtmlcommon();
#
# Write lonnet::passwd to do the call below.
@@ -304,6 +305,7 @@ sub colorschanger {
"','".$curcol."','"
.$item."','parmform.pres','psub'".');">Select</a></td></tr>';
}
+ my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
$r->print(<<ENDCOL);
<html>
<script>
@@ -314,14 +316,7 @@ sub colorschanger {
parmwin.close();
}
- function pjump(type,dis,value,marker,ret,call) {
- 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");
-
- }
+ $pjump_def
function psub() {
pclose();
@@ -656,7 +651,9 @@ sub handler {
} elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {
&verify_and_change_colors($r);
} 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'}) {
&Apache::lonnet::delenv('user\.debug');
} else {
@@ -711,7 +708,9 @@ ENDABOUTME
</form>
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);
<form name="client" action="/adm/preferences" method="post">
<input type="hidden" name="action" value="debugtoggle" />