Annotation of loncom/interface/lonparmset.pm, revision 1.303

1.1       www         1: # The LearningOnline Network with CAPA
                      2: # Handler to set parameters for assessments
                      3: #
1.303   ! www         4: # $Id: lonparmset.pm,v 1.302 2006/05/10 22:27:29 albertel Exp $
1.40      albertel    5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
1.59      matthew    28: ###################################################################
                     29: ###################################################################
                     30: 
                     31: =pod
                     32: 
                     33: =head1 NAME
                     34: 
                     35: lonparmset - Handler to set parameters for assessments and course
                     36: 
                     37: =head1 SYNOPSIS
                     38: 
                     39: lonparmset provides an interface to setting course parameters. 
                     40: 
                     41: =head1 DESCRIPTION
                     42: 
                     43: This module sets coursewide and assessment parameters.
                     44: 
                     45: =head1 INTERNAL SUBROUTINES
                     46: 
                     47: =over 4
                     48: 
                     49: =cut
                     50: 
                     51: ###################################################################
                     52: ###################################################################
1.1       www        53: 
                     54: package Apache::lonparmset;
                     55: 
                     56: use strict;
                     57: use Apache::lonnet;
                     58: use Apache::Constants qw(:common :http REDIRECT);
1.88      matthew    59: use Apache::lonhtmlcommon();
1.36      albertel   60: use Apache::loncommon;
1.1       www        61: use GDBM_File;
1.57      albertel   62: use Apache::lonhomework;
                     63: use Apache::lonxml;
1.130     www        64: use Apache::lonlocal;
1.197     www        65: use Apache::lonnavmaps;
1.303   ! www        66: use Apache::lonrss;
1.1       www        67: 
1.198     www        68: # --- Caches local to lonparmset
1.2       www        69: 
1.199     www        70: my $parmhashid;
                     71: my %parmhash;
1.201     www        72: my $symbsid;
                     73: my %symbs;
1.221     www        74: my $rulesid;
                     75: my %rules;
1.198     www        76: 
                     77: # --- end local caches
                     78: 
1.59      matthew    79: ##################################################
                     80: ##################################################
                     81: 
                     82: =pod
                     83: 
                     84: =item parmval
                     85: 
                     86: Figure out a cascading parameter.
                     87: 
1.71      albertel   88: Inputs:  $what - a parameter spec (incluse part info and name I.E. 0.weight)
1.162     albertel   89:          $id   - a bighash Id number
1.71      albertel   90:          $def  - the resource's default value   'stupid emacs
                     91: 
1.269     raeburn    92: Returns:  A list, the first item is the index into the remaining list of items of parm valuse that is the active one, the list consists of parm values at the 14 possible levels
1.71      albertel   93: 
1.269     raeburn    94: 14 - General Course
                     95: 13 - Map or Folder level in course
                     96: 12- resource default
                     97: 11- map default
                     98: 10 - resource level in course
                     99: 9 - General for section
                    100: 8 - Map or Folder level for section
                    101: 7 - resource level in section
                    102: 6 - General for group
                    103: 5 - Map or Folder level for group
                    104: 4 - resource level in group
1.71      albertel  105: 3 - General for specific student
1.82      www       106: 2 - Map or Folder level for specific student
1.71      albertel  107: 1 - resource level for specific student
1.2       www       108: 
1.59      matthew   109: =cut
                    110: 
                    111: ##################################################
1.2       www       112: sub parmval {
1.275     raeburn   113:     my ($what,$id,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
                    114:     return &parmval_by_symb($what,&symbcache($id),$def,$uname,$udom,$csec,
                    115:                                                            $cgroup,$courseopt);
1.201     www       116: }
                    117: 
                    118: sub parmval_by_symb {
1.275     raeburn   119:     my ($what,$symb,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
1.198     www       120: # load caches
                    121:     &cacheparmhash();
1.200     www       122: 
                    123:     my $useropt=&Apache::lonnet::get_userresdata($uname,$udom);
                    124: 
1.8       www       125:     my $result='';
1.44      albertel  126:     my @outpar=();
1.2       www       127: # ----------------------------------------------------- Cascading lookup scheme
1.201     www       128:     my $map=(&Apache::lonnet::decode_symb($symb))[0];    
1.10      www       129: 
1.201     www       130:     my $symbparm=$symb.'.'.$what;
                    131:     my $mapparm=$map.'___(all).'.$what;
1.10      www       132: 
1.269     raeburn   133:     my $grplevel=$env{'request.course.id'}.'.['.$cgroup.'].'.$what;
                    134:     my $grplevelr=$env{'request.course.id'}.'.['.$cgroup.'].'.$symbparm;
                    135:     my $grplevelm=$env{'request.course.id'}.'.['.$cgroup.'].'.$mapparm;
                    136: 
1.190     albertel  137:     my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$what;
                    138:     my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
                    139:     my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
                    140: 
                    141:     my $courselevel=$env{'request.course.id'}.'.'.$what;
                    142:     my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
                    143:     my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
1.2       www       144: 
1.11      www       145: 
1.182     albertel  146: # --------------------------------------------------------- first, check course
1.11      www       147: 
1.200     www       148:     if (defined($$courseopt{$courselevel})) {
1.269     raeburn   149: 	$outpar[14]=$$courseopt{$courselevel};
                    150: 	$result=14;
1.43      albertel  151:     }
1.11      www       152: 
1.200     www       153:     if (defined($$courseopt{$courselevelm})) {
1.269     raeburn   154: 	$outpar[13]=$$courseopt{$courselevelm};
                    155: 	$result=13;
1.43      albertel  156:     }
1.11      www       157: 
1.182     albertel  158: # ------------------------------------------------------- second, check default
                    159: 
1.269     raeburn   160:     if (defined($def)) { $outpar[12]=$def; $result=12; }
1.182     albertel  161: 
                    162: # ------------------------------------------------------ third, check map parms
                    163: 
                    164:     my $thisparm=$parmhash{$symbparm};
1.269     raeburn   165:     if (defined($thisparm)) { $outpar[11]=$thisparm; $result=11; }
1.182     albertel  166: 
1.200     www       167:     if (defined($$courseopt{$courselevelr})) {
1.269     raeburn   168: 	$outpar[10]=$$courseopt{$courselevelr};
                    169: 	$result=10;
1.43      albertel  170:     }
1.11      www       171: 
1.182     albertel  172: # ------------------------------------------------------ fourth, back to course
1.71      albertel  173:     if (defined($csec)) {
1.200     www       174:         if (defined($$courseopt{$seclevel})) {
1.269     raeburn   175: 	    $outpar[9]=$$courseopt{$seclevel};
                    176: 	    $result=9;
1.43      albertel  177: 	}
1.200     www       178:         if (defined($$courseopt{$seclevelm})) {
1.269     raeburn   179: 	    $outpar[8]=$$courseopt{$seclevelm};
                    180: 	    $result=8;
1.43      albertel  181: 	}
                    182: 
1.200     www       183:         if (defined($$courseopt{$seclevelr})) {
1.269     raeburn   184: 	    $outpar[7]=$$courseopt{$seclevelr};
                    185: 	    $result=7;
1.43      albertel  186: 	}
                    187:     }
1.275     raeburn   188: # ------------------------------------------------------ fifth, check course group
1.269     raeburn   189:     if (defined($cgroup)) {
                    190:         if (defined($$courseopt{$grplevel})) {
                    191:             $outpar[6]=$$courseopt{$grplevel};
                    192:             $result=6;
                    193:         }
                    194:         if (defined($$courseopt{$grplevelm})) {
                    195:             $outpar[5]=$$courseopt{$grplevelm};
                    196:             $result=5;
                    197:         }
                    198:         if (defined($$courseopt{$grplevelr})) {
                    199:             $outpar[4]=$$courseopt{$grplevelr};
                    200:             $result=4;
                    201:         }
                    202:     }
1.11      www       203: 
1.182     albertel  204: # ---------------------------------------------------------- fifth, check user
1.11      www       205: 
1.71      albertel  206:     if (defined($uname)) {
1.200     www       207: 	if (defined($$useropt{$courselevel})) {
                    208: 	    $outpar[3]=$$useropt{$courselevel};
1.43      albertel  209: 	    $result=3;
                    210: 	}
1.10      www       211: 
1.200     www       212: 	if (defined($$useropt{$courselevelm})) {
                    213: 	    $outpar[2]=$$useropt{$courselevelm};
1.43      albertel  214: 	    $result=2;
                    215: 	}
1.2       www       216: 
1.200     www       217: 	if (defined($$useropt{$courselevelr})) {
                    218: 	    $outpar[1]=$$useropt{$courselevelr};
1.43      albertel  219: 	    $result=1;
                    220: 	}
                    221:     }
1.44      albertel  222:     return ($result,@outpar);
1.2       www       223: }
                    224: 
1.198     www       225: sub resetparmhash {
                    226:     $parmhashid='';
                    227: }
                    228: 
                    229: sub cacheparmhash {
                    230:     if ($parmhashid eq  $env{'request.course.fn'}) { return; }
                    231:     my %parmhashfile;
                    232:     if (tie(%parmhashfile,'GDBM_File',
                    233: 	      $env{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640)) {
                    234: 	%parmhash=%parmhashfile;
                    235: 	untie %parmhashfile;
                    236: 	$parmhashid=$env{'request.course.fn'};
                    237:     }
                    238: }
                    239: 
1.203     www       240: sub resetsymbcache {
                    241:     $symbsid='';
                    242: }
                    243: 
1.201     www       244: sub symbcache {
                    245:     my $id=shift;
                    246:     if ($symbsid ne $env{'request.course.id'}) {
                    247: 	%symbs=();
                    248:     }
                    249:     unless ($symbs{$id}) {
                    250: 	my $navmap = Apache::lonnavmaps::navmap->new();
                    251: 	if ($id=~/\./) {
                    252: 	    my $resource=$navmap->getById($id);
                    253: 	    $symbs{$id}=$resource->symb();
                    254: 	} else {
                    255: 	    my $resource=$navmap->getByMapPc($id);
                    256: 	    $symbs{$id}=&Apache::lonnet::declutter($resource->src());
                    257: 	}
                    258: 	$symbsid=$env{'request.course.id'};
                    259:     }
                    260:     return $symbs{$id};
                    261: }
                    262: 
1.221     www       263: sub resetrulescache {
                    264:     $rulesid='';
                    265: }
                    266: 
                    267: sub rulescache {
                    268:     my $id=shift;
                    269:     if ($rulesid ne $env{'request.course.id'}) {
                    270: 	%rules=();
                    271:     }
1.224     www       272:     unless (defined($rules{$id})) {
1.221     www       273: 	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                    274: 	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.224     www       275: 	%rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
1.221     www       276: 	$rulesid=$env{'request.course.id'};
                    277:     }
                    278:     return $rules{$id};
                    279: }
                    280: 
1.229     www       281: sub preset_defaults {
                    282:     my $type=shift;
                    283:     if (&rulescache($type.'_action') eq 'default') {
                    284: # yes, there is something
                    285: 	return (&rulescache($type.'_hours'),
                    286: 		&rulescache($type.'_min'),
                    287: 		&rulescache($type.'_sec'),
                    288: 		&rulescache($type.'_value'));
                    289:     } else {
                    290: # nothing there or something else
                    291: 	return ('','','','','');
                    292:     }
                    293: }
                    294: 
1.186     www       295: ##################################################
1.277     www       296: 
                    297: sub date_sanity_info {
                    298:    my $checkdate=shift;
                    299:    unless ($checkdate) { return ''; }
                    300:    my $result='';
                    301:    my $crsprefix='course.'.$env{'request.course.id'}.'.';
                    302:    if ($env{$crsprefix.'default_enrollment_end_date'}) {
                    303:       if ($checkdate>$env{$crsprefix.'default_enrollment_end_date'}) {
                    304:          $result.='<br />'.&mt('After course enrollment end!');
                    305:       }
                    306:    }
                    307:    if ($env{$crsprefix.'default_enrollment_start_date'}) {
                    308:       if ($checkdate<$env{$crsprefix.'default_enrollment_start_date'}) {
                    309:          $result.='<br />'.&mt('Before course enrollment start!');
                    310:       }
                    311:    }
                    312:    return $result;
                    313: }
                    314: ##################################################
1.186     www       315: ##################################################
                    316: #
1.197     www       317: # Store a parameter by ID
1.186     www       318: #
                    319: # Takes
                    320: # - resource id
                    321: # - name of parameter
                    322: # - level
                    323: # - new value
                    324: # - new type
1.187     www       325: # - username
                    326: # - userdomain
                    327: 
1.186     www       328: sub storeparm {
1.269     raeburn   329:     my ($sresid,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
1.275     raeburn   330:     &storeparm_by_symb(&symbcache($sresid),$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,'',$cgroup);
1.197     www       331: }
                    332: 
                    333: #
                    334: # Store a parameter by symb
                    335: #
                    336: # Takes
                    337: # - symb
                    338: # - name of parameter
                    339: # - level
                    340: # - new value
                    341: # - new type
                    342: # - username
                    343: # - userdomain
                    344: 
1.226     www       345: my %recstack;
1.197     www       346: sub storeparm_by_symb {
1.275     raeburn   347:     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$recflag,$cgroup)=@_;
1.226     www       348:     unless ($recflag) {
                    349: # first time call
                    350: 	%recstack=();
                    351: 	$recflag=1;
                    352:     }
                    353: # store parameter
                    354:     &storeparm_by_symb_inner
1.269     raeburn   355: 	($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup);
1.266     www       356: # don't do anything if parameter was reset
                    357:     unless ($nval) { return; }
1.226     www       358:     my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);
                    359: # remember that this was set
                    360:     $recstack{$parm}=1;
                    361: # what does this trigger?
                    362:     foreach my $triggered (split(/\:/,&rulescache($parm.'_triggers'))) {
                    363: # don't backfire
                    364:        unless ((!$triggered) || ($recstack{$triggered})) {
                    365: 	   my $action=&rulescache($triggered.'_action');
                    366: 	   my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
                    367: # set triggered parameter on same level
                    368: 	   my $newspnam=$prefix.$triggered;
1.227     www       369: 	   my $newvalue='';
1.228     www       370: 	   my $active=1;
                    371: 	   if ($action=~/^when\_setting/) {
                    372: # are there restrictions?
                    373: 	       if (&rulescache($triggered.'_triggervalue')=~/\w/) {
                    374: 		   $active=0;
                    375: 		   foreach my $possiblevalue (split(/\s*\,\s*/,&rulescache($triggered.'_triggervalue'))) {
                    376: 		       if (lc($possiblevalue) eq lc($nval)) { $active=1; }
                    377: 		   }
                    378: 	       }
                    379: 	       $newvalue=&rulescache($triggered.'_value');
1.227     www       380: 	   } else {
                    381: 	       my $totalsecs=((&rulescache($triggered.'_days')*24+&rulescache($triggered.'_hours'))*60+&rulescache($triggered.'_min'))*60+&rulescache($triggered.'_sec');
1.228     www       382: 	       if ($action=~/^later\_than/) {
                    383: 		   $newvalue=$nval+$totalsecs;
                    384: 	       } else {
                    385: 		   $newvalue=$nval-$totalsecs;
                    386: 	       }
                    387: 	   }
                    388: 	   if ($active) {
                    389: 	       &storeparm_by_symb($symb,$newspnam,$snum,$newvalue,&rulescache($triggered.'_type'),
1.275     raeburn   390: 				   $uname,$udom,$csec,$recflag,$cgroup);
1.227     www       391: 	   }
1.226     www       392:        }
                    393:     }
                    394:     return '';
                    395: }
                    396: 
1.293     www       397: sub log_parmset {
                    398:     return &Apache::lonnet::instructor_log('parameterlog',@_);
1.284     www       399: }
                    400: 
1.226     www       401: sub storeparm_by_symb_inner {
1.197     www       402: # ---------------------------------------------------------- Get symb, map, etc
1.269     raeburn   403:     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
1.197     www       404: # ---------------------------------------------------------- Construct prefixes
1.186     www       405:     $spnam=~s/\_([^\_]+)$/\.$1/;
1.197     www       406:     my $map=(&Apache::lonnet::decode_symb($symb))[0];    
                    407:     my $symbparm=$symb.'.'.$spnam;
                    408:     my $mapparm=$map.'___(all).'.$spnam;
                    409: 
1.269     raeburn   410:     my $grplevel=$env{'request.course.id'}.'.['.$cgroup.'].'.$spnam;
                    411:     my $grplevelr=$env{'request.course.id'}.'.['.$cgroup.'].'.$symbparm;
                    412:     my $grplevelm=$env{'request.course.id'}.'.['.$cgroup.'].'.$mapparm;
                    413: 
1.190     albertel  414:     my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$spnam;
                    415:     my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
                    416:     my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
1.186     www       417:     
1.190     albertel  418:     my $courselevel=$env{'request.course.id'}.'.'.$spnam;
                    419:     my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
                    420:     my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
1.186     www       421:     
                    422:     my $storeunder='';
1.269     raeburn   423:     if (($snum==14) || ($snum==3)) { $storeunder=$courselevel; }
                    424:     if (($snum==13) || ($snum==2)) { $storeunder=$courselevelm; }
                    425:     if (($snum==10) || ($snum==1)) { $storeunder=$courselevelr; }
                    426:     if ($snum==9) { $storeunder=$seclevel; }
                    427:     if ($snum==8) { $storeunder=$seclevelm; }
                    428:     if ($snum==7) { $storeunder=$seclevelr; }
                    429:     if ($snum==6) { $storeunder=$grplevel; }
                    430:     if ($snum==5) { $storeunder=$grplevelm; }
                    431:     if ($snum==4) { $storeunder=$grplevelr; }
                    432: 
1.186     www       433:     
                    434:     my $delete;
                    435:     if ($nval eq '') { $delete=1;}
                    436:     my %storecontent = ($storeunder         => $nval,
                    437: 			$storeunder.'.type' => $ntype);
                    438:     my $reply='';
                    439:     if ($snum>3) {
                    440: # ---------------------------------------------------------------- Store Course
                    441: #
1.200     www       442: 	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                    443: 	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1.186     www       444: # Expire sheets
                    445: 	&Apache::lonnet::expirespread('','','studentcalc');
1.269     raeburn   446: 	if (($snum==10) || ($snum==7) || ($snum==4)) {
1.197     www       447: 	    &Apache::lonnet::expirespread('','','assesscalc',$symb);
1.269     raeburn   448: 	} elsif (($snum==11) || ($snum==8) || ($snum==5)) {
1.197     www       449: 	    &Apache::lonnet::expirespread('','','assesscalc',$map);
1.186     www       450: 	} else {
                    451: 	    &Apache::lonnet::expirespread('','','assesscalc');
                    452: 	}
                    453: # Store parameter
                    454: 	if ($delete) {
                    455: 	    $reply=&Apache::lonnet::del
1.200     www       456: 		('resourcedata',[keys(%storecontent)],$cdom,$cnum);
1.290     www       457:             &log_parmset(\%storecontent,1);
1.186     www       458: 	} else {
                    459: 	    $reply=&Apache::lonnet::cput
1.200     www       460: 		('resourcedata',\%storecontent,$cdom,$cnum);
1.290     www       461: 	    &log_parmset(\%storecontent);
1.186     www       462: 	}
1.200     www       463: 	&Apache::lonnet::devalidatecourseresdata($cnum,$cdom);
1.186     www       464:     } else {
                    465: # ------------------------------------------------------------------ Store User
                    466: #
                    467: # Expire sheets
                    468: 	&Apache::lonnet::expirespread($uname,$udom,'studentcalc');
                    469: 	if ($snum==1) {
                    470: 	    &Apache::lonnet::expirespread
1.197     www       471: 		($uname,$udom,'assesscalc',$symb);
1.186     www       472: 	} elsif ($snum==2) {
                    473: 	    &Apache::lonnet::expirespread
1.197     www       474: 		($uname,$udom,'assesscalc',$map);
1.186     www       475: 	} else {
                    476: 	    &Apache::lonnet::expirespread($uname,$udom,'assesscalc');
                    477: 	}
                    478: # Store parameter
                    479: 	if ($delete) {
                    480: 	    $reply=&Apache::lonnet::del
                    481: 		('resourcedata',[keys(%storecontent)],$udom,$uname);
1.290     www       482: 	    &log_parmset(\%storecontent,1,$uname,$udom);
1.186     www       483: 	} else {
                    484: 	    $reply=&Apache::lonnet::cput
                    485: 		('resourcedata',\%storecontent,$udom,$uname);
1.290     www       486: 	    &log_parmset(\%storecontent,0,$uname,$udom);
1.186     www       487: 	}
1.191     albertel  488: 	&Apache::lonnet::devalidateuserresdata($uname,$udom);
1.186     www       489:     }
                    490:     
                    491:     if ($reply=~/^error\:(.*)/) {
                    492: 	return "<font color=red>Write Error: $1</font>";
                    493:     }
                    494:     return '';
                    495: }
                    496: 
1.59      matthew   497: ##################################################
                    498: ##################################################
                    499: 
                    500: =pod
                    501: 
                    502: =item valout
                    503: 
                    504: Format a value for output.
                    505: 
                    506: Inputs:  $value, $type
                    507: 
                    508: Returns: $value, formatted for output.  If $type indicates it is a date,
                    509: localtime($value) is returned.
1.9       www       510: 
1.59      matthew   511: =cut
                    512: 
                    513: ##################################################
                    514: ##################################################
1.9       www       515: sub valout {
                    516:     my ($value,$type)=@_;
1.59      matthew   517:     my $result = '';
                    518:     # Values of zero are valid.
                    519:     if (! $value && $value ne '0') {
1.71      albertel  520: 	$result = '&nbsp;&nbsp;';
1.59      matthew   521:     } else {
1.66      www       522:         if ($type eq 'date_interval') {
                    523:             my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($value);
                    524:             $year=$year-70;
                    525:             $mday--;
                    526:             if ($year) {
                    527: 		$result.=$year.' yrs ';
                    528:             }
                    529:             if ($mon) {
                    530: 		$result.=$mon.' mths ';
                    531:             }
                    532:             if ($mday) {
                    533: 		$result.=$mday.' days ';
                    534:             }
                    535:             if ($hour) {
                    536: 		$result.=$hour.' hrs ';
                    537:             }
                    538:             if ($min) {
                    539: 		$result.=$min.' mins ';
                    540:             }
                    541:             if ($sec) {
                    542: 		$result.=$sec.' secs ';
                    543:             }
                    544:             $result=~s/\s+$//;
1.213     www       545:         } elsif (&isdateparm($type)) {
1.277     www       546:             $result = localtime($value).&date_sanity_info($value);
1.59      matthew   547:         } else {
                    548:             $result = $value;
                    549:         }
                    550:     }
                    551:     return $result;
1.9       www       552: }
                    553: 
1.59      matthew   554: ##################################################
                    555: ##################################################
                    556: 
                    557: =pod
1.5       www       558: 
1.59      matthew   559: =item plink
                    560: 
                    561: Produces a link anchor.
                    562: 
                    563: Inputs: $type,$dis,$value,$marker,$return,$call
                    564: 
                    565: Returns: scalar with html code for a link which will envoke the 
                    566: javascript function 'pjump'.
                    567: 
                    568: =cut
                    569: 
                    570: ##################################################
                    571: ##################################################
1.5       www       572: sub plink {
                    573:     my ($type,$dis,$value,$marker,$return,$call)=@_;
1.23      www       574:     my $winvalue=$value;
                    575:     unless ($winvalue) {
1.213     www       576: 	if (&isdateparm($type)) {
1.190     albertel  577:             $winvalue=$env{'form.recent_'.$type};
1.23      www       578:         } else {
1.190     albertel  579:             $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
1.23      www       580:         }
                    581:     }
1.229     www       582:     my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);
                    583:     my ($hour,$min,$sec,$val)=&preset_defaults($parmname);
                    584:     unless (defined($winvalue)) { $winvalue=$val; }
1.270     www       585:     return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$marker.'" /></td></tr><tr><td align="center">'.
1.43      albertel  586: 	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
1.229     www       587: 	    .$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
1.270     www       588: 		&valout($value,$type).'</a></td></tr></table>';
1.5       www       589: }
                    590: 
1.280     albertel  591: sub page_js {
                    592: 
1.81      www       593:     my $selscript=&Apache::loncommon::studentbrowser_javascript();
1.88      matthew   594:     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
1.280     albertel  595: 
                    596:     return(<<ENDJS);
                    597: <script type="text/javascript">
1.44      albertel  598: 
                    599:     function pclose() {
                    600:         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                    601:                  "height=350,width=350,scrollbars=no,menubar=no");
                    602:         parmwin.close();
                    603:     }
                    604: 
1.88      matthew   605:     $pjump_def
1.44      albertel  606: 
                    607:     function psub() {
                    608:         pclose();
                    609:         if (document.parmform.pres_marker.value!='') {
                    610:             document.parmform.action+='#'+document.parmform.pres_marker.value;
                    611:             var typedef=new Array();
                    612:             typedef=document.parmform.pres_type.value.split('_');
                    613:            if (document.parmform.pres_type.value!='') {
                    614:             if (typedef[0]=='date') {
                    615:                 eval('document.parmform.recent_'+
                    616:                      document.parmform.pres_type.value+
                    617: 		     '.value=document.parmform.pres_value.value;');
                    618:             } else {
                    619:                 eval('document.parmform.recent_'+typedef[0]+
                    620: 		     '.value=document.parmform.pres_value.value;');
                    621:             }
                    622: 	   }
                    623:             document.parmform.submit();
                    624:         } else {
                    625:             document.parmform.pres_value.value='';
                    626:             document.parmform.pres_marker.value='';
                    627:         }
                    628:     }
                    629: 
1.57      albertel  630:     function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
                    631:         var options = "width=" + w + ",height=" + h + ",";
                    632:         options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
                    633:         options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
                    634:         var newWin = window.open(url, wdwName, options);
                    635:         newWin.focus();
                    636:     }
