--- loncom/interface/lonparmset.pm 2002/08/08 13:44:17 1.56 +++ loncom/interface/lonparmset.pm 2002/08/28 19:48:57 1.65 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.56 2002/08/08 13:44:17 www Exp $ +# $Id: lonparmset.pm,v 1.65 2002/08/28 19:48:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,27 +25,31 @@ # # http://www.lon-capa.org/ # -# (Handler to resolve ambiguous file locations -# -# (TeX Content Handler -# -# YEAR=2000 -# 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,11/25,11/27,11/28, -# 12/08,12/12, -# YEAR=2001 -# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09, -# 07/05,07/06,08/08,08/09,09/01,09/21 Gerd Kortemeyer -# 12/17 Scott Harrison -# 12/19 Guy Albertelli -# 12/26,12/27 Gerd Kortemeyer -# -# YEAR=2002 -# 7/19 Jeremy Bowers -### +################################################################### +################################################################### + +=pod + +=head1 NAME + +lonparmset - Handler to set parameters for assessments and course + +=head1 SYNOPSIS + +lonparmset provides an interface to setting course parameters. + +=head1 DESCRIPTION + +This module sets coursewide and assessment parameters. + +=head1 INTERNAL SUBROUTINES + +=over 4 + +=cut + +################################################################### +################################################################### package Apache::lonparmset; @@ -54,6 +58,8 @@ use Apache::lonnet; use Apache::Constants qw(:common :http REDIRECT); use Apache::loncommon; use GDBM_File; +use Apache::lonhomework; +use Apache::lonxml; my %courseopt; @@ -70,9 +76,25 @@ my $uname; my $udom; my $uhome; my $csec; +my $coursename; + +################################################## +################################################## + +=pod + +=item parmval + +Figure out a cascading parameter. + +Inputs: $what $id $def + +Returns: I am not entirely sure. -# -------------------------------------------- Figure out a cascading parameter +=cut +################################################## +################################################## sub parmval { my ($what,$id,$def)=@_; my $result=''; @@ -154,15 +176,58 @@ sub parmval { return ($result,@outpar); } -# ------------------------------------------------------------ Output for value +################################################## +################################################## +=pod + +=item valout + +Format a value for output. + +Inputs: $value, $type + +Returns: $value, formatted for output. If $type indicates it is a date, +localtime($value) is returned. + +=cut + +################################################## +################################################## sub valout { my ($value,$type)=@_; - return ($value?(($type=~/^date/)?localtime($value):$value):'  '); + my $result = ''; + # Values of zero are valid. + if (! $value && $value ne '0') { + $result = '  '; + } else { + if ($type=~/^date/) { + $result = localtime($value); + } else { + $result = $value; + } + } + return $result; } -# -------------------------------------------------------- Produces link anchor +################################################## +################################################## + +=pod + +=item plink + +Produces a link anchor. + +Inputs: $type,$dis,$value,$marker,$return,$call + +Returns: scalar with html code for a link which will envoke the +javascript function 'pjump'. +=cut + +################################################## +################################################## sub plink { my ($type,$dis,$value,$marker,$return,$call)=@_; my $winvalue=$value; @@ -184,6 +249,9 @@ sub startpage { my ($r,$id,$udom,$csec,$uname)=@_; $r->content_type('text/html'); $r->send_http_header; + + my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', + 'onUnload="pclose()"'); $r->print(< @@ -229,12 +297,17 @@ sub startpage { } } + function openWindow(url, wdwName, w, h, toolbar,scrollbar) { + var options = "width=" + w + ",height=" + h + ","; + options += "resizable=yes,scrollbars="+scrollbar+",status=no,"; + options += "menubar=no,toolbar="+toolbar+",location=no,directories=no"; + var newWin = window.open(url, wdwName, options); + newWin.focus(); + } - -

Set Course Parameters

+$bodytag
-

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

Course Environment

