[LON-CAPA-cvs] cvs: rat / lonratparms.pm

matthew lon-capa-cvs@mail.lon-capa.org
Wed, 30 Apr 2003 16:08:30 -0000


matthew		Wed Apr 30 12:08:30 2003 EDT

  Modified files:              
    /rat	lonratparms.pm 
  Log:
  Modified to call &Apache::lonhtmlcommon::pjump_javascript_definition()
  
  
Index: rat/lonratparms.pm
diff -u rat/lonratparms.pm:1.14 rat/lonratparms.pm:1.15
--- rat/lonratparms.pm:1.14	Tue Feb 25 16:49:45 2003
+++ rat/lonratparms.pm	Wed Apr 30 12:08:30 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Set parameters inside of the RAT
 #
-# $Id: lonratparms.pm,v 1.14 2003/02/25 21:49:45 albertel Exp $
+# $Id: lonratparms.pm,v 1.15 2003/04/30 16:08:30 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,6 +44,7 @@
 
 use strict;
 use Apache::Constants qw(:common);
+use Apache::lonhtmlcommon();
 
 sub handler {
     my $r = shift;
@@ -104,6 +105,7 @@
   } 
   
 # --------------------------------------------------- Print input screen header
+    my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     $r->print(<<ENDHEADER);
 <html>
 <head>
@@ -116,14 +118,7 @@
         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 stpr() {
         eval("document.parameters."+document.parameters.pres_marker.value+