1.44      albertel  637: </script>
1.81      www       638: $selscript
1.280     albertel  639: ENDJS
                    640: 
                    641: }
                    642: sub startpage {
                    643:     my ($r) = @_;
1.281     albertel  644: 
1.282     albertel  645:     my %loaditems = ('onunload' => "pclose()",
1.283     albertel  646: 		     'onload'   => "group_or_section('cgroup')",);
1.280     albertel  647: 
1.281     albertel  648:     my $start_page = 
                    649: 	&Apache::loncommon::start_page('Set/Modify Course Parameters',
                    650: 				       &page_js(),
1.282     albertel  651: 				       {'add_entries' => \%loaditems,});
1.280     albertel  652:     my $breadcrumbs = 
1.298     albertel  653: 	&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting');
1.280     albertel  654:     $r->print(<<ENDHEAD);
1.281     albertel  655: $start_page
1.193     albertel  656: $breadcrumbs
                    657: <form method="post" action="/adm/parmset?action=settable" name="parmform">
1.280     albertel  658: <input type="hidden" value='' name="pres_value" />
                    659: <input type="hidden" value='' name="pres_type" />
                    660: <input type="hidden" value='' name="pres_marker" />
                    661: <input type="hidden" value='1' name="prevvisit" />
1.44      albertel  662: ENDHEAD
                    663: }
                    664: 
1.209     www       665: 
1.44      albertel  666: sub print_row {
1.201     www       667:     my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,
1.275     raeburn   668: 	$defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups)=@_;
                    669:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                    670:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                    671:     my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
1.66      www       672: # get the values for the parameter in cascading order
                    673: # empty levels will remain empty
1.44      albertel  674:     my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},
1.275     raeburn   675: 	  $rid,$$default{$which},$uname,$udom,$csec,$cgroup,$courseopt);
1.66      www       676: # get the type for the parameters
                    677: # problem: these may not be set for all levels
                    678:     my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.
1.275     raeburn   679:                                           $$name{$which}.'.type',$rid,
                    680: 		 $$defaulttype{$which},$uname,$udom,$csec,$cgroup,$courseopt);
1.66      www       681: # cascade down manually
1.182     albertel  682:     my $cascadetype=$$defaulttype{$which};
1.269     raeburn   683:     for (my $i=14;$i>0;$i--) {
1.66      www       684: 	 if ($typeoutpar[$i]) { 
                    685:             $cascadetype=$typeoutpar[$i];
                    686: 	} else {
                    687:             $typeoutpar[$i]=$cascadetype;
                    688:         }
                    689:     }
1.57      albertel  690:     my $parm=$$display{$which};
                    691: 
1.203     www       692:     if ($parmlev eq 'full') {
1.57      albertel  693:         $r->print('<td bgcolor='.$defbgtwo.' align="center">'
                    694:                   .$$part{$which}.'</td>');
                    695:     } else {    
                    696:         $parm=~s|\[.*\]\s||g;
                    697:     }
1.231     www       698:     my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
                    699:     if ($automatic) {
                    700: 	$parm.='<font color="red"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</font>';
                    701:     }
1.159     albertel  702:     $r->print('<td bgcolor='.$defbgone.'>'.$parm.'</td>');
1.57      albertel  703:    
1.44      albertel  704:     my $thismarker=$which;
                    705:     $thismarker=~s/^parameter\_//;
                    706:     my $mprefix=$rid.'&'.$thismarker.'&';
1.275     raeburn   707:     my $effective_parm = &valout($outpar[$result],$typeoutpar[$result]);
                    708:     my ($othergrp,$grp_parm,$controlgrp);
1.44      albertel  709: 
1.57      albertel  710:     if ($parmlev eq 'general') {
                    711: 
                    712:         if ($uname) {
1.66      www       713:             &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.269     raeburn   714:         } elsif ($cgroup) {
                    715:             &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  716:         } elsif ($csec) {
1.269     raeburn   717:             &print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display); 
1.57      albertel  718:         } else {
1.269     raeburn   719:             &print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display); 
1.57      albertel  720:         }
                    721:     } elsif ($parmlev eq 'map') {
                    722: 
                    723:         if ($uname) {
1.66      www       724:             &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.269     raeburn   725:         } elsif ($cgroup) {
                    726:             &print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  727:         } elsif ($csec) {
1.269     raeburn   728:             &print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  729:         } else {
1.269     raeburn   730:             &print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  731:         }
                    732:     } else {
1.275     raeburn   733:         if ($uname) {
                    734:             if (@{$usersgroups} > 1) {
                    735:                 my ($coursereply,$grp_parm,$controlgrp);
                    736:                 ($coursereply,$othergrp,$grp_parm,$controlgrp) =
                    737:                     &print_usergroups($r,$$part{$which}.'.'.$$name{$which},
                    738:                        $rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);
                    739:                 if ($coursereply && $result > 3) {
                    740:                     if (defined($controlgrp)) {
                    741:                         if ($cgroup ne $controlgrp) {
                    742:                             $effective_parm = $grp_parm;
                    743:                             $result = 0;
                    744:                         }
                    745:                     }
                    746:                 }
                    747:             }
                    748:         }
1.57      albertel  749: 
1.269     raeburn   750:         &print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  751: 
1.269     raeburn   752: 	&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    753: 	&print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    754: 	&print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.203     www       755: 	&print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    756: 	
                    757: 	if ($csec) {
1.269     raeburn   758: 	    &print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    759: 	    &print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    760: 	    &print_td($r,7,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.203     www       761: 	}
1.269     raeburn   762: 
                    763:         if ($cgroup) {
                    764:             &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    765:             &print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    766:             &print_td($r,4,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    767:         }
1.275     raeburn   768:      
1.203     www       769: 	if ($uname) {
1.275     raeburn   770:             if ($othergrp) {
                    771:                 $r->print($othergrp);
                    772:             }
1.203     www       773: 	    &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    774: 	    &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    775: 	    &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    776: 	}
1.57      albertel  777: 
                    778:     } # end of $parmlev if/else
1.275     raeburn   779:     $r->print('<td bgcolor="#CCCCFF" align="center">'.$effective_parm.'</td>');
1.136     albertel  780: 
1.203     www       781:     if ($parmlev eq 'full') {
1.136     albertel  782:         my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
1.201     www       783:                                         '.'.$$name{$which},$$symbp{$rid});
1.136     albertel  784:         my $sessionvaltype=$typeoutpar[$result];
                    785:         if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
1.275     raeburn   786:         $r->print('<td bgcolor="#999999" align="center"><font color="#FFFFFF">'.
1.66      www       787:                   &valout($sessionval,$sessionvaltype).'&nbsp;'.
1.57      albertel  788:                   '</font></td>');
1.136     albertel  789:     }
1.44      albertel  790:     $r->print('</tr>');
1.57      albertel  791:     $r->print("\n");
1.44      albertel  792: }
1.59      matthew   793: 
1.44      albertel  794: sub print_td {
1.66      www       795:     my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
1.57      albertel  796:     $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
1.114     www       797:               ' align="center">');
1.269     raeburn   798:     if ($which<11 || $which > 12) {
1.114     www       799: 	$r->print(&plink($$typeoutpar[$which],
                    800: 			 $$display{$value},$$outpar[$which],
                    801: 			 $mprefix."$which",'parmform.pres','psub'));
                    802:     } else {
                    803: 	$r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
                    804:     }
                    805:     $r->print('</td>'."\n");
1.57      albertel  806: }
                    807: 
1.275     raeburn   808: sub print_usergroups {
                    809:     my ($r,$what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;
                    810:     my $courseid = $env{'request.course.id'};
                    811:     my $output;
                    812:     my $symb = &symbcache($rid);
                    813:     my $symbparm=$symb.'.'.$what;
                    814:     my $map=(&Apache::lonnet::decode_symb($symb))[0];
                    815:     my $mapparm=$map.'___(all).'.$what;
                    816:     my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype) =
                    817:           &parm_control_group($courseid,$usersgroups,$symbparm,$mapparm,$what,
                    818:                                                                    $courseopt);
                    819:     my $bgcolor = $defbg;
                    820:     my $grp_parm;
                    821:     if (($coursereply) && ($cgroup ne $resultgroup)) { 
                    822:         if ($result > 3) {
                    823:             $bgcolor = '"#AAFFAA"';
                    824:             $grp_parm = &valout($coursereply,$resulttype);
                    825:         }
                    826:         $grp_parm = &valout($coursereply,$resulttype);
                    827:         $output = '<td bgcolor='.$bgcolor.' align="center">';
                    828:         if ($resultgroup && $resultlevel) {
                    829:             $output .= '<small><b>'.$resultgroup.'</b> ('.$resultlevel.'): </small>'.$grp_parm;
                    830:         } else {
                    831:             $output .= '&nbsp;';
                    832:         }
                    833:         $output .= '</td>';
                    834:     } else {
                    835:         $output .= '<td bgcolor='.$bgcolor.'>&nbsp;</td>';
                    836:     }
                    837:     return ($coursereply,$output,$grp_parm,$resultgroup);
                    838: }
                    839: 
                    840: sub parm_control_group {
                    841:     my ($courseid,$usersgroups,$symbparm,$mapparm,$what,$courseopt) = @_;
                    842:     my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);
                    843:     my $grpfound = 0;
                    844:     my @levels = ($symbparm,$mapparm,$what);
                    845:     my @levelnames = ('resource','map/folder','general');
                    846:     foreach my $group (@{$usersgroups}) {
                    847:         if ($grpfound) { last; }
                    848:         for (my $i=0; $i<@levels; $i++) {
                    849:             my $item = $courseid.'.['.$group.'].'.$levels[$i];
                    850:             if (defined($$courseopt{$item})) {
                    851:                 $coursereply = $$courseopt{$item};
                    852:                 $resultitem = $item;
                    853:                 $resultgroup = $group;
                    854:                 $resultlevel = $levelnames[$i];
                    855:                 $resulttype = $$courseopt{$item.'.type'};
                    856:                 $grpfound = 1;
                    857:                 last;
                    858:             }
                    859:         }
                    860:     }
                    861:     return($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);
                    862: }
1.201     www       863: 
1.63      bowersj2  864: =pod
                    865: 
                    866: =item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.
                    867: 
                    868: Input: See list below:
                    869: 
                    870: =over 4
                    871: 
                    872: =item B<ids>: An array that will contain all of the ids in the course.
                    873: 
                    874: =item B<typep>: hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.
                    875: 
1.171     www       876: =item B<keyp>: hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id
1.63      bowersj2  877: 
                    878: =item B<allparms>: hash, name of parameter->display value (what is the display value?)
                    879: 
                    880: =item B<allparts>: hash, part identification->text representation of part, where the text representation is "[Part $part]"
                    881: 
                    882: =item B<allkeys>: hash, full key to part->display value (what's display value?)
                    883: 
                    884: =item B<allmaps>: hash, ???
                    885: 
                    886: =item B<fcat>: ???
                    887: 
                    888: =item B<defp>: hash, ???
                    889: 
                    890: =item B<mapp>: ??
                    891: 
                    892: =item B<symbp>: hash, id->full sym?
                    893: 
                    894: =back
                    895: 
                    896: =cut
                    897: 
                    898: sub extractResourceInformation {
                    899:     my $ids = shift;
                    900:     my $typep = shift;
                    901:     my $keyp = shift;
                    902:     my $allparms = shift;
                    903:     my $allparts = shift;
                    904:     my $allmaps = shift;
                    905:     my $mapp = shift;
                    906:     my $symbp = shift;
1.82      www       907:     my $maptitles=shift;
1.196     www       908:     my $uris=shift;
1.210     www       909:     my $keyorder=shift;
1.211     www       910:     my $defkeytype=shift;
1.196     www       911: 
1.210     www       912:     my $keyordercnt=100;
1.63      bowersj2  913: 
1.196     www       914:     my $navmap = Apache::lonnavmaps::navmap->new();
                    915:     my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);
                    916:     foreach my $resource (@allres) {
                    917: 	my $id=$resource->id();
                    918:         my ($mapid,$resid)=split(/\./,$id);
                    919: 	if ($mapid eq '0') { next; }
                    920: 	$$ids[$#$ids+1]=$id;
                    921: 	my $srcf=$resource->src();
                    922: 	$srcf=~/\.(\w+)$/;
                    923: 	$$typep{$id}=$1;
                    924: 	$$keyp{$id}='';
                    925:         $$uris{$id}=$srcf;
                    926: 	foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
                    927: 	    if ($_=~/^parameter\_(.*)/) {
                    928: 		my $key=$_;
1.209     www       929: # Hidden parameters
                    930: 		if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 'parm') {
                    931: 		    next;
1.63      bowersj2  932: 		}
1.196     www       933: 		my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
                    934: 		my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
                    935: 		my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
1.209     www       936: #
                    937: # allparms is a hash of parameter names
                    938: #
1.196     www       939: 		my $parmdis = $display;
1.209     www       940: 		$parmdis =~ s/\[Part.*$//g;
                    941:                 $$allparms{$name}=$parmdis;
1.211     www       942: 		$$defkeytype{$name}=&Apache::lonnet::metadata($srcf,$key.'.type');
1.209     www       943: #
                    944: # allparts is a hash of all parts
                    945: #
                    946: 		$$allparts{$part} = "Part: $part";
                    947: #
                    948: # Remember all keys going with this resource
                    949: #
1.196     www       950: 		if ($$keyp{$id}) {
                    951: 		    $$keyp{$id}.=','.$key;
1.175     albertel  952: 		} else {
1.196     www       953: 		    $$keyp{$id}=$key;
1.175     albertel  954: 		}
1.210     www       955: #
                    956: # Put in order
                    957: # 
                    958:                 unless ($$keyorder{$key}) {
                    959:                     $$keyorder{$key}=$keyordercnt;
                    960:                     $keyordercnt++;
                    961: 		}
                    962: 
1.63      bowersj2  963: 	    }
                    964: 	}
1.196     www       965: 	$$mapp{$id}=
                    966: 	    &Apache::lonnet::declutter($resource->enclosing_map_src());
                    967: 	$$mapp{$mapid}=$$mapp{$id};
                    968: 	$$allmaps{$mapid}=$$mapp{$id};
                    969: 	if ($mapid eq '1') {
                    970: 	    $$maptitles{$mapid}='Main Course Documents';
                    971: 	} else {
                    972: 	    $$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id}));
                    973: 	}
                    974: 	$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
                    975: 	$$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
                    976: 	$$symbp{$mapid}=$$mapp{$id}.'___(all)';
1.63      bowersj2  977:     }
                    978: }
                    979: 
1.208     www       980: 
                    981: ##################################################
                    982: ##################################################
                    983: 
1.213     www       984: sub isdateparm {
                    985:     my $type=shift;
                    986:     return (($type=~/^date/) && (!($type eq 'date_interval')));
                    987: }
                    988: 
1.208     www       989: sub parmmenu {
1.211     www       990:     my ($r,$allparms,$pscat,$keyorder)=@_;
1.208     www       991:     my $tempkey;
                    992:     $r->print(<<ENDSCRIPT);
                    993: <script type="text/javascript">
                    994:     function checkall(value, checkName) {
                    995: 	for (i=0; i<document.forms.parmform.elements.length; i++) {
                    996:             ele = document.forms.parmform.elements[i];
                    997:             if (ele.name == checkName) {
                    998:                 document.forms.parmform.elements[i].checked=value;
                    999:             }
                   1000:         }
                   1001:     }
1.210     www      1002: 
                   1003:     function checkthis(thisvalue, checkName) {
                   1004: 	for (i=0; i<document.forms.parmform.elements.length; i++) {
                   1005:             ele = document.forms.parmform.elements[i];
                   1006:             if (ele.name == checkName) {
                   1007: 		if (ele.value == thisvalue) {
                   1008: 		    document.forms.parmform.elements[i].checked=true;
                   1009: 		}
                   1010:             }
                   1011:         }
                   1012:     }
                   1013: 
                   1014:     function checkdates() {
                   1015: 	checkthis('duedate','pscat');
                   1016:  	checkthis('opendate','pscat');
                   1017: 	checkthis('answerdate','pscat');
1.218     www      1018:     }
                   1019: 
                   1020:     function checkdisset() {
                   1021: 	checkthis('discussend','pscat');
                   1022:  	checkthis('discusshide','pscat');
                   1023:     }
                   1024: 
                   1025:     function checkcontdates() {
                   1026: 	checkthis('contentopen','pscat');
                   1027:  	checkthis('contentclose','pscat');
                   1028:     }
                   1029:  
1.210     www      1030: 
                   1031:     function checkvisi() {
                   1032: 	checkthis('hiddenresource','pscat');
                   1033:  	checkthis('encrypturl','pscat');
                   1034: 	checkthis('problemstatus','pscat');
                   1035: 	checkthis('contentopen','pscat');
                   1036: 	checkthis('opendate','pscat');
                   1037:     }
                   1038: 
                   1039:     function checkparts() {
                   1040: 	checkthis('hiddenparts','pscat');
                   1041: 	checkthis('display','pscat');
                   1042: 	checkthis('ordered','pscat');
                   1043:     }
                   1044: 
                   1045:     function checkstandard() {
                   1046:         checkall(false,'pscat');
                   1047: 	checkdates();
                   1048: 	checkthis('weight','pscat');
                   1049: 	checkthis('maxtries','pscat');
                   1050:     }
                   1051: 
1.208     www      1052: </script>
                   1053: ENDSCRIPT
1.209     www      1054:     $r->print();
1.208     www      1055:     $r->print("\n<table><tr>");
                   1056:     my $cnt=0;
1.211     www      1057:     foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
1.235     albertel 1058: 	$r->print("\n<td><font size='-1'><label><input type='checkbox' name='pscat' ");
1.208     www      1059: 	$r->print('value="'.$tempkey.'"');
                   1060: 	if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
                   1061: 	    $r->print(' checked');
                   1062: 	}
