version 1.13, 2003/02/25 15:58:51
|
version 1.18, 2003/10/23 18:38:50
|
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(); |
|
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
Line 89 sub handler {
|
Line 91 sub handler {
|
$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 98 sub handler {
|
Line 106 sub handler {
|
} |
} |
|
|
# --------------------------------------------------- Print input screen header |
# --------------------------------------------------- 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(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
Line 110 sub handler {
|
Line 125 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+ |
Line 141 ENDHEADER
|
Line 149 ENDHEADER
|
} |
} |
</script> |
</script> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
$bodytag |
<h1>Set Resource Parameters in Map</h1> |
|
<form action="javascript:setparms();" method="post" name="parameters"> |
<form action="javascript:setparms();" method="post" name="parameters"> |
<input type="hidden" value='' name="pres_value"> |
<input type="hidden" value='' name="pres_value"> |
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_marker"> |
<input type="hidden" value='' name="pres_marker"> |
<table border=2> |
<table border=2> |
<tr><th>Parameter</th><th>Default</th><th>Value</th><th>Set?</th></tr> |
<tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr> |
ENDDOCUMENT |
ENDDOCUMENT |
foreach (keys(%content)) { |
### %display=&Apache::lonlocal::texthash(%display); |
|
my $enter=&mt('Enter'); |
|
foreach (sort(keys(%content))) { |
my $cur=$content{$_}; |
my $cur=$content{$_}; |
# Should if(defined($value{$_})) be if(exists($value{$_})) ? |
# Should if(defined($value{$_})) be if(exists($value{$_})) ? |
if (defined($value{$_})) { $cur=$value{$_}; }; |
if (defined($value{$_})) { $cur=$value{$_}; }; |
Line 158 ENDDOCUMENT
|
Line 167 ENDDOCUMENT
|
<tr><td><b>$display{$_}</b><br><tt>$_</tt></td> |
<tr><td><b>$display{$_}</b><br><tt>$_</tt></td> |
<td> $content{$_}</td> |
<td> $content{$_}</td> |
<td><input type="text" size="10" name="$_" value="$cur"> |
<td><input type="text" size="10" name="$_" value="$cur"> |
<a href='javascript:pjump("$type{$_}","$display{$_}",document.parameters.$_.value,"$_","parameters.pres","stpr");'>Enter</a></td> |
<a href='javascript:pjump("$type{$_}","$display{$_}",document.parameters.$_.value,"$_","parameters.pres","stpr");'>$enter</a></td> |
<td><input type="checkbox" name="def_$_" |
<td><input type="checkbox" name="def_$_" |
END |
END |
if ($value{$_}) { $r->print(' checked'); } |
if ($value{$_}) { $r->print(' checked'); } |
$r->print('></td></tr>'); |
$r->print('></td></tr>'); |
} |
} |
$r->print( |
$r->print( |
'</table><br><input type="submit" value="Set"></form></body></html>'); |
'</table><br><input type="submit" value="'.&mt('Set').'"></form></body></html>'); |
return OK; |
return OK; |
} |
} |
|
|