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

1.1       www         1: # The LearningOnline Network with CAPA
                      2: # Handler to set parameters for assessments
                      3: #
1.364   ! albertel    4: # $Id: lonparmset.pm,v 1.363 2007/03/17 04:35:03 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'
                   2252: 	         => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
1.107     matthew  2253:              ); 
1.177     raeburn  2254:         my @Display_Order = ('url','description','courseid','cloners','grading',
1.278     www      2255:                              'externalsyllabus',
1.107     matthew  2256:                              'default_xml_style','pageseparators',
1.360     www      2257:                              'question.email','question.email.text','comment.email','comment.email.text','policy.email','policy.email.text',
1.169     matthew  2258:                              'student_classlist_view',
1.118     matthew  2259:                              'plc.roles.denied','plc.users.denied',
1.107     matthew  2260:                              'pch.roles.denied','pch.users.denied',
                   2261:                              'allow_limited_html_in_feedback',
1.170     raeburn  2262:                              'allow_discussion_post_editing',
1.108     www      2263:                              'languages',
1.150     www      2264: 			     'nothideprivileged',
1.107     matthew  2265:                              'rndseed',
1.151     albertel 2266:                              'receiptalg',
1.107     matthew  2267:                              'problem_stream_switch',
1.164     sakharuk 2268: 			     'suppress_tries',
1.161     sakharuk 2269:                              'default_paper_size',
1.319     foxr     2270: 			     'print_header_format',
1.115     www      2271:                              'disable_receipt_display',
1.107     matthew  2272:                              'spreadsheet_default_classcalc',
                   2273:                              'spreadsheet_default_studentcalc',
                   2274:                              'spreadsheet_default_assesscalc', 
                   2275:                              'hideemptyrows',
                   2276:                              'default_enrollment_start_date',
                   2277:                              'default_enrollment_end_date',
1.163     albertel 2278: 			     'tthoptions',
1.251     albertel 2279: 			     'disablesigfigs',
1.313     albertel 2280: 			     'disableexampointprint',
                   2281: 			     'task_messages'
1.107     matthew  2282:                              );
                   2283: 	foreach my $parameter (sort(keys(%values))) {
1.244     banghart 2284:             unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) {
1.142     raeburn  2285:                 if (! $descriptions{$parameter}) {
                   2286:                     $descriptions{$parameter}=$parameter;
                   2287:                     push(@Display_Order,$parameter);
                   2288:                 }
                   2289:             }
1.43      albertel 2290: 	}
1.315     albertel 2291: 	
1.107     matthew  2292:         foreach my $parameter (@Display_Order) {
                   2293:             my $description = $descriptions{$parameter};
1.51      matthew  2294:             # onchange is javascript to automatically check the 'Set' button.
1.69      www      2295:             my $onchange = 'onFocus="javascript:window.document.forms'.
1.107     matthew  2296:                 "['envform'].elements['".$parameter."_setparmval']".
1.51      matthew  2297:                 '.checked=true;"';
1.315     albertel 2298:             $output .= &Apache::loncommon::start_data_table_row().
                   2299: 		'<td>'.$description.'</td>';
1.107     matthew  2300:             if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
                   2301:                 $output .= '<td>'.
                   2302:                     &Apache::lonhtmlcommon::date_setter('envform',
                   2303:                                                         $parameter.'_value',
                   2304:                                                         $values{$parameter},
                   2305:                                                         $onchange).
                   2306:                                                         '</td>';
                   2307:             } else {
                   2308:                 $output .= '<td>'.
                   2309:                     &Apache::lonhtmlcommon::textbox($parameter.'_value',
                   2310:                                                     $values{$parameter},
                   2311:                                                     40,$onchange).'</td>';
                   2312:             }
                   2313:             $output .= '<td>'.
                   2314:                 &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
                   2315:                 '</td>';
1.315     albertel 2316:             $output .= &Apache::loncommon::end_data_table_row()."\n";
1.51      matthew  2317: 	}
1.69      www      2318:         my $onchange = 'onFocus="javascript:window.document.forms'.
1.51      matthew  2319:             '[\'envform\'].elements[\'newp_setparmval\']'.
                   2320:             '.checked=true;"';
1.315     albertel 2321: 	$output.=&Apache::loncommon::start_data_table_row().
                   2322: 	    '<td><i>'.&mt('Create New Environment Variable').'</i><br />'.
1.51      matthew  2323: 	    '<input type="text" size=40 name="newp_name" '.
                   2324:                 $onchange.' /></td><td>'.
                   2325:             '<input type="text" size=40 name="newp_value" '.
                   2326:                 $onchange.' /></td><td>'.
1.315     albertel 2327: 	    '<input type="checkbox" name="newp_setparmval" /></td>'.
                   2328: 	    &Apache::loncommon::end_data_table_row()."\n";
1.43      albertel 2329:     }
1.157     sakharuk 2330:     my %lt=&Apache::lonlocal::texthash(
                   2331: 		    'par'   => 'Parameter',
                   2332: 		    'val'   => 'Value',
                   2333: 		    'set'   => 'Set',
                   2334: 		    'sce'   => 'Set Course Environment'
                   2335: 				       );
                   2336: 
1.140     sakharuk 2337:     my $Parameter=&mt('Parameter');
                   2338:     my $Value=&mt('Value');
1.141     sakharuk 2339:     my $Set=&mt('Set');
1.280     albertel 2340:     my $browse_js=
                   2341: 	'<script type="text/javascript" language="Javascript">'.
                   2342: 	&Apache::loncommon::browser_and_searcher_javascript('parmset').
                   2343: 	'</script>';
                   2344:     
                   2345:     my $start_page = 
1.323     albertel 2346: 	&Apache::loncommon::start_page('Set Course Environment',
1.280     albertel 2347: 				       $browse_js);
                   2348:     my $end_page = 
                   2349: 	&Apache::loncommon::end_page();
1.315     albertel 2350:     my $end_table=&Apache::loncommon::end_data_table();
1.280     albertel 2351:     $r->print(<<ENDENV);
                   2352: $start_page
1.193     albertel 2353: $breadcrumbs
                   2354: <form method="post" action="/adm/parmset?action=crsenv" name="envform">
1.30      www      2355: $setoutput
1.315     albertel 2356: $start_table
                   2357: $start_header_row
                   2358: <th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th>
                   2359: $end_header_row
1.30      www      2360: $output
1.315     albertel 2361: $end_table
1.157     sakharuk 2362: <input type="submit" name="crsenv" value="$lt{'sce'}">
1.30      www      2363: </form>
1.280     albertel 2364: $end_page
                   2365: ENDENV
1.30      www      2366: }
1.120     www      2367: ##################################################
1.207     www      2368: # Overview mode
                   2369: ##################################################
1.124     www      2370: my $tableopen;
                   2371: 
                   2372: sub tablestart {
                   2373:     if ($tableopen) {
                   2374: 	return '';
                   2375:     } else {
                   2376: 	$tableopen=1;
1.295     albertel 2377: 	return &Apache::loncommon::start_data_table().'<tr><th>'.&mt('Parameter').'</th><th>'.
1.130     www      2378: 	    &mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
1.124     www      2379:     }
                   2380: }
                   2381: 
                   2382: sub tableend {
                   2383:     if ($tableopen) {
                   2384: 	$tableopen=0;
1.295     albertel 2385: 	return &Apache::loncommon::end_data_table();
1.124     www      2386:     } else {
                   2387: 	return'';
                   2388:     }
                   2389: }
                   2390: 
1.207     www      2391: sub readdata {
                   2392:     my ($crs,$dom)=@_;
                   2393: # Read coursedata
                   2394:     my $resourcedata=&Apache::lonnet::get_courseresdata($crs,$dom);
                   2395: # Read userdata
                   2396: 
                   2397:     my $classlist=&Apache::loncoursedata::get_classlist();
                   2398:     foreach (keys %$classlist) {
1.350     albertel 2399:         if ($_=~/^($match_username)\:($match_domain)$/) {
1.207     www      2400: 	    my ($tuname,$tudom)=($1,$2);
                   2401: 	    my $useropt=&Apache::lonnet::get_userresdata($tuname,$tudom);
                   2402:             foreach my $userkey (keys %{$useropt}) {
                   2403: 		if ($userkey=~/^$env{'request.course.id'}/) {
                   2404:                     my $newkey=$userkey;
                   2405: 		    $newkey=~s/^($env{'request.course.id'}\.)/$1\[useropt\:$tuname\:$tudom\]\./;
                   2406: 		    $$resourcedata{$newkey}=$$useropt{$userkey};
                   2407: 		}
                   2408: 	    }
                   2409: 	}
                   2410:     }
                   2411:     return $resourcedata;
                   2412: }
                   2413: 
                   2414: 
1.124     www      2415: # Setting
1.208     www      2416: 
                   2417: sub storedata {
                   2418:     my ($r,$crs,$dom)=@_;
1.207     www      2419: # Set userlevel immediately
                   2420: # Do an intermediate store of course level
                   2421:     my $olddata=&readdata($crs,$dom);
1.124     www      2422:     my %newdata=();
                   2423:     undef %newdata;
                   2424:     my @deldata=();
                   2425:     undef @deldata;
1.190     albertel 2426:     foreach (keys %env) {
1.124     www      2427: 	if ($_=~/^form\.([a-z]+)\_(.+)$/) {
                   2428: 	    my $cmd=$1;
                   2429: 	    my $thiskey=$2;
1.207     www      2430: 	    my ($tuname,$tudom)=&extractuser($thiskey);
                   2431: 	    my $tkey=$thiskey;
                   2432:             if ($tuname) {
                   2433: 		$tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
                   2434: 	    }
1.124     www      2435: 	    if ($cmd eq 'set') {
1.190     albertel 2436: 		my $data=$env{$_};
1.212     www      2437:                 my $typeof=$env{'form.typeof_'.$thiskey};
                   2438:  		if ($$olddata{$thiskey} ne $data) { 
1.207     www      2439: 		    if ($tuname) {
1.212     www      2440: 			if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
                   2441: 								 $tkey.'.type' => $typeof},
                   2442: 						 $tudom,$tuname) eq 'ok') {
1.290     www      2443: 			    &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);
1.207     www      2444: 			    $r->print('<br />'.&mt('Stored modified parameter for').' '.
                   2445: 				      &Apache::loncommon::plainname($tuname,$tudom));
                   2446: 			} else {
1.314     albertel 2447: 			    $r->print('<div class="LC_error">'.
                   2448: 				      &mt('Error storing parameters').'</div>');
1.207     www      2449: 			}
                   2450: 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
                   2451: 		    } else {
                   2452: 			$newdata{$thiskey}=$data;
1.212     www      2453:  			$newdata{$thiskey.'.type'}=$typeof; 
                   2454:                    } 
1.207     www      2455: 		}
1.124     www      2456: 	    } elsif ($cmd eq 'del') {
1.207     www      2457: 		if ($tuname) {
                   2458: 		    if (&Apache::lonnet::del('resourcedata',[$tkey],$tudom,$tuname) eq 'ok') {
1.290     www      2459: 			    &log_parmset({$tkey=>''},1,$tuname,$tudom);
1.207     www      2460: 			$r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
                   2461: 		    } else {
1.314     albertel 2462: 			$r->print('<div class="LC_error">'.
                   2463: 				  &mt('Error deleting parameters').'</div>');
1.207     www      2464: 		    }
                   2465: 		    &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
                   2466: 		} else {
1.333     albertel 2467: 		    push (@deldata,$thiskey,$thiskey.'.type');
1.207     www      2468: 		}
1.124     www      2469: 	    } elsif ($cmd eq 'datepointer') {
1.190     albertel 2470: 		my $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});
1.212     www      2471:                 my $typeof=$env{'form.typeof_'.$thiskey};
1.207     www      2472: 		if (defined($data) and $$olddata{$thiskey} ne $data) { 
                   2473: 		    if ($tuname) {
1.212     www      2474: 			if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
                   2475: 								 $tkey.'.type' => $typeof},
                   2476: 						 $tudom,$tuname) eq 'ok') {
1.290     www      2477: 			    &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);
1.207     www      2478: 			    $r->print('<br />'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));
                   2479: 			} else {
1.314     albertel 2480: 			    $r->print('<div class="LC_error">'.
                   2481: 				      &mt('Error storing parameters').'</div>');
1.207     www      2482: 			}
                   2483: 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
                   2484: 		    } else {
1.212     www      2485: 			$newdata{$thiskey}=$data;
                   2486: 			$newdata{$thiskey.'.type'}=$typeof; 
1.207     www      2487: 		    }
                   2488: 		}