1.235     albertel 1063: 	$r->print('>'.$$allparms{$tempkey}.'</label></font></td>');
1.209     www      1064:  	$cnt++;
                   1065:         if ($cnt==3) {
                   1066: 	    $r->print("</tr>\n<tr>");
                   1067: 	    $cnt=0;
                   1068: 	}
1.208     www      1069:     }
                   1070:     $r->print('
                   1071: </tr><tr><td>
1.233     albertel 1072: <a href="javascript:checkall(true, \'pscat\')">Select&nbsp;All</a><br />
                   1073: <a href="javascript:checkstandard()">Select&nbsp;Common&nbsp;Only</a>
1.210     www      1074: </td><td>
1.233     albertel 1075: <a href="javascript:checkdates()">Add&nbsp;Problem&nbsp;Dates</a>
                   1076: <a href="javascript:checkcontdates()">Add&nbsp;Content&nbsp;Dates</a><br />
                   1077: <a href="javascript:checkdisset()">Add&nbsp;Discussion&nbsp;Settings</a>
                   1078: <a href="javascript:checkvisi()">Add&nbsp;Visibilities</a><br />
                   1079: <a href="javascript:checkparts()">Add&nbsp;Part&nbsp;Parameters</a>
1.210     www      1080: </td><td>
1.233     albertel 1081: <a href="javascript:checkall(false, \'pscat\')">Unselect&nbsp;All</a>
1.208     www      1082: </td>
                   1083: ');
                   1084:     $r->print('</tr></table>');
                   1085: }
                   1086: 
1.209     www      1087: sub partmenu {
                   1088:     my ($r,$allparts,$psprt)=@_;
1.211     www      1089:     $r->print('<select multiple name="psprt" size="8">');
1.208     www      1090:     $r->print('<option value="all"');
                   1091:     $r->print(' selected') unless (@{$psprt});
                   1092:     $r->print('>'.&mt('All Parts').'</option>');
                   1093:     my %temphash=();
                   1094:     foreach (@{$psprt}) { $temphash{$_}=1; }
1.234     albertel 1095:     foreach my $tempkey (sort {
                   1096: 	if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }
                   1097:     } keys(%{$allparts})) {
1.208     www      1098: 	unless ($tempkey =~ /\./) {
                   1099: 	    $r->print('<option value="'.$tempkey.'"');
                   1100: 	    if ($$psprt[0] eq "all" ||  $temphash{$tempkey}) {
                   1101: 		$r->print(' selected');
                   1102: 	    }
                   1103: 	    $r->print('>'.$$allparts{$tempkey}.'</option>');
                   1104: 	}
                   1105:     }
1.209     www      1106:     $r->print('</select>');
                   1107: }
                   1108: 
                   1109: sub usermenu {
1.275     raeburn  1110:     my ($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,$usersgroups)=@_;
1.209     www      1111:     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
                   1112:         &Apache::loncommon::selectstudent_link('parmform','uname','udom');
                   1113:     my $selscript=&Apache::loncommon::studentbrowser_javascript();
                   1114:     my %lt=&Apache::lonlocal::texthash(
1.269     raeburn  1115: 		    'se'    => "Section",
                   1116:                     'gr'    => "Group",
1.209     www      1117: 		    'fu'    => "For User",
                   1118: 		    'oi'    => "or ID",
                   1119: 		    'ad'    => "at Domain"
                   1120: 				       );
                   1121:     my $sections='';
1.300     albertel 1122:     my %sectionhash = &Apache::loncommon::get_sections();
                   1123: 
1.269     raeburn  1124:     my $groups;
1.299     albertel 1125:     my %grouphash = &Apache::loncommon::coursegroups();
                   1126: 
1.300     albertel 1127:     if (%sectionhash) {
1.269     raeburn  1128:         $sections=$lt{'se'}.': <select name="csec"';
1.299     albertel 1129:         if (%grouphash && $parmlev ne 'full') {
1.269     raeburn  1130:             $sections .= qq| onchange="group_or_section('csec')" |;
                   1131:         }
                   1132:         $sections .= '>';
1.275     raeburn  1133: 	foreach my $section ('',sort keys %sectionhash) {
                   1134: 	    $sections.='<option value="'.$section.'" '.
                   1135: 		($section eq $csec?'selected="selected"':'').'>'.$section.
                   1136:                                                               '</option>';
1.209     www      1137:         }
                   1138:         $sections.='</select>';
1.269     raeburn  1139:     }
1.300     albertel 1140:     if (%sectionhash && %grouphash && $parmlev ne 'full') {
1.269     raeburn  1141:         $sections .= '&nbsp;or&nbsp;';
                   1142:         $sections .= qq|
                   1143: <script type="text/javascript">
                   1144: function group_or_section(caller) {
                   1145:    if (caller == "cgroup") {
                   1146:        if (document.parmform.cgroup.selectedIndex != 0) {
                   1147:            document.parmform.csec.selectedIndex = 0;
                   1148:        }
                   1149:    } else {
                   1150:        if (document.parmform.csec.selectedIndex != 0) {
                   1151:            document.parmform.cgroup.selectedIndex = 0;
                   1152:        }
                   1153:    }
                   1154: }
                   1155: </script>
                   1156: |;
                   1157:     } else {
                   1158:         $sections .= qq|
                   1159: <script type="text/javascript">
                   1160: function group_or_section(caller) {
                   1161:     return;
                   1162: }
                   1163: </script>
                   1164: |;
                   1165:     } 
1.299     albertel 1166: 
                   1167:     if (%grouphash) {
1.269     raeburn  1168:         $groups=$lt{'gr'}.': <select name="cgroup"';
1.300     albertel 1169:         if (%sectionhash && $env{'form.action'} eq 'settable') {
1.269     raeburn  1170:             $groups .= qq| onchange="group_or_section('cgroup')" |;
                   1171:         }
                   1172:         $groups .= '>';
1.275     raeburn  1173:         foreach my $grp ('',sort keys %grouphash) {
                   1174:             $groups.='<option value="'.$grp.'" ';
                   1175:             if ($grp eq $cgroup) {
                   1176:                 unless ((defined($uname)) && ($grp eq '')) {
                   1177:                     $groups .=  'selected="selected" ';
                   1178:                 }
                   1179:             } elsif (!defined($cgroup)) {
                   1180:                 if (@{$usersgroups} == 1) {
                   1181:                     if ($grp eq $$usersgroups[0]) {
                   1182:                         $groups .=  'selected="selected" ';
                   1183:                     }
                   1184:                 }
                   1185:             }
                   1186:             $groups .= '>'.$grp.'</option>';
1.269     raeburn  1187:         }
                   1188:         $groups.='</select>';
                   1189:     }
                   1190:     $r->print(<<ENDMENU);
1.209     www      1191: <b>
                   1192: $sections
1.269     raeburn  1193: $groups
1.209     www      1194: <br />
                   1195: $lt{'fu'} 
                   1196: <input type="text" value="$uname" size="12" name="uname" />
                   1197: $lt{'oi'}
                   1198: <input type="text" value="$id" size="12" name="id" /> 
                   1199: $lt{'ad'}
                   1200: $chooseopt
                   1201: </b>
                   1202: ENDMENU
                   1203: }
                   1204: 
                   1205: sub displaymenu {
1.211     www      1206:     my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;
1.209     www      1207:     $r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.
                   1208: 	     &mt('Select Parts to View').'</th></tr><tr><td>');  
1.211     www      1209:     &parmmenu($r,$allparms,$pscat,$keyorder);
1.209     www      1210:     $r->print('</td><td>');
                   1211:     &partmenu($r,$allparts,$psprt);
                   1212:     $r->print('</td></tr></table>');
                   1213: }
                   1214: 
                   1215: sub mapmenu {
                   1216:     my ($r,$allmaps,$pschp,$maptitles)=@_;
1.231     www      1217:     $r->print('<b>'.&mt('Select Enclosing Map or Folder').'</b> ');
1.209     www      1218:     $r->print('<select name="pschp">');
                   1219:     $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
                   1220:     foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {
1.208     www      1221: 	$r->print('<option value="'.$_.'"');
1.209     www      1222: 	if (($pschp eq $_)) { $r->print(' selected'); }
                   1223: 	$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');
                   1224:     }
                   1225:     $r->print("</select>");
                   1226: }
                   1227: 
                   1228: sub levelmenu {
                   1229:     my ($r,$alllevs,$parmlev)=@_;
1.231     www      1230:     $r->print('<b>'.&mt('Select Parameter Level').
                   1231: 	      &Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</b> ');
1.209     www      1232:     $r->print('<select name="parmlev">');
                   1233:     foreach (reverse sort keys %{$alllevs}) {
                   1234: 	$r->print('<option value="'.$$alllevs{$_}.'"');
                   1235: 	if ($parmlev eq $$alllevs{$_}) {
                   1236: 	    $r->print(' selected'); 
                   1237: 	}
                   1238: 	$r->print('>'.$_.'</option>');
1.208     www      1239:     }
1.209     www      1240:     $r->print("</select>");
1.208     www      1241: }
                   1242: 
1.211     www      1243: 
                   1244: sub sectionmenu {
                   1245:     my ($r,$selectedsections)=@_;
1.300     albertel 1246:     my %sectionhash = &Apache::loncommon::get_sections();
                   1247:     return if (!%sectionhash);
                   1248: 
                   1249:     $r->print('<select name="Section" multiple="true" size="8" >');
                   1250:     foreach my $s ('all',sort keys %sectionhash) {
                   1251: 	$r->print('    <option value="'.$s.'"');
                   1252: 	foreach (@{$selectedsections}) {
                   1253: 	    if ($s eq $_) {
                   1254: 		$r->print(' selected');
                   1255: 		last;
1.212     www      1256: 	    }
                   1257: 	}
1.300     albertel 1258: 	$r->print('>'.$s."</option>\n");
                   1259:     }
                   1260:     $r->print("</select>\n");
1.269     raeburn  1261: }
                   1262: 
                   1263: sub groupmenu {
                   1264:     my ($r,$selectedgroups)=@_;
1.299     albertel 1265:     my %grouphash = &Apache::loncommon::coursegroups();
                   1266:     return if (!%grouphash);
                   1267: 
                   1268:     $r->print('<select name="Group" multiple="true" size="8" >');
                   1269:     foreach my $group (sort(keys(%grouphash))) {
                   1270: 	$r->print('    <option value="'.$group.'"');
                   1271: 	foreach (@{$selectedgroups}) {
                   1272: 	    if ($group eq $_) {
                   1273: 		$r->print(' selected');
                   1274: 		last;
                   1275: 	    }
                   1276: 	}
                   1277: 	$r->print('>'.$group."</option>\n");
1.211     www      1278:     }
1.299     albertel 1279:     $r->print("</select>\n");
1.211     www      1280: }
                   1281: 
1.269     raeburn  1282: 
1.210     www      1283: sub keysplit {
                   1284:     my $keyp=shift;
                   1285:     return (split(/\,/,$keyp));
                   1286: }
                   1287: 
                   1288: sub keysinorder {
                   1289:     my ($name,$keyorder)=@_;
                   1290:     return sort {
                   1291: 	$$keyorder{$a} <=> $$keyorder{$b};
                   1292:     } (keys %{$name});
                   1293: }
                   1294: 
1.236     albertel 1295: sub keysinorder_bytype {
                   1296:     my ($name,$keyorder)=@_;
                   1297:     return sort {
                   1298: 	my $ta=(split('_',$a))[-1];
                   1299: 	my $tb=(split('_',$b))[-1];
                   1300: 	if ($$keyorder{'parameter_0_'.$ta} == $$keyorder{'parameter_0_'.$tb}) {
                   1301: 	    return ($a cmp $b);
                   1302: 	}
                   1303: 	$$keyorder{'parameter_0_'.$ta} <=> $$keyorder{'parameter_0_'.$tb};
                   1304:     } (keys %{$name});
                   1305: }
                   1306: 
1.211     www      1307: sub keysindisplayorder {
                   1308:     my ($name,$keyorder)=@_;
                   1309:     return sort {
                   1310: 	$$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b};
                   1311:     } (keys %{$name});
                   1312: }
                   1313: 
1.214     www      1314: sub sortmenu {
                   1315:     my ($r,$sortorder)=@_;
1.236     albertel 1316:     $r->print('<br /><label><input type="radio" name="sortorder" value="realmstudent"');
1.214     www      1317:     if ($sortorder eq 'realmstudent') {
                   1318:        $r->print(' checked="on"');
                   1319:     }
                   1320:     $r->print(' />'.&mt('Sort by realm first, then student (group/section)'));
1.236     albertel 1321:     $r->print('</label><br /><label><input type="radio" name="sortorder" value="studentrealm"');
1.214     www      1322:     if ($sortorder eq 'studentrealm') {
                   1323:        $r->print(' checked="on"');
                   1324:     }
1.236     albertel 1325:     $r->print(' />'.&mt('Sort by student (group/section) first, then realm').
                   1326: 	      '</label>');
1.214     www      1327: }
                   1328: 
1.211     www      1329: sub standardkeyorder {
                   1330:     return ('parameter_0_opendate' => 1,
                   1331: 	    'parameter_0_duedate' => 2,
                   1332: 	    'parameter_0_answerdate' => 3,
                   1333: 	    'parameter_0_interval' => 4,
                   1334: 	    'parameter_0_weight' => 5,
                   1335: 	    'parameter_0_maxtries' => 6,
                   1336: 	    'parameter_0_hinttries' => 7,
                   1337: 	    'parameter_0_contentopen' => 8,
                   1338: 	    'parameter_0_contentclose' => 9,
                   1339: 	    'parameter_0_type' => 10,
                   1340: 	    'parameter_0_problemstatus' => 11,
                   1341: 	    'parameter_0_hiddenresource' => 12,
                   1342: 	    'parameter_0_hiddenparts' => 13,
                   1343: 	    'parameter_0_display' => 14,
                   1344: 	    'parameter_0_ordered' => 15,
                   1345: 	    'parameter_0_tol' => 16,
                   1346: 	    'parameter_0_sig' => 17,
1.218     www      1347: 	    'parameter_0_turnoffunit' => 18,
                   1348:             'parameter_0_discussend' => 19,
                   1349:             'parameter_0_discusshide' => 20);
1.211     www      1350: }
                   1351: 
1.59      matthew  1352: ##################################################
                   1353: ##################################################
                   1354: 
                   1355: =pod
                   1356: 
                   1357: =item assessparms
                   1358: 
                   1359: Show assessment data and parameters.  This is a large routine that should
                   1360: be simplified and shortened... someday.
                   1361: 
                   1362: Inputs: $r
                   1363: 
                   1364: Returns: nothing
                   1365: 
1.63      bowersj2 1366: Variables used (guessed by Jeremy):
                   1367: 
                   1368: =over 4
                   1369: 
                   1370: =item B<pscat>: ParameterS CATegories? ends up a list of the types of parameters that exist, e.g., tol, weight, acc, opendate, duedate, answerdate, sig, maxtries, type.
                   1371: 
                   1372: =item B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?
                   1373: 
                   1374: =item B<allmaps>:
                   1375: 
                   1376: =back
                   1377: 
1.59      matthew  1378: =cut
                   1379: 
                   1380: ##################################################
                   1381: ##################################################
1.30      www      1382: sub assessparms {
1.1       www      1383: 
1.43      albertel 1384:     my $r=shift;
1.201     www      1385: 
                   1386:     my @ids=();
                   1387:     my %symbp=();
                   1388:     my %mapp=();
                   1389:     my %typep=();
                   1390:     my %keyp=();
                   1391:     my %uris=();
                   1392:     my %maptitles=();
                   1393: 
1.2       www      1394: # -------------------------------------------------------- Variable declaration
1.209     www      1395: 
1.129     www      1396:     my %allmaps=();
                   1397:     my %alllevs=();
1.57      albertel 1398: 
1.187     www      1399:     my $uname;
                   1400:     my $udom;
                   1401:     my $uhome;
                   1402:     my $csec;
1.269     raeburn  1403:     my $cgroup;
1.275     raeburn  1404:     my @usersgroups = ();
1.187     www      1405:  
1.190     albertel 1406:     my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
1.187     www      1407: 
1.57      albertel 1408:     $alllevs{'Resource Level'}='full';
1.215     www      1409:     $alllevs{'Map/Folder Level'}='map';
1.57      albertel 1410:     $alllevs{'Course Level'}='general';
                   1411: 
                   1412:     my %allparms;
                   1413:     my %allparts;
1.210     www      1414: #
                   1415: # Order in which these parameters will be displayed
                   1416: #
1.211     www      1417:     my %keyorder=&standardkeyorder();
                   1418: 
1.43      albertel 1419:     @ids=();
                   1420:     %symbp=();
                   1421:     %typep=();
                   1422: 
                   1423:     my $message='';
                   1424: 
1.190     albertel 1425:     $csec=$env{'form.csec'};
1.269     raeburn  1426:     $cgroup=$env{'form.cgroup'};
1.188     www      1427: 
1.190     albertel 1428:     if      ($udom=$env{'form.udom'}) {
                   1429:     } elsif ($udom=$env{'request.role.domain'}) {
                   1430:     } elsif ($udom=$env{'user.domain'}) {
1.172     albertel 1431:     } else {
                   1432: 	$udom=$r->dir_config('lonDefDomain');
                   1433:     }
1.43      albertel 1434: 
1.134     albertel 1435:     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
1.190     albertel 1436:     my $pschp=$env{'form.pschp'};
1.134     albertel 1437:     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
1.76      www      1438:     if (!@psprt) { $psprt[0]='0'; }
1.57      albertel 1439: 
1.43      albertel 1440:     my $pssymb='';
1.57      albertel 1441:     my $parmlev='';
                   1442:  
1.190     albertel 1443:     unless ($env{'form.parmlev'}) {
1.57      albertel 1444:         $parmlev = 'map';
                   1445:     } else {
1.190     albertel 1446:         $parmlev = $env{'form.parmlev'};
1.57      albertel 1447:     }
1.26      www      1448: 
1.29      www      1449: # ----------------------------------------------- Was this started from grades?
                   1450: 
1.190     albertel 1451:     if (($env{'form.command'} eq 'set') && ($env{'form.url'})
                   1452: 	&& (!$env{'form.dis'})) {
                   1453: 	my $url=$env{'form.url'};
1.194     albertel 1454: 	$url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
1.43      albertel 1455: 	$pssymb=&Apache::lonnet::symbread($url);
1.92      albertel 1456: 	if (!@pscat) { @pscat=('all'); }
1.43      albertel 1457: 	$pschp='';
1.57      albertel 1458:         $parmlev = 'full';
1.190     albertel 1459:     } elsif ($env{'form.symb'}) {
                   1460: 	$pssymb=$env{'form.symb'};
1.92      albertel 1461: 	if (!@pscat) { @pscat=('all'); }
1.43      albertel 1462: 	$pschp='';
1.57      albertel 1463:         $parmlev = 'full';
1.43      albertel 1464:     } else {
1.190     albertel 1465: 	$env{'form.url'}='';
1.43      albertel 1466:     }
                   1467: 
1.190     albertel 1468:     my $id=$env{'form.id'};
1.43      albertel 1469:     if (($id) && ($udom)) {
                   1470: 	$uname=(&Apache::lonnet::idget($udom,$id))[1];
                   1471: 	if ($uname) {
                   1472: 	    $id='';
                   1473: 	} else {
                   1474: 	    $message=
1.133     www      1475: 		"<font color=red>".&mt("Unknown ID")." '$id' ".
                   1476: 		&mt('at domain')." '$udom'</font>";
1.43      albertel 1477: 	}
                   1478:     } else {
1.190     albertel 1479: 	$uname=$env{'form.uname'};
1.43      albertel 1480:     }
                   1481:     unless ($udom) { $uname=''; }
                   1482:     $uhome='';
                   1483:     if ($uname) {
                   1484: 	$uhome=&Apache::lonnet::homeserver($uname,$udom);
                   1485:         if ($uhome eq 'no_host') {
                   1486: 	    $message=
1.133     www      1487: 		"<font color=red>".&mt("Unknown user")." '$uname' ".
                   1488: 		&mt("at domain")." '$udom'</font>";
1.43      albertel 1489: 	    $uname='';
1.12      www      1490:         } else {
1.103     albertel 1491: 	    $csec=&Apache::lonnet::getsection($udom,$uname,
1.190     albertel 1492: 					      $env{'request.course.id'});
1.269     raeburn  1493:             
1.43      albertel 1494: 	    if ($csec eq '-1') {
                   1495: 		$message="<font color=red>".
1.133     www      1496: 		    &mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
                   1497: 		    &mt("not in this course")."</font>";
1.43      albertel 1498: 		$uname='';
1.190     albertel 1499: 		$csec=$env{'form.csec'};
1.269     raeburn  1500:                 $cgroup=$env{'form.cgroup'};
1.43      albertel 1501: 	    } else {
                   1502: 		my %name=&Apache::lonnet::userenvironment($udom,$uname,
                   1503: 		      ('firstname','middlename','lastname','generation','id'));
1.133     www      1504: 		$message="\n<p>\n".&mt("Full Name").": ".
1.43      albertel 1505: 		    $name{'firstname'}.' '.$name{'middlename'}.' '
                   1506: 			.$name{'lastname'}.' '.$name{'generation'}.
1.133     www      1507: 			    "<br>\n".&mt('ID').": ".$name{'id'}.'<p>';
1.43      albertel 1508: 	    }
1.297     raeburn  1509:             @usersgroups = &Apache::lonnet::get_users_groups(
1.275     raeburn  1510:                                        $udom,$uname,$env{'request.course.id'});
1.297     raeburn  1511:             if (@usersgroups > 0) {
1.275     raeburn  1512:                 unless (grep/^\Q$cgroup\E$/,@usersgroups) {
                   1513:                     $cgroup = $usersgroups[0];
1.297     raeburn  1514:                 }
1.269     raeburn  1515:             }
1.12      www      1516:         }
1.43      albertel 1517:     }
1.2       www      1518: 
1.43      albertel 1519:     unless ($csec) { $csec=''; }
1.269     raeburn  1520:     unless ($cgroup) { $cgroup=''; }
1.12      www      1521: 
1.14      www      1522: # --------------------------------------------------------- Get all assessments
1.210     www      1523:     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
                   1524: 				\%mapp, \%symbp,\%maptitles,\%uris,
                   1525: 				\%keyorder);
