--- rat/lonratparms.pm 2002/05/30 13:54:15 1.11 +++ rat/lonratparms.pm 2005/04/07 06:56:27 1.23 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Set parameters inside of the RAT # -# $Id: lonratparms.pm,v 1.11 2002/05/30 13:54:15 www Exp $ +# $Id: lonratparms.pm,v 1.23 2005/04/07 06:56:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,29 +25,18 @@ # # http://www.lon-capa.org/ # -# (Search Catalog -# -# (Internal Server Error Handler -# -# (Login Screen -# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, -# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) -# -# 3/1/1 Gerd Kortemeyer) -# -# 3/1 Gerd Kortemeyer) -# -# 03/03/01,06/15,06/25,06/26,06/30,07/02,07/03,07/04 Gerd Kortemeyer -# 03/11/02 Matthew Hall -# + package Apache::lonratparms; use strict; use Apache::Constants qw(:common); +use Apache::lonhtmlcommon(); +use Apache::lonlocal; +use Apache::lonnet; sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; @@ -58,13 +47,15 @@ sub handler { # ------------------------------------------------------------------- Read file - my $uri=$ENV{'form.url'}.'.meta'; + my $uri=$env{'form.url'}.'.meta'; my %content; my %type; my %display; my %value; +# ---------------------------------------------------------- Current Parameters + foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { if ($_=~/^parameter\_/) { $content{$_}=&Apache::lonnet::metadata($uri,$_); @@ -73,15 +64,24 @@ sub handler { } } -# ---------------------------------------------------------- Current Parameters - - foreach (split(/\:/,$ENV{'form.parms'})) { + foreach (split(/\:/,$env{'form.parms'})) { my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); + unless ($pname) { next; } unless ($type{$pname}) { $type{$pname}=$ptype; } $value{$pname}=$pvalue; + $content{$pname}=$pvalue; + $type{$pname}=$ptype; + $display{$pname}=&mt('Custom Parameter'); } # --------------------------------------------------- Print input screen header + my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); + my $bodytag=&Apache::loncommon::bodytag('Set Resource Parameters in Map'); + my %lt=&Apache::lonlocal::texthash('pa' => 'Parameter', + 'de' => 'Default', + 'va' => 'Value', + 'se' => 'Set'); + $r->print(< @@ -94,14 +94,7 @@ sub handler { 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+ @@ -112,10 +105,10 @@ sub handler { function setparms() { ENDHEADER - $r->print('var colon=""; opener.objparms['.$ENV{'form.resid'}.']="";'); + $r->print('var colon=""; opener.objparms['.$env{'form.resid'}.']="";'); map { $r->print("\nif (document.parameters.def_".$_. - '.checked) { opener.objparms['.$ENV{'form.resid'}. + '.checked) { opener.objparms['.$env{'form.resid'}. ']+=colon+"'.$type{$_}. '___'.$_.'___"+document.parameters.'.$_.'.value; colon=":"; }'); } keys %content; @@ -125,16 +118,17 @@ ENDHEADER } - -

Set Resource Parameters in Map

+$bodytag
- + ENDDOCUMENT - foreach (keys(%content)) { +### %display=&Apache::lonlocal::texthash(%display); + my $enter=&mt('Enter'); + foreach (sort(keys(%content))) { my $cur=$content{$_}; # Should if(defined($value{$_})) be if(exists($value{$_})) ? if (defined($value{$_})) { $cur=$value{$_}; }; @@ -142,14 +136,14 @@ ENDDOCUMENT +$enter'); } $r->print( - '
ParameterDefaultValueSet?
$lt{'pa'}$lt{'de'}$lt{'va'}$lt{'se'}?
$display{$_}
$_
 $content{$_}   -Enter print(' checked'); } $r->print('>

'); + '
'); return OK; }