:
+
+=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 $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'};
+
+ 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'};
+ } 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'}.'
';
+ }
+ }
+ }
+
+ unless ($csec) { $csec=''; }
+
+# --------------------------------------------------------- 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);
+ }
+# ---------------------------------------------------------------- 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);
+
+ $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;
+ $r->print('');
+ $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'}
($csuname $lt{'at'} $csudom) |
+
|---|
| $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('
|---|
');
+
+ my $defbgone='';
+ my $defbgtwo='';
+
+ 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
- @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 %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])=
- split(/\_\_dis\_\_/,$metadata{$_});
- unless ($display[$#display]) {
- $display[$#display]=$name[$#name];
+ 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($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($uri);
+ $r->print('| '.
+ join(' / ',split(/\//,$uri)).
+ ' '.
+ "$title");
+
+ if ($thistitle) {
+ $r->print(' ('.$thistitle.')');
+ }
+ $r->print(' | ');
+ $r->print(''.$typep{$rid}.
+ ' | ');
+
+ $r->print('');
+
+ $r->print(' / res / ');
+ $r->print(join(' / ', split(/\//,$mapp{$rid})));
+
+ $r->print(' | ');
+
+ foreach (&keysinorder(\%name,\%keyorder)) {
+ unless ($firstrow) {
+ $r->print('
');
+ } else {
+ undef $firstrow;
+ }
+
+ &print_row($r,$_,\%part,\%name,\%symbp,$rid,\%default,
+ \%type,\%display,$defbgone,$defbgtwo,
+ $parmlev,$uname,$udom,$csec);
+ }
}
}
- if ($_ eq 'title') {
- $thistitle=$metadata{$_};
- }
- } keys %metadata;
- my $totalparms=$#name+1;
- $r->print('| '.
- join(' / ',split(/\//,$bighash{'src_'.$rid})).' '.
- $bighash{'title_'.$rid});
- if ($thistitle) {
- $r->print(' ('.$thistitle.')');
- }
- $r->print(' | ');
- my $i;
- for ($i=0;$i<$totalparms;$i++) {
- $r->print("$part[$i] | $display[$i] | ");
- my $j;
- for ($j=1;$j<=7;$j++) {
- $r->print(''.&plink($type[$i],$display[$i],$outpar[$j]).' | ');}
- $r->print("
\n");
- }
+ } # end foreach ids
# -------------------------------------------------- End entry for one resource
- } @ids;
- $r->print('
|---|