--- loncom/interface/lonparmset.pm 2000/11/21 12:22:29 1.2 +++ loncom/interface/lonparmset.pm 2000/11/24 17:22:13 1.9 @@ -9,7 +9,7 @@ # # 10/11,10/12,10/16 Gerd Kortemeyer) # -# 11/20,11/21 Gerd Kortemeyer +# 11/20,11/21,11/22,11/23,11/24,11/25 Gerd Kortemeyer package Apache::lonparmset; @@ -17,17 +17,19 @@ use strict; use Apache::lonnet; use Apache::Constants qw(:common :http REDIRECT); use GDBM_File; +use Apache::lonmeta; + my %courseopt; my %useropt; my %bighash; my %parmhash; -my @srcp; -my @typep; -my @resp; -my @mapp; -my @symbp; +my @outpar; + +my @ids; +my %symbp; +my %typep; my $uname; my $udom; @@ -35,12 +37,15 @@ my $uhome; my $csec; +my $fcat; + # -------------------------------------------- Figure out a cascading parameter sub parmval { - my ($what,$idx)=@_; + my ($what,$id)=@_; + my $result=''; # ----------------------------------------------------- Cascading lookup scheme - my $symbparm=$symbp[$idx].'.'.$what; + my $symbparm=$symbp{$id}.'.'.$what; my $reslevel= $ENV{'request.course.id'}.'.'.$symbparm; my $seclevel= @@ -50,26 +55,33 @@ sub parmval { $ENV{'request.course.id'}.'.'.$what; # ----------------------------------------------------------- first, check user - - if ($useropt{$reslevel}) { return $useropt{$reslevel}; } - if ($useropt{$seclevel}) { return $useropt{$seclevel}; } - if ($useropt{$courselevel}) { return $useropt{$courselevel}; } - + + if ($uname) { + if ($useropt{$reslevel}) { $result=$useropt{$reslevel}; + $outpar[1]=$result; } + if ($useropt{$seclevel}) { $result=$useropt{$seclevel}; + $outpar[2]=$result; } + if ($useropt{$courselevel}) { $result=$useropt{$courselevel}; + $outpar[3]=$result; } + } # -------------------------------------------------------- second, check course - if ($courseopt{$reslevel}) { return $courseopt{$reslevel}; } - if ($courseopt{$seclevel}) { return $courseopt{$seclevel}; } - if ($courseopt{$courselevel}) { return $courseopt{$courselevel}; } + if ($courseopt{$reslevel}) { $result=$courseopt{$reslevel}; + $outpar[4]=$result; } + if ($courseopt{$seclevel}) { $result=$courseopt{$seclevel}; + $outpar[5]=$result; } + if ($courseopt{$courselevel}) { $result=$courseopt{$courselevel}; + $outpar[6]=$result; } # ------------------------------------------------------ third, check map parms my $thisparm=$parmhash{$symbparm}; - if ($thisparm) { return $thisparm; } - + if ($thisparm) { $result=$thisparm; + $outpar[7]=$result; } # --------------------------------------------- last, look in resource metadata - my $filename='/home/httpd/res/'.$srcp[$idx].'.meta'; + my $filename='/home/httpd/res/'.$bighash{'src_'.$id}.'.meta'; if (-e $filename) { my @content; { @@ -78,10 +90,38 @@ sub parmval { } if (join('',@content)=~ /\<$what[^\>]*\>([^\<]*)\<\/$what\>/) { - return $1; + $result=$1; + $outpar[8]=$result; } } - return ''; + 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 { + my ($value,$type)=@_; + return + ($value?(($type=~/^date/)?localtime($value):$value):' '); +} + +# -------------------------------------------------------- Produces link anchor + +sub plink { + my ($type,$dis,$value,$marker,$return,$call)=@_; + return ''. + &valout($value,$type).''; } # ================================================================ Main Handler @@ -105,21 +145,28 @@ sub handler { %useropt=(); %bighash=(); - @srcp=(); - @typep=(); - @resp=(); - @mapp=(); - @symbp=(); + @ids=(); + %symbp=(); + %typep=(); $uname=$ENV{'form.uname'}; $udom=$ENV{'form.udom'}; unless ($udom) { $uname=''; } $uhome=''; + my $message=''; if ($uname) { $uhome=&Apache::lonnet::homeserver($uname,$udom); } + if ($uhome eq 'no_host') { + $message= + "