[BACK]Return to lonratparms.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonratparms.pm between versions 1.12 and 1.15

version 1.12, 2002/06/14 19:38:24 version 1.15, 2003/04/30 16:08:30
Line 44  package Apache::lonratparms; Line 44  package Apache::lonratparms;
   
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
   use Apache::lonhtmlcommon();
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 79  sub handler { Line 80  sub handler {
         $content{'parameter_randompick'}='';          $content{'parameter_randompick'}='';
         $type{'parameter_randompick'}='int_pos';          $type{'parameter_randompick'}='int_pos';
  $display{'parameter_randompick'}='Randomly pick number of resources';   $display{'parameter_randompick'}='Randomly pick number of resources';
           
           $content{'parameter_randompickseed'}='';
           $type{'parameter_randompickseed'}='int_pos';
    $display{'parameter_randompickseed'}=
    'Random seed for randomly picking number of resources (optional, only set if you know what you are doing)';
     } else {      } else {
         $content{'parameter_mapalias'}='';          $content{'parameter_mapalias'}='';
         $type{'parameter_mapalias'}='string';          $type{'parameter_mapalias'}='string';
  $display{'parameter_mapalias'}='Resource alias name for conditions';   $display{'parameter_mapalias'}='Resource alias name for conditions';
     }      }
       if ($uri=~/\.(problem|exam|quiz|assess|survey|form|library)\.meta$/) {
    $content{'parameter_hiddenparts'}='';
           $type{'parameter_hiddenparts'}='string';
    $display{'parameter_hiddenparts'}=
       'A comma separted list of Part Ids to not display.';
       }
 # ---------------------------------------------------------- Current Parameters  # ---------------------------------------------------------- Current Parameters
   
   foreach (split(/\:/,$ENV{'form.parms'})) {    foreach (split(/\:/,$ENV{'form.parms'})) {
Line 93  sub handler { Line 105  sub handler {
   }     } 
       
 # --------------------------------------------------- Print input screen header  # --------------------------------------------------- Print input screen header
       my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
Line 105  sub handler { Line 118  sub handler {
         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 stpr() {      function stpr() {
         eval("document.parameters."+document.parameters.pres_marker.value+          eval("document.parameters."+document.parameters.pres_marker.value+
Removed from v.1.12  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.