1.124     www      2489: 	    }
                   2490: 	}
                   2491:     }
1.207     www      2492: # Store all course level
1.144     www      2493:     my $delentries=$#deldata+1;
                   2494:     my @newdatakeys=keys %newdata;
                   2495:     my $putentries=$#newdatakeys+1;
                   2496:     if ($delentries) {
                   2497: 	if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
1.290     www      2498: 	    my %loghash=map { $_ => '' } @deldata;
                   2499: 	    &log_parmset(\%loghash,1);
1.144     www      2500: 	    $r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));
                   2501: 	} else {
1.314     albertel 2502: 	    $r->print('<div class="LC_error">'.
                   2503: 		      &mt('Error deleting parameters').'</div>');
1.144     www      2504: 	}
1.205     www      2505: 	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
1.144     www      2506:     }
                   2507:     if ($putentries) {
                   2508: 	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
1.290     www      2509: 			    &log_parmset(\%newdata,0);
1.212     www      2510: 	    $r->print('<h3>'.&mt('Stored [_1] parameter(s)',$putentries/2).'</h3>');
1.144     www      2511: 	} else {
1.314     albertel 2512: 	    $r->print('<div class="LC_error">'.
                   2513: 		      &mt('Error storing parameters').'</div>');
1.144     www      2514: 	}
1.205     www      2515: 	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
1.144     www      2516:     }
1.208     www      2517: }
1.207     www      2518: 
1.208     www      2519: sub extractuser {
                   2520:     my $key=shift;
1.350     albertel 2521:     return ($key=~/^$env{'request.course.id'}.\[useropt\:($match_username)\:($match_domain)\]\./);
1.208     www      2522: }
1.206     www      2523: 
1.208     www      2524: sub listdata {
1.214     www      2525:     my ($r,$resourcedata,$listdata,$sortorder)=@_;
1.207     www      2526: # Start list output
1.206     www      2527: 
1.122     www      2528:     my $oldsection='';
                   2529:     my $oldrealm='';
                   2530:     my $oldpart='';
1.123     www      2531:     my $pointer=0;
1.124     www      2532:     $tableopen=0;
1.145     www      2533:     my $foundkeys=0;
1.248     albertel 2534:     my %keyorder=&standardkeyorder();
1.214     www      2535:     foreach my $thiskey (sort {
                   2536: 	if ($sortorder eq 'realmstudent') {
1.247     albertel 2537: 	    my ($astudent,$arealm)=($a=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);
                   2538: 	    my ($bstudent,$brealm)=($b=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);
                   2539: 	    if (!defined($astudent)) {
                   2540: 		($arealm)=($a=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
1.237     albertel 2541: 	    }
1.247     albertel 2542: 	    if (!defined($bstudent)) {
                   2543: 		($brealm)=($b=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
                   2544: 	    }
1.248     albertel 2545: 	    $arealm=~s/\.type//;
                   2546: 	    my ($ares, $aparm) = ($arealm=~/^(.*)\.(.*)$/);
                   2547: 	    $aparm=$keyorder{'parameter_0_'.$aparm};
                   2548: 	    $brealm=~s/\.type//;
                   2549: 	    my ($bres, $bparm) = ($brealm=~/^(.*)\.(.*)$/);
                   2550: 	    $bparm=$keyorder{'parameter_0_'.$bparm};	   
                   2551: 	    if ($ares eq $bres) {
                   2552: 		if (defined($aparm) && defined($bparm)) {
                   2553: 		    ($aparm <=> $bparm);
                   2554: 		} elsif (defined($aparm)) {
                   2555: 		    -1;
                   2556: 		} elsif (defined($bparm)) {
                   2557: 		    1;
                   2558: 		} else {
                   2559: 		    ($arealm cmp $brealm) || ($astudent cmp $bstudent);
                   2560: 		}
                   2561: 	    } else {
                   2562: 		($arealm cmp $brealm) || ($astudent cmp $bstudent);
                   2563: 	    }
1.214     www      2564: 	} else {
                   2565: 	    $a cmp $b;
                   2566: 	}
                   2567:     } keys %{$listdata}) {
1.247     albertel 2568: 	 
1.211     www      2569: 	if ($$listdata{$thiskey.'.type'}) {
                   2570:             my $thistype=$$listdata{$thiskey.'.type'};
                   2571:             if ($$resourcedata{$thiskey.'.type'}) {
                   2572: 		$thistype=$$resourcedata{$thiskey.'.type'};
                   2573: 	    }
1.207     www      2574: 	    my ($middle,$part,$name)=
                   2575: 		($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
1.130     www      2576: 	    my $section=&mt('All Students');
1.207     www      2577: 	    if ($middle=~/^\[(.*)\]/) {
1.206     www      2578: 		my $issection=$1;
1.350     albertel 2579: 		if ($issection=~/^useropt\:($match_username)\:($match_domain)/) {
1.206     www      2580: 		    $section=&mt('User').": ".&Apache::loncommon::plainname($1,$2);
                   2581: 		} else {
                   2582: 		    $section=&mt('Group/Section').': '.$issection;
                   2583: 		}
1.207     www      2584: 		$middle=~s/^\[(.*)\]//;
1.122     www      2585: 	    }
1.207     www      2586: 	    $middle=~s/\.+$//;
                   2587: 	    $middle=~s/^\.+//;
1.316     albertel 2588: 	    my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
1.122     www      2589: 	    if ($middle=~/^(.+)\_\_\_\(all\)$/) {
1.316     albertel 2590: 		$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      2591: 	    } elsif ($middle) {
1.174     albertel 2592: 		my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
1.316     albertel 2593: 		$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      2594: 	    }
1.214     www      2595: 	    if ($sortorder eq 'realmstudent') {
                   2596: 		if ($realm ne $oldrealm) {
                   2597: 		    $r->print(&tableend()."\n<hr /><h1>$realm</h1>");
                   2598: 		    $oldrealm=$realm;
                   2599: 		    $oldsection='';
                   2600: 		}
                   2601: 		if ($section ne $oldsection) {
                   2602: 		    $r->print(&tableend()."\n<h2>$section</h2>");
                   2603: 		    $oldsection=$section;
                   2604: 		    $oldpart='';
                   2605: 		}
                   2606: 	    } else {
                   2607: 		if ($section ne $oldsection) {
                   2608: 		    $r->print(&tableend()."\n<hr /><h1>$section</h1>");
                   2609: 		    $oldsection=$section;
                   2610: 		    $oldrealm='';
                   2611: 		}
                   2612: 		if ($realm ne $oldrealm) {
                   2613: 		    $r->print(&tableend()."\n<h2>$realm</h2>");
                   2614: 		    $oldrealm=$realm;
                   2615: 		    $oldpart='';
                   2616: 		}
1.122     www      2617: 	    }
                   2618: 	    if ($part ne $oldpart) {
1.124     www      2619: 		$r->print(&tableend().
1.316     albertel 2620: 			  "\n<span class=\"LC_parm_part\">".&mt('Part').": $part</span>");
1.122     www      2621: 		$oldpart=$part;
                   2622: 	    }
1.123     www      2623: #
                   2624: # Ready to print
                   2625: #
1.295     albertel 2626: 	    $r->print(&tablestart().
                   2627: 		      &Apache::loncommon::start_data_table_row().
                   2628: 		      '<td><b>'.&standard_parameter_names($name).
1.293     www      2629: 		      '</b></td><td><input type="checkbox" name="del_'.
1.124     www      2630: 		      $thiskey.'" /></td><td>');
1.145     www      2631: 	    $foundkeys++;
1.213     www      2632: 	    if (&isdateparm($thistype)) {
1.123     www      2633: 		my $jskey='key_'.$pointer;
                   2634: 		$pointer++;
                   2635: 		$r->print(
1.232     albertel 2636: 			  &Apache::lonhtmlcommon::date_setter('parmform',
1.123     www      2637: 							      $jskey,
1.219     www      2638: 						      $$resourcedata{$thiskey},
1.325     www      2639: 							      '',1,'','').
1.277     www      2640: '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
                   2641: &date_sanity_info($$resourcedata{$thiskey})
1.123     www      2642: 			  );
1.219     www      2643: 	    } elsif ($thistype eq 'string_yesno') {
1.230     www      2644: 		my $showval;
                   2645: 		if (defined($$resourcedata{$thiskey})) {
                   2646: 		    $showval=$$resourcedata{$thiskey};
                   2647: 		}
1.219     www      2648: 		$r->print('<label><input type="radio" name="set_'.$thiskey.
                   2649: 			  '" value="yes"');
1.230     www      2650: 		if ($showval eq 'yes') {
1.219     www      2651: 		    $r->print(' checked="checked"');
                   2652: 		}
                   2653:                 $r->print(' />'.&mt('Yes').'</label> ');
                   2654: 		$r->print('<label><input type="radio" name="set_'.$thiskey.
                   2655: 			  '" value="no"');
1.230     www      2656: 		if ($showval eq 'no') {
1.219     www      2657: 		    $r->print(' checked="checked"');
                   2658: 		}
                   2659:                 $r->print(' />'.&mt('No').'</label>');
1.123     www      2660: 	    } else {
1.230     www      2661: 		my $showval;
                   2662: 		if (defined($$resourcedata{$thiskey})) {
                   2663: 		    $showval=$$resourcedata{$thiskey};
                   2664: 		}
1.211     www      2665: 		$r->print('<input type="text" name="set_'.$thiskey.'" value="'.
1.230     www      2666: 			  $showval.'">');
1.123     www      2667: 	    }
1.211     www      2668: 	    $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
                   2669: 		      $thistype.'">');
1.295     albertel 2670: 	    $r->print('</td>'.&Apache::loncommon::end_data_table_row());
1.122     www      2671: 	}
1.121     www      2672:     }
1.208     www      2673:     return $foundkeys;
                   2674: }
                   2675: 
                   2676: sub newoverview {
1.280     albertel 2677:     my ($r) = @_;
                   2678: 
1.208     www      2679:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   2680:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.280     albertel 2681:     my $start_page = &Apache::loncommon::start_page('Set Parameters');
1.298     albertel 2682:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
1.208     www      2683:     $r->print(<<ENDOVER);
1.280     albertel 2684: $start_page
1.208     www      2685: $breadcrumbs
1.232     albertel 2686: <form method="post" action="/adm/parmset?action=newoverview" name="parmform">
1.208     www      2687: ENDOVER
1.211     www      2688:     my @ids=();
                   2689:     my %typep=();
                   2690:     my %keyp=();
                   2691:     my %allparms=();
                   2692:     my %allparts=();
                   2693:     my %allmaps=();
                   2694:     my %mapp=();
                   2695:     my %symbp=();
                   2696:     my %maptitles=();
                   2697:     my %uris=();
                   2698:     my %keyorder=&standardkeyorder();
                   2699:     my %defkeytype=();
                   2700: 
                   2701:     my %alllevs=();
                   2702:     $alllevs{'Resource Level'}='full';
1.215     www      2703:     $alllevs{'Map/Folder Level'}='map';
1.211     www      2704:     $alllevs{'Course Level'}='general';
                   2705: 
                   2706:     my $csec=$env{'form.csec'};
1.269     raeburn  2707:     my $cgroup=$env{'form.cgroup'};
1.211     www      2708: 
                   2709:     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
                   2710:     my $pschp=$env{'form.pschp'};
                   2711:     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
                   2712:     if (!@psprt) { $psprt[0]='0'; }
                   2713: 
                   2714:     my @selected_sections = 
                   2715: 	&Apache::loncommon::get_env_multiple('form.Section');
                   2716:     @selected_sections = ('all') if (! @selected_sections);
                   2717:     foreach (@selected_sections) {
                   2718:         if ($_ eq 'all') {
                   2719:             @selected_sections = ('all');
                   2720:         }
                   2721:     }
1.269     raeburn  2722:     my @selected_groups =
                   2723:         &Apache::loncommon::get_env_multiple('form.Group');
1.211     www      2724: 
                   2725:     my $pssymb='';
                   2726:     my $parmlev='';
                   2727:  
                   2728:     unless ($env{'form.parmlev'}) {
                   2729:         $parmlev = 'map';
                   2730:     } else {
                   2731:         $parmlev = $env{'form.parmlev'};
                   2732:     }
                   2733: 
                   2734:     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
                   2735: 				\%mapp, \%symbp,\%maptitles,\%uris,
                   2736: 				\%keyorder,\%defkeytype);
                   2737: 
                   2738: # Menu to select levels, etc
                   2739: 
1.317     albertel 2740:     $r->print('<table id="LC_parm_overview_scope">
                   2741:                <tr><td class="LC_parm_overview_level_menu">');
1.211     www      2742:     &levelmenu($r,\%alllevs,$parmlev);
                   2743:     if ($parmlev ne 'general') {
1.317     albertel 2744: 	$r->print('<td class="LC_parm_overview_map_menu">');
1.211     www      2745: 	&mapmenu($r,\%allmaps,$pschp,\%maptitles);
                   2746: 	$r->print('</td>');
                   2747:     }
                   2748:     $r->print('</td></tr></table>');
                   2749: 
1.317     albertel 2750:     $r->print('<table id="LC_parm_overview_controls">
                   2751:                <tr><td class="LC_parm_overview_parm_selectors">');  
1.211     www      2752:     &parmmenu($r,\%allparms,\@pscat,\%keyorder);
1.317     albertel 2753:     $r->print('</td><td class="LC_parm_overview_restrictions">
                   2754:                 <table class="LC_parm_overview_restrictions">'.
                   2755:               '<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').
                   2756:               '</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');
1.211     www      2757:     &partmenu($r,\%allparts,\@psprt);
1.317     albertel 2758:     $r->print('</td><td>');
1.211     www      2759:     &sectionmenu($r,\@selected_sections);
1.317     albertel 2760:     $r->print('</td><td>');
1.269     raeburn  2761:     &groupmenu($r,\@selected_groups);
                   2762:     $r->print('</td></tr></table>');
1.214     www      2763:     $r->print('</td></tr></table>');
                   2764:  
                   2765:     my $sortorder=$env{'form.sortorder'};
                   2766:     unless ($sortorder) { $sortorder='realmstudent'; }
                   2767:     &sortmenu($r,$sortorder);
                   2768: 
                   2769:     $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
1.211     www      2770: 
                   2771: # Build the list data hash from the specified parms
                   2772: 
                   2773:     my $listdata;
                   2774:     %{$listdata}=();
                   2775: 
                   2776:     foreach my $cat (@pscat) {
1.269     raeburn  2777:         &secgroup_lister($cat,$pschp,$parmlev,$listdata,\@psprt,\@selected_sections,\%defkeytype,\%allmaps,\@ids,\%symbp);
                   2778:         &secgroup_lister($cat,$pschp,$parmlev,$listdata,\@psprt,\@selected_groups,\%defkeytype,\%allmaps,\@ids,\%symbp);
1.211     www      2779:     }
                   2780: 
1.212     www      2781:     if (($env{'form.store'}) || ($env{'form.dis'})) {
1.211     www      2782: 
1.212     www      2783: 	if ($env{'form.store'}) { &storedata($r,$crs,$dom); }
1.211     www      2784: 
                   2785: # Read modified data
                   2786: 
                   2787: 	my $resourcedata=&readdata($crs,$dom);
                   2788: 
                   2789: # List data
                   2790: 
1.214     www      2791: 	&listdata($r,$resourcedata,$listdata,$sortorder);
1.211     www      2792:     }
                   2793:     $r->print(&tableend().
1.212     www      2794: 	     ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').
1.280     albertel 2795: 	      '</form>'.&Apache::loncommon::end_page());
1.208     www      2796: }
                   2797: 
1.269     raeburn  2798: sub secgroup_lister {
                   2799:     my ($cat,$pschp,$parmlev,$listdata,$psprt,$selections,$defkeytype,$allmaps,$ids,$symbp) = @_;
                   2800:     foreach my $item (@{$selections}) {
                   2801:         foreach my $part (@{$psprt}) {
                   2802:             my $rootparmkey=$env{'request.course.id'};
                   2803:             if (($item ne 'all') && ($item ne 'none') && ($item)) {
                   2804:                 $rootparmkey.='.['.$item.']';
                   2805:             }
                   2806:             if ($parmlev eq 'general') {
                   2807: # course-level parameter
                   2808:                 my $newparmkey=$rootparmkey.'.'.$part.'.'.$cat;
                   2809:                 $$listdata{$newparmkey}=1;
                   2810:                 $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   2811:             } elsif ($parmlev eq 'map') {
                   2812: # map-level parameter
                   2813:                 foreach my $mapid (keys %{$allmaps}) {
                   2814:                     if (($pschp ne 'all') && ($pschp ne $mapid)) { next; }
                   2815:                     my $newparmkey=$rootparmkey.'.'.$$allmaps{$mapid}.'___(all).'.$part.'.'.$cat;
                   2816:                     $$listdata{$newparmkey}=1;
                   2817:                     $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   2818:                 }
                   2819:             } else {
                   2820: # resource-level parameter
                   2821:                 foreach my $rid (@{$ids}) {
                   2822:                     my ($map,$resid,$url)=&Apache::lonnet::decode_symb($$symbp{$rid});
                   2823:                     if (($pschp ne 'all') && ($$allmaps{$pschp} ne $map)) { next; }
                   2824:                     my $newparmkey=$rootparmkey.'.'.$$symbp{$rid}.'.'.$part.'.'.$cat;
                   2825:                     $$listdata{$newparmkey}=1;
                   2826:                     $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   2827:                 }
                   2828:             }
                   2829:         }
                   2830:     }
                   2831: }
                   2832: 
1.208     www      2833: sub overview {
1.280     albertel 2834:     my ($r) = @_;
1.208     www      2835:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   2836:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.280     albertel 2837: 
                   2838:     my $start_page=&Apache::loncommon::start_page('Modify Parameters');
1.298     albertel 2839:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
1.208     www      2840:     $r->print(<<ENDOVER);
1.280     albertel 2841: $start_page
1.208     www      2842: $breadcrumbs
1.232     albertel 2843: <form method="post" action="/adm/parmset?action=setoverview" name="parmform">
1.208     www      2844: ENDOVER
                   2845: # Store modified
                   2846: 
                   2847:     &storedata($r,$crs,$dom);
                   2848: 
                   2849: # Read modified data
                   2850: 
                   2851:     my $resourcedata=&readdata($crs,$dom);
                   2852: 
1.214     www      2853: 
                   2854:     my $sortorder=$env{'form.sortorder'};
                   2855:     unless ($sortorder) { $sortorder='realmstudent'; }
                   2856:     &sortmenu($r,$sortorder);
                   2857: 
1.208     www      2858: # List data
                   2859: 
1.214     www      2860:     my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);
1.208     www      2861: 
1.145     www      2862:     $r->print(&tableend().'<p>'.
1.280     albertel 2863: 	($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form>'.
                   2864: 	      &Apache::loncommon::end_page());
1.120     www      2865: }
1.121     www      2866: 
1.333     albertel 2867: sub clean_parameters {
                   2868:     my ($r) = @_;
                   2869:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   2870:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
                   2871: 
                   2872:     my $start_page=&Apache::loncommon::start_page('Clean Parameters');
                   2873:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Clean');
                   2874:     $r->print(<<ENDOVER);
                   2875: $start_page
                   2876: $breadcrumbs
                   2877: <form method="post" action="/adm/parmset?action=cleanparameters" name="parmform">
                   2878: ENDOVER
                   2879: # Store modified
                   2880: 
                   2881:     &storedata($r,$crs,$dom);
                   2882: 
                   2883: # Read modified data
                   2884: 
                   2885:     my $resourcedata=&readdata($crs,$dom);
                   2886: 
                   2887: # List data
                   2888: 
                   2889:     $r->print('<h3>'.
                   2890: 	      &mt('These parameters refer to resources that do not exist.').
                   2891: 	      '</h3>'.
                   2892: 	      '<input type="submit" value="'.&mt('Delete Checked Parameters').'" />'.'<br />'.
                   2893: 	      '<br />');
                   2894:     $r->print(&Apache::loncommon::start_data_table().
                   2895: 	      '<tr>'.
                   2896: 	      '<th>'.&mt('Delete').'</th>'.
                   2897: 	      '<th>'.&mt('Parameter').'</th>'.
                   2898: 	      '</tr>');
                   2899:     foreach my $thiskey (sort(keys(%{$resourcedata}))) {
                   2900: 	next if (!exists($resourcedata->{$thiskey.'.type'})
                   2901: 		 && $thiskey=~/\.type$/);
                   2902: 	my %data = &parse_key($thiskey);
                   2903: 	if (exists($data{'realm_exists'})
                   2904: 	    && !$data{'realm_exists'}) {
                   2905: 	    $r->print(&Apache::loncommon::start_data_table_row().
                   2906: 		      '<tr>'.
                   2907: 		      '<td><input type="checkbox" name="del_'.$thiskey.'" /></td>'		      );
                   2908: 	    
                   2909: 	    $r->print('<td>');
1.362     albertel 2910: 	    my $display_value = $resourcedata->{$thiskey};
                   2911: 	    if (&isdateparm($resourcedata->{$thiskey.'.type'})) {
                   2912: 		$display_value = 
                   2913: 		    &Apache::lonlocal::locallocaltime($display_value);
                   2914: 	    }
1.333     albertel 2915: 	    $r->print(&mt('Parameter: "[_1]" with value: "[_2]"',
                   2916: 			  &standard_parameter_names($data{'parameter_name'}),
                   2917: 			  $resourcedata->{$thiskey}));
                   2918: 	    $r->print('<br />');
                   2919: 	    if ($data{'scope_type'} eq 'all') {
                   2920: 		$r->print(&mt('All users'));
                   2921: 	    } elsif ($data{'scope_type'} eq 'user') {
                   2922: 		$r->print(&mt('User: [_1]',join(':',@{$data{'scope'}})));
                   2923: 	    } elsif ($data{'scope_type'} eq 'section') {
                   2924: 		$r->print(&mt('Section: [_1]',$data{'scope'}));
                   2925: 	    } elsif ($data{'scope_type'} eq 'group') {
                   2926: 		$r->print(&mt('Group: [_1]',$data{'scope'}));
                   2927: 	    }
                   2928: 	    $r->print('<br />');
                   2929: 	    if ($data{'realm_type'} eq 'all') {
                   2930: 		$r->print(&mt('All Resources'));
                   2931: 	    } elsif ($data{'realm_type'} eq 'folder') {
                   2932: 		$r->print(&mt('Folder: [_1]'),$data{'realm'});
                   2933: 	    } elsif ($data{'realm_type'} eq 'symb') {
                   2934: 		my ($map,$resid,$url) =
                   2935: 		    &Apache::lonnet::decode_symb($data{'realm'});
                   2936: 		$r->print(&mt('Resource: [_1] <br />&nbsp;&nbsp;&nbsp;with ID: [_2] <br />&nbsp;&nbsp;&nbsp;in folder [_3]',
                   2937: 			      $url,$resid,$map));
                   2938: 	    }
1.362     albertel 2939: 	    $r->print(' <br />&nbsp;&nbsp;&nbsp;'.&mt('Part: [_1]',$data{'parameter_part'}));
1.333     albertel 2940: 	    $r->print('</td></tr>');
                   2941: 	
                   2942: 	}
                   2943:     }
                   2944:     $r->print(&Apache::loncommon::end_data_table().'<p>'.
                   2945: 	      '<input type="submit" value="'.&mt('Delete Checked Parameters').'" />'.
                   2946: 	      '</p></form>'.
                   2947: 	      &Apache::loncommon::end_page());
                   2948: }
                   2949: 
                   2950: sub parse_key {
                   2951:     my ($key) = @_;
                   2952:     my %data;
                   2953:     my ($middle,$part,$name)=
                   2954: 	($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
                   2955:     $data{'scope_type'} = 'all';
                   2956:     if ($middle=~/^\[(.*)\]/) {
                   2957:        	$data{'scope'} = $1;
1.350     albertel 2958: 	if ($data{'scope'}=~/^useropt\:($match_username)\:($match_domain)/) {
1.333     albertel 2959: 	    $data{'scope_type'} = 'user';
                   2960: 	    $data{'scope'} = [$1,$2];
                   2961: 	} else {
                   2962: 	    #FIXME check for group scope
                   2963: 	    $data{'scope_type'} = 'section';
                   2964: 	}
                   2965: 	$middle=~s/^\[(.*)\]//;
                   2966:     }
                   2967:     $middle=~s/\.+$//;
                   2968:     $middle=~s/^\.+//;
                   2969:     $data{'realm_type'}='all';
                   2970:     if ($middle=~/^(.+)\_\_\_\(all\)$/) {
                   2971: 	$data{'realm'} = $1;
                   2972: 	$data{'realm_type'} = 'folder';
                   2973: 	$data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});
                   2974: 	($data{'realm_exists'}) = &Apache::lonnet::is_on_map($data{'realm'});
                   2975: 	&Apache::lonnet::logthis($1." siad ".	$data{'realm_exists'} );
                   2976:     } elsif ($middle) {
                   2977: 	$data{'realm'} = $middle;
                   2978: 	$data{'realm_type'} = 'symb';
                   2979: 	$data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});
                   2980: 	my ($map,$resid,$url) = &Apache::lonnet::decode_symb($data{'realm'});
                   2981: 	$data{'realm_exists'} = &Apache::lonnet::symbverify($data{'realm'},$url);
                   2982:     }
                   2983:     
                   2984:     $data{'parameter_part'} = $part;
                   2985:     $data{'parameter_name'} = $name;
                   2986: 
                   2987:     return %data;
                   2988: }
                   2989: 