1.63      bowersj2 1526: 
1.57      albertel 1527:     $mapp{'0.0'} = '';
                   1528:     $symbp{'0.0'} = '';
1.99      albertel 1529: 
1.14      www      1530: # ---------------------------------------------------------- Anything to store?
1.190     albertel 1531:     if ($env{'form.pres_marker'}) {
1.205     www      1532:         my @markers=split(/\&\&\&/,$env{'form.pres_marker'});
                   1533:         my @values=split(/\&\&\&/,$env{'form.pres_value'});
                   1534:         my @types=split(/\&\&\&/,$env{'form.pres_type'});
                   1535: 	for (my $i=0;$i<=$#markers;$i++) {
                   1536: 	    $message.=&storeparm(split(/\&/,$markers[$i]),
                   1537: 				 $values[$i],
                   1538: 				 $types[$i],
1.269     raeburn  1539: 				 $uname,$udom,$csec,$cgroup);
1.205     www      1540: 	}
1.68      www      1541: # ---------------------------------------------------------------- Done storing
1.130     www      1542: 	$message.='<h3>'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'</h3>';
1.68      www      1543:     }
1.57      albertel 1544: #----------------------------------------------- if all selected, fill in array
1.209     www      1545:     if ($pscat[0] eq "all") {@pscat = (keys %allparms);}
                   1546:     if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries') }; 
1.57      albertel 1547:     if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}
1.2       www      1548: # ------------------------------------------------------------------ Start page
1.63      bowersj2 1549: 
1.209     www      1550:     &startpage($r);
1.57      albertel 1551: 
1.44      albertel 1552:     foreach ('tolerance','date_default','date_start','date_end',
                   1553: 	     'date_interval','int','float','string') {
                   1554: 	$r->print('<input type="hidden" value="'.
1.190     albertel 1555: 		  $env{'form.recent_'.$_}.'" name="recent_'.$_.'">');
1.44      albertel 1556:     }
1.57      albertel 1557:                         
1.44      albertel 1558:     if (!$pssymb) {
1.209     www      1559:         $r->print('<table border="1"><tr><td>');
                   1560:         &levelmenu($r,\%alllevs,$parmlev);
1.128     albertel 1561: 	if ($parmlev ne 'general') {
1.209     www      1562:             $r->print('<td>');
                   1563: 	    &mapmenu($r,\%allmaps,$pschp,\%maptitles);
                   1564: 	    $r->print('</td>');
1.128     albertel 1565: 	}
1.209     www      1566:         $r->print('</td></tr></table>');
1.211     www      1567: 	&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
1.44      albertel 1568:     } else {
1.125     www      1569:         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
1.209     www      1570:         $r->print(&mt('Specific Resource').": ".$resource.
1.238     www      1571:                   '<input type="hidden" value="'.$pssymb.'" name="symb">'.
                   1572: 		  '<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.
                   1573: 		  ($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');
1.57      albertel 1574:     }
1.275     raeburn  1575:     &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);    
1.57      albertel 1576: 
1.210     www      1577:     $r->print('<p>'.$message.'</p>');
                   1578: 
1.209     www      1579:     $r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />');
1.57      albertel 1580: 
                   1581:     my @temp_pscat;
                   1582:     map {
                   1583:         my $cat = $_;
                   1584:         push(@temp_pscat, map { $_.'.'.$cat } @psprt);
                   1585:     } @pscat;
                   1586: 
                   1587:     @pscat = @temp_pscat;
                   1588: 
1.209     www      1589:     if (($env{'form.prevvisit'}) || ($pschp) || ($pssymb)) {
1.10      www      1590: # ----------------------------------------------------------------- Start Table
1.57      albertel 1591:         my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;
1.190     albertel 1592:         my $csuname=$env{'user.name'};
                   1593:         my $csudom=$env{'user.domain'};
1.57      albertel 1594: 
1.203     www      1595:         if ($parmlev eq 'full') {
1.57      albertel 1596:            my $coursespan=$csec?8:5;
1.275     raeburn  1597:            my $userspan=3;
1.269     raeburn  1598:            if ($cgroup ne '') {
                   1599:               $coursespan += 3;
                   1600:            } 
                   1601:       
1.57      albertel 1602:            $r->print('<p><table border=2>');
                   1603:            $r->print('<tr><td colspan=5></td>');
1.130     www      1604:            $r->print('<th colspan='.($coursespan).'>'.&mt('Any User').'</th>');
1.57      albertel 1605:            if ($uname) {
1.275     raeburn  1606:                if (@usersgroups > 1) {
                   1607:                    $userspan ++;
                   1608:                }
                   1609:                $r->print('<th colspan="'.$userspan.'" rowspan="2">');
1.130     www      1610:                $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom</th>");
1.57      albertel 1611:            }
1.133     www      1612: 	   my %lt=&Apache::lonlocal::texthash(
                   1613: 				  'pie'    => "Parameter in Effect",
                   1614: 				  'csv'    => "Current Session Value",
                   1615:                                   'at'     => 'at',
                   1616:                                   'rl'     => "Resource Level",
                   1617: 				  'ic'     => 'in Course',
                   1618: 				  'aut'    => "Assessment URL and Title",
1.143     albertel 1619: 				  'type'   => 'Type',
1.133     www      1620: 				  'emof'   => "Enclosing Map or Folder",
1.143     albertel 1621: 				  'part'   => 'Part',
1.133     www      1622:                                   'pn'     => 'Parameter Name',
                   1623: 				  'def'    => 'default',
                   1624: 				  'femof'  => 'from Enclosing Map or Folder',
                   1625: 				  'gen'    => 'general',
                   1626: 				  'foremf' => 'for Enclosing Map or Folder',
                   1627: 				  'fr'     => 'for Resource'
                   1628: 					      );
1.57      albertel 1629:            $r->print(<<ENDTABLETWO);
1.133     www      1630: <th rowspan=3>$lt{'pie'}</th>
                   1631: <th rowspan=3>$lt{'csv'}<br>($csuname $lt{'at'} $csudom)</th>
1.182     albertel 1632: </tr><tr><td colspan=5></td><th colspan=2>$lt{'ic'}</th><th colspan=2>$lt{'rl'}</th>
                   1633: <th colspan=1>$lt{'ic'}</th>
                   1634: 
1.10      www      1635: ENDTABLETWO
1.57      albertel 1636:            if ($csec) {
1.133     www      1637:                 $r->print("<th colspan=3>".
1.269     raeburn  1638: 			  &mt("in Section")." $csec</th>");
                   1639:            }
                   1640:            if ($cgroup) {
                   1641:                 $r->print("<th colspan=3>".
                   1642:                           &mt("in Group")." $cgroup</th>");
1.57      albertel 1643:            }
                   1644:            $r->print(<<ENDTABLEHEADFOUR);
1.133     www      1645: </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
                   1646: <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
1.192     albertel 1647: <th>$lt{'gen'}</th><th>$lt{'foremf'}</th>
                   1648: <th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>
1.10      www      1649: ENDTABLEHEADFOUR
1.57      albertel 1650: 
                   1651:            if ($csec) {
1.130     www      1652:                $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
1.57      albertel 1653:            }
                   1654: 
1.269     raeburn  1655:            if ($cgroup) {
                   1656:                $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
                   1657:            }
                   1658: 
1.57      albertel 1659:            if ($uname) {
1.275     raeburn  1660:                if (@usersgroups > 1) {
                   1661:                    $r->print('<th>'.&mt('Control by other group?').'</th>');
                   1662:                }
1.130     www      1663:                $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
1.57      albertel 1664:            }
                   1665: 
                   1666:            $r->print('</tr>');
                   1667: 
                   1668:            my $defbgone='';
                   1669:            my $defbgtwo='';
1.269     raeburn  1670:            my $defbgthree = '';
1.57      albertel 1671: 
                   1672:            foreach (@ids) {
                   1673: 
                   1674:                 my $rid=$_;
                   1675:                 my ($inmapid)=($rid=~/\.(\d+)$/);
                   1676: 
1.152     albertel 1677:                 if ((!$pssymb && 
                   1678: 		     (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))
                   1679: 		    ||
                   1680: 		    ($pssymb && $pssymb eq $symbp{$rid})) {
1.4       www      1681: # ------------------------------------------------------ Entry for one resource
1.184     albertel 1682:                     if ($defbgone eq '"#E0E099"') {
                   1683:                         $defbgone='"#E0E0DD"';
1.57      albertel 1684:                     } else {
1.184     albertel 1685:                         $defbgone='"#E0E099"';
1.57      albertel 1686:                     }
1.184     albertel 1687:                     if ($defbgtwo eq '"#FFFF99"') {
                   1688:                         $defbgtwo='"#FFFFDD"';
1.57      albertel 1689:                     } else {
1.184     albertel 1690:                         $defbgtwo='"#FFFF99"';
1.57      albertel 1691:                     }
1.269     raeburn  1692:                     if ($defbgthree eq '"#FFBB99"') {
                   1693:                         $defbgthree='"#FFBBDD"';
                   1694:                     } else {
                   1695:                         $defbgthree='"#FFBB99"';
                   1696:                     }
                   1697: 
1.57      albertel 1698:                     my $thistitle='';
                   1699:                     my %name=   ();
                   1700:                     undef %name;
                   1701:                     my %part=   ();
                   1702:                     my %display=();
                   1703:                     my %type=   ();
                   1704:                     my %default=();
1.196     www      1705:                     my $uri=&Apache::lonnet::declutter($uris{$rid});
1.57      albertel 1706: 
1.210     www      1707:                     foreach (&keysplit($keyp{$rid})) {
1.57      albertel 1708:                         my $tempkeyp = $_;
                   1709:                         if (grep $_ eq $tempkeyp, @catmarker) {
                   1710:                           $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
                   1711:                           $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
                   1712:                           $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
                   1713:                           unless ($display{$_}) { $display{$_}=''; }
                   1714:                           $display{$_}.=' ('.$name{$_}.')';
                   1715:                           $default{$_}=&Apache::lonnet::metadata($uri,$_);
                   1716:                           $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
                   1717:                           $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
                   1718:                         }
                   1719:                     }
                   1720:                     my $totalparms=scalar keys %name;
                   1721:                     if ($totalparms>0) {
                   1722:                         my $firstrow=1;
1.274     albertel 1723: 			my $title=&Apache::lonnet::gettitle($symbp{$rid});
1.57      albertel 1724:                         $r->print('<tr><td bgcolor='.$defbgone.
                   1725:                              ' rowspan='.$totalparms.
                   1726:                              '><tt><font size=-1>'.
                   1727:                              join(' / ',split(/\//,$uri)).
                   1728:                              '</font></tt><p><b>'.
1.154     albertel 1729:                              "<a href=\"javascript:openWindow('".
1.274     albertel 1730: 				  &Apache::lonnet::clutter($uri).'?symb='.
                   1731: 				  &Apache::lonnet::escape($symbp{$rid}).
1.57      albertel 1732:                              "', 'metadatafile', '450', '500', 'no', 'yes')\";".
1.127     albertel 1733:                              " TARGET=_self>$title");
1.57      albertel 1734: 
                   1735:                         if ($thistitle) {
                   1736:                             $r->print(' ('.$thistitle.')');
                   1737:                         }
                   1738:                         $r->print('</a></b></td>');
                   1739:                         $r->print('<td bgcolor='.$defbgtwo.
                   1740:                                       ' rowspan='.$totalparms.'>'.$typep{$rid}.
                   1741:                                       '</td>');
                   1742: 
                   1743:                         $r->print('<td bgcolor='.$defbgone.
                   1744:                                       ' rowspan='.$totalparms.
1.238     www      1745:                                       '>'.$maptitles{$mapp{$rid}}.'</td>');
1.57      albertel 1746: 
1.236     albertel 1747:                         foreach (&keysinorder_bytype(\%name,\%keyorder)) {
1.57      albertel 1748:                             unless ($firstrow) {
                   1749:                                 $r->print('<tr>');
                   1750:                             } else {
                   1751:                                 undef $firstrow;
                   1752:                             }
1.201     www      1753:                             &print_row($r,$_,\%part,\%name,\%symbp,$rid,\%default,
1.57      albertel 1754:                                        \%type,\%display,$defbgone,$defbgtwo,
1.269     raeburn  1755:                                        $defbgthree,$parmlev,$uname,$udom,$csec,
1.275     raeburn  1756:                                                             $cgroup,\@usersgroups);
1.57      albertel 1757:                         }
                   1758:                     }
                   1759:                 }
                   1760:             } # end foreach ids
1.43      albertel 1761: # -------------------------------------------------- End entry for one resource
1.57      albertel 1762:             $r->print('</table>');
1.203     www      1763:         } # end of  full
1.57      albertel 1764: #--------------------------------------------------- Entry for parm level map
                   1765:         if ($parmlev eq 'map') {
                   1766:             my $defbgone = '"E0E099"';
                   1767:             my $defbgtwo = '"FFFF99"';
1.269     raeburn  1768:             my $defbgthree = '"FFBB99"';
1.57      albertel 1769: 
                   1770:             my %maplist;
                   1771: 
                   1772:             if ($pschp eq 'all') {
                   1773:                 %maplist = %allmaps; 
                   1774:             } else {
                   1775:                 %maplist = ($pschp => $mapp{$pschp});
                   1776:             }
                   1777: 
                   1778: #-------------------------------------------- for each map, gather information
                   1779:             my $mapid;
1.60      albertel 1780: 	    foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
                   1781:                 my $maptitle = $maplist{$mapid};
1.57      albertel 1782: 
                   1783: #-----------------------  loop through ids and get all parameter types for map
                   1784: #-----------------------------------------          and associated information
                   1785:                 my %name = ();
                   1786:                 my %part = ();
                   1787:                 my %display = ();
                   1788:                 my %type = ();
                   1789:                 my %default = ();
                   1790:                 my $map = 0;
                   1791: 
                   1792: #		$r->print("Catmarker: @catmarker<br />\n");
                   1793:                
                   1794:                 foreach (@ids) {
                   1795:                   ($map)=(/([\d]*?)\./);
                   1796:                   my $rid = $_;
                   1797:         
                   1798: #                  $r->print("$mapid:$map:   $rid <br /> \n");
                   1799: 
                   1800:                   if ($map eq $mapid) {
1.196     www      1801:                     my $uri=&Apache::lonnet::declutter($uris{$rid});
1.57      albertel 1802: #                    $r->print("Keys: $keyp{$rid} <br />\n");
                   1803: 
                   1804: #--------------------------------------------------------------------
                   1805: # @catmarker contains list of all possible parameters including part #s
                   1806: # $fullkeyp contains the full part/id # for the extraction of proper parameters
                   1807: # $tempkeyp contains part 0 only (no ids - ie, subparts)
                   1808: # When storing information, store as part 0
                   1809: # When requesting information, request from full part
                   1810: #-------------------------------------------------------------------
1.210     www      1811:                     foreach (&keysplit($keyp{$rid})) {
1.57      albertel 1812:                       my $tempkeyp = $_;
                   1813:                       my $fullkeyp = $tempkeyp;
1.73      albertel 1814:                       $tempkeyp =~ s/_\w+_/_0_/;
1.57      albertel 1815:                       
                   1816:                       if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
                   1817:                         $part{$tempkeyp}="0";
                   1818:                         $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
                   1819:                         $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
                   1820:                         unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                   1821:                         $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
1.73      albertel 1822:                         $display{$tempkeyp} =~ s/_\w+_/_0_/;
1.57      albertel 1823:                         $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
                   1824:                         $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
                   1825:                       }
                   1826:                     } # end loop through keys
                   1827:                   }
                   1828:                 } # end loop through ids
                   1829:                                  
                   1830: #---------------------------------------------------- print header information
1.133     www      1831:                 my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
1.82      www      1832:                 my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
1.57      albertel 1833:                 $r->print(<<ENDMAPONE);
                   1834: <center><h4>
1.135     albertel 1835: Set Defaults for All Resources in $foldermap<br />
                   1836: <font color="red"><i>$showtitle</i></font><br />
1.57      albertel 1837: Specifically for
                   1838: ENDMAPONE
                   1839:                 if ($uname) {
1.267     albertel 1840: 		    my $person=&Apache::loncommon::plainname($uname,$udom);
1.135     albertel 1841:                     $r->print(&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".
1.130     www      1842:                         &mt('in')." \n");
1.57      albertel 1843:                 } else {
1.135     albertel 1844:                     $r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n");
1.57      albertel 1845:                 }
1.269     raeburn  1846:                 if ($cgroup) {
                   1847:                     $r->print(&mt("Group")." <font color=\"red\"><i>$cgroup".
                   1848:                               "</i></font> ".&mt('of')." \n");
                   1849:                     $csec = '';
                   1850:                 } elsif ($csec) {
                   1851:                     $r->print(&mt("Section")." <font color=\"red\"><i>$csec".
                   1852:                               "</i></font> ".&mt('of')." \n");
                   1853:                 }
1.135     albertel 1854:                 $r->print("<font color=\"red\"><i>$coursename</i></font><br />");
                   1855:                 $r->print("</h4>\n");
1.57      albertel 1856: #---------------------------------------------------------------- print table
                   1857:                 $r->print('<p><table border="2">');
1.130     www      1858:                 $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
                   1859:                 $r->print('<th>'.&mt('Default Value').'</th>');
                   1860:                 $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
1.57      albertel 1861: 
1.210     www      1862: 	        foreach (&keysinorder(\%name,\%keyorder)) {
1.168     matthew  1863:                     $r->print('<tr>');
1.201     www      1864:                     &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
1.269     raeburn  1865:                            \%type,\%display,$defbgone,$defbgtwo,$defbgthree,
                   1866:                            $parmlev,$uname,$udom,$csec,$cgroup);
1.57      albertel 1867:                 }
                   1868:                 $r->print("</table></center>");
                   1869:             } # end each map
                   1870:         } # end of $parmlev eq map
                   1871: #--------------------------------- Entry for parm level general (Course level)
                   1872:         if ($parmlev eq 'general') {
                   1873:             my $defbgone = '"E0E099"';
                   1874:             my $defbgtwo = '"FFFF99"';
1.269     raeburn  1875:             my $defbgthree = '"FFBB99"';
1.57      albertel 1876: 
                   1877: #-------------------------------------------- for each map, gather information
                   1878:             my $mapid="0.0";
                   1879: #-----------------------  loop through ids and get all parameter types for map
                   1880: #-----------------------------------------          and associated information
                   1881:             my %name = ();
                   1882:             my %part = ();
                   1883:             my %display = ();
                   1884:             my %type = ();
                   1885:             my %default = ();
                   1886:                
                   1887:             foreach (@ids) {
                   1888:                 my $rid = $_;
                   1889:         
1.196     www      1890:                 my $uri=&Apache::lonnet::declutter($uris{$rid});
1.57      albertel 1891: 
                   1892: #--------------------------------------------------------------------
                   1893: # @catmarker contains list of all possible parameters including part #s
                   1894: # $fullkeyp contains the full part/id # for the extraction of proper parameters
                   1895: # $tempkeyp contains part 0 only (no ids - ie, subparts)
                   1896: # When storing information, store as part 0
                   1897: # When requesting information, request from full part
                   1898: #-------------------------------------------------------------------
1.210     www      1899:                 foreach (&keysplit($keyp{$rid})) {
1.57      albertel 1900:                   my $tempkeyp = $_;
                   1901:                   my $fullkeyp = $tempkeyp;
1.73      albertel 1902:                   $tempkeyp =~ s/_\w+_/_0_/;
1.57      albertel 1903:                   if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
                   1904:                     $part{$tempkeyp}="0";
                   1905:                     $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
                   1906:                     $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
                   1907:                     unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                   1908:                     $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
1.73      albertel 1909:                     $display{$tempkeyp} =~ s/_\w+_/_0_/;
1.57      albertel 1910:                     $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
                   1911:                     $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
                   1912:                   }
                   1913:                 } # end loop through keys
                   1914:             } # end loop through ids
                   1915:                                  
                   1916: #---------------------------------------------------- print header information
1.133     www      1917: 	    my $setdef=&mt("Set Defaults for All Resources in Course");
1.57      albertel 1918:             $r->print(<<ENDMAPONE);
1.133     www      1919: <center><h4>$setdef
1.135     albertel 1920: <font color="red"><i>$coursename</i></font><br />
1.57      albertel 1921: ENDMAPONE
                   1922:             if ($uname) {
1.267     albertel 1923: 		my $person=&Apache::loncommon::plainname($uname,$udom);
1.135     albertel 1924:                 $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");
1.57      albertel 1925:             } else {
1.135     albertel 1926:                 $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
1.57      albertel 1927:             }
                   1928:             
1.135     albertel 1929:             if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
1.269     raeburn  1930:             if ($cgroup) {$r->print(&mt("Group")."<font color=\"red\"> <i>$csec</i></font>\n")};
1.135     albertel 1931:             $r->print("</h4>\n");
1.57      albertel 1932: #---------------------------------------------------------------- print table
                   1933:             $r->print('<p><table border="2">');
1.130     www      1934:             $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
                   1935:             $r->print('<th>'.&mt('Default Value').'</th>');
                   1936:             $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
1.57      albertel 1937: 
1.210     www      1938: 	    foreach (&keysinorder(\%name,\%keyorder)) {
1.168     matthew  1939:                 $r->print('<tr>');
1.201     www      1940:                 &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
1.269     raeburn  1941:                        \%type,\%display,$defbgone,$defbgtwo,$defbgthree,
                   1942:                                    $parmlev,$uname,$udom,$csec,$cgroup);
1.57      albertel 1943:             }
                   1944:             $r->print("</table></center>");
                   1945:         } # end of $parmlev eq general
