-Section/Group:
-Sort list by ');
- $r->print('');
- my $k;
- my @sopt=('map','Map','name','Problem Name','deadline','Deadline');
- for ($k=0;$k<$#sopt;$k=$k+2) {
- $r->print('print(' selected'); }
- $r->print('>'.$sopt[$k+1].' ');
+ }
+}
+
+sub print_row {
+ my ($r,$which,$part,$name,$rid,$default,$defaulttype,$display,$defbgone,
+ $defbgtwo,$parmlev,$uname,$udom,$csec)=@_;
+# get the values for the parameter in cascading order
+# empty levels will remain empty
+ my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},
+ $rid,$$default{$which},$uname,$udom,$csec);
+# get the type for the parameters
+# problem: these may not be set for all levels
+ my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.
+ $$name{$which}.'.type',
+ $rid,$$defaulttype{$which},$uname,$udom,$csec);
+# cascade down manually
+ my $cascadetype=$$defaulttype{$which};
+ for (my $i=11;$i>0;$i--) {
+ if ($typeoutpar[$i]) {
+ $cascadetype=$typeoutpar[$i];
+ } else {
+ $typeoutpar[$i]=$cascadetype;
}
- $r->print(' ');
-# ----------------------------------------------------------------- Start Table
- my $coursespan=$csec?8:5;
- $r->print(<
-Any User
-ENDTABLEHEAD
- if ($uname) {
- $r->print("User $uname at Domain $udom ");
}
- $r->print(<Parameter in Effect Resource Level
-in Course
-ENDTABLETWO
- if ($csec) {
- $r->print("in Section/Group $csec ");
+ my $parm=$$display{$which};
+
+ if ($parmlev eq 'full' || $parmlev eq 'brief') {
+ $r->print(''
+ .$$part{$which}.' ');
+ } else {
+ $parm=~s|\[.*\]\s||g;
}
- $r->print(<Assessment URL and Title Type
-Enclosing Map Part No. Parameter Name
-default from Enclosing Map
-general for Enclosing Map for Resource
-ENDTABLEHEADFOUR
- if ($csec) {
- $r->print('general for Enclosing Map for Resource ');
+
+ $r->print(''.$parm.' ');
+
+ my $thismarker=$which;
+ $thismarker=~s/^parameter\_//;
+ my $mprefix=$rid.'&'.$thismarker.'&';
+
+ if ($parmlev eq 'general') {
+
+ if ($uname) {
+ &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } elsif ($csec) {
+ &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } else {
+ &print_td($r,11,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ }
+ } elsif ($parmlev eq 'map') {
+
+ if ($uname) {
+ &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } elsif ($csec) {
+ &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } else {
+ &print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ }
+ } else {
+
+ &print_td($r,11,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+
+ if ($parmlev eq 'brief') {
+
+ &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+
+ if ($csec) {
+ &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ }
+ if ($uname) {
+ &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ }
+ } else {
+
+ &print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,9,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,8,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+
+ if ($csec) {
+ &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ }
+ if ($uname) {
+ &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ }
+ } # end of $brief if/else
+ } # end of $parmlev if/else
+
+ $r->print(''.
+ &valout($outpar[$result],$typeoutpar[$result]).' ');
+
+ if ($parmlev eq 'full' || $parmlev eq 'brief') {
+ my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
+ '.'.$$name{$which},$symbp{$rid});
+
+# this doesn't seem to work, and I don't think is correct
+# my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
+# '.'.$$name{$which}.'.type',$symbp{$rid});
+# this seems to work
+ my $sessionvaltype=$typeoutpar[$result];
+ if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
+ $r->print(''.
+ &valout($sessionval,$sessionvaltype).' '.
+ ' ');
+ if ($which<8 || $which > 9) {
+ $r->print(&plink($$typeoutpar[$which],
+ $$display{$value},$$outpar[$which],
+ $mprefix."$which",'parmform.pres','psub'));
+ } else {
+ $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
+ }
+ $r->print(' '."\n");
+}
+
+=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 separated 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 $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;
+ my $maptitles=shift;
+ my $uris=shift;
+
+
+ my $navmap = Apache::lonnavmaps::navmap->new();
+ my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);
+ foreach my $resource (@allres) {
+ my $id=$resource->id();
+ my ($mapid,$resid)=split(/\./,$id);
+ if ($mapid eq '0') { next; }
+ $$ids[$#$ids+1]=$id;
+ my $srcf=$resource->src();
+ $srcf=~/\.(\w+)$/;
+ $$typep{$id}=$1;
+ $$keyp{$id}='';
+ $$uris{$id}=$srcf;
+ foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
+ if ($_=~/^parameter\_(.*)/) {
+ my $key=$_;
+ my $allkey=$1;
+ $allkey=~s/\_/\./g;
+ if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq
+ 'parm') {
+ next; #hide hidden things
+ }
+ 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($resource->enclosing_map_src());
+ $$mapp{$mapid}=$$mapp{$id};
+ $$allmaps{$mapid}=$$mapp{$id};
+ if ($mapid eq '1') {
+ $$maptitles{$mapid}='Main Course Documents';
+ } else {
+ $$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id}));
+ }
+ $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
+ $$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$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=();
+
+ my $uname;
+ my $udom;
+ my $uhome;
+ my $csec;
+
+ my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
+
+ $alllevs{'Resource Level'}='full';
+ $alllevs{'Map Level'}='map';
+ $alllevs{'Course Level'}='general';
+
+ my %allparms;
+ my %allparts;
+
+ my %defp;
+
+ @ids=();
+ %symbp=();
+ %typep=();
+
+ my $message='';
+
+ $csec=$env{'form.csec'};
+
+ if ($udom=$env{'form.udom'}) {
+ } elsif ($udom=$env{'request.role.domain'}) {
+ } elsif ($udom=$env{'user.domain'}) {
+ } else {
+ $udom=$r->dir_config('lonDefDomain');
+ }
+
+ my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
+ my $pschp=$env{'form.pschp'};
+ my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
+ if (!@psprt) { $psprt[0]='0'; }
+ my $showoptions=$env{'form.showoptions'};
+
+ my $pssymb='';
+ my $parmlev='';
+ my $trimheader='';
+ my $prevvisit=$env{'form.prevvisit'};
+
+ unless ($env{'form.parmlev'}) {
+ $parmlev = 'map';
+ } else {
+ $parmlev = $env{'form.parmlev'};
+ }
+
+# ----------------------------------------------- Was this started from grades?
+
+ if (($env{'form.command'} eq 'set') && ($env{'form.url'})
+ && (!$env{'form.dis'})) {
+ my $url=$env{'form.url'};
+ $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
+ $pssymb=&Apache::lonnet::symbread($url);
+ if (!@pscat) { @pscat=('all'); }
+ $pschp='';
+ $parmlev = 'full';
+ $trimheader='yes';
+ } elsif ($env{'form.symb'}) {
+ $pssymb=$env{'form.symb'};
+ if (!@pscat) { @pscat=('all'); }
+ $pschp='';
+ $parmlev = 'full';
+ $trimheader='yes';
+ } else {
+ $env{'form.url'}='';
}
+
+ my $id=$env{'form.id'};
+ if (($id) && ($udom)) {
+ $uname=(&Apache::lonnet::idget($udom,$id))[1];
+ if ($uname) {
+ $id='';
+ } else {
+ $message=
+ "".&mt("Unknown ID")." '$id' ".
+ &mt('at domain')." '$udom' ";
+ }
+ } else {
+ $uname=$env{'form.uname'};
+ }
+ unless ($udom) { $uname=''; }
+ $uhome='';
if ($uname) {
- $r->print('general for Enclosing Map for Resource ');
+ $uhome=&Apache::lonnet::homeserver($uname,$udom);
+ if ($uhome eq 'no_host') {
+ $message=
+ "".&mt("Unknown user")." '$uname' ".
+ &mt("at domain")." '$udom' ";
+ $uname='';
+ } else {
+ $csec=&Apache::lonnet::getsection($udom,$uname,
+ $env{'request.course.id'});
+ if ($csec eq '-1') {
+ $message="".
+ &mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
+ &mt("not in this course")." ";
+ $uname='';
+ $csec=$env{'form.csec'};
+ } else {
+ my %name=&Apache::lonnet::userenvironment($udom,$uname,
+ ('firstname','middlename','lastname','generation','id'));
+ $message="\n\n".&mt("Full Name").": ".
+ $name{'firstname'}.' '.$name{'middlename'}.' '
+ .$name{'lastname'}.' '.$name{'generation'}.
+ "
';
+ }
+ }
+ }
+
+ unless ($csec) { $csec=''; }
+
+ my $fcat=$env{'form.fcat'};
+ unless ($fcat) { $fcat=''; }
+
+# --------------------------------------------------------- Get all assessments
+ &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles,\%uris);
+
+ $mapp{'0.0'} = '';
+ $symbp{'0.0'} = '';
+
+# ---------------------------------------------------------- Anything to store?
+ if ($env{'form.pres_marker'}) {
+ $message.=&storeparm(split(/\&/,$env{'form.pres_marker'}),
+ $env{'form.pres_value'},
+ $env{'form.pres_type'},
+ $uname,$udom,$csec);
+# ---------------------------------------------------------------- Done storing
+ $message.='
'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').' ';
+ }
+# --------------------------------------------- Devalidate cache for this child
+ &Apache::lonnet::devalidatecourseresdata(
+ $env{'course.'.$env{'request.course.id'}.'.num'},
+ $env{'course.'.$env{'request.course.id'}.'.domain'});
+ #&Apache::lonnet::clear_EXT_cache_status();
+
+# ------------------------------------------------------------------- Sort this
+
+ @ids=sort {
+ if ($fcat eq '') {
+ $a<=>$b;
+ } else {
+ my ($result,@outpar)=&parmval($fcat,$a,$defp{$a},$uname,$udom,$csec);
+ my $aparm=$outpar[$result];
+ ($result,@outpar)=&parmval($fcat,$b,$defp{$b},$uname,$udom,$csec);
+ my $bparm=$outpar[$result];
+ 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
+
+ my $have_assesments=1;
+ if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
+
+ $trimheader = 'yes';
+ &startpage($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader);
+
+# if ($env{'form.url'}) {
+# $r->print(''.$message.' ');
- map {
+ $r->print('
');
+ $r->print(''.&mt('Any User').' ');
+ if ($uname) {
+ $r->print("");
+ $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom ");
+ }
+ my %lt=&Apache::lonlocal::texthash(
+ 'pie' => "Parameter in Effect",
+ 'csv' => "Current Session Value",
+ 'at' => 'at',
+ 'rl' => "Resource Level",
+ 'ic' => 'in Course',
+ 'aut' => "Assessment URL and Title",
+ 'type' => 'Type',
+ 'emof' => "Enclosing Map or Folder",
+ 'part' => 'Part',
+ 'pn' => 'Parameter Name',
+ 'def' => 'default',
+ 'femof' => 'from Enclosing Map or Folder',
+ 'gen' => 'general',
+ 'foremf' => 'for Enclosing Map or Folder',
+ 'fr' => 'for Resource'
+ );
+ $r->print(<$lt{'pie'}
+$lt{'csv'}
+ $lt{'ic'} $lt{'rl'}
+$lt{'ic'}
+
+ENDTABLETWO
+ if ($csec) {
+ $r->print("".
+ &mt("in Section/Group")." $csec ");
+ }
+ $r->print(<$lt{'aut'} $lt{'type'}
+$lt{'emof'} $lt{'part'} $lt{'pn'}
+$lt{'gen'} $lt{'foremf'}
+$lt{'def'} $lt{'femof'} $lt{'fr'}
+ENDTABLEHEADFOUR
+
+ if ($csec) {
+ $r->print(''.&mt('general').' '.&mt('for Enclosing Map or Folder').' '.&mt('for Resource').' ');
+ }
+
+ if ($uname) {
+ $r->print(''.&mt('general').' '.&mt('for Enclosing Map or Folder').' '.&mt('for Resource').' ');
+ }
+
+ $r->print(''.
+ join(' / ',split(/\//,$uri)).
+ ' '.
+ "$title");
+
+ if ($thistitle) {
+ $r->print(' ('.$thistitle.')');
+ }
+ $r->print('
'.$typep{$rid}.
+ ' ');
+
+ $r->print('');
+
+ $r->print(' / res / ');
+ $r->print(join(' / ', split(/\//,$mapp{$rid})));
+
+ $r->print(' ');
+ } else {
+ undef $firstrow;
+ }
+
+ &print_row($r,$_,\%part,\%name,$rid,\%default,
+ \%type,\%display,$defbgone,$defbgtwo,
+ $parmlev,$uname,$udom,$csec);
+ }
}
}
- if ($_ eq 'title') {
- $thistitle=$metadata{$_};
- }
- } keys %metadata;
- my $totalparms=scalar keys %name;
- $r->print(''.
- join(' / ',split(/\//,&Apache::lonnet::declutter($bighash{'src_'.$rid}))).
- ' '.
- $bighash{'title_'.$rid});
- if ($thistitle) {
- $r->print(' ('.$thistitle.')');
- }
- $r->print('
'.$typep{$rid}.' ');
- $r->print(''.
- join(' / ',split(/\//,$mapp{$rid})).' $part{$_} $display{$_} ");
-
- $r->print(''.&valout($outpar[11],$type{$_}).' ');
- $r->print(''.&valout($outpar[10],$type{$_}).' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[9]).' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[8]).' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[7]).' ');
- if ($csec) {
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[6]).' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[5]).' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[4]).' ');
- }
- if ($uname) {
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[3]).' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[2]).' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[1]).' ');
- }
- $r->print(''.&valout($outpar[$result],$type{$_}).' ');
- $r->print(" \n");
- } sort keys %name;
+ } # end foreach ids
# -------------------------------------------------- End entry for one resource
- } @ids;
- $r->print('