--- loncom/interface/lonpreferences.pm	2003/04/19 15:34:06	1.21
+++ loncom/interface/lonpreferences.pm	2003/04/30 15:49:45	1.23
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.21 2003/04/19 15:34:06 www Exp $
+# $Id: lonpreferences.pm,v 1.23 2003/04/30 15:49:45 matthew 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.
@@ -295,7 +296,7 @@ sub colorschanger {
                     'vlink' => 'Visited Link',
                     'alink' => 'Active Link');
     my $chtable='';
-    foreach my $item (keys %colortypes) {
+    foreach my $item (sort(keys(%colortypes))) {
        my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);
        $chtable.='<tr><td>'.$colortypes{$item}.'</td><td bgcolor="'.$curcol.
         '">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td><td><input name="'.$item.
@@ -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();