1.59      matthew  2990: ##################################################
                   2991: ##################################################
1.333     albertel 2992: 
1.178     raeburn  2993: =pod
1.239     raeburn  2994: 
                   2995: =item check_cloners
                   2996: 
                   2997: Checks if new users included in list of allowed cloners
                   2998: are valid users.  Replaces supplied list with 
                   2999: cleaned list containing only users with valid usernames
                   3000: and domains.
                   3001: 
                   3002: Inputs: $clonelist, $oldcloner 
                   3003: where $clonelist is ref to array of requested cloners,
                   3004: and $oldcloner is ref to array of currently allowed
                   3005: cloners.
                   3006: 
                   3007: Returns: string - comma separated list of requested
                   3008: cloners (username:domain) who do not exist in system.
                   3009: 
                   3010: =item change_clone
                   3011: 
1.178     raeburn  3012: Modifies the list of courses a user can clone (stored
1.239     raeburn  3013: in the user's environment.db file), called when a
1.178     raeburn  3014: change is made to the list of users allowed to clone
                   3015: a course.
1.239     raeburn  3016: 
1.178     raeburn  3017: Inputs: $action,$cloner
                   3018: where $action is add or drop, and $cloner is identity of 
                   3019: user for whom cloning ability is to be changed in course. 
                   3020: 
                   3021: =cut
                   3022:                                                                                             
                   3023: ##################################################
                   3024: ##################################################
                   3025: 
1.239     raeburn  3026: sub extract_cloners {
                   3027:     my ($clonelist,$allowclone) = @_;
                   3028:     if ($clonelist =~ /,/) {
                   3029:         @{$allowclone} = split/,/,$clonelist;
                   3030:     } else {
                   3031:         $$allowclone[0] = $clonelist;
                   3032:     }
                   3033: }
                   3034: 
                   3035: 
                   3036: sub check_cloners {
                   3037:     my ($clonelist,$oldcloner) = @_;
                   3038:     my ($clean_clonelist,$disallowed);
                   3039:     my @allowclone = ();
                   3040:     &extract_cloners($$clonelist,\@allowclone);
                   3041:     foreach my $currclone (@allowclone) {
                   3042:         if (!grep/^$currclone$/,@$oldcloner) {
                   3043:             my ($uname,$udom) = split/:/,$currclone;
                   3044:             if ($uname && $udom) {
                   3045:                 if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
                   3046:                     $disallowed .= $currclone.',';   
                   3047:                 } else {
                   3048:                     $clean_clonelist .= $currclone.',';
                   3049:                 }
                   3050:             }
                   3051:         } else {
                   3052:             $clean_clonelist .= $currclone.',';
                   3053:         }
                   3054:     }
                   3055:     if ($disallowed) {
                   3056:         $disallowed =~ s/,$//;
                   3057:     }
                   3058:     if ($clean_clonelist) {
                   3059:         $clean_clonelist =~ s/,$//;
                   3060:     }
                   3061:     $$clonelist = $clean_clonelist;
                   3062:     return $disallowed;
                   3063: }  
1.178     raeburn  3064: 
                   3065: sub change_clone {
                   3066:     my ($clonelist,$oldcloner) = @_;
                   3067:     my ($uname,$udom);
1.190     albertel 3068:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   3069:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1.178     raeburn  3070:     my $clone_crs = $cnum.':'.$cdom;
                   3071:     
                   3072:     if ($cnum && $cdom) {
1.239     raeburn  3073:         my @allowclone;
                   3074:         &extract_cloners($clonelist,\@allowclone);
1.178     raeburn  3075:         foreach my $currclone (@allowclone) {
                   3076:             if (!grep/^$currclone$/,@$oldcloner) {
                   3077:                 ($uname,$udom) = split/:/,$currclone;
                   3078:                 if ($uname && $udom) {
                   3079:                     unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
                   3080:                         my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');
                   3081:                         if ($currclonecrs{'cloneable'} !~ /\Q$clone_crs\E/) {
                   3082:                             if ($currclonecrs{'cloneable'} eq '') {
                   3083:                                 $currclonecrs{'cloneable'} = $clone_crs;
                   3084:                             } else {
                   3085:                                 $currclonecrs{'cloneable'} .= ','.$clone_crs;
                   3086:                             }
                   3087:                             &Apache::lonnet::put('environment',\%currclonecrs,$udom,$uname);
                   3088:                         }
                   3089:                     }
                   3090:                 }
                   3091:             }
                   3092:         }
                   3093:         foreach my $oldclone (@$oldcloner) {
                   3094:             if (!grep/^$oldclone$/,@allowclone) {
                   3095:                 ($uname,$udom) = split/:/,$oldclone;
                   3096:                 if ($uname && $udom) {
                   3097:                     unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
                   3098:                         my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');
                   3099:                         my %newclonecrs = ();
                   3100:                         if ($currclonecrs{'cloneable'} =~ /\Q$clone_crs\E/) {
                   3101:                             if ($currclonecrs{'cloneable'} =~ /,/) {
                   3102:                                 my @currclonecrs = split/,/,$currclonecrs{'cloneable'};
                   3103:                                 foreach (@currclonecrs) {
                   3104:                                     unless ($_ eq $clone_crs) {
                   3105:                                         $newclonecrs{'cloneable'} .= $_.',';
                   3106:                                     }
                   3107:                                 }
                   3108:                                 $newclonecrs{'cloneable'} =~ s/,$//;
                   3109:                             } else {
                   3110:                                 $newclonecrs{'cloneable'} = '';
                   3111:                             }
                   3112:                             &Apache::lonnet::put('environment',\%newclonecrs,$udom,$uname);
                   3113:                         }
                   3114:                     }
                   3115:                 }
                   3116:             }
                   3117:         }
                   3118:     }
                   3119: }
                   3120: 
1.193     albertel 3121: 
                   3122: ##################################################
                   3123: ##################################################
                   3124: 
                   3125: =pod
                   3126: 
                   3127: =item * header
                   3128: 
                   3129: Output html header for page
                   3130: 
                   3131: =cut
                   3132: 
                   3133: ##################################################
                   3134: ##################################################
                   3135: sub header {
1.280     albertel 3136:     return &Apache::loncommon::start_page('Parameter Manager');
1.193     albertel 3137: }
                   3138: ##################################################
                   3139: ##################################################
                   3140: sub print_main_menu {
                   3141:     my ($r,$parm_permission)=@_;
                   3142:     #
                   3143:     $r->print(<<ENDMAINFORMHEAD);
                   3144: <form method="post" enctype="multipart/form-data"
                   3145:       action="/adm/parmset" name="studentform">
                   3146: ENDMAINFORMHEAD
                   3147: #
1.195     albertel 3148:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   3149:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1.268     albertel 3150:     my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
                   3151: 
1.193     albertel 3152:     my @menu =
1.322     www      3153:         ( { divider=>'Settings for Your Course',
                   3154: 	  },
1.323     albertel 3155:           { text => 'Set Course Environment',
1.204     www      3156: 	    action => 'crsenv',
1.193     albertel 3157:             permission => $parm_permission,
1.324     www      3158:             help => 'Course_Environment',
1.193     albertel 3159:             },
1.255     banghart 3160:           { text => 'Set Portfolio Metadata',
1.259     banghart 3161: 	    action => 'setrestrictmeta',
1.240     banghart 3162:             permission => $parm_permission,
                   3163:             },
1.271     www      3164: 	  { text => 'Manage Course Slots',
1.268     albertel 3165: 	    url => '/adm/slotrequest?command=showslots',
                   3166: 	    permission => $vgr,
                   3167:             },
1.322     www      3168:           { text => 'Set Parameter Setting Default Actions',
                   3169:             action => 'setdefaults',
                   3170:             permission => $parm_permission,
                   3171:             },          
                   3172: 	  { divider => 'New and Existing Parameter Settings for Your Resources',
1.268     albertel 3173: 	    },
1.216     www      3174:           { text => 'Set/Modify Resource Parameters - Helper Mode',
1.193     albertel 3175:             url => '/adm/helper/parameter.helper',
                   3176:             permission => $parm_permission,
1.324     www      3177:             help => 'Parameter_Helper',
1.193     albertel 3178:             },
1.322     www      3179:  	  { text => 'Set/Modify Resource Parameters - Overview Mode',
1.208     www      3180:             action => 'newoverview',
                   3181:             permission => $parm_permission,
1.324     www      3182:             help => 'Parameter_Overview',
1.193     albertel 3183:             },
1.216     www      3184:           { text => 'Set/Modify Resource Parameters - Table Mode',
1.193     albertel 3185:             action => 'settable',
                   3186:             permission => $parm_permission,
1.324     www      3187:             help => 'Table_Mode',
1.193     albertel 3188:             },
1.322     www      3189:            { divider => 'Existing Parameter Settings for Your Resources',
                   3190: 	  },
                   3191: 	  { text => 'Modify Resource Parameters - Overview Mode',
                   3192:             action => 'setoverview',
1.220     www      3193:             permission => $parm_permission,
1.324     www      3194:             help => 'Parameter_Overview',
1.322     www      3195:  	    },          
1.292     www      3196: 	  { text => 'Parameter Change Log and Course Blog Posting/User Notification',
1.284     www      3197:             action => 'parameterchangelog',
                   3198:             permission => $parm_permission,
1.220     www      3199:             },
1.193     albertel 3200:           );
                   3201:     my $menu_html = '';
                   3202:     foreach my $menu_item (@menu) {
1.268     albertel 3203: 	if ($menu_item->{'divider'}) {
1.322     www      3204: 	    $menu_html .= '<h3>'.&mt($menu_item->{'divider'}).'</h3>';
1.268     albertel 3205: 	    next;
                   3206: 	}
1.193     albertel 3207:         next if (! $menu_item->{'permission'});
                   3208:         $menu_html.='<p>';
1.316     albertel 3209:         $menu_html.='<span class="LC_parm_menu_item">';
1.193     albertel 3210:         if (exists($menu_item->{'url'})) {
                   3211:             $menu_html.=qq{<a href="$menu_item->{'url'}">};
                   3212:         } else {
                   3213:             $menu_html.=
                   3214:                 qq{<a href="/adm/parmset?action=$menu_item->{'action'}">};
                   3215:         }
1.316     albertel 3216:         $menu_html.= &mt($menu_item->{'text'}).'</a></span>';
1.193     albertel 3217:         if (exists($menu_item->{'help'})) {
                   3218:             $menu_html.=
                   3219:                 &Apache::loncommon::help_open_topic($menu_item->{'help'});
                   3220:         }
                   3221:         $menu_html.='</p>'.$/;
                   3222:     }
                   3223:     $r->print($menu_html);
                   3224:     return;
                   3225: }
1.255     banghart 3226: ### Set portfolio metadata
1.252     banghart 3227: sub output_row {
1.347     banghart 3228:     my ($r, $field_name, $field_text, $added_flag) = @_;
1.252     banghart 3229:     my $output;
1.263     banghart 3230:     my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'};
                   3231:     my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'};
1.337     banghart 3232:     if (!defined($options)) {
1.254     banghart 3233:         $options = 'active,stuadd';
1.261     banghart 3234:         $values = '';
1.252     banghart 3235:     }
1.337     banghart 3236:     if (!($options =~ /deleted/)) {
                   3237:         my @options= ( ['active', 'Show to student'],
1.351     banghart 3238:                     ['stuadd', 'Provide text area for students to type catalog information'],
                   3239:                     ['choices','Provide choices for students to select from']);
                   3240: #		   ['onlyone','Student may select only one choice']);
1.337     banghart 3241:         if ($added_flag) {
                   3242:             push @options,['deleted', 'Delete Metadata Field'];
                   3243:         }
1.351     banghart 3244:        $output = &Apache::loncommon::start_data_table_row();
                   3245:         $output .= '<td><span class="LC_metadata"><strong>'.$field_text.':</strong></span></td>';
                   3246:         $output .= &Apache::loncommon::end_data_table_row();
1.337     banghart 3247:         foreach my $opt (@options) {
                   3248: 	    my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ;
1.347     banghart 3249: 	    $output .= &Apache::loncommon::continue_data_table_row();
1.351     banghart 3250: 	    $output .= '<td>'.('&nbsp;' x 5).'<span class="LC_metadata"><label>
                   3251: 	               <input type="checkbox" name="'.
                   3252: 	               $field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'.
                   3253: 	               &mt($opt->[1]).'</label></span> </td>';
1.347     banghart 3254: 	    $output .= &Apache::loncommon::end_data_table_row();
1.337     banghart 3255: 	}
1.351     banghart 3256:         $output .= &Apache::loncommon::continue_data_table_row();
                   3257:         $output .= '<td>'.('&nbsp;' x 10).'<span class="LC_metadata"><input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /></span></td>';
                   3258:         $output .= &Apache::loncommon::end_data_table_row();
                   3259:         my $multiple_checked;
                   3260:         my $single_checked;
                   3261:         if ($options =~ m/onlyone/) {
                   3262:             $multiple_checked = "";
                   3263:             $single_checked = " CHECKED ";
                   3264:         } else {
                   3265:             $multiple_checked = " CHECKED ";
                   3266:             $single_checked = "";
                   3267:         }
                   3268: 	$output .= &Apache::loncommon::continue_data_table_row();
                   3269: 	$output .= '<td>'.('&nbsp;' x 10).'<span class="LC_metadata">
                   3270: 	            <input type="radio" name="'.$field_name.'_onlyone" value="multiple" '.$multiple_checked .'/>
                   3271: 	            Student may select multiple choices from list</span></td>';
                   3272: 	$output .= &Apache::loncommon::end_data_table_row();
                   3273: 	$output .= &Apache::loncommon::continue_data_table_row();
                   3274: 	$output .= '<td>'.('&nbsp;' x 10).'<span class="LC_metadata">
                   3275: 	            <input type="radio" name="'.$field_name.'_onlyone"  value="single" '.$single_checked.'/>
                   3276: 	            Student may select only one choice from list</span></td>';
                   3277: 	$output .= &Apache::loncommon::end_data_table_row();
1.252     banghart 3278:     }
                   3279:     return ($output);
                   3280: }
1.340     banghart 3281: sub order_meta_fields {
                   3282:     my ($r)=@_;
                   3283:     my $idx = 1;
                   3284:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3285:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.341     banghart 3286:     $r->print(&Apache::loncommon::start_page('Order Metadata Fields'));
1.345     banghart 3287:     &Apache::lonhtmlcommon::add_breadcrumb
                   3288:             ({href=>"/adm/parmset?action=setrestrictmeta",
                   3289:               text=>"Restrict Metadata"},
                   3290:              {text=>"Order Metadata"});
                   3291:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata'));
1.340     banghart 3292:     if ($env{'form.storeorder'}) {
                   3293:         my $newpos = $env{'form.newpos'} - 1;
                   3294:         my $currentpos = $env{'form.currentpos'} - 1;
                   3295:         my @neworder = ();
                   3296:         my @oldorder = split /,/,$env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'};
                   3297:         my $i;
1.341     banghart 3298:         if ($newpos > $currentpos) {
1.340     banghart 3299:         # moving stuff up
                   3300:             for ($i=0;$i<$currentpos;$i++) {
                   3301:         	$neworder[$i]=$oldorder[$i];
                   3302:             }
                   3303:             for ($i=$currentpos;$i<$newpos;$i++) {
                   3304:         	$neworder[$i]=$oldorder[$i+1];
                   3305:             }
                   3306:             $neworder[$newpos]=$oldorder[$currentpos];
                   3307:             for ($i=$newpos+1;$i<=$#oldorder;$i++) {
                   3308:         	$neworder[$i]=$oldorder[$i];
                   3309:             }
                   3310:         } else {
                   3311:         # moving stuff down
                   3312:     	    for ($i=0;$i<$newpos;$i++) {
                   3313:     	        $neworder[$i]=$oldorder[$i];
                   3314:     	    }
                   3315:     	    $neworder[$newpos]=$oldorder[$currentpos];
                   3316:     	    for ($i=$newpos+1;$i<$currentpos+1;$i++) {
                   3317:     	        $neworder[$i]=$oldorder[$i-1];
                   3318:     	    }
                   3319:     	    for ($i=$currentpos+1;$i<=$#oldorder;$i++) {
                   3320:     	        $neworder[$i]=$oldorder[$i];
                   3321:     	    }
                   3322:         }
                   3323: 	my $ordered_fields = join ",", @neworder;
1.343     banghart 3324:         my $put_result = &Apache::lonnet::put('environment',
                   3325:                            {'metadata.addedorder'=>$ordered_fields},$dom,$crs); 	
1.342     banghart 3326: 	&Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields);
1.340     banghart 3327:     }
1.357     raeburn  3328:     my $fields = &get_added_meta_fieldnames($env{'request.course.id'});
1.341     banghart 3329:     my $ordered_fields;
1.340     banghart 3330:     my @fields_in_order = split /,/,$env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'};
                   3331:     if (!@fields_in_order) {
                   3332:         # no order found, pick sorted order then create metadata.addedorder key.
                   3333:         foreach my $key (sort keys %$fields) {
                   3334:             push @fields_in_order, $key;
1.341     banghart 3335:             $ordered_fields = join ",", @fields_in_order;
1.340     banghart 3336:         }
1.341     banghart 3337:         my $put_result = &Apache::lonnet::put('environment',
                   3338:                             {'metadata.addedorder'=>$ordered_fields},$dom,$crs); 
                   3339:     } 
1.340     banghart 3340:     $r->print('<table>');
                   3341:     my $num_fields = scalar(@fields_in_order);
                   3342:     foreach my $key (@fields_in_order) {
                   3343:         $r->print('<tr><td>');
                   3344:         $r->print('<form method="post" action="">');
                   3345:         $r->print('<select name="newpos" onChange="this.form.submit()">');
                   3346:         for (my $i = 1;$i le $num_fields;$i ++) {
                   3347:             if ($i eq $idx) {
                   3348:                 $r->print('<option value="'.$i.'"  SELECTED>('.$i.')</option>');
                   3349:             } else {
                   3350:                 $r->print('<option value="'.$i.'">'.$i.'</option>');
                   3351:             }
                   3352:         }
                   3353:         $r->print('</select></td><td>');
                   3354:         $r->print('<input type="hidden" name="currentpos" value="'.$idx.'" />');
                   3355:         $r->print('<input type="hidden" name="storeorder" value="true" />');
                   3356:         $r->print('</form>');
                   3357:         $r->print($$fields{$key}.'</td></tr>');
                   3358:         $idx ++;
                   3359:     }
                   3360:     $r->print('</table>');
                   3361:     return 'ok';
                   3362: }
1.359     banghart 3363: sub continue {
                   3364:     my $output;
                   3365:     $output .= '<form action="" method="post">';
                   3366:     $output .= '<input type="hidden" name="action" value="setrestrictmeta" />';
                   3367:     $output .= '<input type="submit" value="Continue" />';
                   3368:     return ($output);
                   3369: }
1.334     banghart 3370: sub addmetafield {
                   3371:     my ($r)=@_;
                   3372:     $r->print(&Apache::loncommon::start_page('Add Metadata Field'));
                   3373:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));
1.335     banghart 3374:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3375:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.339     banghart 3376:     if (exists($env{'form.undelete'})) {
1.358     banghart 3377:         my @meta_fields = &Apache::loncommon::get_env_multiple('form.undeletefield');
1.339     banghart 3378:         foreach my $meta_field(@meta_fields) {
                   3379:             my $options = $env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.options'};
                   3380:             $options =~ s/deleted//;
                   3381:             $options =~ s/,,/,/;
                   3382:             my $put_result = &Apache::lonnet::put('environment',
                   3383:                                         {'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);
                   3384:                                         
                   3385:             $r->print('Undeleted Metadata Field <strong>'.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}."</strong> with result ".$put_result.'<br />');
                   3386:         }
1.359     banghart 3387:         $r->print(&continue());
1.339     banghart 3388:     } elsif (exists($env{'form.fieldname'})) {
1.335     banghart 3389:         my $meta_field = $env{'form.fieldname'};
                   3390:         my $display_field = $env{'form.fieldname'};
                   3391:         $meta_field =~ s/\W/_/g;
1.338     banghart 3392:         $meta_field =~ tr/A-Z/a-z/;
1.335     banghart 3393:         my $put_result = &Apache::lonnet::put('environment',
                   3394:                             {'metadata.'.$meta_field.'.values'=>"",
                   3395:                              'metadata.'.$meta_field.'.added'=>"$display_field",
                   3396:                              'metadata.'.$meta_field.'.options'=>""},$dom,$crs);
1.359     banghart 3397:         $r->print('Added new Metadata Field <strong>'.$env{'form.fieldname'}."</strong> with result ".$put_result.'<br />');
                   3398:         $r->print(&continue());
1.335     banghart 3399:     } else {
1.357     raeburn  3400:         my $fields = &get_deleted_meta_fieldnames($env{'request.course.id'});
1.339     banghart 3401:         if ($fields) {
                   3402:             $r->print('You may undelete previously deleted fields.<br />Check those you wish to undelete and click Undelete.<br />');
                   3403:             $r->print('<form method="post" action="">');
                   3404:             foreach my $key(keys(%$fields)) {
1.358     banghart 3405:                 $r->print('<input type="checkbox" name="undeletefield" value="'.$key.'" />'.$$fields{$key}.'<br /');
1.339     banghart 3406:             }
                   3407:             $r->print('<input type="submit" name="undelete" value="Undelete" />');
                   3408:             $r->print('</form>');
                   3409:         }
                   3410:         $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 3411:         $r->print('<input type="text" name="fieldname" /><br />');
                   3412:         $r->print('<input type="submit" value="Add Metadata Field" />');
1.334     banghart 3413:     }
1.361     albertel 3414:     $r->print('</form>');
1.334     banghart 3415: }
1.259     banghart 3416: sub setrestrictmeta {
1.240     banghart 3417:     my ($r)=@_;
1.242     banghart 3418:     my $next_meta;
1.244     banghart 3419:     my $output;
1.245     banghart 3420:     my $item_num;
1.246     banghart 3421:     my $put_result;
1.280     albertel 3422:     $r->print(&Apache::loncommon::start_page('Restrict Metadata'));
1.298     albertel 3423:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
1.240     banghart 3424:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3425:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.259     banghart 3426:     my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};
1.252     banghart 3427:     my $save_field = '';
1.259     banghart 3428:     if ($env{'form.restrictmeta'}) {
1.254     banghart 3429:         foreach my $field (sort(keys(%env))) {
1.252     banghart 3430:             if ($field=~m/^form.(.+)_(.+)$/) {
1.254     banghart 3431:                 my $options;
1.252     banghart 3432:                 my $meta_field = $1;
                   3433:                 my $meta_key = $2;
1.253     banghart 3434:                 if ($save_field ne $meta_field) {
1.252     banghart 3435:                     $save_field = $meta_field;
1.253     banghart 3436:             	    if ($env{'form.'.$meta_field.'_stuadd'}) {
1.254     banghart 3437:             	        $options.='stuadd,';
                   3438:             	    } 
1.351     banghart 3439:             	    if ($env{'form.'.$meta_field.'_choices'}) {
                   3440:             	        $options.='choices,';
                   3441:             	    } 
                   3442:             	    if ($env{'form.'.$meta_field.'_onlyone'} eq 'single') {
1.254     banghart 3443:             	        $options.='onlyone,';
                   3444:             	    } 
                   3445:             	    if ($env{'form.'.$meta_field.'_active'}) {
                   3446:             	        $options.='active,';
1.253     banghart 3447:             	    }
1.337     banghart 3448:             	    if ($env{'form.'.$meta_field.'_deleted'}) {
                   3449:             	        $options.='deleted,';
                   3450:             	    }
1.259     banghart 3451:                     my $name = $save_field;
1.253     banghart 3452:                      $put_result = &Apache::lonnet::put('environment',
1.262     banghart 3453:                                                   {'metadata.'.$meta_field.'.options'=>$options,
                   3454:                                                    'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
1.253     banghart 3455:                                                    },$dom,$crs);
1.252     banghart 3456:                 }
                   3457:             }
                   3458:         }
                   3459:     }
1.296     albertel 3460:     &Apache::lonnet::coursedescription($env{'request.course.id'},
                   3461: 				       {'freshen_cache' => 1});
1.335     banghart 3462:     # Get the default metadata fields
1.258     albertel 3463:     my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
1.335     banghart 3464:     # Now get possible added metadata fields
1.357     raeburn  3465:     my $added_metadata_fields = &get_added_meta_fieldnames($env{'request.course.id'});
1.346     banghart 3466:     my $row_alt = 1;
1.347     banghart 3467:     $output .= &Apache::loncommon::start_data_table();
1.258     albertel 3468:     foreach my $field (sort(keys(%metadata_fields))) {
1.265     banghart 3469:         if ($field ne 'courserestricted') {
1.346     banghart 3470:             $row_alt = $row_alt ? 0 : 1;
1.347     banghart 3471: 	    $output.= &output_row($r, $field, $metadata_fields{$field});
1.265     banghart 3472: 	}
1.255     banghart 3473:     }
1.351     banghart 3474:     my $buttons = (<<ENDButtons);
                   3475:         <input type="submit" name="restrictmeta" value="Save" />
                   3476:         </form><br />
                   3477:         <form method="post" action="/adm/parmset?action=addmetadata" name="form1">
                   3478:         <input type="submit" name="restrictmeta" value="Add a Metadata Field" />
                   3479:         </form>
                   3480:         <br />
                   3481:         <form method="post" action="/adm/parmset?action=ordermetadata" name="form2">
                   3482:         <input type="submit" name="restrictmeta" value="Order Metadata Fields" />
                   3483: ENDButtons
1.337     banghart 3484:     my $added_flag = 1;
1.335     banghart 3485:     foreach my $field (sort(keys(%$added_metadata_fields))) {
1.346     banghart 3486:         $row_alt = $row_alt ? 0 : 1;
                   3487:         $output.= &output_row($r, $field, $$added_metadata_fields{$field},$added_flag, $row_alt);
1.335     banghart 3488:     }
1.347     banghart 3489:     $output .= &Apache::loncommon::end_data_table();
1.244     banghart 3490:     $r->print(<<ENDenv);       
1.259     banghart 3491:         <form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">
1.244     banghart 3492:         $output
1.351     banghart 3493:         $buttons
1.340     banghart 3494:         </form>
1.244     banghart 3495: ENDenv
1.280     albertel 3496:     $r->print(&Apache::loncommon::end_page());
1.240     banghart 3497:     return 'ok';
                   3498: }
1.220     www      3499: ##################################################
1.335     banghart 3500: sub get_added_meta_fieldnames {
1.357     raeburn  3501:     my ($cid) = @_;
1.335     banghart 3502:     my %fields;
                   3503:     foreach my $key(%env) {
1.357     raeburn  3504:         if ($key =~ m/\Q$cid\E\.metadata\.(.+)\.added$/) {
1.335     banghart 3505:             my $field_name = $1;
                   3506:             my ($display_field_name) = $env{$key};
                   3507:             $fields{$field_name} = $display_field_name;
                   3508:         }
                   3509:     }
                   3510:     return \%fields;
                   3511: }
1.339     banghart 3512: sub get_deleted_meta_fieldnames {
1.357     raeburn  3513:     my ($cid) = @_;
1.339     banghart 3514:     my %fields;
                   3515:     foreach my $key(%env) {
1.357     raeburn  3516:         if ($key =~ m/\Q$cid\E\.metadata\.(.+)\.added$/) {
1.339     banghart 3517:             my $field_name = $1;
                   3518:             if ($env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/) {
                   3519:                 my ($display_field_name) = $env{$key};
                   3520:                 $fields{$field_name} = $display_field_name;
                   3521:             }
                   3522:         }
                   3523:     }
                   3524:     return \%fields;
                   3525: }
1.220     www      3526: sub defaultsetter {
1.280     albertel 3527:     my ($r) = @_;
                   3528: 
                   3529:     my $start_page = 
                   3530: 	&Apache::loncommon::start_page('Parameter Setting Default Actions');
1.298     albertel 3531:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
1.220     www      3532:     $r->print(<<ENDDEFHEAD);
1.280     albertel 3533: $start_page
1.220     www      3534: $breadcrumbs
                   3535: <form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
                   3536: ENDDEFHEAD
1.280     albertel 3537: 
                   3538:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3539:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.221     www      3540:     my @ids=();
                   3541:     my %typep=();
                   3542:     my %keyp=();
                   3543:     my %allparms=();
                   3544:     my %allparts=();
                   3545:     my %allmaps=();
                   3546:     my %mapp=();
                   3547:     my %symbp=();
                   3548:     my %maptitles=();
                   3549:     my %uris=();
                   3550:     my %keyorder=&standardkeyorder();
                   3551:     my %defkeytype=();
                   3552: 
                   3553:     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
                   3554: 				\%mapp, \%symbp,\%maptitles,\%uris,
                   3555: 				\%keyorder,\%defkeytype);
1.224     www      3556:     if ($env{'form.storerules'}) {
                   3557: 	my %newrules=();
                   3558: 	my @delrules=();
1.226     www      3559: 	my %triggers=();
1.225     albertel 3560: 	foreach my $key (keys(%env)) {
                   3561:             if ($key=~/^form\.(\w+)\_action$/) {
1.224     www      3562: 		my $tempkey=$1;
1.226     www      3563: 		my $action=$env{$key};
                   3564:                 if ($action) {
                   3565: 		    $newrules{$tempkey.'_action'}=$action;
                   3566: 		    if ($action ne 'default') {
                   3567: 			my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
                   3568: 			$triggers{$whichparm}.=$tempkey.':';
                   3569: 		    }
                   3570: 		    $newrules{$tempkey.'_type'}=$defkeytype{$tempkey};
1.224     www      3571: 		    if (&isdateparm($defkeytype{$tempkey})) {
1.227     www      3572: 			$newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};
1.224     www      3573: 			$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
                   3574: 			$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
                   3575: 			$newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
                   3576: 		    } else {
                   3577: 			$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
1.227     www      3578: 			$newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};
1.224     www      3579: 		    }
                   3580: 		} else {
1.225     albertel 3581: 		    push(@delrules,$tempkey.'_action');
1.226     www      3582: 		    push(@delrules,$tempkey.'_type');
1.225     albertel 3583: 		    push(@delrules,$tempkey.'_hours');
                   3584: 		    push(@delrules,$tempkey.'_min');
                   3585: 		    push(@delrules,$tempkey.'_sec');
                   3586: 		    push(@delrules,$tempkey.'_value');
1.224     www      3587: 		}
                   3588: 	    }
                   3589: 	}
1.226     www      3590: 	foreach my $key (keys %allparms) {
                   3591: 	    $newrules{$key.'_triggers'}=$triggers{$key};
                   3592: 	}
1.224     www      3593: 	&Apache::lonnet::put('parmdefactions',\%newrules,$dom,$crs);
                   3594: 	&Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);
                   3595: 	&resetrulescache();
                   3596:     }
1.227     www      3597:     my %lt=&Apache::lonlocal::texthash('days' => 'Days',
                   3598: 				       'hours' => 'Hours',
1.221     www      3599: 				       'min' => 'Minutes',
                   3600: 				       'sec' => 'Seconds',
                   3601: 				       'yes' => 'Yes',
                   3602: 				       'no' => 'No');
1.222     www      3603:     my @standardoptions=('','default');
                   3604:     my @standarddisplay=('',&mt('Default value when manually setting'));
                   3605:     my @dateoptions=('','default');
                   3606:     my @datedisplay=('',&mt('Default value when manually setting'));
                   3607:     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
                   3608: 	unless ($tempkey) { next; }
                   3609: 	push @standardoptions,'when_setting_'.$tempkey;
                   3610: 	push @standarddisplay,&mt('Automatically set when setting ').$tempkey;
                   3611: 	if (&isdateparm($defkeytype{$tempkey})) {
                   3612: 	    push @dateoptions,'later_than_'.$tempkey;
                   3613: 	    push @datedisplay,&mt('Automatically set later than ').$tempkey;
                   3614: 	    push @dateoptions,'earlier_than_'.$tempkey;
                   3615: 	    push @datedisplay,&mt('Automatically set earlier than ').$tempkey;
                   3616: 	} 
                   3617:     }