1.43      albertel 1946:     }
1.280     albertel 1947:     $r->print('</form>'.&Apache::loncommon::end_page());
1.57      albertel 1948: } # end sub assessparms
1.30      www      1949: 
1.59      matthew  1950: 
                   1951: ##################################################
                   1952: ##################################################
                   1953: 
                   1954: =pod
                   1955: 
                   1956: =item crsenv
                   1957: 
1.105     matthew  1958: Show and set course data and parameters.  This is a large routine that should
1.59      matthew  1959: be simplified and shortened... someday.
                   1960: 
                   1961: Inputs: $r
                   1962: 
                   1963: Returns: nothing
                   1964: 
                   1965: =cut
                   1966: 
                   1967: ##################################################
                   1968: ##################################################
1.30      www      1969: sub crsenv {
                   1970:     my $r=shift;
                   1971:     my $setoutput='';
1.280     albertel 1972: 
1.298     albertel 1973:     my $breadcrumbs = 
                   1974: 	&Apache::lonhtmlcommon::breadcrumbs('Edit Course Environment');
1.190     albertel 1975:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   1976:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.105     matthew  1977: 
                   1978:     #
                   1979:     # Go through list of changes
1.190     albertel 1980:     foreach (keys %env) {
1.105     matthew  1981:         next if ($_!~/^form\.(.+)\_setparmval$/);
                   1982:         my $name  = $1;
1.190     albertel 1983:         my $value = $env{'form.'.$name.'_value'};
1.105     matthew  1984:         if ($name eq 'newp') {
1.190     albertel 1985:             $name = $env{'form.newp_name'};
1.105     matthew  1986:         }
                   1987:         if ($name eq 'url') {
                   1988:             $value=~s/^\/res\///;
                   1989:             my $bkuptime=time;
                   1990:             my @tmp = &Apache::lonnet::get
                   1991:                 ('environment',['url'],$dom,$crs);
1.130     www      1992:             $setoutput.=&mt('Backing up previous URL').': '.
1.105     matthew  1993:                 &Apache::lonnet::put
                   1994:                 ('environment',
                   1995:                  {'top level map backup '.$bkuptime => $tmp[1] },
                   1996:                  $dom,$crs).
                   1997:                      '<br>';
                   1998:         }
                   1999:         #
                   2000:         # Deal with modified default spreadsheets
                   2001:         if ($name =~ /^spreadsheet_default_(classcalc|
                   2002:                                             studentcalc|
                   2003:                                             assesscalc)$/x) {
                   2004:             my $sheettype = $1; 
                   2005:             if ($sheettype eq 'classcalc') {
                   2006:                 # no need to do anything since viewing the sheet will
                   2007:                 # cause it to be updated. 
                   2008:             } elsif ($sheettype eq 'studentcalc') {
                   2009:                 # expire all the student spreadsheets
                   2010:                 &Apache::lonnet::expirespread('','','studentcalc');
                   2011:             } else {
                   2012:                 # expire all the assessment spreadsheets 
                   2013:                 #    this includes non-default spreadsheets, but better to
                   2014:                 #    be safe than sorry.
                   2015:                 &Apache::lonnet::expirespread('','','assesscalc');
                   2016:                 # expire all the student spreadsheets
                   2017:                 &Apache::lonnet::expirespread('','','studentcalc');
1.30      www      2018:             }
1.105     matthew  2019:         }
                   2020:         #
1.107     matthew  2021:         # Deal with the enrollment dates
                   2022:         if ($name =~ /^default_enrollment_(start|end)_date$/) {
                   2023:             $value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
                   2024:         }
1.178     raeburn  2025:         # Get existing cloners
                   2026:         my @oldcloner = ();
                   2027:         if ($name eq 'cloners') {
                   2028:             my %clonenames=&Apache::lonnet::dump('environment',$dom,$crs,'cloners');
                   2029:             if ($clonenames{'cloners'} =~ /,/) {
                   2030:                 @oldcloner = split/,/,$clonenames{'cloners'};
                   2031:             } else {
                   2032:                 $oldcloner[0] = $clonenames{'cloners'};
                   2033:             }
                   2034:         }
1.107     matthew  2035:         #
1.105     matthew  2036:         # Let the user know we made the changes
1.153     albertel 2037:         if ($name && defined($value)) {
1.239     raeburn  2038:             my $failed_cloners;
1.178     raeburn  2039:             if ($name eq 'cloners') {
1.239     raeburn  2040:                 $value =~ s/\s//g;
1.178     raeburn  2041:                 $value =~ s/^,//;
                   2042:                 $value =~ s/,$//;
1.239     raeburn  2043:                 # check requested clones are valid users.
                   2044:                 $failed_cloners = &check_cloners(\$value,\@oldcloner);
1.178     raeburn  2045:             }
1.105     matthew  2046:             my $put_result = &Apache::lonnet::put('environment',
                   2047:                                                   {$name=>$value},$dom,$crs);
                   2048:             if ($put_result eq 'ok') {
1.130     www      2049:                 $setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'.$value.'</b>.<br />';
1.178     raeburn  2050:                 if ($name eq 'cloners') {
                   2051:                     &change_clone($value,\@oldcloner);
                   2052:                 }
1.179     raeburn  2053:                 # Flush the course logs so course description is immediately updated
                   2054:                 if ($name eq 'description' && defined($value)) {
                   2055:                     &Apache::lonnet::flushcourselogs();
                   2056:                 }
1.105     matthew  2057:             } else {
1.130     www      2058:                 $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
                   2059: 		    ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
1.30      www      2060:             }
1.239     raeburn  2061:             if (($name eq 'cloners') && ($failed_cloners)) {
                   2062:                 $setoutput.= &mt('Unable to include').' - <b>'.$failed_cloners.'</b>, '.
                   2063:                  &mt('reason').' - '.&mt('LON-CAPA user(s) do(es) not exist').
                   2064:                  '.<br />'.&mt('Please ').
                   2065:                  ' <a href="/adm/createuser">'.
                   2066:                  &mt('add the user(s)').'</a>, '.
                   2067:                  &mt('and then return to the ').
                   2068:                  '<a href="/admparmset?action=crsenv">'.
                   2069:                  &mt('Course Parameters page').'</a> '.
                   2070:                  &mt('to add the new user(s) to the list of possible cloners').
                   2071:                  '.<br />';
                   2072:             }
1.30      www      2073:         }
1.38      harris41 2074:     }
1.108     www      2075: # ------------------------- Re-init course environment entries for this session
                   2076: 
1.302     albertel 2077:     &Apache::lonnet::coursedescription($env{'request.course.id'},
1.296     albertel 2078: 				       {'freshen_cache' => 1});
1.105     matthew  2079: 
1.30      www      2080: # -------------------------------------------------------- Get parameters again
1.45      matthew  2081: 
                   2082:     my %values=&Apache::lonnet::dump('environment',$dom,$crs);
1.140     sakharuk 2083:     my $SelectStyleFile=&mt('Select Style File');
1.141     sakharuk 2084:     my $SelectSpreadsheetFile=&mt('Select Spreadsheet File');
1.30      www      2085:     my $output='';
1.45      matthew  2086:     if (! exists($values{'con_lost'})) {
1.30      www      2087:         my %descriptions=
1.140     sakharuk 2088: 	    ('url'            => '<b>'.&mt('Top Level Map').'</b> '.
1.46      matthew  2089:                                  '<a href="javascript:openbrowser'.
1.47      matthew  2090:                                  "('envform','url','sequence')\">".
1.140     sakharuk 2091:                                  &mt('Select Map').'</a><br /><font color=red> '.
                   2092:                                  &mt('Modification may make assessment data inaccessible').
                   2093:                                  '</font>',
                   2094:              'description'    => '<b>'.&mt('Course Description').'</b>',
1.158     sakharuk 2095:              'courseid'       => '<b>'.&mt('Course ID or number').
1.140     sakharuk 2096:                                  '</b><br />'.
                   2097:                                  '('.&mt('internal').', '.&mt('optional').')',
1.177     raeburn  2098:              'cloners'        => '<b>'.&mt('Users allowed to clone course').'</b><br /><tt>(user:domain,user:domain)</tt><br />'.&mt('Users with active Course Coordinator role in the course automatically have the right to clone it, and can be omitted from list.'),
1.150     www      2099:              'grading'        => '<b>'.&mt('Grading').'</b><br />'.
                   2100:                                  '<tt>"standard", "external", or "spreadsheet"</tt> '.&Apache::loncommon::help_open_topic('GradingOptions'),
1.140     sakharuk 2101:              'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b> '.
1.52      www      2102:                     '<a href="javascript:openbrowser'.
                   2103:                     "('envform','default_xml_style'".
1.140     sakharuk 2104:                     ",'sty')\">$SelectStyleFile</a><br>",
1.141     sakharuk 2105:              'question.email' => '<b>'.&mt('Feedback Addresses for Resource Content Question').
                   2106:                                  '</b><br />(<tt>user:domain,'.
1.74      www      2107:                                  'user:domain(section;section;...;*;...),...</tt>)',
1.141     sakharuk 2108:              'comment.email'  => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'.
1.74      www      2109:                                  '(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
1.141     sakharuk 2110:              'policy.email'   => '<b>'.&mt('Feedback Addresses for Course Policy').'</b>'.
1.75      albertel 2111:                                  '<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
1.141     sakharuk 2112:              'hideemptyrows'  => '<b>'.&mt('Hide Empty Rows in Spreadsheets').'</b><br />'.
1.158     sakharuk 2113:                                  '('.&mt('"[_1]" for default hiding','<tt>yes</tt>').')',
1.141     sakharuk 2114:              'pageseparators'  => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'.
1.158     sakharuk 2115:                                  '('.&mt('"[_1]" for visible separation','<tt>yes</tt>').', '.
1.141     sakharuk 2116:                                  &mt('changes will not show until next login').')',
1.169     matthew  2117:              'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b>'.&mt('("all":students can view all sections,"section":students can only view their own section.blank or "disabled" prevents student view.'),
1.118     matthew  2118: 
1.141     sakharuk 2119:              'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').
                   2120:                                   '</b><br />"<tt>st</tt>": '.
1.158     sakharuk 2121:                                   &mt('student').', "<tt>ta</tt>": '.
1.118     matthew  2122:                                   'TA, "<tt>in</tt>": '.
1.158     sakharuk 2123:                                   &mt('instructor').';<br /><tt>'.&mt('role,role,...').'</tt>) '.
1.118     matthew  2124: 	       Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
                   2125:              'plc.users.denied' => 
1.141     sakharuk 2126:                           '<b>'.&mt('Disallow live chatroom use for Users').'</b><br />'.
1.118     matthew  2127:                                  '(<tt>user:domain,user:domain,...</tt>)',
                   2128: 
1.141     sakharuk 2129:              'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').
                   2130:                                   '</b><br />"<tt>st</tt>": '.
1.61      albertel 2131:                                   'student, "<tt>ta</tt>": '.
                   2132:                                   'TA, "<tt>in</tt>": '.
1.75      albertel 2133:                                   'instructor;<br /><tt>role,role,...</tt>) '.
1.61      albertel 2134: 	       Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
1.53      www      2135:              'pch.users.denied' => 
1.141     sakharuk 2136:                           '<b>'.&mt('Disallow Resource Discussion for Users').'</b><br />'.
1.53      www      2137:                                  '(<tt>user:domain,user:domain,...</tt>)',
1.49      matthew  2138:              'spreadsheet_default_classcalc' 
1.141     sakharuk 2139:                  => '<b>'.&mt('Default Course Spreadsheet').'</b> '.
1.50      matthew  2140:                     '<a href="javascript:openbrowser'.
                   2141:                     "('envform','spreadsheet_default_classcalc'".
1.141     sakharuk 2142:                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.49      matthew  2143:              'spreadsheet_default_studentcalc' 
1.141     sakharuk 2144:                  => '<b>'.&mt('Default Student Spreadsheet').'</b> '.
1.50      matthew  2145:                     '<a href="javascript:openbrowser'.
                   2146:                     "('envform','spreadsheet_default_calc'".
1.141     sakharuk 2147:                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.49      matthew  2148:              'spreadsheet_default_assesscalc' 
1.141     sakharuk 2149:                  => '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.
1.50      matthew  2150:                     '<a href="javascript:openbrowser'.
                   2151:                     "('envform','spreadsheet_default_assesscalc'".
1.141     sakharuk 2152:                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.75      albertel 2153: 	     'allow_limited_html_in_feedback'
1.141     sakharuk 2154: 	         => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
1.158     sakharuk 2155: 	            '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
1.170     raeburn  2156:              'allow_discussion_post_editing'
1.276     raeburn  2157:                  => '<b>'.&mt('Allow users with specified roles to edit/delete their own discussion posts').'</b><br />"<tt>st</tt>": '.
                   2158:                                   &mt('student').', "<tt>ta</tt>": '.
                   2159:                                   'TA, "<tt>in</tt>": '.
                   2160:                                   &mt('instructor').';&nbsp;(<tt>'.&mt('role:section,role:section,..., e.g., st:001,st:002,in,cc would permit students in sections 001 and 002 and instructors in any section, and course coordinators to edit their own posts.').'</tt>)<br />'.
                   2161:                     '('.&mt('or set value to "[_1]" to allow all roles',"<tt>yes</tt>").')',
1.89      albertel 2162: 	     'rndseed'
1.140     sakharuk 2163: 	         => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
                   2164:                     '<font color="red">'.&mt('Modifying this will make problems').' '.
                   2165:                     &mt('have different numbers and answers').'</font>',
1.151     albertel 2166: 	     'receiptalg'
                   2167: 	         => '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
                   2168:                     &mt('This controls how receipt numbers are generated.'),
1.164     sakharuk 2169:              'suppress_tries'
1.272     albertel 2170:                  => '<b>'.&mt('Suppress number of tries in printing').'</b><br />'.
1.273     www      2171:                     ' ('.&mt('"[_1]" to suppress, anything else to not suppress','<tt>yes</tt>').')',
1.113     sakharuk 2172:              'problem_stream_switch'
1.141     sakharuk 2173:                  => '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
1.158     sakharuk 2174:                     ' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',
1.161     sakharuk 2175:              'default_paper_size' 
                   2176:                  => '<b>'.&mt('Default paper type').'</b><br />'.
                   2177:                     ' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'. 
                   2178:                     ' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'. 
                   2179:                     ' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
1.111     sakharuk 2180:              'anonymous_quiz'
1.150     www      2181:                  => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
1.141     sakharuk 2182:                     ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
1.217     albertel 2183:              'default_enrollment_start_date' => '<b>'.&mt('Default beginning date for student access.').'</b>',
                   2184:              'default_enrollment_end_date'   => '<b>'.&mt('Default ending date for student access.').'</b>',
1.150     www      2185:              'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
                   2186:                                  '<br />(<tt>user:domain,user:domain,...</tt>)',
1.140     sakharuk 2187:              'languages' => '<b>'.&mt('Languages used').'</b>',
1.115     www      2188:              'disable_receipt_display'
1.141     sakharuk 2189:                  => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
1.158     sakharuk 2190:                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
1.163     albertel 2191: 	     'disablesigfigs'
                   2192: 	         => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
                   2193:                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
1.251     albertel 2194: 	     'disableexampointprint'
                   2195: 	         => '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.
                   2196:                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
1.278     www      2197:              'externalsyllabus'
1.279     www      2198:                  => '<b>'.&mt('URL of Syllabus (not using internal handler)').'</b>',
1.149     albertel 2199: 	     'tthoptions'
                   2200: 	         => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
1.107     matthew  2201:              ); 
1.177     raeburn  2202:         my @Display_Order = ('url','description','courseid','cloners','grading',
1.278     www      2203:                              'externalsyllabus',
1.107     matthew  2204:                              'default_xml_style','pageseparators',
                   2205:                              'question.email','comment.email','policy.email',
1.169     matthew  2206:                              'student_classlist_view',
1.118     matthew  2207:                              'plc.roles.denied','plc.users.denied',
1.107     matthew  2208:                              'pch.roles.denied','pch.users.denied',
                   2209:                              'allow_limited_html_in_feedback',
1.170     raeburn  2210:                              'allow_discussion_post_editing',
1.108     www      2211:                              'languages',
1.150     www      2212: 			     'nothideprivileged',
1.107     matthew  2213:                              'rndseed',
1.151     albertel 2214:                              'receiptalg',
1.107     matthew  2215:                              'problem_stream_switch',
1.164     sakharuk 2216: 			     'suppress_tries',
1.161     sakharuk 2217:                              'default_paper_size',
1.115     www      2218:                              'disable_receipt_display',
1.107     matthew  2219:                              'spreadsheet_default_classcalc',
                   2220:                              'spreadsheet_default_studentcalc',
                   2221:                              'spreadsheet_default_assesscalc', 
                   2222:                              'hideemptyrows',
                   2223:                              'default_enrollment_start_date',
                   2224:                              'default_enrollment_end_date',
1.163     albertel 2225: 			     'tthoptions',
1.251     albertel 2226: 			     'disablesigfigs',
                   2227: 			     'disableexampointprint'
1.107     matthew  2228:                              );
                   2229: 	foreach my $parameter (sort(keys(%values))) {
1.244     banghart 2230:             unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) {
1.142     raeburn  2231:                 if (! $descriptions{$parameter}) {
                   2232:                     $descriptions{$parameter}=$parameter;
                   2233:                     push(@Display_Order,$parameter);
                   2234:                 }
                   2235:             }
1.43      albertel 2236: 	}
1.107     matthew  2237:         foreach my $parameter (@Display_Order) {
                   2238:             my $description = $descriptions{$parameter};
1.51      matthew  2239:             # onchange is javascript to automatically check the 'Set' button.
1.69      www      2240:             my $onchange = 'onFocus="javascript:window.document.forms'.
1.107     matthew  2241:                 "['envform'].elements['".$parameter."_setparmval']".
1.51      matthew  2242:                 '.checked=true;"';
1.107     matthew  2243:             $output .= '<tr><td>'.$description.'</td>';
                   2244:             if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
                   2245:                 $output .= '<td>'.
                   2246:                     &Apache::lonhtmlcommon::date_setter('envform',
                   2247:                                                         $parameter.'_value',
                   2248:                                                         $values{$parameter},
                   2249:                                                         $onchange).
                   2250:                                                         '</td>';
                   2251:             } else {
                   2252:                 $output .= '<td>'.
                   2253:                     &Apache::lonhtmlcommon::textbox($parameter.'_value',
                   2254:                                                     $values{$parameter},
                   2255:                                                     40,$onchange).'</td>';
                   2256:             }
                   2257:             $output .= '<td>'.
                   2258:                 &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
                   2259:                 '</td>';
                   2260:             $output .= "</tr>\n";
