version 1.20, 2004/04/23 19:39:25
|
version 1.23, 2005/04/07 06:56:27
|
Line 32 use strict;
|
Line 32 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 46 sub handler {
|
Line 47 sub handler {
|
|
|
# ------------------------------------------------------------------- Read file |
# ------------------------------------------------------------------- Read file |
|
|
my $uri=$ENV{'form.url'}.'.meta'; |
my $uri=$env{'form.url'}.'.meta'; |
|
|
my %content; |
my %content; |
my %type; |
my %type; |
Line 55 sub handler {
|
Line 56 sub handler {
|
|
|
# ---------------------------------------------------------- Current Parameters |
# ---------------------------------------------------------- Current Parameters |
|
|
foreach (split(/\:/,$ENV{'form.parms'})) { |
|
my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); |
|
unless ($type{$pname}) { $type{$pname}=$ptype; } |
|
$value{$pname}=$pvalue; |
|
$content{$pname}=$pvalue; |
|
$type{$pname}=$ptype; |
|
$display{$pname}=&mt('Custom Parameter'); |
|
} |
|
|
|
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
if ($_=~/^parameter\_/) { |
if ($_=~/^parameter\_/) { |
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
Line 71 sub handler {
|
Line 63 sub handler {
|
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
} |
} |
} |
} |
|
|
|
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 |
# --------------------------------------------------- Print input screen header |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
Line 103 sub handler {
|
Line 105 sub handler {
|
|
|
function setparms() { |
function setparms() { |
ENDHEADER |
ENDHEADER |
$r->print('var colon=""; opener.objparms['.$ENV{'form.resid'}.']="";'); |
$r->print('var colon=""; opener.objparms['.$env{'form.resid'}.']="";'); |
map { |
map { |
$r->print("\nif (document.parameters.def_".$_. |
$r->print("\nif (document.parameters.def_".$_. |
'.checked) { opener.objparms['.$ENV{'form.resid'}. |
'.checked) { opener.objparms['.$env{'form.resid'}. |
']+=colon+"'.$type{$_}. |
']+=colon+"'.$type{$_}. |
'___'.$_.'___"+document.parameters.'.$_.'.value; colon=":"; }'); |
'___'.$_.'___"+document.parameters.'.$_.'.value; colon=":"; }'); |
} keys %content; |
} keys %content; |