version 1.20, 2004/04/23 19:39:25
|
version 1.22, 2004/04/24 14:23:27
|
Line 55 sub handler {
|
Line 55 sub handler {
|
|
|
# ---------------------------------------------------------- Current Parameters |
# ---------------------------------------------------------- Current Parameters |
|
|
|
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
|
if ($_=~/^parameter\_/) { |
|
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
|
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); |
|
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
|
} |
|
} |
|
|
foreach (split(/\:/,$ENV{'form.parms'})) { |
foreach (split(/\:/,$ENV{'form.parms'})) { |
my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); |
my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); |
|
unless ($pname) { next; } |
unless ($type{$pname}) { $type{$pname}=$ptype; } |
unless ($type{$pname}) { $type{$pname}=$ptype; } |
$value{$pname}=$pvalue; |
$value{$pname}=$pvalue; |
$content{$pname}=$pvalue; |
$content{$pname}=$pvalue; |
$type{$pname}=$ptype; |
$type{$pname}=$ptype; |
$display{$pname}=&mt('Custom Parameter'); |
$display{$pname}=&mt('Custom Parameter'); |
} |
} |
|
|
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
|
if ($_=~/^parameter\_/) { |
|
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
|
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); |
|
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
|
} |
|
} |
|
|
|
# --------------------------------------------------- Print input screen header |
# --------------------------------------------------- Print input screen header |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |