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

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

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