--- loncom/interface/lonparmset.pm 2000/11/23 20:50:41 1.7 +++ loncom/interface/lonparmset.pm 2000/11/27 15:12:42 1.14 @@ -9,7 +9,7 @@ # # 10/11,10/12,10/16 Gerd Kortemeyer) # -# 11/20,11/21,11/22,11/23 Gerd Kortemeyer +# 11/20,11/21,11/22,11/23,11/24,11/25,11/27 Gerd Kortemeyer package Apache::lonparmset; @@ -25,8 +25,11 @@ my %useropt; my %bighash; my %parmhash; +my @outpar; + my @ids; my %symbp; +my %mapp; my %typep; my $uname; @@ -40,51 +43,82 @@ my $fcat; # -------------------------------------------- Figure out a cascading parameter sub parmval { - my ($what,$id)=@_; + my ($what,$id,$def)=@_; + my $result=''; + @outpar=(); # ----------------------------------------------------- Cascading lookup scheme + my $symbparm=$symbp{$id}.'.'.$what; - my $reslevel= - $ENV{'request.course.id'}.'.'.$symbparm; + my $mapparm=$mapp{$id}.'___(all).'.$what; + my $seclevel= - $ENV{'request.course.id'}.'.'. - $ENV{'request.course.sec'}.'.'.$what; + $ENV{'request.course.id'}.'.['. + $csec.'].'.$what; + my $seclevelr= + $ENV{'request.course.id'}.'.['. + $csec.'].'.$symbparm; + my $seclevelm= + $ENV{'request.course.id'}.'.['. + $csec.'].'.$mapparm; + my $courselevel= $ENV{'request.course.id'}.'.'.$what; + my $courselevelr= + $ENV{'request.course.id'}.'.'.$symbparm; + my $courselevelm= + $ENV{'request.course.id'}.'.'.$mapparm; -# ----------------------------------------------------------- first, check user +# -------------------------------------------------------- first, check default - if ($uname) { - if ($useropt{$reslevel}) { return $useropt{$reslevel}; } - if ($useropt{$seclevel}) { return $useropt{$seclevel}; } - if ($useropt{$courselevel}) { return $useropt{$courselevel}; } + if ($def) { $outpar[11]=$def; + $result=11; } + +# ----------------------------------------------------- second, check map parms + + my $thisparm=$parmhash{$symbparm}; + if ($thisparm) { $outpar[10]=$thisparm; + $result=10; } + +# --------------------------------------------------------- third, check course + + if ($courseopt{$courselevel}) { $outpar[9]=$courseopt{$courselevel}; + $result=9; } + + if ($courseopt{$courselevelm}) { $outpar[8]=$courseopt{$courselevelm}; + $result=8; } + + if ($courseopt{$courselevelr}) { $outpar[7]=$courseopt{$courselevelr}; + $result=7; } + + if ($csec) { + + if ($courseopt{$seclevel}) { $outpar[6]=$courseopt{$seclevel}; + $result=6; } + + if ($courseopt{$seclevelm}) { $outpar[5]=$courseopt{$seclevelm}; + $result=5; } + + if ($courseopt{$seclevelr}) { $outpar[4]=$courseopt{$seclevelr}; + $result=4; } + } -# -------------------------------------------------------- second, check course +# ---------------------------------------------------------- fourth, check user + + if ($uname) { - if ($courseopt{$reslevel}) { return $courseopt{$reslevel}; } - if ($courseopt{$seclevel}) { return $courseopt{$seclevel}; } - if ($courseopt{$courselevel}) { return $courseopt{$courselevel}; } + if ($useropt{$courselevel}) { $outpar[3]=$useropt{$courselevel}; + $result=3; } -# ------------------------------------------------------ third, check map parms + if ($useropt{$courselevelm}) { $outpar[2]=$useropt{$courselevelm}; + $result=2; } - my $thisparm=$parmhash{$symbparm}; - if ($thisparm) { return $thisparm; } - -# --------------------------------------------- last, look in resource metadata + if ($useropt{$courselevelr}) { $outpar[1]=$useropt{$courselevelr}; + $result=1; } - 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\>/) { - return $1; - } - } - return ''; + } + + return $result; } # ---------------------------------------------------------------- Sort routine @@ -97,13 +131,21 @@ sub bycat { } } +# ------------------------------------------------------------ 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 ''. - (($type=~/^date/)?localtime($value):$value).''; + .$marker."','".$return."','".$call."'".');">'. + &valout($value,$type).''; } # ================================================================ Main Handler @@ -131,22 +173,52 @@ sub handler { %symbp=(); %typep=(); - $uname=$ENV{'form.uname'}; + my $message=''; + + $csec=$ENV{'form.csec'}; $udom=$ENV{'form.udom'}; + my $id=$ENV{'form.id'}; + if (($id) && ($udom)) { + $uname=(&Apache::lonnet::idget($udom,$id))[1]; + if ($uname) { + $id=''; + } else { + $message= + "