1.231     www      3618: $r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.
                   3619: 	  &mt('Automatic setting rules apply to table mode interfaces only.'));
1.318     albertel 3620:     $r->print("\n".&Apache::loncommon::start_data_table().
                   3621: 	      &Apache::loncommon::start_data_table_header_row().
                   3622: 	      "<th>".&mt('Rule for parameter').'</th><th>'.
                   3623: 	      &mt('Action').'</th><th>'.&mt('Value').'</th>'.
                   3624: 	      &Apache::loncommon::end_data_table_header_row());
1.221     www      3625:     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
1.222     www      3626: 	unless ($tempkey) { next; }
1.318     albertel 3627: 	$r->print("\n".&Apache::loncommon::start_data_table_row().
                   3628: 		  "<td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
1.222     www      3629: 	my $action=&rulescache($tempkey.'_action');
                   3630: 	$r->print('<select name="'.$tempkey.'_action">');
                   3631: 	if (&isdateparm($defkeytype{$tempkey})) {
                   3632: 	    for (my $i=0;$i<=$#dateoptions;$i++) {
                   3633: 		if ($dateoptions[$i]=~/\_$tempkey$/) { next; }
                   3634: 		$r->print("\n<option value='$dateoptions[$i]'".
                   3635: 			  ($dateoptions[$i] eq $action?' selected="selected"':'').
                   3636: 			  ">$datedisplay[$i]</option>");
                   3637: 	    }
                   3638: 	} else {
                   3639: 	    for (my $i=0;$i<=$#standardoptions;$i++) {
                   3640: 		if ($standardoptions[$i]=~/\_$tempkey$/) { next; }
                   3641: 		$r->print("\n<option value='$standardoptions[$i]'".
                   3642: 			  ($standardoptions[$i] eq $action?' selected="selected"':'').
                   3643: 			  ">$standarddisplay[$i]</option>");
                   3644: 	    }
                   3645: 	}
                   3646: 	$r->print('</select>');
1.227     www      3647: 	unless (&isdateparm($defkeytype{$tempkey})) {
                   3648: 	    $r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').
                   3649: 		      '<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');
                   3650: 	}
1.222     www      3651: 	$r->print("\n</td><td>\n");
                   3652: 
1.221     www      3653:         if (&isdateparm($defkeytype{$tempkey})) {
1.227     www      3654: 	    my $days=&rulescache($tempkey.'_days');
1.222     www      3655: 	    my $hours=&rulescache($tempkey.'_hours');
                   3656: 	    my $min=&rulescache($tempkey.'_min');
                   3657: 	    my $sec=&rulescache($tempkey.'_sec');
1.221     www      3658: 	    $r->print(<<ENDINPUTDATE);
1.227     www      3659: <input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />
1.222     www      3660: <input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />
                   3661: <input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />
                   3662: <input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}
1.221     www      3663: ENDINPUTDATE
                   3664: 	} elsif ($defkeytype{$tempkey} eq 'string_yesno') {
1.222     www      3665:             my $yeschecked='';
                   3666:             my $nochecked='';
                   3667:             if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked='checked="checked"'; }
                   3668:             if (&rulescache($tempkey.'_value') eq 'no') { $nochecked='checked="checked"'; }
                   3669: 
1.221     www      3670: 	    $r->print(<<ENDYESNO);
1.224     www      3671: <label><input type="radio" name="$tempkey\_value" value="yes" $yeschecked /> $lt{'yes'}</label><br />
                   3672: <label><input type="radio" name="$tempkey\_value" value="no" $nochecked /> $lt{'no'}</label>
1.221     www      3673: ENDYESNO
                   3674:         } else {
1.224     www      3675: 	    $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
1.221     www      3676: 	}
1.318     albertel 3677:         $r->print('</td>'.&Apache::loncommon::end_data_table_row());
1.221     www      3678:     }
1.318     albertel 3679:     $r->print(&Apache::loncommon::end_data_table().
                   3680: 	      "\n<input type='submit' name='storerules' value='".
1.280     albertel 3681: 	      &mt('Store Rules')."' /></form>\n".
                   3682: 	      &Apache::loncommon::end_page());
1.220     www      3683:     return;
                   3684: }
1.193     albertel 3685: 
1.290     www      3686: sub components {
1.330     albertel 3687:     my ($key,$uname,$udom,$exeuser,$exedomain,$typeflag)=@_;
                   3688: 
                   3689:     if ($typeflag) {
1.290     www      3690: 	$key=~s/\.type$//;
                   3691:     }
1.330     albertel 3692: 
                   3693:     my ($middle,$part,$name)=
                   3694: 	($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
1.291     www      3695:     my $issection;
1.330     albertel 3696: 
1.290     www      3697:     my $section=&mt('All Students');
                   3698:     if ($middle=~/^\[(.*)\]/) {
1.291     www      3699: 	$issection=$1;
                   3700: 	$section=&mt('Group/Section').': '.$issection;
1.290     www      3701: 	$middle=~s/^\[(.*)\]//;
                   3702:     }
                   3703:     $middle=~s/\.+$//;
                   3704:     $middle=~s/^\.+//;
1.291     www      3705:     if ($uname) {
                   3706: 	$section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
                   3707: 	$issection='';
                   3708:     }
1.316     albertel 3709:     my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
1.304     www      3710:     my $realmdescription=&mt('all resources'); 
1.290     www      3711:     if ($middle=~/^(.+)\_\_\_\(all\)$/) {
1.316     albertel 3712: 	$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      3713:  	$realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);
                   3714:    } elsif ($middle) {
1.290     www      3715: 	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
1.316     albertel 3716: 	$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      3717: 	$realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);
1.290     www      3718:     }
1.291     www      3719:     my $what=$part.'.'.$name;
1.330     albertel 3720:     return ($realm,$section,$name,$part,
1.304     www      3721: 	    $what,$middle,$uname,$udom,$issection,$realmdescription);
1.290     www      3722: }
1.293     www      3723: 
1.328     albertel 3724: my %standard_parms;
                   3725: sub load_parameter_names {
                   3726:     open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
                   3727:     while (my $configline=<$config>) {
                   3728: 	if ($configline !~ /\S/ || $configline=~/^\#/) { next; }
                   3729: 	chomp($configline);
                   3730: 	my ($short,$plain)=split(/:/,$configline);
                   3731: 	my (undef,$name,$type)=split(/\&/,$short,3);
                   3732: 	if ($type eq 'display') {
                   3733: 	    $standard_parms{$name} = $plain;
                   3734: 	}
                   3735:     }
                   3736:     close($config);
                   3737:     $standard_parms{'int_pos'}      = 'Positive Integer';
                   3738:     $standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';
                   3739:     %standard_parms=&Apache::lonlocal::texthash(%standard_parms);	
                   3740: }
                   3741: 
1.292     www      3742: sub standard_parameter_names {
                   3743:     my ($name)=@_;
1.328     albertel 3744:     if (!%standard_parms) {
                   3745: 	&load_parameter_names();
                   3746:     }
1.292     www      3747:     if ($standard_parms{$name}) {
                   3748: 	return $standard_parms{$name}; 
                   3749:     } else { 
                   3750: 	return $name; 
                   3751:     }
                   3752: }
1.290     www      3753: 
1.309     www      3754: #
                   3755: # Parameter Change Log
                   3756: #
                   3757: 
                   3758: 
1.285     albertel 3759: sub parm_change_log {
1.284     www      3760:     my ($r)=@_;
1.327     albertel 3761:     $r->print(&Apache::loncommon::start_page('Parameter Change Log'));
                   3762:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));
                   3763: 
1.286     www      3764:     my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
                   3765: 				      $env{'course.'.$env{'request.course.id'}.'.domain'},
                   3766: 				      $env{'course.'.$env{'request.course.id'}.'.num'});
1.311     albertel 3767: 
1.301     www      3768:     if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }
1.311     albertel 3769: 
1.327     albertel 3770:     $r->print('<form action="/adm/parmset?action=parameterchangelog"
                   3771:                      method="post" name="parameterlog">');
1.311     albertel 3772:     
                   3773:     my %saveable_parameters = ('show' => 'scalar',);
                   3774:     &Apache::loncommon::store_course_settings('parameter_log',
                   3775:                                               \%saveable_parameters);
                   3776:     &Apache::loncommon::restore_course_settings('parameter_log',
                   3777:                                                 \%saveable_parameters);
1.348     www      3778:     $r->print(&Apache::loncommon::display_filter().
1.326     www      3779:               '<label>'.&Apache::lonhtmlcommon::checkbox('includetypes',$env{'form.includetypes'},'1').
                   3780: 	      ' '.&mt('Include parameter types').'</label>'.
1.327     albertel 3781: 	      '<input type="submit" value="'.&mt('Display').'" /></form>');
1.301     www      3782: 
1.291     www      3783:     my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
                   3784: 						     $env{'course.'.$env{'request.course.id'}.'.domain'});
1.301     www      3785:     $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
                   3786: 	      '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Extent').'</th><th>'.&mt('Users').'</th><th>'.
                   3787: 	      &mt('Parameter').'</th><th>'.&mt('Part').'</th><th>'.&mt('New Value').'</th><th>'.&mt('Announce').'</th>'.
                   3788: 	      &Apache::loncommon::end_data_table_header_row());
1.309     www      3789:     my $shown=0;
1.349     www      3790:     my $folder='';
                   3791:     if ($env{'form.displayfilter'} eq 'currentfolder') {
                   3792: 	my $last='';
                   3793: 	if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
                   3794: 		&GDBM_READER(),0640)) {
                   3795: 	    $last=$hash{'last_known'};
                   3796: 	    untie(%hash);
                   3797: 	}
                   3798: 	if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }
                   3799:     }
1.356     albertel 3800:     foreach my $id (sort 
                   3801: 		    {
                   3802: 			if ($parmlog{$b}{'exe_time'} ne $parmlog{$a}{'exe_time'}) {
                   3803: 			    return $parmlog{$b}{'exe_time'} <=>$parmlog{$a}{'exe_time'}
                   3804: 			}
                   3805: 			my $aid = (split('00000',$a))[-1];
                   3806: 			my $bid = (split('00000',$b))[-1];
                   3807: 			return $bid<=>$aid;
                   3808: 		    } (keys(%parmlog))) {
1.294     www      3809:         my @changes=keys(%{$parmlog{$id}{'logentry'}});
1.332     albertel 3810: 	my $count = 0;
1.288     albertel 3811: 	my $time =
1.294     www      3812: 	    &Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'});
1.289     www      3813: 	my $plainname = 
1.294     www      3814: 	    &Apache::loncommon::plainname($parmlog{$id}{'exe_uname'},
                   3815: 					  $parmlog{$id}{'exe_udom'});
1.288     albertel 3816: 	my $about_me_link = 
1.289     www      3817: 	    &Apache::loncommon::aboutmewrapper($plainname,
1.294     www      3818: 					       $parmlog{$id}{'exe_uname'},
                   3819: 					       $parmlog{$id}{'exe_udom'});
1.293     www      3820: 	my $send_msg_link='';
1.294     www      3821: 	if ((($parmlog{$id}{'exe_uname'} ne $env{'user.name'}) 
                   3822: 	     || ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
1.293     www      3823: 	    $send_msg_link ='<br />'.
1.288     albertel 3824: 		&Apache::loncommon::messagewrapper(&mt('Send message'),
1.294     www      3825: 						   $parmlog{$id}{'exe_uname'},
                   3826: 						   $parmlog{$id}{'exe_udom'});
1.288     albertel 3827: 	}
1.301     www      3828: 	my $row_start=&Apache::loncommon::start_data_table_row();
1.290     www      3829: 	my $makenewrow=0;
                   3830: 	my %istype=();
1.332     albertel 3831: 	my $output;
1.293     www      3832: 	foreach my $changed (reverse(sort(@changes))) {
1.330     albertel 3833:             my $value=$parmlog{$id}{'logentry'}{$changed};
1.331     albertel 3834: 	    my $typeflag = ($changed =~/\.type$/ &&
                   3835: 			    !exists($parmlog{$id}{'logentry'}{$changed.'.type'}));
1.330     albertel 3836:             my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)=
                   3837: 		&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},undef,undef,$typeflag);
