+
+
+
+
ENDHEAD
+}
+
+
+sub print_row {
+ my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,
+ $defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups)=@_;
+ my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+ my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
+# 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,$cgroup,$courseopt);
+# 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,$cgroup,$courseopt);
+# cascade down manually
+ my $cascadetype=$$defaulttype{$which};
+ for (my $i=14;$i>0;$i--) {
+ if ($typeoutpar[$i]) {
+ $cascadetype=$typeoutpar[$i];
+ } else {
+ $typeoutpar[$i]=$cascadetype;
+ }
+ }
+ my $parm=$$display{$which};
+
+ if ($parmlev eq 'full') {
+ $r->print('| '
+ .$$part{$which}.' | ');
+ } else {
+ $parm=~s|\[.*\]\s||g;
+ }
+ my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
+ if ($automatic) {
+ $parm.='
'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'';
+ }
+ $r->print(''.$parm.' | ');
+
+ my $thismarker=$which;
+ $thismarker=~s/^parameter\_//;
+ my $mprefix=$rid.'&'.$thismarker.'&';
+ my $effective_parm = &valout($outpar[$result],$typeoutpar[$result]);
+ my ($othergrp,$grp_parm,$controlgrp);
+
+ if ($parmlev eq 'general') {
+
+ if ($uname) {
+ &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } elsif ($cgroup) {
+ &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } elsif ($csec) {
+ &print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } else {
+ &print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ }
+ } elsif ($parmlev eq 'map') {
+
+ if ($uname) {
+ &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } elsif ($cgroup) {
+ &print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } elsif ($csec) {
+ &print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ } else {
+ &print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ }
+ } else {
+ if ($uname) {
+ if (@{$usersgroups} > 1) {
+ my ($coursereply,$grp_parm,$controlgrp);
+ ($coursereply,$othergrp,$grp_parm,$controlgrp) =
+ &print_usergroups($r,$$part{$which}.'.'.$$name{$which},
+ $rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);
+ if ($coursereply && $result > 3) {
+ if (defined($controlgrp)) {
+ if ($cgroup ne $controlgrp) {
+ $effective_parm = $grp_parm;
+ $result = 0;
+ }
+ }
+ }
+ }
+ }
+
+ &print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+
+ &print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
+ &print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
- $r->print($message.'Sort list by ');
- $r->print('');
-# ----------------------------------------------------------------- Start Table
- my $coursespan=$csec?8:5;
- $r->print(<
- |
-Any User |
-ENDTABLEHEAD
- if ($uname) {
- $r->print("User $uname at Domain $udom | ");
+
+ if ($uname) {
+ if ($othergrp) {
+ $r->print($othergrp);
+ }
+ &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 $parmlev if/else
+ $r->print(''.$effective_parm.' | ');
+
+ if ($parmlev eq 'full') {
+ my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
+ '.'.$$name{$which},$$symbp{$rid});
+ my $sessionvaltype=$typeoutpar[$result];
+ if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
+ $r->print(''.
+ &valout($sessionval,$sessionvaltype).' '.
+ ' | ');
}
- $r->print(<Parameter in Effect
|---|
|
-Resource Level |
-in Course |
-ENDTABLETWO
- if ($csec) {
- $r->print("in Section/Group $csec | ");
+ $r->print('
|---|
');
+ $r->print("\n");
+}
+
+sub print_td {
+ my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
+ $r->print('');
+ if ($which<11 || $which > 12) {
+ $r->print(&plink($$typeoutpar[$which],
+ $$display{$value},$$outpar[$which],
+ $mprefix."$which",'parmform.pres','psub'));
+ } else {
+ $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
}
- $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(''."\n");
+}
+
+sub print_usergroups {
+ my ($r,$what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;
+ my $courseid = $env{'request.course.id'};
+ my $output;
+ my $symb = &symbcache($rid);
+ my $symbparm=$symb.'.'.$what;
+ my $map=(&Apache::lonnet::decode_symb($symb))[0];
+ my $mapparm=$map.'___(all).'.$what;
+ my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype) =
+ &parm_control_group($courseid,$usersgroups,$symbparm,$mapparm,$what,
+ $courseopt);
+ my $bgcolor = $defbg;
+ my $grp_parm;
+ if (($coursereply) && ($cgroup ne $resultgroup)) {
+ if ($result > 3) {
+ $bgcolor = '"#AAFFAA"';
+ $grp_parm = &valout($coursereply,$resulttype);
+ }
+ $grp_parm = &valout($coursereply,$resulttype);
+ $output = '';
+ if ($resultgroup && $resultlevel) {
+ $output .= ''.$resultgroup.' ('.$resultlevel.'): '.$grp_parm;
+ } else {
+ $output .= ' ';
+ }
+ $output .= ' | ';
+ } else {
+ $output .= ' | ';
}
- if ($uname) {
- $r->print('general | for Enclosing Map | for Resource | ');
+ return ($coursereply,$output,$grp_parm,$resultgroup);
+}
+
+sub parm_control_group {
+ my ($courseid,$usersgroups,$symbparm,$mapparm,$what,$courseopt) = @_;
+ my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);
+ my $grpfound = 0;
+ my @levels = ($symbparm,$mapparm,$what);
+ my @levelnames = ('resource','map/folder','general');
+ foreach my $group (@{$usersgroups}) {
+ if ($grpfound) { last; }
+ for (my $i=0; $i<@levels; $i++) {
+ my $item = $courseid.'.['.$group.'].'.$levels[$i];
+ if (defined($$courseopt{$item})) {
+ $coursereply = $$courseopt{$item};
+ $resultitem = $item;
+ $resultgroup = $group;
+ $resultlevel = $levelnames[$i];
+ $resulttype = $$courseopt{$item.'.type'};
+ $grpfound = 1;
+ last;
+ }
+ }
}
- $r->print('
|---|
');
- map {
-# ------------------------------------------------------ Entry for one resource
- @outpar=();
- my $rid=$_;
- my $thistitle='';
- 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+)$/) {
- my $hashid=$1.'_'.$2;
- $part{$hashid}=$1;
- $name{$hashid}=$2;
- my $tdef;
- ($tdef,$display{$hashid})=
- split(/\_\_dis\_\_/,$metadata{$_});
- ($type{$hashid},$default{$hashid})=split(/\:/,$tdef);
- unless ($display{$hashid}) {
- $display{$hashid}=$name{$hashid};
+ return($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);
+}
+
+=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 $allmaps = shift;
+ my $mapp = shift;
+ my $symbp = shift;
+ my $maptitles=shift;
+ my $uris=shift;
+ my $keyorder=shift;
+ my $defkeytype=shift;
+
+ my $keyordercnt=100;
+
+ 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=$_;
+# Hidden parameters
+ if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 'parm') {
+ next;
+ }
+ my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
+ my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
+ my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
+#
+# allparms is a hash of parameter names
+#
+ my $parmdis = $display;
+ $parmdis =~ s/\[Part.*$//g;
+ $$allparms{$name}=$parmdis;
+ $$defkeytype{$name}=&Apache::lonnet::metadata($srcf,$key.'.type');
+#
+# allparts is a hash of all parts
+#
+ $$allparts{$part} = "Part: $part";
+#
+# Remember all keys going with this resource
+#
+ if ($$keyp{$id}) {
+ $$keyp{$id}.=','.$key;
+ } else {
+ $$keyp{$id}=$key;
+ }
+#
+# Put in order
+#
+ unless ($$keyorder{$key}) {
+ $$keyorder{$key}=$keyordercnt;
+ $keyordercnt++;
+ }
+
+ }
+ }
+ $$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)';
+ }
+}
+
+
+##################################################
+##################################################
+
+sub isdateparm {
+ my $type=shift;
+ return (($type=~/^date/) && (!($type eq 'date_interval')));
+}
+
+sub parmmenu {
+ my ($r,$allparms,$pscat,$keyorder)=@_;
+ my $tempkey;
+ $r->print(<
+ function checkall(value, checkName) {
+ for (i=0; i
+ENDSCRIPT
+ $r->print();
+ $r->print("\n');
+}
+
+sub partmenu {
+ my ($r,$allparts,$psprt)=@_;
+ $r->print('');
+}
+
+sub usermenu {
+ my ($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,$usersgroups)=@_;
+ my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
+ &Apache::loncommon::selectstudent_link('parmform','uname','udom');
+ my $selscript=&Apache::loncommon::studentbrowser_javascript();
+ my %lt=&Apache::lonlocal::texthash(
+ 'se' => "Section",
+ 'gr' => "Group",
+ 'fu' => "For User",
+ 'oi' => "or ID",
+ 'ad' => "at Domain"
+ );
+ my %sectionhash=();
+ my $sections='';
+ my $numsec = &Apache::loncommon::get_sections(
+ $env{'course.'.$env{'request.course.id'}.'.domain'},
+ $env{'course.'.$env{'request.course.id'}.'.num'},
+ \%sectionhash);
+ my $groups;
+ my %grouphash;
+ my $numgrp = &Apache::loncommon::coursegroups(
+ \%grouphash,
+ $env{'course.'.$env{'request.course.id'}.'.domain'},
+ $env{'course.'.$env{'request.course.id'}.'.num'});
+ if ($numsec > 0) {
+ $sections=$lt{'se'}.': ';
+ }
+ if ($numsec && $numgrp && $parmlev ne 'full') {
+ $sections .= ' or ';
+ $sections .= qq|
+
+|;
+ } else {
+ $sections .= qq|
+
+|;
+ }
+ if ($numgrp > 0) {
+ $groups=$lt{'gr'}.': ';
+ }
+ $r->print(<
+$sections
+$groups
+
+$lt{'fu'}
+
+$lt{'oi'}
+
+$lt{'ad'}
+$chooseopt
+
+ENDMENU
+}
+
+sub displaymenu {
+ my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;
+ $r->print('| '.&mt('Select Parameters to View').' | '.
+ &mt('Select Parts to View').' |
|---|
| ');
+ &parmmenu($r,$allparms,$pscat,$keyorder);
+ $r->print(' | ');
+ &partmenu($r,$allparts,$psprt);
+ $r->print(' |
');
+}
+
+sub mapmenu {
+ my ($r,$allmaps,$pschp,$maptitles)=@_;
+ $r->print(''.&mt('Select Enclosing Map or Folder').' ');
+ $r->print('");
+}
+
+sub levelmenu {
+ my ($r,$alllevs,$parmlev)=@_;
+ $r->print(''.&mt('Select Parameter Level').
+ &Apache::loncommon::help_open_topic('Course_Parameter_Levels').' ');
+ $r->print('");
+}
+
+
+sub sectionmenu {
+ my ($r,$selectedsections)=@_;
+ my %sectionhash=();
+ my $sections='';
+ my $numsec = &Apache::loncommon::get_sections(
+ $env{'course.'.$env{'request.course.id'}.'.domain'},
+ $env{'course.'.$env{'request.course.id'}.'.num'},
+ \%sectionhash);
+ if ($numsec) {
+ $r->print('\n");
+ }
+}
+
+sub groupmenu {
+ my ($r,$selectedgroups)=@_;
+ my %grouphash;
+ my $numgrp = &Apache::loncommon::coursegroups(
+ \%grouphash,
+ $env{'course.'.$env{'request.course.id'}.'.domain'},
+ $env{'course.'.$env{'request.course.id'}.'.num'});
+ if ($numgrp) {
+ $r->print('\n");
+ }
+}
+
+
+sub keysplit {
+ my $keyp=shift;
+ return (split(/\,/,$keyp));
+}
+
+sub keysinorder {
+ my ($name,$keyorder)=@_;
+ return sort {
+ $$keyorder{$a} <=> $$keyorder{$b};
+ } (keys %{$name});
+}
+
+sub keysinorder_bytype {
+ my ($name,$keyorder)=@_;
+ return sort {
+ my $ta=(split('_',$a))[-1];
+ my $tb=(split('_',$b))[-1];
+ if ($$keyorder{'parameter_0_'.$ta} == $$keyorder{'parameter_0_'.$tb}) {
+ return ($a cmp $b);
+ }
+ $$keyorder{'parameter_0_'.$ta} <=> $$keyorder{'parameter_0_'.$tb};
+ } (keys %{$name});
+}
+
+sub keysindisplayorder {
+ my ($name,$keyorder)=@_;
+ return sort {
+ $$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b};
+ } (keys %{$name});
+}
+
+sub sortmenu {
+ my ($r,$sortorder)=@_;
+ $r->print('
');
+}
+
+sub standardkeyorder {
+ return ('parameter_0_opendate' => 1,
+ 'parameter_0_duedate' => 2,
+ 'parameter_0_answerdate' => 3,
+ 'parameter_0_interval' => 4,
+ 'parameter_0_weight' => 5,
+ 'parameter_0_maxtries' => 6,
+ 'parameter_0_hinttries' => 7,
+ 'parameter_0_contentopen' => 8,
+ 'parameter_0_contentclose' => 9,
+ 'parameter_0_type' => 10,
+ 'parameter_0_problemstatus' => 11,
+ 'parameter_0_hiddenresource' => 12,
+ 'parameter_0_hiddenparts' => 13,
+ 'parameter_0_display' => 14,
+ 'parameter_0_ordered' => 15,
+ 'parameter_0_tol' => 16,
+ 'parameter_0_sig' => 17,
+ 'parameter_0_turnoffunit' => 18,
+ 'parameter_0_discussend' => 19,
+ 'parameter_0_discusshide' => 20);
+}
+
+##################################################
+##################################################
+
+=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;
+
+ my @ids=();
+ my %symbp=();
+ my %mapp=();
+ my %typep=();
+ my %keyp=();
+ my %uris=();
+ my %maptitles=();
+
+# -------------------------------------------------------- Variable declaration
+
+ my %allmaps=();
+ my %alllevs=();
+
+ my $uname;
+ my $udom;
+ my $uhome;
+ my $csec;
+ my $cgroup;
+ my $grouplist;
+ my @usersgroups = ();
+
+ my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
+
+ $alllevs{'Resource Level'}='full';
+ $alllevs{'Map/Folder Level'}='map';
+ $alllevs{'Course Level'}='general';
+
+ my %allparms;
+ my %allparts;
+#
+# Order in which these parameters will be displayed
+#
+ my %keyorder=&standardkeyorder();
+
+ @ids=();
+ %symbp=();
+ %typep=();
+
+ my $message='';
+
+ $csec=$env{'form.csec'};
+ $cgroup=$env{'form.cgroup'};
+
+ 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 $pssymb='';
+ my $parmlev='';
+
+ 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';
+ } elsif ($env{'form.symb'}) {
+ $pssymb=$env{'form.symb'};
+ if (!@pscat) { @pscat=('all'); }
+ $pschp='';
+ $parmlev = 'full';
+ } 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) {
+ $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'};
+ $cgroup=$env{'form.cgroup'};
+ } 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'}.
+ "
\n".&mt('ID').": ".$name{'id'}.' ';
+ }
+ $grouplist = &Apache::lonnet::get_users_groups(
+ $udom,$uname,$env{'request.course.id'});
+ if ($grouplist) {
+ @usersgroups = &Apache::lonnet::sort_course_groups($grouplist,
+ $env{'request.course.id'});
+ unless (grep/^\Q$cgroup\E$/,@usersgroups) {
+ $cgroup = $usersgroups[0];
+ }
+ } else {
+ $cgroup = '';
+ }
+ }
+ }
+
+ unless ($csec) { $csec=''; }
+ unless ($cgroup) { $cgroup=''; }
+
+# --------------------------------------------------------- Get all assessments
+ &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
+ \%mapp, \%symbp,\%maptitles,\%uris,
+ \%keyorder);
+
+ $mapp{'0.0'} = '';
+ $symbp{'0.0'} = '';
+
+# ---------------------------------------------------------- Anything to store?
+ if ($env{'form.pres_marker'}) {
+ my @markers=split(/\&\&\&/,$env{'form.pres_marker'});
+ my @values=split(/\&\&\&/,$env{'form.pres_value'});
+ my @types=split(/\&\&\&/,$env{'form.pres_type'});
+ for (my $i=0;$i<=$#markers;$i++) {
+ $message.=&storeparm(split(/\&/,$markers[$i]),
+ $values[$i],
+ $types[$i],
+ $uname,$udom,$csec,$cgroup);
+ }
+# ---------------------------------------------------------------- Done storing
+ $message.=' '.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'';
+ }
+#----------------------------------------------- if all selected, fill in array
+ if ($pscat[0] eq "all") {@pscat = (keys %allparms);}
+ if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries') };
+ if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}
+# ------------------------------------------------------------------ Start page
+
+ &startpage($r);
+
+ foreach ('tolerance','date_default','date_start','date_end',
+ 'date_interval','int','float','string') {
+ $r->print('');
+ }
+
+ if (!$pssymb) {
+ $r->print('| ');
+ &levelmenu($r,\%alllevs,$parmlev);
+ if ($parmlev ne 'general') {
+ $r->print(' | ');
+ &mapmenu($r,\%allmaps,$pschp,\%maptitles);
+ $r->print(' | ');
+ }
+ $r->print('
');
+ &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
+ } else {
+ my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
+ $r->print(&mt('Specific Resource').": ".$resource.
+ ''.
+ '
');
+ }
+ &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
+
+ $r->print(''.$message.' ');
+
+ $r->print('
');
+
+ my @temp_pscat;
+ map {
+ my $cat = $_;
+ push(@temp_pscat, map { $_.'.'.$cat } @psprt);
+ } @pscat;
+
+ @pscat = @temp_pscat;
+
+ if (($env{'form.prevvisit'}) || ($pschp) || ($pssymb)) {
+# ----------------------------------------------------------------- Start Table
+ my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;
+ my $csuname=$env{'user.name'};
+ my $csudom=$env{'user.domain'};
+
+ if ($parmlev eq 'full') {
+ my $coursespan=$csec?8:5;
+ my $userspan=3;
+ if ($cgroup ne '') {
+ $coursespan += 3;
+ }
+
+ $r->print('');
+ $r->print(' | ');
+ $r->print(''.&mt('Any User').' | ');
+ if ($uname) {
+ if (@usersgroups > 1) {
+ $userspan ++;
}
+ $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'}
($csuname $lt{'at'} $csudom) |
+
|---|
| $lt{'ic'} | $lt{'rl'} |
+$lt{'ic'} |
- 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').'');
+ENDTABLETWO
+ if ($csec) {
+ $r->print("".
+ &mt("in Section")." $csec | ");
+ }
+ if ($cgroup) {
+ $r->print("".
+ &mt("in Group")." $cgroup | ");
+ }
+ $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 ($cgroup) {
+ $r->print(''.&mt('general').' | '.&mt('for Enclosing Map or Folder').' | '.&mt('for Resource').' | ');
+ }
+
+ if ($uname) {
+ if (@usersgroups > 1) {
+ $r->print(''.&mt('Control by other group?').' | ');
}
+ $r->print(''.&mt('general').' | '.&mt('for Enclosing Map or Folder').' | '.&mt('for Resource').' | ');
+ }
+
+ $r->print('
|---|
');
+
+ my $defbgone='';
+ my $defbgtwo='';
+ my $defbgthree = '';
+
+ foreach (@ids) {
+
+ my $rid=$_;
+ my ($inmapid)=($rid=~/\.(\d+)$/);
+
+ if ((!$pssymb &&
+ (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))
+ ||
+ ($pssymb && $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"';
+ }
+ if ($defbgthree eq '"#FFBB99"') {
+ $defbgthree='"#FFBBDD"';
+ } else {
+ $defbgthree='"#FFBB99"';
+ }
- $r->print(''.&valout($outpar[$result],$type{$_}).' | ');
- $r->print("
|---|
\n");
- } sort keys %name;
+ my $thistitle='';
+ my %name= ();
+ undef %name;
+ my %part= ();
+ my %display=();
+ my %type= ();
+ my %default=();
+ my $uri=&Apache::lonnet::declutter($uris{$rid});
+
+ foreach (&keysplit($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;
+ my $title=&Apache::lonnet::gettitle($symbp{$rid});
+ $r->print(' | '.
+ join(' / ',split(/\//,$uri)).
+ ' '.
+ "$title");
+
+ if ($thistitle) {
+ $r->print(' ('.$thistitle.')');
+ }
+ $r->print(' | ');
+ $r->print(''.$typep{$rid}.
+ ' | ');
+
+ $r->print(''.$maptitles{$mapp{$rid}}.' | ');
+
+ foreach (&keysinorder_bytype(\%name,\%keyorder)) {
+ unless ($firstrow) {
+ $r->print(' ');
+ } else {
+ undef $firstrow;
+ }
+ &print_row($r,$_,\%part,\%name,\%symbp,$rid,\%default,
+ \%type,\%display,$defbgone,$defbgtwo,
+ $defbgthree,$parmlev,$uname,$udom,$csec,
+ $cgroup,\@usersgroups);
+ }
+ }
+ }
+ } # end foreach ids
# -------------------------------------------------- End entry for one resource
- } @ids;
- $r->print(' |