version 1.16, 2003/09/29 14:31:00
|
version 1.19, 2003/10/23 21:01:54
|
Line 91 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 108 sub handler {
|
Line 102 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 $bodytag=&Apache::loncommon::bodytag('Set Resource Parameters in Map'); |
my %lt=&Apache::loncommon::texthash('pa' => 'Parameter', |
my %lt=&Apache::lonlocal::texthash('pa' => 'Parameter', |
'de' => 'Default', |
'de' => 'Default', |
'va' => 'Value', |
'va' => 'Value', |
'se' => 'Set'); |
'se' => 'Set'); |
|
|
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
Line 157 $bodytag
|
Line 151 $bodytag
|
<table border=2> |
<table border=2> |
<tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr> |
<tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr> |
ENDDOCUMENT |
ENDDOCUMENT |
%display=&Apache::lonlocal::texthash(%display); |
### %display=&Apache::lonlocal::texthash(%display); |
my $enter=&mt('Enter'); |
my $enter=&mt('Enter'); |
foreach (keys(%content)) { |
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{$_}; }; |