1.51      matthew  2261: 	}
1.69      www      2262:         my $onchange = 'onFocus="javascript:window.document.forms'.
1.51      matthew  2263:             '[\'envform\'].elements[\'newp_setparmval\']'.
                   2264:             '.checked=true;"';
1.130     www      2265: 	$output.='<tr><td><i>'.&mt('Create New Environment Variable').'</i><br />'.
1.51      matthew  2266: 	    '<input type="text" size=40 name="newp_name" '.
                   2267:                 $onchange.' /></td><td>'.
                   2268:             '<input type="text" size=40 name="newp_value" '.
                   2269:                 $onchange.' /></td><td>'.
                   2270: 	    '<input type="checkbox" name="newp_setparmval" /></td></tr>';
1.43      albertel 2271:     }
1.157     sakharuk 2272:     my %lt=&Apache::lonlocal::texthash(
                   2273: 		    'par'   => 'Parameter',
                   2274: 		    'val'   => 'Value',
                   2275: 		    'set'   => 'Set',
                   2276: 		    'sce'   => 'Set Course Environment'
                   2277: 				       );
                   2278: 
1.140     sakharuk 2279:     my $Parameter=&mt('Parameter');
                   2280:     my $Value=&mt('Value');
1.141     sakharuk 2281:     my $Set=&mt('Set');
1.280     albertel 2282:     my $browse_js=
                   2283: 	'<script type="text/javascript" language="Javascript">'.
                   2284: 	&Apache::loncommon::browser_and_searcher_javascript('parmset').
                   2285: 	'</script>';
                   2286:     
                   2287:     my $start_page = 
                   2288: 	&Apache::loncommon::start_page('Set Course Environment Parameters',
                   2289: 				       $browse_js);
                   2290:     my $end_page = 
                   2291: 	&Apache::loncommon::end_page();
                   2292:     $r->print(<<ENDENV);
                   2293: $start_page
1.193     albertel 2294: $breadcrumbs
                   2295: <form method="post" action="/adm/parmset?action=crsenv" name="envform">
1.30      www      2296: $setoutput
                   2297: <p>
                   2298: <table border=2>
1.157     sakharuk 2299: <tr><th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th></tr>
1.30      www      2300: $output
                   2301: </table>
1.157     sakharuk 2302: <input type="submit" name="crsenv" value="$lt{'sce'}">
1.30      www      2303: </form>
1.280     albertel 2304: $end_page
                   2305: ENDENV
1.30      www      2306: }
1.120     www      2307: ##################################################
1.207     www      2308: # Overview mode
                   2309: ##################################################
1.124     www      2310: my $tableopen;
                   2311: 
                   2312: sub tablestart {
                   2313:     if ($tableopen) {
                   2314: 	return '';
                   2315:     } else {
                   2316: 	$tableopen=1;
1.295     albertel 2317: 	return &Apache::loncommon::start_data_table().'<tr><th>'.&mt('Parameter').'</th><th>'.
1.130     www      2318: 	    &mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
1.124     www      2319:     }
                   2320: }
                   2321: 
                   2322: sub tableend {
                   2323:     if ($tableopen) {
                   2324: 	$tableopen=0;
1.295     albertel 2325: 	return &Apache::loncommon::end_data_table();
1.124     www      2326:     } else {
                   2327: 	return'';
                   2328:     }
                   2329: }
                   2330: 
1.207     www      2331: sub readdata {
                   2332:     my ($crs,$dom)=@_;
                   2333: # Read coursedata
                   2334:     my $resourcedata=&Apache::lonnet::get_courseresdata($crs,$dom);
                   2335: # Read userdata
                   2336: 
                   2337:     my $classlist=&Apache::loncoursedata::get_classlist();
                   2338:     foreach (keys %$classlist) {
                   2339:         # the following undefs are for 'domain', and 'username' respectively.
                   2340:         if ($_=~/^(\w+)\:(\w+)$/) {
                   2341: 	    my ($tuname,$tudom)=($1,$2);
                   2342: 	    my $useropt=&Apache::lonnet::get_userresdata($tuname,$tudom);
                   2343:             foreach my $userkey (keys %{$useropt}) {
                   2344: 		if ($userkey=~/^$env{'request.course.id'}/) {
                   2345:                     my $newkey=$userkey;
                   2346: 		    $newkey=~s/^($env{'request.course.id'}\.)/$1\[useropt\:$tuname\:$tudom\]\./;
                   2347: 		    $$resourcedata{$newkey}=$$useropt{$userkey};
                   2348: 		}
                   2349: 	    }
                   2350: 	}
                   2351:     }
                   2352:     return $resourcedata;
                   2353: }
                   2354: 
                   2355: 
1.124     www      2356: # Setting
1.208     www      2357: 
                   2358: sub storedata {
                   2359:     my ($r,$crs,$dom)=@_;
1.207     www      2360: # Set userlevel immediately
                   2361: # Do an intermediate store of course level
                   2362:     my $olddata=&readdata($crs,$dom);
1.124     www      2363:     my %newdata=();
                   2364:     undef %newdata;
                   2365:     my @deldata=();
                   2366:     undef @deldata;
1.190     albertel 2367:     foreach (keys %env) {
1.124     www      2368: 	if ($_=~/^form\.([a-z]+)\_(.+)$/) {
                   2369: 	    my $cmd=$1;
                   2370: 	    my $thiskey=$2;
1.207     www      2371: 	    my ($tuname,$tudom)=&extractuser($thiskey);
                   2372: 	    my $tkey=$thiskey;
                   2373:             if ($tuname) {
                   2374: 		$tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
                   2375: 	    }
1.124     www      2376: 	    if ($cmd eq 'set') {
1.190     albertel 2377: 		my $data=$env{$_};
1.212     www      2378:                 my $typeof=$env{'form.typeof_'.$thiskey};
                   2379:  		if ($$olddata{$thiskey} ne $data) { 
1.207     www      2380: 		    if ($tuname) {
1.212     www      2381: 			if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
                   2382: 								 $tkey.'.type' => $typeof},
                   2383: 						 $tudom,$tuname) eq 'ok') {
1.290     www      2384: 			    &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);
1.207     www      2385: 			    $r->print('<br />'.&mt('Stored modified parameter for').' '.
                   2386: 				      &Apache::loncommon::plainname($tuname,$tudom));
                   2387: 			} else {
                   2388: 			    $r->print('<h2><font color="red">'.
                   2389: 				      &mt('Error storing parameters').'</font></h2>');
                   2390: 			}
                   2391: 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
                   2392: 		    } else {
                   2393: 			$newdata{$thiskey}=$data;
1.212     www      2394:  			$newdata{$thiskey.'.type'}=$typeof; 
                   2395:                    } 
1.207     www      2396: 		}
1.124     www      2397: 	    } elsif ($cmd eq 'del') {
1.207     www      2398: 		if ($tuname) {
                   2399: 		    if (&Apache::lonnet::del('resourcedata',[$tkey],$tudom,$tuname) eq 'ok') {
1.290     www      2400: 			    &log_parmset({$tkey=>''},1,$tuname,$tudom);
1.207     www      2401: 			$r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
                   2402: 		    } else {
                   2403: 			$r->print('<h2><font color="red">'.
                   2404: 				  &mt('Error deleting parameters').'</font></h2>');
                   2405: 		    }
                   2406: 		    &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
                   2407: 		} else {
                   2408: 		    push (@deldata,$thiskey);
                   2409: 		}
1.124     www      2410: 	    } elsif ($cmd eq 'datepointer') {
1.190     albertel 2411: 		my $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});
1.212     www      2412:                 my $typeof=$env{'form.typeof_'.$thiskey};
1.207     www      2413: 		if (defined($data) and $$olddata{$thiskey} ne $data) { 
                   2414: 		    if ($tuname) {
1.212     www      2415: 			if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
                   2416: 								 $tkey.'.type' => $typeof},
                   2417: 						 $tudom,$tuname) eq 'ok') {
1.290     www      2418: 			    &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);
1.207     www      2419: 			    $r->print('<br />'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));
                   2420: 			} else {
                   2421: 			    $r->print('<h2><font color="red">'.
                   2422: 				      &mt('Error storing parameters').'</font></h2>');
                   2423: 			}
                   2424: 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
                   2425: 		    } else {
1.212     www      2426: 			$newdata{$thiskey}=$data;
                   2427: 			$newdata{$thiskey.'.type'}=$typeof; 
1.207     www      2428: 		    }
                   2429: 		}
1.124     www      2430: 	    }
                   2431: 	}
                   2432:     }
1.207     www      2433: # Store all course level
1.144     www      2434:     my $delentries=$#deldata+1;
                   2435:     my @newdatakeys=keys %newdata;
                   2436:     my $putentries=$#newdatakeys+1;
                   2437:     if ($delentries) {
                   2438: 	if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
1.290     www      2439: 	    my %loghash=map { $_ => '' } @deldata;
                   2440: 	    &log_parmset(\%loghash,1);
1.144     www      2441: 	    $r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));
                   2442: 	} else {
                   2443: 	    $r->print('<h2><font color="red">'.
                   2444: 		      &mt('Error deleting parameters').'</font></h2>');
                   2445: 	}
1.205     www      2446: 	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
1.144     www      2447:     }
                   2448:     if ($putentries) {
                   2449: 	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
1.290     www      2450: 			    &log_parmset(\%newdata,0);
1.212     www      2451: 	    $r->print('<h3>'.&mt('Stored [_1] parameter(s)',$putentries/2).'</h3>');
1.144     www      2452: 	} else {
                   2453: 	    $r->print('<h2><font color="red">'.
                   2454: 		      &mt('Error storing parameters').'</font></h2>');
                   2455: 	}
1.205     www      2456: 	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
1.144     www      2457:     }
1.208     www      2458: }
1.207     www      2459: 
1.208     www      2460: sub extractuser {
                   2461:     my $key=shift;
                   2462:     return ($key=~/^$env{'request.course.id'}.\[useropt\:(\w+)\:(\w+)\]\./);
                   2463: }