Unknown ID '$id' at domain '$udom'

"; + } + } else { + $uname=$ENV{'form.uname'}; + } unless ($udom) { $uname=''; } $uhome=''; - my $message=''; if ($uname) { $uhome=&Apache::lonnet::homeserver($uname,$udom); - } - if ($uhome eq 'no_host') { + + if ($uhome eq 'no_host') { $message= - "

Unknown User $uname at Domain $udom

"; + "

Unknown user '$uname' at domain '$udom'

"; $uname=''; + } else { + $csec=&Apache::lonnet::usection( + $udom,$uname,$ENV{'request.course.id'}); + if ($csec eq '-1') { + $message="

". + "User '$uname' at domain '$udom' not in this course

"; + $uname=''; + $csec=$ENV{'form.csec'}; + } else { + my %name=&Apache::lonnet::userenvironment($udom,$uname, + ('firstname','middlename','lastname','generation','id')); + $message="\n

\nFull Name: ". + $name{'firstname'}.' '.$name{'middlename'} + .$name{'lastname'}.' '.$name{'generation'}. + "
\nID: ".$name{'id'}.'

'; + } + } } - $csec=$ENV{'form.csec'}; unless ($csec) { $csec=''; } + $fcat=$ENV{'form.fcat'}; unless ($fcat) { $fcat=''; } @@ -156,6 +228,67 @@ sub handler { (tie(%parmhash,'GDBM_File', $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) { +# --------------------------------------------------------- Get all assessments + map { + if ($_=~/^src\_(\d+)\.(\d+)$/) { + my $mapid=$1; + my $resid=$2; + my $id=$mapid.'.'.$resid; + if ($bighash{$_}=~/\.(problem|exam|quiz|assess|survey|form)$/) { + $ids[$#ids+1]=$id; + $typep{$id}=$1; + $mapp{$id}= + &Apache::lonnet::declutter($bighash{'map_id_'.$mapid}); + $symbp{$id}=$mapp{$id}. + '___'.$resid.'___'. + &Apache::lonnet::declutter($bighash{$_}); + } + } + } keys %bighash; +# ---------------------------------------------------------- Anything to store? + if ($ENV{'form.pres_marker'}) { + my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); + + my $symbparm=$symbp{$sresid}.'.'.$spnam; + my $mapparm=$mapp{$sresid}.'___(all).'.$spnam; + + my $seclevel= + $ENV{'request.course.id'}.'.['. + $csec.'].'.$spnam; + my $seclevelr= + $ENV{'request.course.id'}.'.['. + $csec.'].'.$symbparm; + my $seclevelm= + $ENV{'request.course.id'}.'.['. + $csec.'].'.$mapparm; + + my $courselevel= + $ENV{'request.course.id'}.'.'.$spnam; + my $courselevelr= + $ENV{'request.course.id'}.'.'.$symbparm; + my $courselevelm= + $ENV{'request.course.id'}.'.'.$mapparm; + + my $storeunder=''; + if (($snum==9) || ($snum==3)) { $storeunder=$courselevel; } + if (($snum==8) || ($snum==2)) { $storeunder=$courselevelm; } + if (($snum==7) || ($snum==1)) { $storeunder=$courselevelr; } + if ($snum==6) { $storeunder=$seclevel; } + if ($snum==5) { $storeunder=$seclevelm; } + if ($snum==4) { $storeunder=$seclevelr; } + + + $message.="

Storing $ENV{'form.pres_value'} type $ENV{'form.pres_type'} under $ENV{'form.pres_marker'} in $storeunder

"; + + +# ---------------------------------------------------------- Construct prefixes + if ($snum>3) { +# ---------------------------------------------------------------- Store Course + } else { +# ------------------------------------------------------------------ Store User + } + } + # -------------------------------------------------------------- Get coursedata my $reply=&Apache::lonnet::reply('dump:'. $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'. @@ -178,22 +311,7 @@ sub handler { } split(/\&/,$reply); } } -# --------------------------------------------------------- Get all assessments - map { - if ($_=~/^src\_(\d+)\.(\d+)$/) { - my $mapid=$1; - my $resid=$2; - my $id=$mapid.'.'.$resid; - if ($bighash{$_}=~/\.(problem|exam|quiz|assess|survey|form)$/) { - $ids[$#ids+1]=$id; - $typep{$id}=$1; - $symbp{$id}= - &Apache::lonnet::declutter($bighash{'map_id_'.$mapid}). - '___'.$resid.'___'. - &Apache::lonnet::declutter($bighash{$_}); - } - } - } keys %bighash; + # ------------------------------------------------------------------- Sort this @ids=sort bycat @ids; # ------------------------------------------------------------------ Start page @@ -204,6 +322,7 @@ sub handler { LON-CAPA Assessment Parameters

