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

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

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