1.206     www      2464: 
1.208     www      2465: sub listdata {
1.214     www      2466:     my ($r,$resourcedata,$listdata,$sortorder)=@_;
1.207     www      2467: # Start list output
1.206     www      2468: 
1.122     www      2469:     my $oldsection='';
                   2470:     my $oldrealm='';
                   2471:     my $oldpart='';
1.123     www      2472:     my $pointer=0;
1.124     www      2473:     $tableopen=0;
1.145     www      2474:     my $foundkeys=0;
1.248     albertel 2475:     my %keyorder=&standardkeyorder();
1.214     www      2476:     foreach my $thiskey (sort {
                   2477: 	if ($sortorder eq 'realmstudent') {
1.247     albertel 2478: 	    my ($astudent,$arealm)=($a=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);
                   2479: 	    my ($bstudent,$brealm)=($b=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);
                   2480: 	    if (!defined($astudent)) {
                   2481: 		($arealm)=($a=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
1.237     albertel 2482: 	    }
1.247     albertel 2483: 	    if (!defined($bstudent)) {
                   2484: 		($brealm)=($b=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
                   2485: 	    }
1.248     albertel 2486: 	    $arealm=~s/\.type//;
                   2487: 	    my ($ares, $aparm) = ($arealm=~/^(.*)\.(.*)$/);
                   2488: 	    $aparm=$keyorder{'parameter_0_'.$aparm};
                   2489: 	    $brealm=~s/\.type//;
                   2490: 	    my ($bres, $bparm) = ($brealm=~/^(.*)\.(.*)$/);
                   2491: 	    $bparm=$keyorder{'parameter_0_'.$bparm};	   
                   2492: 	    if ($ares eq $bres) {
                   2493: 		if (defined($aparm) && defined($bparm)) {
                   2494: 		    ($aparm <=> $bparm);
                   2495: 		} elsif (defined($aparm)) {
                   2496: 		    -1;
                   2497: 		} elsif (defined($bparm)) {
                   2498: 		    1;
                   2499: 		} else {
                   2500: 		    ($arealm cmp $brealm) || ($astudent cmp $bstudent);
                   2501: 		}
                   2502: 	    } else {
                   2503: 		($arealm cmp $brealm) || ($astudent cmp $bstudent);
                   2504: 	    }
1.214     www      2505: 	} else {
                   2506: 	    $a cmp $b;
                   2507: 	}
                   2508:     } keys %{$listdata}) {
1.247     albertel 2509: 	 
1.211     www      2510: 	if ($$listdata{$thiskey.'.type'}) {
                   2511:             my $thistype=$$listdata{$thiskey.'.type'};
                   2512:             if ($$resourcedata{$thiskey.'.type'}) {
                   2513: 		$thistype=$$resourcedata{$thiskey.'.type'};
                   2514: 	    }
1.207     www      2515: 	    my ($middle,$part,$name)=
                   2516: 		($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
1.130     www      2517: 	    my $section=&mt('All Students');
1.207     www      2518: 	    if ($middle=~/^\[(.*)\]/) {
1.206     www      2519: 		my $issection=$1;
                   2520: 		if ($issection=~/^useropt\:(\w+)\:(\w+)/) {
                   2521: 		    $section=&mt('User').": ".&Apache::loncommon::plainname($1,$2);
                   2522: 		} else {
                   2523: 		    $section=&mt('Group/Section').': '.$issection;
                   2524: 		}
1.207     www      2525: 		$middle=~s/^\[(.*)\]//;
1.122     www      2526: 	    }
1.207     www      2527: 	    $middle=~s/\.+$//;
                   2528: 	    $middle=~s/^\.+//;
1.130     www      2529: 	    my $realm='<font color="red">'.&mt('All Resources').'</font>';
1.122     www      2530: 	    if ($middle=~/^(.+)\_\_\_\(all\)$/) {
1.174     albertel 2531: 		$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
1.122     www      2532: 	    } elsif ($middle) {
1.174     albertel 2533: 		my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
                   2534: 		$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
1.122     www      2535: 	    }
1.214     www      2536: 	    if ($sortorder eq 'realmstudent') {
                   2537: 		if ($realm ne $oldrealm) {
                   2538: 		    $r->print(&tableend()."\n<hr /><h1>$realm</h1>");
                   2539: 		    $oldrealm=$realm;
                   2540: 		    $oldsection='';
                   2541: 		}
                   2542: 		if ($section ne $oldsection) {
                   2543: 		    $r->print(&tableend()."\n<h2>$section</h2>");
                   2544: 		    $oldsection=$section;
                   2545: 		    $oldpart='';
                   2546: 		}
                   2547: 	    } else {
                   2548: 		if ($section ne $oldsection) {
                   2549: 		    $r->print(&tableend()."\n<hr /><h1>$section</h1>");
                   2550: 		    $oldsection=$section;
                   2551: 		    $oldrealm='';
                   2552: 		}
                   2553: 		if ($realm ne $oldrealm) {
                   2554: 		    $r->print(&tableend()."\n<h2>$realm</h2>");
                   2555: 		    $oldrealm=$realm;
                   2556: 		    $oldpart='';
                   2557: 		}
1.122     www      2558: 	    }
                   2559: 	    if ($part ne $oldpart) {
1.124     www      2560: 		$r->print(&tableend().
1.214     www      2561: 			  "\n<font color='blue'>".&mt('Part').": $part</font>");
1.122     www      2562: 		$oldpart=$part;
                   2563: 	    }
1.123     www      2564: #
1.230     www      2565: # Preset defaults?
                   2566: #
                   2567:             my ($hour,$min,$sec,$val)=('','','','');
                   2568: 	    unless ($$resourcedata{$thiskey}) {
                   2569: 		my ($parmname)=($thiskey=~/\.(\w+)$/);
                   2570: 		($hour,$min,$sec,$val)=&preset_defaults($parmname);
                   2571: 	    }
                   2572: 
                   2573: #
1.123     www      2574: # Ready to print
                   2575: #
1.295     albertel 2576: 	    $r->print(&tablestart().
                   2577: 		      &Apache::loncommon::start_data_table_row().
                   2578: 		      '<td><b>'.&standard_parameter_names($name).
1.293     www      2579: 		      '</b></td><td><input type="checkbox" name="del_'.
1.124     www      2580: 		      $thiskey.'" /></td><td>');
1.145     www      2581: 	    $foundkeys++;
1.213     www      2582: 	    if (&isdateparm($thistype)) {
1.123     www      2583: 		my $jskey='key_'.$pointer;
                   2584: 		$pointer++;
                   2585: 		$r->print(
1.232     albertel 2586: 			  &Apache::lonhtmlcommon::date_setter('parmform',
1.123     www      2587: 							      $jskey,
1.219     www      2588: 						      $$resourcedata{$thiskey},
1.230     www      2589: 							      '',1,'','',$hour,$min,$sec).
1.277     www      2590: '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
                   2591: &date_sanity_info($$resourcedata{$thiskey})
1.123     www      2592: 			  );
1.219     www      2593: 	    } elsif ($thistype eq 'string_yesno') {
1.230     www      2594: 		my $showval;
                   2595: 		if (defined($$resourcedata{$thiskey})) {
                   2596: 		    $showval=$$resourcedata{$thiskey};
                   2597: 		} else {
                   2598: 		    $showval=$val;
                   2599: 		}
1.219     www      2600: 		$r->print('<label><input type="radio" name="set_'.$thiskey.
                   2601: 			  '" value="yes"');
1.230     www      2602: 		if ($showval eq 'yes') {
1.219     www      2603: 		    $r->print(' checked="checked"');
                   2604: 		}
                   2605:                 $r->print(' />'.&mt('Yes').'</label> ');
                   2606: 		$r->print('<label><input type="radio" name="set_'.$thiskey.
                   2607: 			  '" value="no"');
1.230     www      2608: 		if ($showval eq 'no') {
1.219     www      2609: 		    $r->print(' checked="checked"');
                   2610: 		}
                   2611:                 $r->print(' />'.&mt('No').'</label>');
1.123     www      2612: 	    } else {
1.230     www      2613: 		my $showval;
                   2614: 		if (defined($$resourcedata{$thiskey})) {
                   2615: 		    $showval=$$resourcedata{$thiskey};
                   2616: 		} else {
                   2617: 		    $showval=$val;
                   2618: 		}
1.211     www      2619: 		$r->print('<input type="text" name="set_'.$thiskey.'" value="'.
1.230     www      2620: 			  $showval.'">');
1.123     www      2621: 	    }
1.211     www      2622: 	    $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
                   2623: 		      $thistype.'">');
1.295     albertel 2624: 	    $r->print('</td>'.&Apache::loncommon::end_data_table_row());
1.122     www      2625: 	}
1.121     www      2626:     }
1.208     www      2627:     return $foundkeys;
                   2628: }
                   2629: 
                   2630: sub newoverview {
1.280     albertel 2631:     my ($r) = @_;
                   2632: 
1.208     www      2633:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   2634:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.280     albertel 2635:     my $start_page = &Apache::loncommon::start_page('Set Parameters');
1.298     albertel 2636:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
1.208     www      2637:     $r->print(<<ENDOVER);
1.280     albertel 2638: $start_page
1.208     www      2639: $breadcrumbs
1.232     albertel 2640: <form method="post" action="/adm/parmset?action=newoverview" name="parmform">
1.208     www      2641: ENDOVER
1.211     www      2642:     my @ids=();
                   2643:     my %typep=();
                   2644:     my %keyp=();
                   2645:     my %allparms=();
                   2646:     my %allparts=();
                   2647:     my %allmaps=();
                   2648:     my %mapp=();
                   2649:     my %symbp=();
                   2650:     my %maptitles=();
                   2651:     my %uris=();
                   2652:     my %keyorder=&standardkeyorder();
                   2653:     my %defkeytype=();
                   2654: 
                   2655:     my %alllevs=();
                   2656:     $alllevs{'Resource Level'}='full';
1.215     www      2657:     $alllevs{'Map/Folder Level'}='map';
1.211     www      2658:     $alllevs{'Course Level'}='general';
                   2659: 
                   2660:     my $csec=$env{'form.csec'};
1.269     raeburn  2661:     my $cgroup=$env{'form.cgroup'};
1.211     www      2662: 
                   2663:     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
                   2664:     my $pschp=$env{'form.pschp'};
                   2665:     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
                   2666:     if (!@psprt) { $psprt[0]='0'; }
                   2667: 
                   2668:     my @selected_sections = 
                   2669: 	&Apache::loncommon::get_env_multiple('form.Section');
                   2670:     @selected_sections = ('all') if (! @selected_sections);
                   2671:     foreach (@selected_sections) {
                   2672:         if ($_ eq 'all') {
                   2673:             @selected_sections = ('all');
                   2674:         }
                   2675:     }
1.269     raeburn  2676:     my @selected_groups =
                   2677:         &Apache::loncommon::get_env_multiple('form.Group');
1.211     www      2678: 
                   2679:     my $pssymb='';
                   2680:     my $parmlev='';
                   2681:  
                   2682:     unless ($env{'form.parmlev'}) {
                   2683:         $parmlev = 'map';
                   2684:     } else {
                   2685:         $parmlev = $env{'form.parmlev'};
                   2686:     }
                   2687: 
                   2688:     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
                   2689: 				\%mapp, \%symbp,\%maptitles,\%uris,
                   2690: 				\%keyorder,\%defkeytype);
                   2691: 
                   2692: # Menu to select levels, etc
                   2693: 
                   2694:     $r->print('<table border="1"><tr><td>');
                   2695:     &levelmenu($r,\%alllevs,$parmlev);
                   2696:     if ($parmlev ne 'general') {
                   2697: 	$r->print('<td>');
                   2698: 	&mapmenu($r,\%allmaps,$pschp,\%maptitles);
                   2699: 	$r->print('</td>');
                   2700:     }
                   2701:     $r->print('</td></tr></table>');
                   2702: 
                   2703:     $r->print('<table border="1"><tr><td>');  
                   2704:     &parmmenu($r,\%allparms,\@pscat,\%keyorder);
1.269     raeburn  2705:     $r->print('</td><td><table border="0" cellspacing="0" cellpadding="0">'.
                   2706:               '<tr><td>'.&mt('Parts').'</td><td></td><td>'.&mt('Section(s)').
                   2707:               '</td><td></td><td>'.&mt('Group(s)').'</td></tr><tr><td>');
1.211     www      2708:     &partmenu($r,\%allparts,\@psprt);
1.269     raeburn  2709:     $r->print('</td><td>&nbsp;</td><td>');
1.211     www      2710:     &sectionmenu($r,\@selected_sections);
1.269     raeburn  2711:     $r->print('</td><td>&nbsp;</td><td>');
                   2712:     &groupmenu($r,\@selected_groups);
                   2713:     $r->print('</td></tr></table>');
1.214     www      2714:     $r->print('</td></tr></table>');
                   2715:  
                   2716:     my $sortorder=$env{'form.sortorder'};
                   2717:     unless ($sortorder) { $sortorder='realmstudent'; }
                   2718:     &sortmenu($r,$sortorder);
                   2719: 
                   2720:     $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
1.211     www      2721: 
                   2722: # Build the list data hash from the specified parms
                   2723: 
                   2724:     my $listdata;
                   2725:     %{$listdata}=();
                   2726: 
                   2727:     foreach my $cat (@pscat) {
1.269     raeburn  2728:         &secgroup_lister($cat,$pschp,$parmlev,$listdata,\@psprt,\@selected_sections,\%defkeytype,\%allmaps,\@ids,\%symbp);
                   2729:         &secgroup_lister($cat,$pschp,$parmlev,$listdata,\@psprt,\@selected_groups,\%defkeytype,\%allmaps,\@ids,\%symbp);
1.211     www      2730:     }
                   2731: 
1.212     www      2732:     if (($env{'form.store'}) || ($env{'form.dis'})) {
1.211     www      2733: 
1.212     www      2734: 	if ($env{'form.store'}) { &storedata($r,$crs,$dom); }
1.211     www      2735: 
                   2736: # Read modified data
                   2737: 
                   2738: 	my $resourcedata=&readdata($crs,$dom);
                   2739: 
                   2740: # List data
                   2741: 
1.214     www      2742: 	&listdata($r,$resourcedata,$listdata,$sortorder);
1.211     www      2743:     }
                   2744:     $r->print(&tableend().
1.212     www      2745: 	     ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').
1.280     albertel 2746: 	      '</form>'.&Apache::loncommon::end_page());
1.208     www      2747: }
                   2748: 
1.269     raeburn  2749: sub secgroup_lister {
                   2750:     my ($cat,$pschp,$parmlev,$listdata,$psprt,$selections,$defkeytype,$allmaps,$ids,$symbp) = @_;
                   2751:     foreach my $item (@{$selections}) {
                   2752:         foreach my $part (@{$psprt}) {
                   2753:             my $rootparmkey=$env{'request.course.id'};
                   2754:             if (($item ne 'all') && ($item ne 'none') && ($item)) {
                   2755:                 $rootparmkey.='.['.$item.']';
                   2756:             }
                   2757:             if ($parmlev eq 'general') {
                   2758: # course-level parameter
                   2759:                 my $newparmkey=$rootparmkey.'.'.$part.'.'.$cat;
                   2760:                 $$listdata{$newparmkey}=1;
                   2761:                 $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   2762:             } elsif ($parmlev eq 'map') {
                   2763: # map-level parameter
                   2764:                 foreach my $mapid (keys %{$allmaps}) {
                   2765:                     if (($pschp ne 'all') && ($pschp ne $mapid)) { next; }
                   2766:                     my $newparmkey=$rootparmkey.'.'.$$allmaps{$mapid}.'___(all).'.$part.'.'.$cat;
                   2767:                     $$listdata{$newparmkey}=1;
                   2768:                     $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   2769:                 }
                   2770:             } else {
                   2771: # resource-level parameter
                   2772:                 foreach my $rid (@{$ids}) {
                   2773:                     my ($map,$resid,$url)=&Apache::lonnet::decode_symb($$symbp{$rid});
                   2774:                     if (($pschp ne 'all') && ($$allmaps{$pschp} ne $map)) { next; }
                   2775:                     my $newparmkey=$rootparmkey.'.'.$$symbp{$rid}.'.'.$part.'.'.$cat;
                   2776:                     $$listdata{$newparmkey}=1;
                   2777:                     $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   2778:                 }
                   2779:             }
                   2780:         }
                   2781:     }
                   2782: }
                   2783: 
1.208     www      2784: sub overview {
1.280     albertel 2785:     my ($r) = @_;
1.208     www      2786:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   2787:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.280     albertel 2788: 
                   2789:     my $start_page=&Apache::loncommon::start_page('Modify Parameters');
1.298     albertel 2790:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
1.208     www      2791:     $r->print(<<ENDOVER);
1.280     albertel 2792: $start_page
1.208     www      2793: $breadcrumbs
1.232     albertel 2794: <form method="post" action="/adm/parmset?action=setoverview" name="parmform">
1.208     www      2795: ENDOVER
                   2796: # Store modified
                   2797: 
                   2798:     &storedata($r,$crs,$dom);
                   2799: 
                   2800: # Read modified data
                   2801: 
                   2802:     my $resourcedata=&readdata($crs,$dom);
                   2803: 
1.214     www      2804: 
                   2805:     my $sortorder=$env{'form.sortorder'};
                   2806:     unless ($sortorder) { $sortorder='realmstudent'; }
                   2807:     &sortmenu($r,$sortorder);
                   2808: 
1.208     www      2809: # List data
                   2810: 
1.214     www      2811:     my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);
1.208     www      2812: 
1.145     www      2813:     $r->print(&tableend().'<p>'.
1.280     albertel 2814: 	($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form>'.
                   2815: 	      &Apache::loncommon::end_page());
1.120     www      2816: }
1.121     www      2817: 
1.59      matthew  2818: ##################################################
                   2819: ##################################################
1.178     raeburn  2820:                                                                                             
                   2821: =pod
1.239     raeburn  2822: 
                   2823: =item check_cloners
                   2824: 
                   2825: Checks if new users included in list of allowed cloners
                   2826: are valid users.  Replaces supplied list with 
                   2827: cleaned list containing only users with valid usernames
                   2828: and domains.
                   2829: 
                   2830: Inputs: $clonelist, $oldcloner 
                   2831: where $clonelist is ref to array of requested cloners,
                   2832: and $oldcloner is ref to array of currently allowed
                   2833: cloners.
                   2834: 
                   2835: Returns: string - comma separated list of requested
                   2836: cloners (username:domain) who do not exist in system.
                   2837: 
                   2838: =item change_clone
                   2839: 
1.178     raeburn  2840: Modifies the list of courses a user can clone (stored
1.239     raeburn  2841: in the user's environment.db file), called when a
1.178     raeburn  2842: change is made to the list of users allowed to clone
                   2843: a course.
1.239     raeburn  2844: 
1.178     raeburn  2845: Inputs: $action,$cloner
                   2846: where $action is add or drop, and $cloner is identity of 
                   2847: user for whom cloning ability is to be changed in course. 
                   2848: 
                   2849: =cut
                   2850:                                                                                             
                   2851: ##################################################
                   2852: ##################################################
                   2853: 
1.239     raeburn  2854: sub extract_cloners {
                   2855:     my ($clonelist,$allowclone) = @_;
                   2856:     if ($clonelist =~ /,/) {
                   2857:         @{$allowclone} = split/,/,$clonelist;
                   2858:     } else {
                   2859:         $$allowclone[0] = $clonelist;
                   2860:     }
                   2861: }
                   2862: 
                   2863: 
                   2864: sub check_cloners {
                   2865:     my ($clonelist,$oldcloner) = @_;
                   2866:     my ($clean_clonelist,$disallowed);
                   2867:     my @allowclone = ();
                   2868:     &extract_cloners($$clonelist,\@allowclone);
                   2869:     foreach my $currclone (@allowclone) {
                   2870:         if (!grep/^$currclone$/,@$oldcloner) {
                   2871:             my ($uname,$udom) = split/:/,$currclone;
                   2872:             if ($uname && $udom) {
                   2873:                 if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
                   2874:                     $disallowed .= $currclone.',';   
                   2875:                 } else {
                   2876:                     $clean_clonelist .= $currclone.',';
                   2877:                 }
                   2878:             }
                   2879:         } else {
                   2880:             $clean_clonelist .= $currclone.',';
                   2881:         }
                   2882:     }
                   2883:     if ($disallowed) {
                   2884:         $disallowed =~ s/,$//;
                   2885:     }
                   2886:     if ($clean_clonelist) {
                   2887:         $clean_clonelist =~ s/,$//;
                   2888:     }
                   2889:     $$clonelist = $clean_clonelist;
                   2890:     return $disallowed;
                   2891: }  
1.178     raeburn  2892: 
                   2893: sub change_clone {
                   2894:     my ($clonelist,$oldcloner) = @_;
                   2895:     my ($uname,$udom);
1.190     albertel 2896:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   2897:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1.178     raeburn  2898:     my $clone_crs = $cnum.':'.$cdom;
                   2899:     
                   2900:     if ($cnum && $cdom) {
1.239     raeburn  2901:         my @allowclone;
                   2902:         &extract_cloners($clonelist,\@allowclone);
1.178     raeburn  2903:         foreach my $currclone (@allowclone) {
                   2904:             if (!grep/^$currclone$/,@$oldcloner) {
                   2905:                 ($uname,$udom) = split/:/,$currclone;
                   2906:                 if ($uname && $udom) {
                   2907:                     unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
                   2908:                         my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');
                   2909:                         if ($currclonecrs{'cloneable'} !~ /\Q$clone_crs\E/) {
                   2910:                             if ($currclonecrs{'cloneable'} eq '') {
                   2911:                                 $currclonecrs{'cloneable'} = $clone_crs;
                   2912:                             } else {
                   2913:                                 $currclonecrs{'cloneable'} .= ','.$clone_crs;
                   2914:                             }
                   2915:                             &Apache::lonnet::put('environment',\%currclonecrs,$udom,$uname);
                   2916:                         }
                   2917:                     }
                   2918:                 }
                   2919:             }
                   2920:         }
                   2921:         foreach my $oldclone (@$oldcloner) {
                   2922:             if (!grep/^$oldclone$/,@allowclone) {
                   2923:                 ($uname,$udom) = split/:/,$oldclone;
                   2924:                 if ($uname && $udom) {
                   2925:                     unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
                   2926:                         my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');
                   2927:                         my %newclonecrs = ();
                   2928:                         if ($currclonecrs{'cloneable'} =~ /\Q$clone_crs\E/) {
                   2929:                             if ($currclonecrs{'cloneable'} =~ /,/) {
                   2930:                                 my @currclonecrs = split/,/,$currclonecrs{'cloneable'};
                   2931:                                 foreach (@currclonecrs) {
                   2932:                                     unless ($_ eq $clone_crs) {
                   2933:                                         $newclonecrs{'cloneable'} .= $_.',';
                   2934:                                     }
                   2935:                                 }
                   2936:                                 $newclonecrs{'cloneable'} =~ s/,$//;
                   2937:                             } else {
                   2938:                                 $newclonecrs{'cloneable'} = '';
                   2939:                             }
                   2940:                             &Apache::lonnet::put('environment',\%newclonecrs,$udom,$uname);
                   2941:                         }
                   2942:                     }
                   2943:                 }
                   2944:             }
                   2945:         }
                   2946:     }
                   2947: }
                   2948: 
1.193     albertel 2949: 
                   2950: ##################################################
                   2951: ##################################################
                   2952: 
                   2953: =pod
                   2954: 
                   2955: =item * header
                   2956: 
                   2957: Output html header for page
                   2958: 
                   2959: =cut
                   2960: 
                   2961: ##################################################
                   2962: ##################################################
                   2963: sub header {
1.280     albertel 2964:     return &Apache::loncommon::start_page('Parameter Manager');
1.193     albertel 2965: }
                   2966: ##################################################
                   2967: ##################################################
                   2968: sub print_main_menu {
                   2969:     my ($r,$parm_permission)=@_;
                   2970:     #
                   2971:     $r->print(<<ENDMAINFORMHEAD);
                   2972: <form method="post" enctype="multipart/form-data"
                   2973:       action="/adm/parmset" name="studentform">
                   2974: ENDMAINFORMHEAD
                   2975: #
1.195     albertel 2976:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   2977:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1.268     albertel 2978:     my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
                   2979: 
1.193     albertel 2980:     my @menu =
                   2981:         (
                   2982:           { text => 'Set Course Environment Parameters',
1.204     www      2983: 	    action => 'crsenv',
1.193     albertel 2984:             permission => $parm_permission,
                   2985:             },
1.255     banghart 2986:           { text => 'Set Portfolio Metadata',
1.259     banghart 2987: 	    action => 'setrestrictmeta',
1.240     banghart 2988:             permission => $parm_permission,
                   2989:             },
1.271     www      2990: 	  { text => 'Manage Course Slots',
1.268     albertel 2991: 	    url => '/adm/slotrequest?command=showslots',
                   2992: 	    permission => $vgr,
                   2993:             },
                   2994: 	  { divider => 1,
                   2995: 	    },
1.216     www      2996:           { text => 'Set/Modify Resource Parameters - Helper Mode',
1.193     albertel 2997:             url => '/adm/helper/parameter.helper',
                   2998:             permission => $parm_permission,
                   2999:             },
1.216     www      3000:           { text => 'Modify Resource Parameters - Overview Mode',
1.193     albertel 3001:             action => 'setoverview',
                   3002:             permission => $parm_permission,
1.208     www      3003:             },          
1.216     www      3004: 	  { text => 'Set Resource Parameters - Overview Mode',
1.208     www      3005:             action => 'newoverview',
                   3006:             permission => $parm_permission,
1.193     albertel 3007:             },
1.216     www      3008:           { text => 'Set/Modify Resource Parameters - Table Mode',
1.193     albertel 3009:             action => 'settable',
                   3010:             permission => $parm_permission,
1.204     www      3011:             help => 'Cascading_Parameters',
1.193     albertel 3012:             },
1.220     www      3013:           { text => 'Set Parameter Setting Default Actions',
                   3014:             action => 'setdefaults',
                   3015:             permission => $parm_permission,
1.284     www      3016:             },          
1.292     www      3017: 	  { text => 'Parameter Change Log and Course Blog Posting/User Notification',
1.284     www      3018:             action => 'parameterchangelog',
                   3019:             permission => $parm_permission,
1.220     www      3020:             },
1.193     albertel 3021:           );
                   3022:     my $menu_html = '';
                   3023:     foreach my $menu_item (@menu) {
1.268     albertel 3024: 	if ($menu_item->{'divider'}) {
                   3025: 	    $menu_html .= '<hr />';
                   3026: 	    next;
                   3027: 	}
1.193     albertel 3028:         next if (! $menu_item->{'permission'});
                   3029:         $menu_html.='<p>';
                   3030:         $menu_html.='<font size="+1">';
                   3031:         if (exists($menu_item->{'url'})) {
                   3032:             $menu_html.=qq{<a href="$menu_item->{'url'}">};
                   3033:         } else {
                   3034:             $menu_html.=
                   3035:                 qq{<a href="/adm/parmset?action=$menu_item->{'action'}">};
                   3036:         }
                   3037:         $menu_html.= &mt($menu_item->{'text'}).'</a></font>';
                   3038:         if (exists($menu_item->{'help'})) {
                   3039:             $menu_html.=
                   3040:                 &Apache::loncommon::help_open_topic($menu_item->{'help'});
                   3041:         }
                   3042:         $menu_html.='</p>'.$/;
                   3043:     }
                   3044:     $r->print($menu_html);
                   3045:     return;
                   3046: }
1.255     banghart 3047: ### Set portfolio metadata
1.252     banghart 3048: sub output_row {
1.255     banghart 3049:     my ($r, $field_name, $field_text) = @_;
1.252     banghart 3050:     my $output;
1.263     banghart 3051:     my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'};
                   3052:     my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'};
1.254     banghart 3053:     unless (defined($options)) {
                   3054:         $options = 'active,stuadd';
1.261     banghart 3055:         $values = '';
1.252     banghart 3056:     }
1.260     banghart 3057:     $output.='<strong>'.$field_text.':</strong>';
1.264     albertel 3058:     $output.='<input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /><br />';
                   3059: 
                   3060:     my @options= ( ['active', 'Show to student'],
                   3061: 		   ['onlyone','Student may select only one choice'],
                   3062: 		   ['stuadd', 'Student may type choices']);
                   3063:     foreach my $opt (@options) {
                   3064: 	my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ;
                   3065: 	$output.=('&nbsp;'x5).'<label><input type="checkbox" name="'.
                   3066: 	    $field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'.
                   3067: 	    &mt($opt->[1]).'</label> <br />';
1.252     banghart 3068:     }
                   3069:     return ($output);
                   3070: }
1.259     banghart 3071: 
                   3072: sub setrestrictmeta {
1.240     banghart 3073:     my ($r)=@_;
1.242     banghart 3074:     my $next_meta;
1.244     banghart 3075:     my $output;
1.245     banghart 3076:     my $item_num;
1.246     banghart 3077:     my $put_result;
1.280     albertel 3078:     
                   3079:     $r->print(&Apache::loncommon::start_page('Restrict Metadata'));
1.298     albertel 3080:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
1.240     banghart 3081:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3082:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.259     banghart 3083:     my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};
1.252     banghart 3084:     my $save_field = '';
1.259     banghart 3085:     if ($env{'form.restrictmeta'}) {
1.254     banghart 3086:         foreach my $field (sort(keys(%env))) {
1.252     banghart 3087:             if ($field=~m/^form.(.+)_(.+)$/) {
1.254     banghart 3088:                 my $options;
1.252     banghart 3089:                 my $meta_field = $1;
                   3090:                 my $meta_key = $2;
1.253     banghart 3091:                 if ($save_field ne $meta_field) {
1.252     banghart 3092:                     $save_field = $meta_field;
1.253     banghart 3093:             	    if ($env{'form.'.$meta_field.'_stuadd'}) {
1.254     banghart 3094:             	        $options.='stuadd,';
                   3095:             	    } 
1.253     banghart 3096:             	    if ($env{'form.'.$meta_field.'_onlyone'}) {
1.254     banghart 3097:             	        $options.='onlyone,';
                   3098:             	    } 
                   3099:             	    if ($env{'form.'.$meta_field.'_active'}) {
                   3100:             	        $options.='active,';
1.253     banghart 3101:             	    }
1.259     banghart 3102:                     my $name = $save_field;
1.253     banghart 3103:                      $put_result = &Apache::lonnet::put('environment',
1.262     banghart 3104:                                                   {'metadata.'.$meta_field.'.options'=>$options,
                   3105:                                                    'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
1.253     banghart 3106:                                                    },$dom,$crs);
1.252     banghart 3107:                 }
                   3108:             }
                   3109:         }
                   3110:     }
1.296     albertel 3111:     &Apache::lonnet::coursedescription($env{'request.course.id'},
                   3112: 				       {'freshen_cache' => 1});
1.258     albertel 3113:     my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
                   3114:     foreach my $field (sort(keys(%metadata_fields))) {
1.265     banghart 3115:         &Apache::lonnet::logthis ($field);
                   3116:         if ($field ne 'courserestricted') {
                   3117: 	    $output.= &output_row($r, $field, $metadata_fields{$field});
                   3118: 	}
1.255     banghart 3119:     }
1.244     banghart 3120:     $r->print(<<ENDenv);       
1.259     banghart 3121:         <form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">
1.244     banghart 3122:         <p>
                   3123:         $output
1.259     banghart 3124:         <input type="submit" name="restrictmeta" value="Update Metadata Restrictions">
1.244     banghart 3125:         </form>
                   3126: ENDenv
1.280     albertel 3127:     $r->print(&Apache::loncommon::end_page());
1.240     banghart 3128:     return 'ok';
                   3129: }
