--- loncom/interface/lonparmset.pm 2000/11/27 12:14:32 1.13 +++ loncom/interface/lonparmset.pm 2001/03/26 22:28:37 1.28 @@ -9,7 +9,9 @@ # # 10/11,10/12,10/16 Gerd Kortemeyer) # -# 11/20,11/21,11/22,11/23,11/24,11/25,11/27 Gerd Kortemeyer +# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, +# 12/08,12/12, +# 16/01/01,02/08,03/20,03/23,03/24,03/26 Gerd Kortemeyer package Apache::lonparmset; @@ -17,7 +19,6 @@ use strict; use Apache::lonnet; use Apache::Constants qw(:common :http REDIRECT); use GDBM_File; -use Apache::lonmeta; my %courseopt; @@ -31,6 +32,11 @@ my @ids; my %symbp; my %mapp; my %typep; +my %keyp; +my %defp; + +my %allkeys; +my %allmaps; my $uname; my $udom; @@ -53,13 +59,13 @@ sub parmval { my $seclevel= $ENV{'request.course.id'}.'.['. - $ENV{'request.course.sec'}.'].'.$what; + $csec.'].'.$what; my $seclevelr= $ENV{'request.course.id'}.'.['. - $ENV{'request.course.sec'}.'].'.$symbparm; + $csec.'].'.$symbparm; my $seclevelm= $ENV{'request.course.id'}.'.['. - $ENV{'request.course.sec'}.'].'.$mapparm; + $csec.'].'.$mapparm; my $courselevel= $ENV{'request.course.id'}.'.'.$what; @@ -121,16 +127,6 @@ sub parmval { return $result; } -# ---------------------------------------------------------------- Sort routine - -sub bycat { - if ($fcat eq '') { - $a<=>$b; - } else { - &parmval('0.'.$fcat,$a)<=>&parmval('0.'.$fcat,$b); - } -} - # ------------------------------------------------------------ Output for value sub valout { @@ -143,9 +139,18 @@ sub valout { sub plink { my ($type,$dis,$value,$marker,$return,$call)=@_; - return ''. - &valout($value,$type).''; + &valout($value,$type).''; } # ================================================================ Main Handler @@ -177,6 +182,11 @@ sub handler { $csec=$ENV{'form.csec'}; $udom=$ENV{'form.udom'}; + unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } + + my $pscat=$ENV{'form.pscat'}; + my $pschp=$ENV{'form.pschp'}; + my $id=$ENV{'form.id'}; if (($id) && ($udom)) { $uname=(&Apache::lonnet::idget($udom,$id))[1]; @@ -184,7 +194,7 @@ sub handler { $id=''; } else { $message= - "
Sort list by '); - $r->print(''); + map { + $r->print(''); + } ('tolerance','date_default','date_start','date_end','date_interval', + 'int','float','string'); + + $r->print('
Sort list by | '); + $r->print(' |
Select Enclosing Map | |
Select Parameter |
general | for Enclosing Map | for Resource | '); } $r->print('|||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
'.
- join(' / ',split(/\//,&Apache::lonnet::declutter($bighash{'src_'.$rid}))).
- ' '. + my $isdef=1; + unless ($totalparms) { $totalparms=1; $isdef=0; } + if ($pscat ne 'all') { $totalparms=1; } + $r->print(' | '.
+ join(' / ',split(/\//,$uri)).
+ ' '. $bighash{'title_'.$rid}); if ($thistitle) { $r->print(' ('.$thistitle.')'); } $r->print(' | ');
- $r->print(''.$typep{$rid}.' | '); - $r->print(''.
+ $r->print(''.$typep{$rid}.' | ');
+ $r->print(''.
join(' / ',split(/\//,$mapp{$rid})).' | ');
+ if ($isdef) {
map {
-
+ if (($_ eq $catmarker) || ($pscat eq 'all')) {
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
- $r->print("$part{$_} | $display{$_} | ");
- my $mprefix=$rid.'&'.$_.'&';
+ $r->print("$part{$_} | $display{$_} | ");
+ my $thismarker=$_;
+ $thismarker=~s/^parameter\_//;
+ my $mprefix=$rid.'&'.$thismarker.'&';
- $r->print(''.
+ $r->print(' | '.
&valout($outpar[11],$type{$_}).' | ');
- $r->print(''.
+ $r->print(' | '.
&valout($outpar[10],$type{$_}).' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[9],$mprefix.'9',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[8],$mprefix.'8',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[7],$mprefix.'7',
'parmform.pres','psub').' | ');
if ($csec) {
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[6],$mprefix.'6',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[5],$mprefix.'5',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[4],$mprefix.'4',
'parmform.pres','psub').' | ');
}
if ($uname) {
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[3],$mprefix.'3',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[2],$mprefix.'2',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[1],$mprefix.'1',
'parmform.pres','psub').' | ');
}
-
- $r->print(''.&valout($outpar[$result],$type{$_}).' | ');
+ $r->print(
+ ''.&valout($outpar[$result],$type{$_}).' | ');
$r->print(" |