version 1.15, 2003/04/30 16:08:30
|
version 1.19, 2003/10/23 21:01:54
|
Line 45 package Apache::lonratparms;
|
Line 45 package Apache::lonratparms;
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonhtmlcommon(); |
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 90 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 106 sub handler {
|
Line 101 sub handler {
|
|
|
# --------------------------------------------------- Print input screen header |
# --------------------------------------------------- Print input screen header |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
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 142 ENDHEADER
|
Line 143 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 159 ENDDOCUMENT
|
Line 161 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; |
} |
} |
|
|