1.220     www      3130: ##################################################
1.193     albertel 3131: 
1.220     www      3132: sub defaultsetter {
1.280     albertel 3133:     my ($r) = @_;
                   3134: 
                   3135:     my $start_page = 
                   3136: 	&Apache::loncommon::start_page('Parameter Setting Default Actions');
1.298     albertel 3137:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
1.220     www      3138:     $r->print(<<ENDDEFHEAD);
1.280     albertel 3139: $start_page
1.220     www      3140: $breadcrumbs
                   3141: <form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
                   3142: ENDDEFHEAD
1.280     albertel 3143: 
                   3144:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3145:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.221     www      3146:     my @ids=();
                   3147:     my %typep=();
                   3148:     my %keyp=();
                   3149:     my %allparms=();
                   3150:     my %allparts=();
                   3151:     my %allmaps=();
                   3152:     my %mapp=();
                   3153:     my %symbp=();
                   3154:     my %maptitles=();
                   3155:     my %uris=();
                   3156:     my %keyorder=&standardkeyorder();
                   3157:     my %defkeytype=();
                   3158: 
                   3159:     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
                   3160: 				\%mapp, \%symbp,\%maptitles,\%uris,
                   3161: 				\%keyorder,\%defkeytype);
1.224     www      3162:     if ($env{'form.storerules'}) {
                   3163: 	my %newrules=();
                   3164: 	my @delrules=();
1.226     www      3165: 	my %triggers=();
1.225     albertel 3166: 	foreach my $key (keys(%env)) {
                   3167:             if ($key=~/^form\.(\w+)\_action$/) {
1.224     www      3168: 		my $tempkey=$1;
1.226     www      3169: 		my $action=$env{$key};
                   3170:                 if ($action) {
                   3171: 		    $newrules{$tempkey.'_action'}=$action;
                   3172: 		    if ($action ne 'default') {
                   3173: 			my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
                   3174: 			$triggers{$whichparm}.=$tempkey.':';
                   3175: 		    }
                   3176: 		    $newrules{$tempkey.'_type'}=$defkeytype{$tempkey};
1.224     www      3177: 		    if (&isdateparm($defkeytype{$tempkey})) {
1.227     www      3178: 			$newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};
1.224     www      3179: 			$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
                   3180: 			$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
                   3181: 			$newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
                   3182: 		    } else {
                   3183: 			$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
1.227     www      3184: 			$newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};
1.224     www      3185: 		    }
                   3186: 		} else {
1.225     albertel 3187: 		    push(@delrules,$tempkey.'_action');
1.226     www      3188: 		    push(@delrules,$tempkey.'_type');
1.225     albertel 3189: 		    push(@delrules,$tempkey.'_hours');
                   3190: 		    push(@delrules,$tempkey.'_min');
                   3191: 		    push(@delrules,$tempkey.'_sec');
                   3192: 		    push(@delrules,$tempkey.'_value');
1.224     www      3193: 		}
                   3194: 	    }
                   3195: 	}
1.226     www      3196: 	foreach my $key (keys %allparms) {
                   3197: 	    $newrules{$key.'_triggers'}=$triggers{$key};
                   3198: 	}
1.224     www      3199: 	&Apache::lonnet::put('parmdefactions',\%newrules,$dom,$crs);
                   3200: 	&Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);
                   3201: 	&resetrulescache();
                   3202:     }
1.227     www      3203:     my %lt=&Apache::lonlocal::texthash('days' => 'Days',
                   3204: 				       'hours' => 'Hours',
1.221     www      3205: 				       'min' => 'Minutes',
                   3206: 				       'sec' => 'Seconds',
                   3207: 				       'yes' => 'Yes',
                   3208: 				       'no' => 'No');
1.222     www      3209:     my @standardoptions=('','default');
                   3210:     my @standarddisplay=('',&mt('Default value when manually setting'));
                   3211:     my @dateoptions=('','default');
                   3212:     my @datedisplay=('',&mt('Default value when manually setting'));
                   3213:     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
                   3214: 	unless ($tempkey) { next; }
                   3215: 	push @standardoptions,'when_setting_'.$tempkey;
                   3216: 	push @standarddisplay,&mt('Automatically set when setting ').$tempkey;
                   3217: 	if (&isdateparm($defkeytype{$tempkey})) {
                   3218: 	    push @dateoptions,'later_than_'.$tempkey;
                   3219: 	    push @datedisplay,&mt('Automatically set later than ').$tempkey;
                   3220: 	    push @dateoptions,'earlier_than_'.$tempkey;
                   3221: 	    push @datedisplay,&mt('Automatically set earlier than ').$tempkey;
                   3222: 	} 
                   3223:     }
1.231     www      3224: $r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.
                   3225: 	  &mt('Automatic setting rules apply to table mode interfaces only.'));
1.221     www      3226:     $r->print("\n<table border='1'><tr><th>".&mt('Rule for parameter').'</th><th>'.
1.222     www      3227: 	      &mt('Action').'</th><th>'.&mt('Value').'</th></tr>');
1.221     www      3228:     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
1.222     www      3229: 	unless ($tempkey) { next; }
1.221     www      3230: 	$r->print("\n<tr><td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
1.222     www      3231: 	my $action=&rulescache($tempkey.'_action');
                   3232: 	$r->print('<select name="'.$tempkey.'_action">');
                   3233: 	if (&isdateparm($defkeytype{$tempkey})) {
                   3234: 	    for (my $i=0;$i<=$#dateoptions;$i++) {
                   3235: 		if ($dateoptions[$i]=~/\_$tempkey$/) { next; }
                   3236: 		$r->print("\n<option value='$dateoptions[$i]'".
                   3237: 			  ($dateoptions[$i] eq $action?' selected="selected"':'').
                   3238: 			  ">$datedisplay[$i]</option>");
                   3239: 	    }
                   3240: 	} else {
                   3241: 	    for (my $i=0;$i<=$#standardoptions;$i++) {
                   3242: 		if ($standardoptions[$i]=~/\_$tempkey$/) { next; }
                   3243: 		$r->print("\n<option value='$standardoptions[$i]'".
                   3244: 			  ($standardoptions[$i] eq $action?' selected="selected"':'').
                   3245: 			  ">$standarddisplay[$i]</option>");
                   3246: 	    }
                   3247: 	}
                   3248: 	$r->print('</select>');
1.227     www      3249: 	unless (&isdateparm($defkeytype{$tempkey})) {
                   3250: 	    $r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').
                   3251: 		      '<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');
                   3252: 	}
1.222     www      3253: 	$r->print("\n</td><td>\n");
                   3254: 
1.221     www      3255:         if (&isdateparm($defkeytype{$tempkey})) {
1.227     www      3256: 	    my $days=&rulescache($tempkey.'_days');
1.222     www      3257: 	    my $hours=&rulescache($tempkey.'_hours');
                   3258: 	    my $min=&rulescache($tempkey.'_min');
                   3259: 	    my $sec=&rulescache($tempkey.'_sec');
1.221     www      3260: 	    $r->print(<<ENDINPUTDATE);
1.227     www      3261: <input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />
1.222     www      3262: <input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />
                   3263: <input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />
                   3264: <input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}
1.221     www      3265: ENDINPUTDATE
                   3266: 	} elsif ($defkeytype{$tempkey} eq 'string_yesno') {
1.222     www      3267:             my $yeschecked='';
                   3268:             my $nochecked='';
                   3269:             if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked='checked="checked"'; }
                   3270:             if (&rulescache($tempkey.'_value') eq 'no') { $nochecked='checked="checked"'; }
                   3271: 
1.221     www      3272: 	    $r->print(<<ENDYESNO);
1.224     www      3273: <label><input type="radio" name="$tempkey\_value" value="yes" $yeschecked /> $lt{'yes'}</label><br />
                   3274: <label><input type="radio" name="$tempkey\_value" value="no" $nochecked /> $lt{'no'}</label>
1.221     www      3275: ENDYESNO
                   3276:         } else {
1.224     www      3277: 	    $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
1.221     www      3278: 	}
                   3279:         $r->print('</td></tr>');
                   3280:     }
1.224     www      3281:     $r->print("</table>\n<input type='submit' name='storerules' value='".
1.280     albertel 3282: 	      &mt('Store Rules')."' /></form>\n".
                   3283: 	      &Apache::loncommon::end_page());
1.220     www      3284:     return;
                   3285: }
1.193     albertel 3286: 
1.290     www      3287: sub components {
1.291     www      3288:     my ($key,$uname,$udom,$exeuser,$exedomain)=@_;
1.290     www      3289:     my $typeflag=0;
                   3290:     if ($key=~/\.type$/) {
                   3291: 	$key=~s/\.type$//;
                   3292:         $typeflag=1;
                   3293:     }
1.291     www      3294:     my $issection;
1.290     www      3295:     my ($middle,$part,$name)=($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
                   3296:     my $section=&mt('All Students');
                   3297:     if ($middle=~/^\[(.*)\]/) {
1.291     www      3298: 	$issection=$1;
                   3299: 	$section=&mt('Group/Section').': '.$issection;
1.290     www      3300: 	$middle=~s/^\[(.*)\]//;
                   3301:     }
                   3302:     $middle=~s/\.+$//;
                   3303:     $middle=~s/^\.+//;
1.291     www      3304:     if ($uname) {
                   3305: 	$section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
                   3306: 	$issection='';
                   3307:     }
1.290     www      3308:     my $realm='<font color="red">'.&mt('All Resources').'</font>';
                   3309:     if ($middle=~/^(.+)\_\_\_\(all\)$/) {
                   3310: 	$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
                   3311:     } elsif ($middle) {
                   3312: 	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
                   3313: 	$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
                   3314:     }
1.291     www      3315:     my $what=$part.'.'.$name;
                   3316:     return ($realm,$section,$name,$part,$typeflag,
                   3317: 	    $what,$middle,$uname,$udom,$issection);
1.290     www      3318: }
1.293     www      3319: 
1.292     www      3320: sub standard_parameter_names {
                   3321:     my ($name)=@_;
                   3322:     my %standard_parms=&Apache::lonlocal::texthash('duedate' => 'Due Date',
                   3323: 						   'answerdate' => 'Answer Date',
                   3324: 						   'opendate' => 'Open Date',
                   3325: 						   'maxtries' => 'Max. Number of Tries',
                   3326: 						   'weight' => 'Weight',
                   3327: 						   'date_start' => 'Starting Date',
1.293     www      3328: 						   'date_end' => 'Ending Date',
                   3329: 						   'int_pos' => 'Positive Integer',
                   3330: 						   'int_zero_pos' => 'Positive Integer or Zero',
                   3331: 						   'hinttries' => 'Number of Tries till Hints appear');
1.292     www      3332:     if ($standard_parms{$name}) {
                   3333: 	return $standard_parms{$name}; 
                   3334:     } else { 
                   3335: 	return $name; 
                   3336:     }
                   3337: }
1.290     www      3338: 
1.285     albertel 3339: sub parm_change_log {
1.284     www      3340:     my ($r)=@_;
                   3341:     &startpage($r);
1.286     www      3342:     my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
                   3343: 				      $env{'course.'.$env{'request.course.id'}.'.domain'},
                   3344: 				      $env{'course.'.$env{'request.course.id'}.'.num'});
1.301     www      3345:     if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }
                   3346: 
1.291     www      3347:     my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
                   3348: 						     $env{'course.'.$env{'request.course.id'}.'.domain'});
1.301     www      3349:     $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
                   3350: 	      '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Extent').'</th><th>'.&mt('Users').'</th><th>'.
                   3351: 	      &mt('Parameter').'</th><th>'.&mt('Part').'</th><th>'.&mt('New Value').'</th><th>'.&mt('Announce').'</th>'.
                   3352: 	      &Apache::loncommon::end_data_table_header_row());
1.294     www      3353:     foreach my $id (sort { $parmlog{$b}{'exe_time'}<=>$parmlog{$a}{'exe_time'} } (keys(%parmlog))) {
                   3354:         my @changes=keys(%{$parmlog{$id}{'logentry'}});
1.290     www      3355: 	my $count=$#changes+1;
1.288     albertel 3356: 	my $time =
1.294     www      3357: 	    &Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'});
1.289     www      3358: 	my $plainname = 
1.294     www      3359: 	    &Apache::loncommon::plainname($parmlog{$id}{'exe_uname'},
                   3360: 					  $parmlog{$id}{'exe_udom'});
1.288     albertel 3361: 	my $about_me_link = 
1.289     www      3362: 	    &Apache::loncommon::aboutmewrapper($plainname,
1.294     www      3363: 					       $parmlog{$id}{'exe_uname'},
                   3364: 					       $parmlog{$id}{'exe_udom'});
1.293     www      3365: 	my $send_msg_link='';
1.294     www      3366: 	if ((($parmlog{$id}{'exe_uname'} ne $env{'user.name'}) 
                   3367: 	     || ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
1.293     www      3368: 	    $send_msg_link ='<br />'.
1.288     albertel 3369: 		&Apache::loncommon::messagewrapper(&mt('Send message'),
1.294     www      3370: 						   $parmlog{$id}{'exe_uname'},
                   3371: 						   $parmlog{$id}{'exe_udom'});
1.288     albertel 3372: 	}
1.301     www      3373: 	my $row_start=&Apache::loncommon::start_data_table_row();
                   3374: 	$r->print($row_start.'<td rowspan="'.$count.'">'.$time.'</td>
1.290     www      3375:                        <td rowspan="'.$count.'">'.$about_me_link.
1.294     www      3376: 		  '<br /><tt>'.$parmlog{$id}{'exe_uname'}.
                   3377: 			          ':'.$parmlog{$id}{'exe_udom'}.'</tt>'.
1.290     www      3378: 		  $send_msg_link.'</td>');
                   3379: 	my $makenewrow=0;
                   3380: 	my %istype=();
1.293     www      3381: 	foreach my $changed (reverse(sort(@changes))) {
1.294     www      3382:             my $value=$parmlog{$id}{'logentry'}->{$changed};
1.291     www      3383:             my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=
1.294     www      3384: 		&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'});
1.290     www      3385: 	    if ($typeflag) { $istype{$parmname}=$value; }
1.301     www      3386: 	    if ($makenewrow) { $r->print($row_start); } else { $makenewrow=1; }
1.290     www      3387: 	    $r->print('<td>'.$realm.'</td><td>'.$section.'</td><td>'.
1.292     www      3388: 		      &standard_parameter_names($parmname).'</td><td>'.
                   3389: 		      ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>');
1.291     www      3390: 	    my $stillactive=0;
1.294     www      3391: 	    if ($parmlog{$id}{'deleteflag'}) {
1.290     www      3392: 		$r->print(&mt('Deleted'));
1.288     albertel 3393: 	    } else {
1.290     www      3394: 		if ($typeflag) {
1.292     www      3395: 		    $r->print(&mt('Type: [_1]',&standard_parameter_names($value)));
1.290     www      3396: 		} else {
1.291     www      3397: 		    my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what),
                   3398: 						      $uname,$udom,$issection,$issection,$courseopt);
                   3399: 		    if (&isdateparm($istype{$parmname})) {
                   3400: 			$r->print(&Apache::lonlocal::locallocaltime($value));
                   3401: 		    } else {
                   3402: 			$r->print($value);
                   3403: 		    }
                   3404: 		    if ($value ne $all[$level]) {
                   3405: 			$r->print('<br /><font color="red">'.&mt('Not active anymore').'</font>');
                   3406: 		    } else {
                   3407: 			$stillactive=1;
                   3408: 		    }
1.290     www      3409: 		}
1.288     albertel 3410: 	    }
1.291     www      3411: 	    $r->print('</td>');
                   3412: 	    if ($stillactive) {
1.292     www      3413: 		if (($uname) && ($udom)) {
                   3414: 		    $r->print('<td>Notify Link</td>');
                   3415: 		} else {
1.303   ! www      3416: 		    $r->print('<td>'.
        !          3417: 			      &Apache::lonrss::course_blog_link
        !          3418: 			      ($id,
        !          3419: 			       'New Parameter','Set new parameter').'</td>');
1.292     www      3420: 		}
1.291     www      3421: 	    } else {
                   3422: 		$r->print('<td>&nbsp;</td>');
                   3423: 	    }
1.301     www      3424: 	    $r->print(&Apache::loncommon::end_data_table_row());
1.288     albertel 3425: 	}
1.286     www      3426:     }
1.301     www      3427:     $r->print(&Apache::loncommon::end_data_table());
1.284     www      3428:     $r->print(&Apache::loncommon::end_page());
                   3429: }
                   3430: 
1.178     raeburn  3431: ##################################################
                   3432: ##################################################
1.30      www      3433: 
1.59      matthew  3434: =pod
                   3435: 
1.83      bowersj2 3436: =item * handler
1.59      matthew  3437: 
                   3438: Main handler.  Calls &assessparms and &crsenv subroutines.
                   3439: 
                   3440: =cut
                   3441: ##################################################
                   3442: ##################################################
1.220     www      3443: #    use Data::Dumper;
                   3444: 
1.259     banghart 3445: 
1.30      www      3446: sub handler {
1.43      albertel 3447:     my $r=shift;
1.30      www      3448: 
1.43      albertel 3449:     if ($r->header_only) {
1.126     www      3450: 	&Apache::loncommon::content_type($r,'text/html');
1.43      albertel 3451: 	$r->send_http_header;
                   3452: 	return OK;
                   3453:     }
1.193     albertel 3454:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.205     www      3455: 					    ['action','state',
                   3456:                                              'pres_marker',
                   3457:                                              'pres_value',
1.206     www      3458:                                              'pres_type',
1.243     banghart 3459:                                              'udom','uname','symb','serial']);
1.131     www      3460: 
1.83      bowersj2 3461: 
1.193     albertel 3462:     &Apache::lonhtmlcommon::clear_breadcrumbs();
1.194     albertel 3463:     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
                   3464: 					    text=>"Parameter Manager",
1.204     www      3465: 					    faq=>10,
1.194     albertel 3466: 					    bug=>'Instructor Interface'});
1.203     www      3467: 
1.30      www      3468: # ----------------------------------------------------- Needs to be in a course
1.194     albertel 3469:     my $parm_permission =
                   3470: 	(&Apache::lonnet::allowed('opa',$env{'request.course.id'}) ||
1.190     albertel 3471: 	 &Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.
1.193     albertel 3472: 				  $env{'request.course.sec'}));
1.194     albertel 3473:     if ($env{'request.course.id'} &&  $parm_permission) {
1.193     albertel 3474: 
                   3475:         # Start Page
1.126     www      3476:         &Apache::loncommon::content_type($r,'text/html');
1.106     www      3477:         $r->send_http_header;
1.30      www      3478: 
1.203     www      3479: 
                   3480:         # id numbers can change on re-ordering of folders
                   3481: 
                   3482:         &resetsymbcache();
                   3483: 
1.193     albertel 3484:         #
                   3485:         # Main switch on form.action and form.state, as appropriate
                   3486:         #
                   3487:         # Check first if coming from someone else headed directly for
                   3488:         #  the table mode
                   3489:         if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
                   3490: 	     && (!$env{'form.dis'})) || ($env{'form.symb'})) {
                   3491: 	    &assessparms($r);
                   3492: 
                   3493:         } elsif (! exists($env{'form.action'})) {
                   3494:             $r->print(&header());
1.298     albertel 3495:             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Manager'));
1.193     albertel 3496:             &print_main_menu($r,$parm_permission);
                   3497:         } elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {
1.194     albertel 3498:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
                   3499: 						    text=>"Course Environment"});
1.193     albertel 3500:             &crsenv($r); 
                   3501:         } elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {
1.194     albertel 3502:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
                   3503: 						    text=>"Overview Mode"});
1.121     www      3504: 	    &overview($r);
1.259     banghart 3505:         } elsif ($env{'form.action'} eq 'setrestrictmeta' && $parm_permission) {
                   3506:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',
                   3507: 						    text=>"Restrict Metadata"});
                   3508: 	    &setrestrictmeta($r);
1.208     www      3509:         } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {
                   3510:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
                   3511: 						    text=>"Overview Mode"});
                   3512: 	    &newoverview($r);
1.220     www      3513:         }  elsif ($env{'form.action'} eq 'setdefaults' && $parm_permission) {
                   3514:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
                   3515: 						    text=>"Set Defaults"});
                   3516: 	    &defaultsetter($r);
                   3517: 	} elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
1.194     albertel 3518:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
1.204     www      3519: 						    text=>"Table Mode",
                   3520: 						    help => 'Course_Setting_Parameters'});
1.121     www      3521: 	    &assessparms($r);
1.284     www      3522:         } elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) {
                   3523:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
1.292     www      3524: 						    text=>"Parameter Change Log"});
1.285     albertel 3525: 	    &parm_change_log($r);
1.284     www      3526: 	}       
1.43      albertel 3527:     } else {
1.1       www      3528: # ----------------------------- Not in a course, or not allowed to modify parms
1.190     albertel 3529: 	$env{'user.error.msg'}=
1.43      albertel 3530: 	    "/adm/parmset:opa:0:0:Cannot modify assessment parameters";
                   3531: 	return HTTP_NOT_ACCEPTABLE;
                   3532:     }
                   3533:     return OK;
1.1       www      3534: }
                   3535: 
                   3536: 1;
                   3537: __END__
                   3538: 
1.59      matthew  3539: =pod
1.38      harris41 3540: 
                   3541: =back
                   3542: 
                   3543: =cut
1.1       www      3544: 
                   3545: 
                   3546: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>