version 1.19, 2003/10/23 21:01:54
|
version 1.23, 2005/04/07 06:56:27
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Search Catalog |
|
# |
|
# (Internal Server Error Handler |
|
# |
|
# (Login Screen |
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, |
|
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) |
|
# |
|
# 3/1/1 Gerd Kortemeyer) |
|
# |
|
# 3/1 Gerd Kortemeyer) |
|
# |
|
# 03/03/01,06/15,06/25,06/26,06/30,07/02,07/03,07/04 Gerd Kortemeyer |
|
# 03/11/02 Matthew Hall |
|
# |
|
package Apache::lonratparms; |
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; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 60 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; |
my %display; |
my %display; |
my %value; |
my %value; |
|
|
|
# ---------------------------------------------------------- Current Parameters |
|
|
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 75 sub handler {
|
Line 64 sub handler {
|
} |
} |
} |
} |
|
|
# -------------------------------------- Additional parms for certain resources |
foreach (split(/\:/,$env{'form.parms'})) { |
|
|
if ($uri=~/\.(sequence|page)\.meta$/) { |
|
$content{'parameter_randompick'}=''; |
|
$type{'parameter_randompick'}='int_pos'; |
|
$display{'parameter_randompick'}='Randomly pick number of resources'; |
|
|
|
$content{'parameter_randompickseed'}=''; |
|
$type{'parameter_randompickseed'}='int_pos'; |
|
$display{'parameter_randompickseed'}= |
|
'Random seed for randomly picking number of resources (optional, only set if you know what you are doing)'; |
|
} else { |
|
$content{'parameter_mapalias'}=''; |
|
$type{'parameter_mapalias'}='string'; |
|
$display{'parameter_mapalias'}='Resource alias name for conditions'; |
|
} |
|
# ---------------------------------------------------------- Current Parameters |
|
|
|
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; |
|
$type{$pname}=$ptype; |
|
$display{$pname}=&mt('Custom Parameter'); |
} |
} |
|
|
# --------------------------------------------------- Print input screen header |
# --------------------------------------------------- Print input screen header |
Line 130 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; |