Set Assessment Parameters

+
+

Course: $ENV{'course.'.$ENV{'request.course.id'}.'.description'}

+ +Section/Group: + +
+For User + +or ID + +at Domain + + + + + + ENDHEAD - $r->print("

Course: $ENV{'course.'. - $ENV{'request.course.id'}.'.description'}

"); - if ($csec) { - $r->print("

Section/Group: $csec

"); - } - if ($uname) { - $r->print("

For User $uname at Domain $udom"); - } - if ($uhome eq 'no_host') { - $r->print($message); - } - $r->print("\n\n"); + + $r->print($message.'

Sort list by '); + $r->print(''); +# ----------------------------------------------------------------- Start Table + my $coursespan=$csec?8:5; + $r->print(<

+ + +ENDTABLEHEAD + if ($uname) { + $r->print(""); + } + $r->print(<Parameter in Effect + + +ENDTABLETWO + if ($csec) { + $r->print(""); + } + $r->print(< + + + +ENDTABLEHEADFOUR + if ($csec) { + $r->print(''); + } + if ($uname) { + $r->print(''); + } + $r->print(''); map { # ------------------------------------------------------ Entry for one resource + @outpar=(); my $rid=$_; my $thistitle=''; - my @part=(0,1,1); - my @name=('deadline','sig','tol'); - my @display=('Deadline','Significant Figures','Tolerance'); - my @type=('date','int','tolerance'); + my %name= ('0_deadline' => 'deadline'); + my %part= ('0_deadline' => '0'); + my %display=('0_deadline' => 'Deadline'); + my %type= ('0_deadline' => 'date_end'); + my %default=('0_deadline' => time); my %metadata=&Apache::lonmeta::unpackagemeta( &Apache::lonnet::getfile('/home/httpd/html/'.$bighash{'src_'.$rid}.'.meta'),1); map { if ($_=~/^parameter\_(\d+)\_(\w+)$/) { - $part[$#part+1]=$1; - $name[$#name+1]=$2; - ($type[$#type+1],$display[$#display+1])= + my $hashid=$1.'_'.$2; + $part{$hashid}=$1; + $name{$hashid}=$2; + my $tdef; + ($tdef,$display{$hashid})= split(/\_\_dis\_\_/,$metadata{$_}); - unless ($display[$#display]) { - $display[$#display]=$name[$#name]; + ($type{$hashid},$default{$hashid})=split(/\:/,$tdef); + unless ($display{$hashid}) { + $display{$hashid}=$name{$hashid}; } } if ($_ eq 'title') { $thistitle=$metadata{$_}; } } keys %metadata; - my $totalparms=$#name+1; + my $totalparms=scalar keys %name; $r->print(''); - my $i; - for ($i=0;$i<$totalparms;$i++) { - $r->print(""); - $r->print(''); + $r->print(''); + $r->print(''); + map { + + my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_}); + + $r->print(""); + my $mprefix=$rid.'&'.$_.'&'; + + $r->print(''. + &valout($outpar[11],$type{$_}).''); + $r->print(''. + &valout($outpar[10],$type{$_}).''); + + $r->print(''. + &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9', + 'parmform.pres','psub').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8', + 'parmform.pres','psub').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7', + 'parmform.pres','psub').''); + + if ($csec) { + $r->print(''. + &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6', + 'parmform.pres','psub').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5', + 'parmform.pres','psub').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4', + 'parmform.pres','psub').''); + } + + if ($uname) { + $r->print(''. + &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3', + 'parmform.pres','psub').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2', + 'parmform.pres','psub').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1', + 'parmform.pres','psub').''); + } + + $r->print(''); $r->print("\n"); - } + } sort keys %name; # -------------------------------------------------- End entry for one resource } @ids; - $r->print('
Any UserUser $uname at Domain $udom
Resource Levelin Coursein Section/Group $csec
Assessment URL and TitleTypeEnclosing MapPart No.Parameter Namedefaultfrom Enclosing Mapgeneralfor Enclosing Mapfor Resourcegeneralfor Enclosing Mapfor Resourcegeneralfor Enclosing Mapfor Resource
'. - $bighash{'src_'.$rid}.'

'. + join(' / ',split(/\//,&Apache::lonnet::declutter($bighash{'src_'.$rid}))). + '

'. $bighash{'title_'.$rid}); if ($thistitle) { $r->print(' ('.$thistitle.')'); } $r->print('

$part[$i]$display[$i]'.&plink($type[$i],$display[$i],'987684455').''.$typep{$rid}.''. + join(' / ',split(/\//,$mapp{$rid})).'$part{$_}$display{$_}'.&valout($outpar[$result],$type{$_}).'
'); + $r->print(''); untie(%bighash); untie(%parmhash); } @@ -293,7 +524,4 @@ __END__ - - -