# The LearningOnline Network with CAPA # Handler to set parameters for assessments # # (Handler to resolve ambiguous file locations # # (TeX Content Handler # # 05/29/00,05/30,10/11 Gerd Kortemeyer) # # 10/11,10/12,10/16 Gerd Kortemeyer) # # 11/20,11/21,11/22,11/23,11/24 Gerd Kortemeyer package Apache::lonparmset; 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 @outpar; my @ids; my %symbp; my %typep; my $uname; my $udom; my $uhome; my $csec; my $fcat; # -------------------------------------------- Figure out a cascading parameter sub parmval { my ($what,$id)=@_; my $result=''; # ----------------------------------------------------- Cascading lookup scheme my $symbparm=$symbp{$id}.'.'.$what; my $reslevel= $ENV{'request.course.id'}.'.'.$symbparm; my $seclevel= $ENV{'request.course.id'}.'.'. $ENV{'request.course.sec'}.'.'.$what; my $courselevel= $ENV{'request.course.id'}.'.'.$what; # ----------------------------------------------------------- first, check user 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}) { $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) { $result=$thisparm; $outpar[7]=$result; } # --------------------------------------------- last, look in resource metadata my $filename='/home/httpd/res/'.$bighash{'src_'.$id}.'.meta'; if (-e $filename) { my @content; { my $fh=Apache::File->new($filename); @content=<$fh>; } if (join('',@content)=~ /\<$what[^\>]*\>([^\<]*)\<\/$what\>/) { $result=$1; $outpar[8]=$result; } } return $result; } # ---------------------------------------------------------------- Sort routine sub bycat { if ($fcat eq '') { $a<=>$b; } else { &parmval('0.'.$fcat,$a)<=>&parmval('0.'.$fcat,$b); } } # -------------------------------------------------------- Produces link anchor sub plink { my ($type,$dis,$value,$marker,$return,$call)=@_; return ''. ($value?(($type=~/^date/)?localtime($value):$value):' ').''; } # ================================================================ Main Handler sub handler { my $r=shift; if ($r->header_only) { $r->content_type('text/html'); $r->send_http_header; return OK; } # ----------------------------------------------------- Needs to be in a course if (($ENV{'request.course.fn'}) && (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { # -------------------------------------------------------- Variable declaration %courseopt=(); %useropt=(); %bighash=(); @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= "