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

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

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