@@ -260,53 +333,253 @@ ENDHEAD sub print_row { my ($r,$which,$part,$name,$rid,$default,$type,$display,$defbgone, - $defbgtwo)=@_; + $defbgtwo,$parmlev)=@_; my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which}, $rid,$$default{$which}); - $r->print("' + .$$part{$which}.''); + } else { + $parm=~s|\[.*\]\s||g; + } + + $r->print(''.$parm.''); + my $thismarker=$which; $thismarker=~s/^parameter\_//; my $mprefix=$rid.'&'.$thismarker.'&'; - &print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,$type,$display); - &print_td($r,10,'#FFDDDD',$result,\@outpar,$mprefix,$_,$type,$display); - &print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); - &print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); - &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); - if ($csec) { - &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); - &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); - &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); - } - if ($uname) { - &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); - &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); - &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + if ($parmlev eq 'general') { + + if ($uname) { + &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + } elsif ($csec) { + &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); + } else { + &print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + } + } elsif ($parmlev eq 'map') { + + if ($uname) { + &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + } elsif ($csec) { + &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); + } else { + &print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + } + } else { + + &print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,$type,$display); + + if ($parmlev eq 'brief') { + + &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + + if ($csec) { + &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); + } + if ($uname) { + &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + } + } else { + + &print_td($r,10,'#FFDDDD',$result,\@outpar,$mprefix,$_,$type,$display); + &print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + &print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + + if ($csec) { + &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); + &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); + &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display); + } + if ($uname) { + &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display); + } + } # end of $brief if/else + } # end of $parmlev if/else + + if ($parmlev eq 'full' || $parmlev eq 'brief') { + $r->print(''. + &valout($outpar[$result],$$type{$which}).''); } - $r->print(''.&valout($outpar[$result],$$type{$which}).''); my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}. - '.'.$$name{$which},$symbp{$rid}); - $r->print(''. - &valout($sessionval,$$type{$which}).' '. - ''); + '.'.$$name{$which},$symbp{$rid}); + $r->print(''. + &valout($sessionval,$$type{$which}).' '. + ''); $r->print(''); + $r->print("\n"); } sub print_td { my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$type,$display)=@_; - $r->print(''. - &plink($$type{$value},$$display{$value},$$outpar[$which], - $mprefix."$which",'parmform.pres','psub').''); + $r->print(''. + &plink($$type{$value},$$display{$value},$$outpar[$which], + $mprefix."$which",'parmform.pres','psub').''."\n"); } +sub get_env_multiple { + my ($name) = @_; + my @values; + if (defined($ENV{$name})) { + # exists is it an array + if (ref($ENV{$name})) { + @values=@{ $ENV{$name} }; + } else { + $values[0]=$ENV{$name}; + } + } + return(@values); +} + +=pod + +=item B: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes. + +Input: See list below: + +=over 4 + +=item B: An array that will contain all of the ids in the course. + +=item B: hash, id->type, where "type" contains the extension of the file, thus, I. + +=item B: hash, id->key list, will contain a comma seperated list of the meta-data keys available for the given id + +=item B: hash, name of parameter->display value (what is the display value?) + +=item B: hash, part identification->text representation of part, where the text representation is "[Part $part]" + +=item B: hash, full key to part->display value (what's display value?) + +=item B: hash, ??? + +=item B: ??? + +=item B: hash, ??? + +=item B: ?? + +=item B: hash, id->full sym? + +=back + +=cut + +sub extractResourceInformation { + my $bighash = shift; + my $ids = shift; + my $typep = shift; + my $keyp = shift; + my $allparms = shift; + my $allparts = shift; + my $allkeys = shift; + my $allmaps = shift; + my $fcat = shift; + my $defp = shift; + my $mapp = shift; + my $symbp = shift; + + foreach (keys %$bighash) { + if ($_=~/^src\_(\d+)\.(\d+)$/) { + my $mapid=$1; + my $resid=$2; + my $id=$mapid.'.'.$resid; + my $srcf=$$bighash{$_}; + if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) { + $$ids[$#$ids+1]=$id; + $$typep{$id}=$1; + $$keyp{$id}=''; + foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) { + if ($_=~/^parameter\_(.*)/) { + my $key=$_; + my $allkey=$1; + $allkey=~s/\_/\./g; + my $display= &Apache::lonnet::metadata($srcf,$key.'.display'); + my $name=&Apache::lonnet::metadata($srcf,$key.'.name'); + my $part= &Apache::lonnet::metadata($srcf,$key.'.part'); + my $parmdis = $display; + $parmdis =~ s|(\[Part.*$)||g; + my $partkey = $part; + $partkey =~ tr|_|.|; + $$allparms{$name} = $parmdis; + $$allparts{$part} = "[Part $part]"; + $$allkeys{$allkey}=$display; + if ($allkey eq $fcat) { + $$defp{$id}= &Apache::lonnet::metadata($srcf,$key); + } + if ($$keyp{$id}) { + $$keyp{$id}.=','.$key; + } else { + $$keyp{$id}=$key; + } + } + } + $$mapp{$id}= + &Apache::lonnet::declutter($$bighash{'map_id_'.$mapid}); + $$mapp{$mapid}=$$mapp{$id}; + $$allmaps{$mapid}=$$mapp{$id}; + $$symbp{$id}=$$mapp{$id}. + '___'.$resid.'___'. + &Apache::lonnet::declutter($srcf); + $$symbp{$mapid}=$$mapp{$id}.'___(all)'; + } + } + } +} + +################################################## +################################################## + +=pod + +=item assessparms + +Show assessment data and parameters. This is a large routine that should +be simplified and shortened... someday. + +Inputs: $r + +Returns: nothing + +Variables used (guessed by Jeremy): + +=over 4 + +=item B: ParameterS CATegories? ends up a list of the types of parameters that exist, e.g., tol, weight, acc, opendate, duedate, answerdate, sig, maxtries, type. + +=item B: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts? + +=item B: + +=back + +=cut + +################################################## +################################################## sub assessparms { my $r=shift; # -------------------------------------------------------- Variable declaration my %allkeys; my %allmaps; + my %alllevs; + + $alllevs{'Resource Level'}='full'; +# $alllevs{'Resource Level [BRIEF]'}='brief'; + $alllevs{'Map Level'}='map'; + $alllevs{'Course Level'}='general'; + + my %allparms; + my %allparts; + my %defp; %courseopt=(); %useropt=(); @@ -322,9 +595,24 @@ sub assessparms { $udom=$ENV{'form.udom'}; unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } - my $pscat=$ENV{'form.pscat'}; + my @pscat=&get_env_multiple('form.pscat'); my $pschp=$ENV{'form.pschp'}; + my @psprt=&get_env_multiple('form.psprt'); + my $showoptions=$ENV{'form.showoptions'}; + my $pssymb=''; + my $parmlev=''; + my $prevvisit=$ENV{'form.prevvisit'}; + +# unless ($parmlev==$ENV{'form.parmlev'}) { +# $parmlev = 'full'; +# } + + unless ($ENV{'form.parmlev'}) { + $parmlev = 'map'; + } else { + $parmlev = $ENV{'form.parmlev'}; + } # ----------------------------------------------- Was this started from grades? @@ -333,12 +621,14 @@ sub assessparms { my $url=$ENV{'form.url'}; $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; $pssymb=&Apache::lonnet::symbread($url); - $pscat='all'; + @pscat='all'; $pschp=''; + $parmlev = 'full'; } elsif ($ENV{'form.symb'}) { $pssymb=$ENV{'form.symb'}; - $pscat='all'; + @pscat='all'; $pschp=''; + $parmlev = 'full'; } else { $ENV{'form.url'}=''; } @@ -390,59 +680,21 @@ sub assessparms { # ------------------------------------------------------------------- Tie hashs if (!(tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', - &GDBM_READER,0640))) { + &GDBM_READER(),0640))) { $r->print("Unable to access course data. (File $ENV{'request.course.fn'}.db not tieable)"); return ; } if (!(tie(%parmhash,'GDBM_File', - $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) { + $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640))) { $r->print("Unable to access parameter data. (File $ENV{'request.course.fn'}_parms.db not tieable)"); return ; } + # --------------------------------------------------------- Get all assessments - foreach (keys %bighash) { - if ($_=~/^src\_(\d+)\.(\d+)$/) { - my $mapid=$1; - my $resid=$2; - my $id=$mapid.'.'.$resid; - my $srcf=$bighash{$_}; - if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) { - $ids[$#ids+1]=$id; - $typep{$id}=$1; - $keyp{$id}=''; - foreach (split(/\,/, - &Apache::lonnet::metadata($srcf,'keys'))) { - if ($_=~/^parameter\_(.*)/) { - my $key=$_; - my $allkey=$1; - $allkey=~s/\_/\./; - my $display= - &Apache::lonnet::metadata($srcf,$key.'.display'); - unless ($display) { - $display= - &Apache::lonnet::metadata($srcf,$key.'.name'); - } - $allkeys{$allkey}=$display; - if ($allkey eq $fcat) { - $defp{$id}= - &Apache::lonnet::metadata($srcf,$key); - } - if ($keyp{$id}) { - $keyp{$id}.=','.$key; - } else { - $keyp{$id}=$key; - } - } - } - $mapp{$id}= - &Apache::lonnet::declutter($bighash{'map_id_'.$mapid}); - $allmaps{$mapid}=$mapp{$id}; - $symbp{$id}=$mapp{$id}. - '___'.$resid.'___'. - &Apache::lonnet::declutter($srcf); - } - } - } + extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp); + + $mapp{'0.0'} = ''; + $symbp{'0.0'} = ''; # ---------------------------------------------------------- Anything to store? if ($ENV{'form.pres_marker'}) { my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); @@ -535,167 +787,509 @@ sub assessparms { 1*$aparm<=>1*$bparm; } } @ids; - +#----------------------------------------------- if all selected, fill in array + if ($pscat[0] eq "all" || !@pscat) {@pscat = (keys %allparms);} + if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);} # ------------------------------------------------------------------ Start page + &startpage($r,$id,$udom,$csec,$uname); # if ($ENV{'form.url'}) { # $r->print(''); # } + $r->print(''); + foreach ('tolerance','date_default','date_start','date_end', 'date_interval','int','float','string') { $r->print(''); } - $r->print('

'.$message.'

Sort list by'); - $r->print(''); + + $r->print(''); + + my $submitmessage; + if (($prevvisit) || ($pschp) || ($pssymb)) { + $submitmessage = "Update Display"; + } else { + $submitmessage = "Display"; } if (!$pssymb) { - $r->print('\n"); + + $r->print(''); + + $r->print(''); + + $r->print(''); + $r->print('\n"); } else { - my ($map,$id,$resource)=split(/___/,$pssymb); - $r->print(''); - $r->print(''); - } - $r->print('"); + $r->print(''); + $r->print(''); + $r->print(''); + } + + $r->print(''); +# $r->print(""); +# $r->print(""); +# $r->print(""); +# $r->print(""); + + if ($showoptions eq 'show') { + my $tempkey; + + $r->print(''); + + $r->print(''); + + $r->print(''); + + $r->print(''); + + } else { # hide options - include any necessary extras here + + $r->print(''."\n"); + + unless (@pscat) { + foreach (keys %allparms ) { + $r->print(''."\n"); + } + } else { + foreach (@pscat) { + $r->print(''."\n"); + } + } + + unless (@psprt) { + foreach (keys %allparts ) { + $r->print(''."\n"); + } + } else { + foreach (@psprt) { + $r->print(''."\n"); + } + } + } - $r->print('
Select Enclosing Map
Select Parameter Level'); + $r->print('
Select Enclosing Map
Specfic Resource 
Select Parameter
Specific Resource$resource
print(" checked ");} + $r->print(' name="showoptions" value="show" onclick="form.submit();">Show More Options
Show: $showoptions
pscat: @pscat
psprt: @psprt
fcat: $fcat
Select Parameters to View
'); + $r->print(''); + + my $cnt=0; + + foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} } + keys %allparms ) { + ++$cnt; + $r->print('') unless ($cnt%2); + $r->print(''); + } + $r->print('
print(' checked') unless (@pscat); + $r->print('>All Parameters
print('value="'.$tempkey.'"'); + if ($pscat[0] eq "all" || grep $_ eq $tempkey, @pscat) { + $r->print(' checked'); + } + $r->print('>'.$allparms{$tempkey}.'
'); + +# $r->print('
Select Parts'); + $r->print('
Sort list by'); + $r->print('

'); - if (($pscat) || ($pschp) || ($pssymb)) { + $r->print('
'); + + my @temp_psprt; + foreach my $t (@psprt) { + push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts)); + } + + @psprt = @temp_psprt; + + my @temp_pscat; + map { + my $cat = $_; + push(@temp_pscat, map { $_.'.'.$cat } @psprt); + } @pscat; + + @pscat = @temp_pscat; + + if (($prevvisit) || ($pschp) || ($pssymb)) { # ----------------------------------------------------------------- Start Table - my $catmarker='parameter_'.$pscat; - $catmarker=~s/\./\_/g; - my $coursespan=$csec?8:5; - my $csuname=$ENV{'user.name'}; - my $csudom=$ENV{'user.domain'}; - $r->print(< - - -ENDTABLEHEAD - if ($uname) { - $r->print(""); - } - $r->print(<print('

Any UserUser $uname at Domain $udom
'); + $r->print(''); + $r->print(''); + if ($uname) { + $r->print(""); + } + $r->print(<Parameter in Effect - - + ENDTABLETWO - if ($csec) { - $r->print(""); - } - $r->print(<print(""); + } + $r->print(< ENDTABLEHEADFOUR - if ($csec) { - $r->print(''); - } - if ($uname) { - $r->print(''); - } - $r->print(''); - my $defbgone=''; - my $defbgtwo=''; - foreach (@ids) { - my $rid=$_; - my ($inmapid)=($rid=~/\.(\d+)$/); - if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}) || - ($pssymb eq $symbp{$rid})) { + + if ($csec) { + $r->print(''); + } + + if ($uname) { + $r->print(''); + } + + $r->print(''); + + my $defbgone=''; + my $defbgtwo=''; + + foreach (@ids) { + + my $rid=$_; + my ($inmapid)=($rid=~/\.(\d+)$/); + + if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}) || + ($pssymb eq $symbp{$rid})) { # ------------------------------------------------------ Entry for one resource - if ($defbgone eq '"E0E099"') { - $defbgone='"E0E0DD"'; - } else { - $defbgone='"E0E099"'; - } - if ($defbgtwo eq '"FFFF99"') { - $defbgtwo='"FFFFDD"'; - } else { - $defbgtwo='"FFFF99"'; - } - my $thistitle=''; - my %name= (); - undef %name; - my %part= (); - my %display=(); - my %type= (); - my %default=(); - my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid}); - - foreach (split(/\,/,$keyp{$rid})) { - if (($_ eq $catmarker) || ($pscat eq 'all')) { - $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part'); - $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name'); - $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); - unless ($display{$_}) { $display{$_}=''; } - $display{$_}.=' ('.$name{$_}.')'; - $default{$_}=&Apache::lonnet::metadata($uri,$_); - $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); - $thistitle=&Apache::lonnet::metadata($uri,$_.'.title'); - } - } - my $totalparms=scalar keys %name; - if ($totalparms>0) { - my $firstrow=1; - $r->print(''); - $r->print(''); - $r->print(''); - foreach (sort keys %name) { - unless ($firstrow) { - $r->print(''); - } else { - $firstrow=0; - } - &print_row($r,$_,\%part,\%name,$rid,\%default, - \%type,\%display,$defbgone,$defbgtwo); - } - } + if ($defbgone eq '"E0E099"') { + $defbgone='"E0E0DD"'; + } else { + $defbgone='"E0E099"'; + } + if ($defbgtwo eq '"FFFF99"') { + $defbgtwo='"FFFFDD"'; + } else { + $defbgtwo='"FFFF99"'; + } + my $thistitle=''; + my %name= (); + undef %name; + my %part= (); + my %display=(); + my %type= (); + my %default=(); + my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid}); + + foreach (split(/\,/,$keyp{$rid})) { + my $tempkeyp = $_; + if (grep $_ eq $tempkeyp, @catmarker) { + $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part'); + $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name'); + $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); + unless ($display{$_}) { $display{$_}=''; } + $display{$_}.=' ('.$name{$_}.')'; + $default{$_}=&Apache::lonnet::metadata($uri,$_); + $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); + $thistitle=&Apache::lonnet::metadata($uri,$_.'.title'); + } + } + my $totalparms=scalar keys %name; + if ($totalparms>0) { + my $firstrow=1; + + $r->print(''); + $r->print(''); + + $r->print(''); + + foreach (sort keys %name) { + unless ($firstrow) { + $r->print(''); + } else { + undef $firstrow; + } + + &print_row($r,$_,\%part,\%name,$rid,\%default, + \%type,\%display,$defbgone,$defbgtwo, + $parmlev); + } + } + } + } # end foreach ids # -------------------------------------------------- End entry for one resource - } - } - $r->print('
Any User"); + $r->print("User $uname at Domain $udomCurrent Session Value
($csuname at $csudom)
Resource Level
Resource Level in Coursein Section/Group $csecin Section/Group $csec
Assessment URL and TitleType Enclosing MapPart No.Parameter Name defaultfrom Enclosing Map generalfor Enclosing Mapfor Resourcegeneralfor Enclosing Mapfor Resourcegeneralfor Enclosing Mapfor Resource
generalfor Enclosing Mapfor Resourcegeneralfor Enclosing Mapfor Resource
'. - join(' / ',split(/\//,$uri)). - '

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

'.$typep{$rid}.''. - join(' / ',split(/\//,$mapp{$rid})).'
'. + join(' / ',split(/\//,$uri)). + '

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

'.$typep{$rid}. + ''); + + $r->print(' / res / '); + $r->print(join(' / ', split(/\//,$mapp{$rid}))); + + $r->print('
'); + $r->print(''); + } # end of brief/full +#--------------------------------------------------- Entry for parm level map + if ($parmlev eq 'map') { + my $defbgone = '"E0E099"'; + my $defbgtwo = '"FFFF99"'; + + my %maplist; + + if ($pschp eq 'all') { + %maplist = %allmaps; + } else { + %maplist = ($pschp => $mapp{$pschp}); + } + +#-------------------------------------------- for each map, gather information + my $mapid; + foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) { + my $maptitle = $maplist{$mapid}; + +#----------------------- loop through ids and get all parameter types for map +#----------------------------------------- and associated information + my %name = (); + my %part = (); + my %display = (); + my %type = (); + my %default = (); + my $map = 0; + +# $r->print("Catmarker: @catmarker
\n"); + + foreach (@ids) { + ($map)=(/([\d]*?)\./); + my $rid = $_; + +# $r->print("$mapid:$map: $rid
\n"); + + if ($map eq $mapid) { + my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid}); +# $r->print("Keys: $keyp{$rid}
\n"); + +#-------------------------------------------------------------------- +# @catmarker contains list of all possible parameters including part #s +# $fullkeyp contains the full part/id # for the extraction of proper parameters +# $tempkeyp contains part 0 only (no ids - ie, subparts) +# When storing information, store as part 0 +# When requesting information, request from full part +#------------------------------------------------------------------- + foreach (split(/\,/,$keyp{$rid})) { + my $tempkeyp = $_; + my $fullkeyp = $tempkeyp; + $tempkeyp =~ s/_[\d_]+_/_0_/; + + if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) { + $part{$tempkeyp}="0"; + $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name'); + $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display'); + unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; } + $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')'; + $display{$tempkeyp} =~ s/_[\d_]+_/_0_/; + $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp); + $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type'); + } + } # end loop through keys + } + } # end loop through ids + +#---------------------------------------------------- print header information + $r->print(<

+Set Defaults for All Resources in map +$maptitle
+Specifically for +ENDMAPONE + if ($uname) { + my %name=&Apache::lonnet::userenvironment($udom,$uname, + ('firstname','middlename','lastname','generation', 'id')); + my $person=$name{'firstname'}.' '.$name{'middlename'}.' ' + .$name{'lastname'}.' '.$name{'generation'}; + $r->print("User $uname \($person\) in \n"); + } else { + $r->print("all users in \n"); + } + + if ($csec) {$r->print("Section $csec of \n")}; + + $r->print("$coursename
"); + $r->print("

\n"); +#---------------------------------------------------------------- print table + $r->print('

'); + $r->print(''); + $r->print(''); + $r->print(''); + + foreach (sort keys %name) { + &print_row($r,$_,\%part,\%name,$mapid,\%default, + \%type,\%display,$defbgone,$defbgtwo, + $parmlev); +# $r->print("\n"); + } + $r->print("
Parameter NameDefault ValueParameter in Effect
resource.$part{$_}.$name{$_},$symbp{$mapid}
"); + } # end each map + } # end of $parmlev eq map +#--------------------------------- Entry for parm level general (Course level) + if ($parmlev eq 'general') { + my $defbgone = '"E0E099"'; + my $defbgtwo = '"FFFF99"'; + +#-------------------------------------------- for each map, gather information + my $mapid="0.0"; +#----------------------- loop through ids and get all parameter types for map +#----------------------------------------- and associated information + my %name = (); + my %part = (); + my %display = (); + my %type = (); + my %default = (); + + foreach (@ids) { + my $rid = $_; + + my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid}); + +#-------------------------------------------------------------------- +# @catmarker contains list of all possible parameters including part #s +# $fullkeyp contains the full part/id # for the extraction of proper parameters +# $tempkeyp contains part 0 only (no ids - ie, subparts) +# When storing information, store as part 0 +# When requesting information, request from full part +#------------------------------------------------------------------- + foreach (split(/\,/,$keyp{$rid})) { + my $tempkeyp = $_; + my $fullkeyp = $tempkeyp; + $tempkeyp =~ s/_[\d_]+_/_0_/; + if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) { + $part{$tempkeyp}="0"; + $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name'); + $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display'); + unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; } + $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')'; + $display{$tempkeyp} =~ s/_[\d_]+_/_0_/; + $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp); + $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type'); + } + } # end loop through keys + } # end loop through ids + +#---------------------------------------------------- print header information + $r->print(<

+Set Defaults for All Resources in Course +$coursename
+ENDMAPONE + if ($uname) { + my %name=&Apache::lonnet::userenvironment($udom,$uname, + ('firstname','middlename','lastname','generation', 'id')); + my $person=$name{'firstname'}.' '.$name{'middlename'}.' ' + .$name{'lastname'}.' '.$name{'generation'}; + $r->print(" User $uname \($person\) \n"); + } else { + $r->print("ALL USERS \n"); + } + + if ($csec) {$r->print("Section $csec\n")}; + $r->print("

\n"); +#---------------------------------------------------------------- print table + $r->print('

'); + $r->print(''); + $r->print(''); + $r->print(''); + + foreach (sort keys %name) { + &print_row($r,$_,\%part,\%name,$mapid,\%default, + \%type,\%display,$defbgone,$defbgtwo,$parmlev); +# $r->print("\n"); + } + $r->print("
Parameter NameDefault ValueParameter in Effect
resource.$part{$_}.$name{$_},$symbp{$mapid}
"); + } # end of $parmlev eq general } $r->print(''); untie(%bighash); untie(%parmhash); -} +} # end sub assessparms + -# Set course environment parameters +################################################## +################################################## + +=pod + +=item crsenv + +Show course data and parameters. This is a large routine that should +be simplified and shortened... someday. + +Inputs: $r + +Returns: nothing + +=cut + +################################################## +################################################## sub crsenv { my $r=shift; my $setoutput=''; + my $bodytag=&Apache::loncommon::bodytag( + 'Set Course Environment Parameters'); my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; # -------------------------------------------------- Go through list of changes @@ -708,12 +1302,13 @@ sub crsenv { } if ($name eq 'url') { $value=~s/^\/res\///; + my $bkuptime=time; my @tmp = &Apache::lonnet::get ('environment',['url'],$dom,$crs); $setoutput.='Backing up previous URL: '. &Apache::lonnet::put ('environment', - {'top level map backup ' => $tmp[1] }, + {'top level map backup '.$bkuptime => $tmp[1] }, $dom,$crs). '
'; } @@ -836,11 +1431,8 @@ sub crsenv { LON-CAPA Course Environment - -

Set Course Parameters

+$bodytag
-

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

-

Course Environment

$setoutput

@@ -854,8 +1446,19 @@ $output ENDENV } -# ================================================================ Main Handler +################################################## +################################################## +=pod + +=item handler + +Main handler. Calls &assessparms and &crsenv subroutines. + +=cut + +################################################## +################################################## sub handler { my $r=shift; @@ -869,6 +1472,8 @@ sub handler { if (($ENV{'request.course.id'}) && (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { + + $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; unless (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) { # --------------------------------------------------------- Bring up assessment @@ -889,70 +1494,7 @@ sub handler { 1; __END__ - -=head1 NAME - -Apache::lonparmset - Handler to set parameters for assessments - -=head1 SYNOPSIS - -Invoked by /etc/httpd/conf/srm.conf: - - - PerlAccessHandler Apache::lonacc - SetHandler perl-script - PerlHandler Apache::lonparmset - ErrorDocument 403 /adm/login - ErrorDocument 406 /adm/roles - ErrorDocument 500 /adm/errorhandler - - -=head1 INTRODUCTION - -This module sets assessment parameters. - -This is part of the LearningOnline Network with CAPA project -described at http://www.lon-capa.org. - -=head1 HANDLER SUBROUTINE - -This routine is called by Apache and mod_perl. - -=over 4 - -=item * - -need to be in course - -=item * - -bring up assessment screen or course environment - -=back - -=head1 OTHER SUBROUTINES - -=over 4 - -=item * - -parmval() : figure out a cascading parameter - -=item * - -valout() : format a value for output - -=item * - -plink() : produces link anchor - -=item * - -assessparms() : show assess data and parameters - -=item * - -crsenv() : for the course environment +=pod =back