1.349     www      3838: 	    if ($env{'form.displayfilter'} eq 'currentfolder') {
                   3839: 		if ($folder) {
                   3840: 		    if ($middle!~/^\Q$folder\E/) { next; }
                   3841: 		}
                   3842: 	    }
1.326     www      3843: 	    if ($typeflag) {
1.329     albertel 3844: 		$istype{$parmname}=$value; 
1.326     www      3845: 		if (!$env{'form.includetypes'}) { next; } 
                   3846: 	    }
1.332     albertel 3847: 	    $count++;
                   3848: 	    if ($makenewrow) {
                   3849: 		$output .= $row_start;
                   3850: 	    } else {
                   3851: 		$makenewrow=1;
                   3852: 	    }
                   3853: 	    $output .='<td>'.$realm.'</td><td>'.$section.'</td><td>'.
1.292     www      3854: 		      &standard_parameter_names($parmname).'</td><td>'.
1.332     albertel 3855: 		      ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>';
1.291     www      3856: 	    my $stillactive=0;
1.332     albertel 3857: 	    if ($parmlog{$id}{'delflag'}) {
                   3858: 		$output .= &mt('Deleted');
1.288     albertel 3859: 	    } else {
1.290     www      3860: 		if ($typeflag) {
1.332     albertel 3861: 		    $output .= &mt('Type: [_1]',&standard_parameter_names($value));
1.290     www      3862: 		} else {
1.291     www      3863: 		    my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what),
                   3864: 						      $uname,$udom,$issection,$issection,$courseopt);
                   3865: 		    if (&isdateparm($istype{$parmname})) {
1.332     albertel 3866: 			$output .= &Apache::lonlocal::locallocaltime($value);
1.291     www      3867: 		    } else {
1.332     albertel 3868: 			$output .= $value;
1.291     www      3869: 		    }
                   3870: 		    if ($value ne $all[$level]) {
1.332     albertel 3871: 			$output .= '<br /><span class="LC_warning">'.&mt('Not active anymore').'</span>';
1.291     www      3872: 		    } else {
                   3873: 			$stillactive=1;
                   3874: 		    }
1.290     www      3875: 		}
1.288     albertel 3876: 	    }
1.332     albertel 3877: 	    $output .= '</td><td>';
1.291     www      3878: 	    if ($stillactive) {
1.304     www      3879: 		my $title=&mt('Changed [_1]',&standard_parameter_names($parmname));
                   3880:                 my $description=&mt('Changed [_1] for [_2] to [_3]',&standard_parameter_names($parmname),$realmdescription,
                   3881: 				    (&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));
1.292     www      3882: 		if (($uname) && ($udom)) {
1.332     albertel 3883: 		    $output .= 
                   3884: 			&Apache::loncommon::messagewrapper('Notify User',
                   3885: 							   $uname,$udom,$title,
                   3886: 							   $description);
1.292     www      3887: 		} else {
1.332     albertel 3888: 		    $output .= 
                   3889: 			&Apache::lonrss::course_blog_link($id,$title,
                   3890: 							  $description);
1.292     www      3891: 		}
1.291     www      3892: 	    }
1.332     albertel 3893: 	    $output .= '</td>'.&Apache::loncommon::end_data_table_row();
1.288     albertel 3894: 	}
1.349     www      3895:         if ($env{'form.displayfilter'} eq 'containing') {
                   3896: 	    my $wholeentry=$about_me_link.':'.
                   3897: 		$parmlog{$id}{'exe_uname'}.':'.$parmlog{$id}{'exe_udom'}.':'.
                   3898: 		$output;
                   3899: 	    if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }        
                   3900: 	}
                   3901:         if ($count) {
                   3902: 	    $r->print($row_start.'<td rowspan="'.$count.'">'.$time.'</td>
1.332     albertel 3903:                        <td rowspan="'.$count.'">'.$about_me_link.
                   3904: 		  '<br /><tt>'.$parmlog{$id}{'exe_uname'}.
                   3905: 			          ':'.$parmlog{$id}{'exe_udom'}.'</tt>'.
                   3906: 		  $send_msg_link.'</td>'.$output);
1.349     www      3907: 	    $shown++;
                   3908: 	}
1.311     albertel 3909: 	if (!($env{'form.show'} eq &mt('all') 
                   3910: 	      || $shown<=$env{'form.show'})) { last; }
1.286     www      3911:     }
1.301     www      3912:     $r->print(&Apache::loncommon::end_data_table());
1.284     www      3913:     $r->print(&Apache::loncommon::end_page());
                   3914: }
                   3915: 
1.355     albertel 3916: sub check_for_course_info {
                   3917:     my $navmap = Apache::lonnavmaps::navmap->new();
                   3918:     return 1 if ($navmap);
                   3919:     return 0;
                   3920: }
                   3921: 
1.178     raeburn  3922: ##################################################
                   3923: ##################################################
1.30      www      3924: 
1.59      matthew  3925: =pod
                   3926: 
1.83      bowersj2 3927: =item * handler
1.59      matthew  3928: 
                   3929: Main handler.  Calls &assessparms and &crsenv subroutines.
                   3930: 
                   3931: =cut
                   3932: ##################################################
                   3933: ##################################################
1.220     www      3934: #    use Data::Dumper;
                   3935: 
1.259     banghart 3936: 
1.30      www      3937: sub handler {
1.43      albertel 3938:     my $r=shift;
1.30      www      3939: 
1.43      albertel 3940:     if ($r->header_only) {
1.126     www      3941: 	&Apache::loncommon::content_type($r,'text/html');
1.43      albertel 3942: 	$r->send_http_header;
                   3943: 	return OK;
                   3944:     }
1.193     albertel 3945:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.205     www      3946: 					    ['action','state',
                   3947:                                              'pres_marker',
                   3948:                                              'pres_value',
1.206     www      3949:                                              'pres_type',
1.243     banghart 3950:                                              'udom','uname','symb','serial']);
1.131     www      3951: 
1.83      bowersj2 3952: 
1.193     albertel 3953:     &Apache::lonhtmlcommon::clear_breadcrumbs();
1.194     albertel 3954:     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
                   3955: 					    text=>"Parameter Manager",
1.204     www      3956: 					    faq=>10,
1.324     www      3957: 					    bug=>'Instructor Interface',
                   3958:                                             help => 'Parameter_Manager'});
1.203     www      3959: 
1.30      www      3960: # ----------------------------------------------------- Needs to be in a course
1.194     albertel 3961:     my $parm_permission =
                   3962: 	(&Apache::lonnet::allowed('opa',$env{'request.course.id'}) ||
1.190     albertel 3963: 	 &Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.
1.193     albertel 3964: 				  $env{'request.course.sec'}));
1.355     albertel 3965:     my $exists = &check_for_course_info();
                   3966: 
                   3967:     if ($env{'request.course.id'} &&  $parm_permission && $exists) {
1.193     albertel 3968: 
                   3969:         # Start Page
1.126     www      3970:         &Apache::loncommon::content_type($r,'text/html');
1.106     www      3971:         $r->send_http_header;
1.30      www      3972: 
1.203     www      3973: 
                   3974:         # id numbers can change on re-ordering of folders
                   3975: 
                   3976:         &resetsymbcache();
                   3977: 
1.193     albertel 3978:         #
                   3979:         # Main switch on form.action and form.state, as appropriate
                   3980:         #
                   3981:         # Check first if coming from someone else headed directly for
                   3982:         #  the table mode
                   3983:         if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
                   3984: 	     && (!$env{'form.dis'})) || ($env{'form.symb'})) {
1.324     www      3985:             &Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',
                   3986: 						    text=>"Problem Parameters"});
1.193     albertel 3987: 	    &assessparms($r);
                   3988: 
                   3989:         } elsif (! exists($env{'form.action'})) {
                   3990:             $r->print(&header());
1.298     albertel 3991:             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Manager'));
1.193     albertel 3992:             &print_main_menu($r,$parm_permission);
                   3993:         } elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {
1.194     albertel 3994:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
                   3995: 						    text=>"Course Environment"});
1.193     albertel 3996:             &crsenv($r); 
                   3997:         } elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {
1.194     albertel 3998:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
                   3999: 						    text=>"Overview Mode"});
1.121     www      4000: 	    &overview($r);
1.334     banghart 4001: 	} elsif ($env{'form.action'} eq 'addmetadata' && $parm_permission) {
                   4002:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
                   4003: 						    text=>"Add Metadata Field"});
                   4004: 	    &addmetafield($r);
1.340     banghart 4005: 	} elsif ($env{'form.action'} eq 'ordermetadata' && $parm_permission) {
                   4006:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
                   4007: 						    text=>"Add Metadata Field"});
                   4008: 	    &order_meta_fields($r);
1.259     banghart 4009:         } elsif ($env{'form.action'} eq 'setrestrictmeta' && $parm_permission) {
                   4010:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',
                   4011: 						    text=>"Restrict Metadata"});
                   4012: 	    &setrestrictmeta($r);
1.208     www      4013:         } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {
                   4014:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
                   4015: 						    text=>"Overview Mode"});
                   4016: 	    &newoverview($r);
1.220     www      4017:         }  elsif ($env{'form.action'} eq 'setdefaults' && $parm_permission) {
                   4018:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
                   4019: 						    text=>"Set Defaults"});
                   4020: 	    &defaultsetter($r);
                   4021: 	} elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
1.194     albertel 4022:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
1.204     www      4023: 						    text=>"Table Mode",
                   4024: 						    help => 'Course_Setting_Parameters'});
1.121     www      4025: 	    &assessparms($r);
1.284     www      4026:         } elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) {
                   4027:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
1.292     www      4028: 						    text=>"Parameter Change Log"});
1.285     albertel 4029: 	    &parm_change_log($r);
1.333     albertel 4030:         } elsif ($env{'form.action'} eq 'cleanparameters' && $parm_permission) {
                   4031:             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=cleanparameters',
                   4032: 						    text=>"Clean Parameters"});
                   4033: 	    &clean_parameters($r);
1.284     www      4034: 	}       
1.43      albertel 4035:     } else {
1.1       www      4036: # ----------------------------- Not in a course, or not allowed to modify parms
1.355     albertel 4037: 	if ($exists) {
                   4038: 	    $env{'user.error.msg'}=
                   4039: 		"/adm/parmset:opa:0:0:Cannot modify assessment parameters";
                   4040: 	} else {
                   4041: 	    $env{'user.error.msg'}=
                   4042: 		"/adm/parmset::0:1:Course environment gone, reinitialize the course";
                   4043: 	}
1.43      albertel 4044: 	return HTTP_NOT_ACCEPTABLE;
                   4045:     }
                   4046:     return OK;
1.1       www      4047: }
                   4048: 
                   4049: 1;
                   4050: __END__
                   4051: 
1.59      matthew  4052: =pod
1.38      harris41 4053: 
                   4054: =back
                   4055: 
                   4056: =cut
1.1       www      4057: 
                   4058: 
                   4059: 

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