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

1.1       www         1: # The LearningOnline Network with CAPA
                      2: # Handler to set parameters for assessments
                      3: #
1.619   ! raeburn     4: # $Id: lonparmset.pm,v 1.618 2023/04/03 15:39:10 raeburn Exp $
1.40      albertel    5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
1.59      matthew    28: ###################################################################
                     29: ###################################################################
                     30: 
                     31: =pod
                     32: 
                     33: =head1 NAME
                     34: 
                     35: lonparmset - Handler to set parameters for assessments and course
                     36: 
                     37: =head1 SYNOPSIS
                     38: 
1.579     raeburn    39: lonparmset provides an interface to setting content parameters in a 
                     40: course.
1.560     damieng    41: 
                     42: It contains all the code for the "Content and Problem Settings" UI, except
                     43: for the helpers parameter.helper and resettimes.helper, and lonhelper.pm,
                     44: and lonblockingmenu.pm.
1.59      matthew    45: 
                     46: =head1 DESCRIPTION
                     47: 
                     48: This module sets coursewide and assessment parameters.
                     49: 
                     50: =head1 INTERNAL SUBROUTINES
                     51: 
1.416     jms        52: =over
1.59      matthew    53: 
1.416     jms        54: =item parmval()
1.59      matthew    55: 
                     56: Figure out a cascading parameter.
                     57: 
1.71      albertel   58: Inputs:  $what - a parameter spec (incluse part info and name I.E. 0.weight)
1.162     albertel   59:          $id   - a bighash Id number
1.71      albertel   60:          $def  - the resource's default value   'stupid emacs
                     61: 
1.556     raeburn    62: Returns:  A list, the first item is the index into the remaining list of items of parm values that is the active one, the list consists of parm values at the 18 possible levels
1.71      albertel   63: 
1.556     raeburn    64: 18 - General Course
                     65: 17 - Map or Folder level in course (recursive) 
                     66: 16 - Map or Folder level in course (non-recursive)
                     67: 15 - resource default
                     68: 14 - map default
                     69: 13 - resource level in course
                     70: 12 - General for section
                     71: 11 - Map or Folder level for section (recursive)
                     72: 10 - Map or Folder level for section (non-recursive)
                     73: 9 - resource level in section
                     74: 8 - General for group
                     75: 7 - Map or Folder level for group (recursive)
                     76: 6 - Map or Folder level for group (non-recursive)
                     77: 5 - resource level in group
                     78: 4 - General for specific student
                     79: 3 - Map or Folder level for specific student (recursive)
                     80: 2 - Map or Folder level for specific student (non-recursive)
1.71      albertel   81: 1 - resource level for specific student
1.2       www        82: 
1.416     jms        83: =item parmval_by_symb()
                     84: 
                     85: =item reset_caches()
                     86: 
                     87: =item cacheparmhash() 
                     88: 
                     89: =item parmhash()
                     90: 
                     91: =item symbcache()
                     92: 
                     93: =item preset_defaults()
                     94: 
                     95: =item date_sanity_info()
                     96: 
                     97: =item storeparm()
                     98: 
                     99: Store a parameter by symb
                    100: 
                    101:     Takes
                    102:     - symb
                    103:     - name of parameter
                    104:     - level
                    105:     - new value
                    106:     - new type
                    107:     - username
                    108:     - userdomain
                    109: 
                    110: =item log_parmset()
                    111: 
                    112: =item storeparm_by_symb_inner()
                    113: 
                    114: =item valout()
                    115: 
                    116: Format a value for output.
                    117: 
                    118: Inputs:  $value, $type, $editable
                    119: 
                    120: Returns: $value, formatted for output.  If $type indicates it is a date,
                    121: localtime($value) is returned.
                    122: $editable will return an icon to click on
                    123: 
                    124: =item plink()
                    125: 
                    126: Produces a link anchor.
                    127: 
                    128: Inputs: $type,$dis,$value,$marker,$return,$call
                    129: 
                    130: Returns: scalar with html code for a link which will envoke the 
                    131: javascript function 'pjump'.
                    132: 
                    133: =item page_js()
                    134: 
                    135: =item startpage()
                    136: 
                    137: =item print_row()
                    138: 
                    139: =item print_td()
                    140: 
1.580     raeburn   141: =item check_other_groups()
1.416     jms       142: 
                    143: =item parm_control_group()
                    144: 
                    145: =item extractResourceInformation() : 
                    146: 
1.512     foxr      147:  extractResourceInformation extracts lots of information about all of the the course's resources into a variety of hashes.
1.416     jms       148: 
1.542     raeburn   149: Input: See list below
                    150: 
                    151: =over 4
1.416     jms       152: 
1.512     foxr      153: =item * B<env{'user.name'}> : Current username
1.416     jms       154: 
1.512     foxr      155: =item * B<env{'user.domain'}> : Domain of current user.
1.416     jms       156: 
1.542     raeburn   157: =item * B<env{"request.course.fn"}> : Course
                    158: 
                    159: =back
1.416     jms       160: 
1.512     foxr      161: Outputs: See list below:
1.416     jms       162: 
1.542     raeburn   163: =over 4
                    164: 
1.512     foxr      165: =item * B<ids> (out) : An array that will contain all of the ids in the course.
1.416     jms       166: 
1.512     foxr      167: =item * B<typep>(out) : hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.
1.416     jms       168: 
1.512     foxr      169: =item * B<keyp> (out) : hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id
1.416     jms       170: 
1.512     foxr      171: =item * B<allparms> (out) : hash, name of parameter->display value (what is the display value?)
1.416     jms       172: 
1.512     foxr      173: =item * B<allparts> (out) : hash, part identification->text representation of part, where the text representation is "[Part $part]"
                    174: 
                    175: =item * B<allmaps> (out) : hash, ???
1.416     jms       176: 
                    177: =item * B<mapp> : ??
                    178: 
                    179: =item * B<symbp> : hash, id->full sym?
                    180: 
1.512     foxr      181: =item * B<maptitles>
                    182: 
                    183: =item * B<uris>
1.416     jms       184: 
1.512     foxr      185: =item * B<keyorder>
                    186: 
                    187: =item * B<defkeytype>
1.416     jms       188: 
1.542     raeburn   189: =back
                    190: 
1.416     jms       191: =item isdateparm()
                    192: 
                    193: =item parmmenu()
                    194: 
                    195: =item partmenu()
                    196: 
                    197: =item usermenu()
                    198: 
                    199: =item displaymenu()
                    200: 
                    201: =item mapmenu()
                    202: 
                    203: =item levelmenu()
                    204: 
                    205: =item sectionmenu()
                    206: 
                    207: =item keysplit()
                    208: 
                    209: =item keysinorder()
                    210: 
                    211: =item keysinorder_bytype()
                    212: 
                    213: =item keysindisplayorder()
                    214: 
                    215: =item standardkeyorder()
                    216: 
                    217: =item assessparms() : 
                    218: 
                    219: Show assessment data and parameters.  This is a large routine that should
                    220: be simplified and shortened... someday.
                    221: 
1.513     foxr      222: Inputs: $r - the Apache request object.
                    223:   
1.416     jms       224: Returns: nothing
                    225: 
                    226: Variables used (guessed by Jeremy):
                    227: 
1.542     raeburn   228: =over
                    229: 
1.416     jms       230: =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.
                    231: 
                    232: =item * B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?
                    233: 
                    234: =item * B<@catmarker> contains list of all possible parameters including part #s
                    235: 
                    236: =item * B<$fullkeyp> contains the full part/id # for the extraction of proper parameters
                    237: 
                    238: =item * B<$tempkeyp> contains part 0 only (no ids - ie, subparts)
                    239:         When storing information, store as part 0
                    240:         When requesting information, request from full part
                    241: 
1.542     raeburn   242: =back
                    243: 
1.416     jms       244: =item tablestart()
                    245: 
                    246: =item tableend()
                    247: 
                    248: =item extractuser()
                    249: 
                    250: =item parse_listdata_key()
                    251: 
                    252: =item listdata()
                    253: 
                    254: =item date_interval_selector()
                    255: 
                    256: =item get_date_interval_from_form()
                    257: 
                    258: =item default_selector()
                    259: 
                    260: =item string_selector()
                    261: 
                    262: =item dateshift()
                    263: 
                    264: =item newoverview()
                    265: 
                    266: =item secgroup_lister()
                    267: 
                    268: =item overview()
                    269: 
                    270: =item clean_parameters()
                    271: 
                    272: =item date_shift_one()
                    273: 
                    274: =item date_shift_two()
                    275: 
                    276: =item parse_key()
                    277: 
                    278: =item header()
                    279: 
                    280: Output html header for page
                    281: 
                    282: =item print_main_menu()
                    283: 
                    284: =item output_row()
                    285: 
                    286: Set portfolio metadata
                    287: 
                    288: =item order_meta_fields()
                    289: 
                    290: =item addmetafield()
                    291: 
                    292: =item setrestrictmeta()
                    293: 
                    294: =item get_added_meta_fieldnames()
                    295: 
                    296: =item get_deleted_meta_fieldnames()
                    297: 
                    298: =item defaultsetter()
                    299: 
                    300: =item components()
                    301: 
                    302: =item load_parameter_names()
                    303: 
                    304: =item parm_change_log()
                    305: 
                    306: =item handler() : 
                    307: 
1.450     raeburn   308: Main handler.  Calls &assessparms subroutine.
1.416     jms       309: 
                    310: =back
                    311: 
1.59      matthew   312: =cut
                    313: 
1.416     jms       314: ###################################################################
                    315: ###################################################################
                    316: 
                    317: package Apache::lonparmset;
                    318: 
                    319: use strict;
                    320: use Apache::lonnet;
                    321: use Apache::Constants qw(:common :http REDIRECT);
                    322: use Apache::lonhtmlcommon();
                    323: use Apache::loncommon;
                    324: use GDBM_File;
                    325: use Apache::lonhomework;
                    326: use Apache::lonxml;
                    327: use Apache::lonlocal;
                    328: use Apache::lonnavmaps;
                    329: use Apache::longroup;
                    330: use Apache::lonrss;
1.506     www       331: use HTML::Entities;
1.617     raeburn   332: use Text::Wrap();
1.416     jms       333: use LONCAPA qw(:DEFAULT :match);
                    334: 
                    335: 
1.560     damieng   336: ##################################################
                    337: # CONTENT AND PROBLEM SETTINGS HTML PAGE HEADER/FOOTER
                    338: ##################################################
                    339: 
                    340: # Page header
1.561     damieng   341: #
                    342: # @param {Apache2::RequestRec} $r - Apache request object
                    343: # @param {string} $mode - selected tab, 'parmset' for course and problem settings, or 'coursepref' for course settings
                    344: # @param {string} $crstype - course type ('Community' for community settings)
1.507     www       345: sub startSettingsScreen {
1.531     raeburn   346:     my ($r,$mode,$crstype)=@_;
1.507     www       347: 
1.531     raeburn   348:     my $tabtext = &mt('Course Settings');
                    349:     if ($crstype eq 'Community') {
                    350:         $tabtext = &mt('Community Settings');
                    351:     } 
1.507     www       352:     $r->print("\n".'<ul class="LC_TabContentBigger" id="main">');
                    353:     $r->print("\n".'<li'.($mode eq 'coursepref'?' class="active"':'').'><a href="/adm/courseprefs"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.
1.531     raeburn   354:                                           $tabtext.
1.507     www       355:                                           '&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>');
                    356: 
1.523     raeburn   357:     $r->print("\n".'<li'.($mode eq 'parmset'?' class="active"':'').' id="tabbededitor"><a href="/adm/parmset"><b>'.
1.507     www       358:                                                                  &mt('Content and Problem Settings').'</b></a></li>');
                    359:     $r->print("\n".'</ul>'."\n");
1.523     raeburn   360:     $r->print('<div class="LC_Box" style="clear:both;margin:0;" id="parameditor"><div id="maincoursedoc" style="margin:0 0;padding:0 0;"><div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">');
1.507     www       361: }
                    362: 
1.560     damieng   363: # Page footer
1.507     www       364: sub endSettingsScreen {
                    365:    my ($r)=@_;
                    366:    $r->print('</div></div></div>');
                    367: }
                    368: 
                    369: 
                    370: 
1.560     damieng   371: ##################################################
1.563     damieng   372: # (mostly) TABLE MODE
1.560     damieng   373: # (parmval is also used for the log of parameter changes)
                    374: ##################################################
                    375: 
1.566     damieng   376: # Calls parmval_by_symb, getting the symb from $id with &symbcache.
1.561     damieng   377: #
                    378: # @param {string} $what - part info and parameter name separated by a dot, e.g. '0.weight'
1.566     damieng   379: # @param {string} $id - resource id or map pc
1.561     damieng   380: # @param {string} $def - the resource's default value for this parameter
                    381: # @param {string} $uname - user name
                    382: # @param {string} $udom - user domain
                    383: # @param {string} $csec - section name
                    384: # @param {string} $cgroup - group name
                    385: # @param {hash reference} $courseopt - course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db)
                    386: # @returns {Array}
1.2       www       387: sub parmval {
1.275     raeburn   388:     my ($what,$id,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
                    389:     return &parmval_by_symb($what,&symbcache($id),$def,$uname,$udom,$csec,
                    390:                                                            $cgroup,$courseopt);
1.201     www       391: }
                    392: 
1.561     damieng   393: # Returns an array containing
                    394: # - the most specific level that is defined for that parameter (integer)
                    395: # - an array with the level as index and the parameter value as value (when defined)
                    396: #   (level 1 is the most specific and will have precedence)
                    397: #
                    398: # @param {string} $what - part info and parameter name separated by a dot, e.g. '0.weight'
1.566     damieng   399: # @param {string} $symb - resource symb or map src
1.561     damieng   400: # @param {string} $def - the resource's default value for this parameter
                    401: # @param {string} $uname - user name
                    402: # @param {string} $udom - user domain
                    403: # @param {string} $csec - section name
                    404: # @param {string} $cgroup - group name
                    405: # @param {hash reference} $courseopt - course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db)
                    406: # @returns {Array}
1.201     www       407: sub parmval_by_symb {
1.275     raeburn   408:     my ($what,$symb,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
1.200     www       409: 
1.352     albertel  410:     my $useropt;
                    411:     if ($uname ne '' && $udom ne '') {
1.561     damieng   412:         $useropt = &Apache::lonnet::get_userresdata($uname,$udom);
1.352     albertel  413:     }
1.200     www       414: 
1.8       www       415:     my $result='';
1.44      albertel  416:     my @outpar=();
1.2       www       417: # ----------------------------------------------------- Cascading lookup scheme
1.446     bisitz    418:     my $map=(&Apache::lonnet::decode_symb($symb))[0];
1.305     albertel  419:     $map = &Apache::lonnet::deversion($map);
1.561     damieng   420:     
                    421:     # NOTE: some of that code looks redondant with code in lonnavmaps::parmval_real,
                    422:     # any change should be reflected there.
                    423:     
1.201     www       424:     my $symbparm=$symb.'.'.$what;
1.556     raeburn   425:     my $recurseparm=$map.'___(rec).'.$what; 
1.201     www       426:     my $mapparm=$map.'___(all).'.$what;
1.10      www       427: 
1.269     raeburn   428:     my $grplevel=$env{'request.course.id'}.'.['.$cgroup.'].'.$what;
                    429:     my $grplevelr=$env{'request.course.id'}.'.['.$cgroup.'].'.$symbparm;
1.556     raeburn   430:     my $grpleveli=$env{'request.course.id'}.'.['.$cgroup.'].'.$recurseparm;
1.269     raeburn   431:     my $grplevelm=$env{'request.course.id'}.'.['.$cgroup.'].'.$mapparm;
                    432: 
1.190     albertel  433:     my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$what;
                    434:     my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
1.556     raeburn   435:     my $secleveli=$env{'request.course.id'}.'.['.$csec.'].'.$recurseparm;
1.190     albertel  436:     my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
                    437: 
                    438:     my $courselevel=$env{'request.course.id'}.'.'.$what;
                    439:     my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
1.556     raeburn   440:     my $courseleveli=$env{'request.course.id'}.'.'.$recurseparm;
1.190     albertel  441:     my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
1.2       www       442: 
1.11      www       443: 
1.182     albertel  444: # --------------------------------------------------------- first, check course
1.11      www       445: 
1.561     damieng   446: # 18 - General Course
1.200     www       447:     if (defined($$courseopt{$courselevel})) {
1.556     raeburn   448:         $outpar[18]=$$courseopt{$courselevel};
                    449:         $result=18;
                    450:     }
                    451: 
1.561     damieng   452: # 17 - Map or Folder level in course (recursive) 
1.556     raeburn   453:     if (defined($$courseopt{$courseleveli})) {
                    454:         $outpar[17]=$$courseopt{$courseleveli};
                    455:         $result=17;
1.43      albertel  456:     }
1.11      www       457: 
1.561     damieng   458: # 16 - Map or Folder level in course (non-recursive)
1.200     www       459:     if (defined($$courseopt{$courselevelm})) {
1.556     raeburn   460:         $outpar[16]=$$courseopt{$courselevelm};
                    461:         $result=16;
1.43      albertel  462:     }
1.11      www       463: 
1.182     albertel  464: # ------------------------------------------------------- second, check default
                    465: 
1.561     damieng   466: # 15 - resource default
1.556     raeburn   467:     if (defined($def)) { $outpar[15]=$def; $result=15; }
1.182     albertel  468: 
                    469: # ------------------------------------------------------ third, check map parms
                    470: 
1.556     raeburn   471:     
1.561     damieng   472: # 14 - map default
1.376     albertel  473:     my $thisparm=&parmhash($symbparm);
1.556     raeburn   474:     if (defined($thisparm)) { $outpar[14]=$thisparm; $result=14; }
1.182     albertel  475: 
1.561     damieng   476: # 13 - resource level in course
1.200     www       477:     if (defined($$courseopt{$courselevelr})) {
1.556     raeburn   478:         $outpar[13]=$$courseopt{$courselevelr};
                    479:         $result=13;
1.43      albertel  480:     }
1.11      www       481: 
1.182     albertel  482: # ------------------------------------------------------ fourth, back to course
1.352     albertel  483:     if ($csec ne '') {
1.561     damieng   484: # 12 - General for section
1.200     www       485:         if (defined($$courseopt{$seclevel})) {
1.556     raeburn   486:             $outpar[12]=$$courseopt{$seclevel};
                    487:             $result=12;
                    488:         }
1.561     damieng   489: # 11 - Map or Folder level for section (recursive)
1.556     raeburn   490:         if (defined($$courseopt{$secleveli})) {
                    491:             $outpar[11]=$$courseopt{$secleveli};
                    492:             $result=11;
                    493:         }
1.561     damieng   494: # 10 - Map or Folder level for section (non-recursive)
1.200     www       495:         if (defined($$courseopt{$seclevelm})) {
1.556     raeburn   496:             $outpar[10]=$$courseopt{$seclevelm};
                    497:             $result=10;
                    498:         }
1.561     damieng   499: # 9 - resource level in section
1.200     www       500:         if (defined($$courseopt{$seclevelr})) {
1.556     raeburn   501:             $outpar[9]=$$courseopt{$seclevelr};
                    502:             $result=9;
                    503:         }
1.43      albertel  504:     }
1.275     raeburn   505: # ------------------------------------------------------ fifth, check course group
1.352     albertel  506:     if ($cgroup ne '') {
1.561     damieng   507: # 8 - General for group
1.269     raeburn   508:         if (defined($$courseopt{$grplevel})) {
1.556     raeburn   509:             $outpar[8]=$$courseopt{$grplevel};
                    510:             $result=8;
                    511:         }
1.561     damieng   512: # 7 - Map or Folder level for group (recursive)
1.556     raeburn   513:         if (defined($$courseopt{$grpleveli})) {
                    514:             $outpar[7]=$$courseopt{$grpleveli};
                    515:             $result=7;
1.269     raeburn   516:         }
1.561     damieng   517: # 6 - Map or Folder level for group (non-recursive)
1.269     raeburn   518:         if (defined($$courseopt{$grplevelm})) {
1.556     raeburn   519:             $outpar[6]=$$courseopt{$grplevelm};
                    520:             $result=6;
1.269     raeburn   521:         }
1.561     damieng   522: # 5 - resource level in group
1.269     raeburn   523:         if (defined($$courseopt{$grplevelr})) {
1.556     raeburn   524:             $outpar[5]=$$courseopt{$grplevelr};
                    525:             $result=5;
1.269     raeburn   526:         }
                    527:     }
1.11      www       528: 
1.556     raeburn   529: # ---------------------------------------------------------- sixth, check user
1.11      www       530: 
1.352     albertel  531:     if ($uname ne '') {
1.561     damieng   532: # 4 - General for specific student
                    533:         if (defined($$useropt{$courselevel})) {
                    534:             $outpar[4]=$$useropt{$courselevel};
                    535:             $result=4;
                    536:         }
1.556     raeburn   537: 
1.561     damieng   538: # 3 - Map or Folder level for specific student (recursive)
                    539:         if (defined($$useropt{$courseleveli})) {
                    540:             $outpar[3]=$$useropt{$courseleveli};
                    541:             $result=3;
                    542:         }
1.473     amueller  543: 
1.561     damieng   544: # 2 - Map or Folder level for specific student (non-recursive)
                    545:         if (defined($$useropt{$courselevelm})) {
                    546:             $outpar[2]=$$useropt{$courselevelm};
                    547:             $result=2;
                    548:         }
1.473     amueller  549: 
1.561     damieng   550: # 1 - resource level for specific student
                    551:         if (defined($$useropt{$courselevelr})) {
                    552:             $outpar[1]=$$useropt{$courselevelr};
                    553:             $result=1;
                    554:         }
1.43      albertel  555:     }
1.44      albertel  556:     return ($result,@outpar);
1.2       www       557: }
                    558: 
1.198     www       559: 
                    560: 
1.376     albertel  561: # --- Caches local to lonparmset
                    562: 
1.446     bisitz    563: 
1.561     damieng   564: # Reset lonparmset caches (called at the beginning and end of the handler).
1.376     albertel  565: sub reset_caches {
                    566:     &resetparmhash();
                    567:     &resetsymbcache();
                    568:     &resetrulescache();
1.203     www       569: }
                    570: 
1.561     damieng   571: # cache for map parameters, stored temporarily in $env{'request.course.fn'}_parms.db
                    572: # (these parameters come from param elements in .sequence files created with the advanced RAT)
1.376     albertel  573: {
1.561     damieng   574:     my $parmhashid; # course identifier, to initialize the cache only once for a course
                    575:     my %parmhash; # the parameter cache
                    576:     # reset map parameter hash
1.376     albertel  577:     sub resetparmhash {
1.560     damieng   578:         undef($parmhashid);
                    579:         undef(%parmhash);
1.376     albertel  580:     }
1.446     bisitz    581: 
1.561     damieng   582:     # dump the _parms.db database into %parmhash
1.376     albertel  583:     sub cacheparmhash {
1.560     damieng   584:         if ($parmhashid eq  $env{'request.course.fn'}) { return; }
                    585:         my %parmhashfile;
                    586:         if (tie(%parmhashfile,'GDBM_File',
                    587:             $env{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640)) {
                    588:             %parmhash=%parmhashfile;
                    589:             untie(%parmhashfile);
                    590:             $parmhashid=$env{'request.course.fn'};
                    591:         }
1.201     www       592:     }
1.446     bisitz    593: 
1.561     damieng   594:     # returns a parameter value for an identifier symb.parts.parameter, using the map parameter cache
1.376     albertel  595:     sub parmhash {
1.560     damieng   596:         my ($id) = @_;
                    597:         &cacheparmhash();
                    598:         return $parmhash{$id};
1.376     albertel  599:     }
1.560     damieng   600: }
1.376     albertel  601: 
1.566     damieng   602: # cache resource id or map pc -> resource symb or map src, using lonnavmaps to find association
1.446     bisitz    603: {
1.561     damieng   604:     my $symbsid; # course identifier, to initialize the cache only once for a course
                    605:     my %symbs; # hash id->symb
                    606:     # reset the id->symb cache
1.376     albertel  607:     sub resetsymbcache {
1.560     damieng   608:         undef($symbsid);
                    609:         undef(%symbs);
1.376     albertel  610:     }
1.446     bisitz    611: 
1.566     damieng   612:     # returns the resource symb or map src corresponding to a resource id or map pc
                    613:     # (using lonnavmaps and a cache)
1.376     albertel  614:     sub symbcache {
1.560     damieng   615:         my $id=shift;
                    616:         if ($symbsid ne $env{'request.course.id'}) {
                    617:             undef(%symbs);
                    618:         }
                    619:         if (!$symbs{$id}) {
                    620:             my $navmap = Apache::lonnavmaps::navmap->new();
                    621:             if ($id=~/\./) {
                    622:                 my $resource=$navmap->getById($id);
                    623:                 $symbs{$id}=$resource->symb();
                    624:             } else {
                    625:                 my $resource=$navmap->getByMapPc($id);
                    626:                 $symbs{$id}=&Apache::lonnet::declutter($resource->src());
                    627:             }
                    628:             $symbsid=$env{'request.course.id'};
1.473     amueller  629:         }
1.560     damieng   630:         return $symbs{$id};
1.473     amueller  631:     }
1.560     damieng   632: }
1.201     www       633: 
1.561     damieng   634: # cache for parameter default actions (stored in parmdefactions.db)
1.446     bisitz    635: {
1.561     damieng   636:     my $rulesid; # course identifier, to initialize the cache only once for a course
                    637:     my %rules; # parameter default actions hash
1.376     albertel  638:     sub resetrulescache {
1.560     damieng   639:         undef($rulesid);
                    640:         undef(%rules);
1.376     albertel  641:     }
1.446     bisitz    642: 
1.561     damieng   643:     # returns the value for a given key in the parameter default action hash
1.376     albertel  644:     sub rulescache {
1.560     damieng   645:         my $id=shift;
                    646:         if ($rulesid ne $env{'request.course.id'}
                    647:             && !defined($rules{$id})) {
                    648:             my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                    649:             my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
                    650:             %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
                    651:             $rulesid=$env{'request.course.id'};
                    652:         }
                    653:         return $rules{$id};
1.221     www       654:     }
                    655: }
                    656: 
1.416     jms       657: 
1.561     damieng   658: # Returns the values of the parameter type default action
                    659: # "default value when manually setting".
                    660: # If none is defined, ('','','','','') is returned.
                    661: #
                    662: # @param {string} $type - parameter type
                    663: # @returns {Array<string>} - (hours, min, sec, value)
1.229     www       664: sub preset_defaults {
                    665:     my $type=shift;
                    666:     if (&rulescache($type.'_action') eq 'default') {
1.560     damieng   667:         # yes, there is something
                    668:         return (&rulescache($type.'_hours'),
                    669:             &rulescache($type.'_min'),
                    670:             &rulescache($type.'_sec'),
                    671:             &rulescache($type.'_value'));
1.229     www       672:     } else {
1.560     damieng   673:         # nothing there or something else
                    674:         return ('','','','','');
1.229     www       675:     }
                    676: }
                    677: 
1.416     jms       678: 
1.561     damieng   679: # Checks that a date is after enrollment start date and before
                    680: # enrollment end date.
                    681: # Returns HTML with a warning if it is not, or the empty string otherwise.
                    682: # This is used by both overview and table modes.
                    683: #
                    684: # @param {integer} $checkdate - the date to check.
                    685: # @returns {string} - HTML possibly containing a localized warning message.
1.277     www       686: sub date_sanity_info {
                    687:    my $checkdate=shift;
                    688:    unless ($checkdate) { return ''; }
                    689:    my $result='';
                    690:    my $crsprefix='course.'.$env{'request.course.id'}.'.';
                    691:    if ($env{$crsprefix.'default_enrollment_end_date'}) {
                    692:       if ($checkdate>$env{$crsprefix.'default_enrollment_end_date'}) {
1.413     bisitz    693:          $result.='<div class="LC_warning">'
                    694:                  .&mt('After course enrollment end!')
                    695:                  .'</div>';
1.277     www       696:       }
                    697:    }
                    698:    if ($env{$crsprefix.'default_enrollment_start_date'}) {
                    699:       if ($checkdate<$env{$crsprefix.'default_enrollment_start_date'}) {
1.413     bisitz    700:          $result.='<div class="LC_warning">'
                    701:                  .&mt('Before course enrollment start!')
                    702:                  .'</div>';
1.277     www       703:       }
                    704:    }
1.413     bisitz    705: # Preparation for additional warnings about dates in the past/future.
                    706: # An improved, more context sensitive version is recommended,
                    707: # e.g. warn for due and answer dates which are defined before the corresponding open date, etc.
                    708: #   if ($checkdate<time) {
                    709: #      $result.='<div class="LC_info">'
                    710: #              .'('.&mt('in the past').')'
                    711: #              .'</div>';
                    712: #      }
                    713: #   if ($checkdate>time) {
                    714: #      $result.='<div class="LC_info">'
                    715: #              .'('.&mt('in the future').')'
                    716: #              .'</div>';
                    717: #      }
1.277     www       718:    return $result;
                    719: }
1.561     damieng   720: 
                    721: 
                    722: # Store a parameter value and type by ID, also triggering more parameter changes based on parameter default actions.
1.186     www       723: #
1.566     damieng   724: # @param {string} $sresid - resource id or map pc
1.565     damieng   725: # @param {string} $spnam - part info and parameter name separated by a dot or underscore, e.g. '0.weight'
1.561     damieng   726: # @param {integer} $snum - level
                    727: # @param {string} $nval - new value
                    728: # @param {string} $ntype - new type
                    729: # @param {string} $uname - username
                    730: # @param {string} $udom - userdomain
                    731: # @param {string} $csec - section name
                    732: # @param {string} $cgroup - group name
1.186     www       733: sub storeparm {
1.269     raeburn   734:     my ($sresid,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
1.275     raeburn   735:     &storeparm_by_symb(&symbcache($sresid),$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,'',$cgroup);
1.197     www       736: }
                    737: 
1.561     damieng   738: my %recstack; # hash parameter name -> 1 when a parameter was used before in a recursive call to storeparm_by_symb
                    739: 
                    740: # Store a parameter value and type by symb, also triggering more parameter changes based on parameter default actions.
                    741: # Uses storeparm_by_symb_inner to actually store the parameter, ignoring any returned error.
                    742: #
1.566     damieng   743: # @param {string} $symb - resource symb or map src
1.565     damieng   744: # @param {string} $spnam - part info and parameter name separated by a dot or underscore, e.g. '0.weight'
1.561     damieng   745: # @param {integer} $snum - level
                    746: # @param {string} $nval - new value
                    747: # @param {string} $ntype - new type
                    748: # @param {string} $uname - username
                    749: # @param {string} $udom - userdomain
                    750: # @param {string} $csec - section name
                    751: # @param {boolean} $recflag - should be true for recursive calls to storeparm_by_symb, false otherwise
                    752: # @param {string} $cgroup - group name
1.197     www       753: sub storeparm_by_symb {
1.275     raeburn   754:     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$recflag,$cgroup)=@_;
1.226     www       755:     unless ($recflag) {
1.560     damieng   756:         # first time call
                    757:         %recstack=();
                    758:         $recflag=1;
1.226     www       759:     }
1.560     damieng   760:     # store parameter
1.226     www       761:     &storeparm_by_symb_inner
1.473     amueller  762:     ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup);
1.560     damieng   763:     # don't do anything if parameter was reset
1.266     www       764:     unless ($nval) { return; }
1.226     www       765:     my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);
1.560     damieng   766:     # remember that this was set
1.226     www       767:     $recstack{$parm}=1;
1.560     damieng   768:     # what does this trigger?
1.226     www       769:     foreach my $triggered (split(/\:/,&rulescache($parm.'_triggers'))) {
1.560     damieng   770:         # don't backfire
                    771:         unless ((!$triggered) || ($recstack{$triggered})) {
                    772:             my $action=&rulescache($triggered.'_action');
                    773:             my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
                    774:             # set triggered parameter on same level
                    775:             my $newspnam=$prefix.$triggered;
                    776:             my $newvalue='';
                    777:             my $active=1;
                    778:             if ($action=~/^when\_setting/) {
                    779:             # are there restrictions?
                    780:                 if (&rulescache($triggered.'_triggervalue')=~/\w/) {
                    781:                     $active=0;
1.565     damieng   782:                     foreach my $possiblevalue (split(/\s*\,\s*/,&rulescache($triggered.'_triggervalue'))) {
1.560     damieng   783:                         if (lc($possiblevalue) eq lc($nval)) { $active=1; }
                    784:                     }
                    785:                 }
                    786:                 $newvalue=&rulescache($triggered.'_value');
                    787:             } else {
                    788:                 my $totalsecs=((&rulescache($triggered.'_days')*24+&rulescache($triggered.'_hours'))*60+&rulescache($triggered.'_min'))*60+&rulescache($triggered.'_sec');
                    789:                 if ($action=~/^later\_than/) {
                    790:                     $newvalue=$nval+$totalsecs;
                    791:                 } else {
                    792:                     $newvalue=$nval-$totalsecs;
                    793:                 }
                    794:             }
                    795:             if ($active) {
                    796:                 &storeparm_by_symb($symb,$newspnam,$snum,$newvalue,&rulescache($triggered.'_type'),
                    797:                         $uname,$udom,$csec,$recflag,$cgroup);
                    798:             }
                    799:         }
1.226     www       800:     }
                    801:     return '';
                    802: }
                    803: 
1.561     damieng   804: # Adds all given arguments to the course parameter log.
                    805: # @returns {string} - the answer to the lonnet query.
1.293     www       806: sub log_parmset {
1.525     raeburn   807:     return &Apache::lonnet::write_log('course','parameterlog',@_);
1.284     www       808: }
                    809: 
1.561     damieng   810: # Store a parameter value and type by symb, without using the parameter default actions.
                    811: # Expire related sheets.
                    812: #
1.566     damieng   813: # @param {string} $symb - resource symb or map src
1.561     damieng   814: # @param {string} $spnam - part info and parameter name separated by a dot, e.g. '0.weight'
                    815: # @param {integer} $snum - level
                    816: # @param {string} $nval - new value
                    817: # @param {string} $ntype - new type
                    818: # @param {string} $uname - username
                    819: # @param {string} $udom - userdomain
                    820: # @param {string} $csec - section name
                    821: # @param {string} $cgroup - group name
                    822: # @returns {string} - HTML code with an error message if the parameter could not be stored.
1.226     www       823: sub storeparm_by_symb_inner {
1.197     www       824: # ---------------------------------------------------------- Get symb, map, etc
1.269     raeburn   825:     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
1.197     www       826: # ---------------------------------------------------------- Construct prefixes
1.186     www       827:     $spnam=~s/\_([^\_]+)$/\.$1/;
1.446     bisitz    828:     my $map=(&Apache::lonnet::decode_symb($symb))[0];
1.305     albertel  829:     $map = &Apache::lonnet::deversion($map);
                    830: 
1.197     www       831:     my $symbparm=$symb.'.'.$spnam;
1.556     raeburn   832:     my $recurseparm=$map.'___(rec).'.$spnam;
1.197     www       833:     my $mapparm=$map.'___(all).'.$spnam;
                    834: 
1.269     raeburn   835:     my $grplevel=$env{'request.course.id'}.'.['.$cgroup.'].'.$spnam;
                    836:     my $grplevelr=$env{'request.course.id'}.'.['.$cgroup.'].'.$symbparm;
1.556     raeburn   837:     my $grpleveli=$env{'request.course.id'}.'.['.$cgroup.'].'.$recurseparm;
1.269     raeburn   838:     my $grplevelm=$env{'request.course.id'}.'.['.$cgroup.'].'.$mapparm;
                    839: 
1.190     albertel  840:     my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$spnam;
                    841:     my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
1.556     raeburn   842:     my $secleveli=$env{'request.course.id'}.'.['.$csec.'].'.$recurseparm;
1.190     albertel  843:     my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
1.446     bisitz    844: 
1.190     albertel  845:     my $courselevel=$env{'request.course.id'}.'.'.$spnam;
                    846:     my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
1.556     raeburn   847:     my $courseleveli=$env{'request.course.id'}.'.'.$recurseparm;
1.190     albertel  848:     my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
1.446     bisitz    849: 
1.186     www       850:     my $storeunder='';
1.578     raeburn   851:     my $possreplace='';
1.556     raeburn   852:     if (($snum==18) || ($snum==4)) { $storeunder=$courselevel; }
1.578     raeburn   853:     if (($snum==17) || ($snum==3)) { 
                    854:         $storeunder=$courseleveli;
                    855:         $possreplace=$courselevelm; 
                    856:     } 
                    857:     if (($snum==16) || ($snum==2)) { 
                    858:         $storeunder=$courselevelm;
                    859:         $possreplace=$courseleveli;
                    860:     }
1.556     raeburn   861:     if (($snum==13) || ($snum==1)) { $storeunder=$courselevelr; }
                    862:     if ($snum==12) { $storeunder=$seclevel; }
1.578     raeburn   863:     if ($snum==11) { 
                    864:         $storeunder=$secleveli;
                    865:         $possreplace=$seclevelm; 
                    866:     }
                    867:     if ($snum==10) { 
                    868:         $storeunder=$seclevelm;
                    869:         $possreplace=$secleveli;
                    870:     }
1.556     raeburn   871:     if ($snum==9) { $storeunder=$seclevelr; }
                    872:     if ($snum==8) { $storeunder=$grplevel; }
1.578     raeburn   873:     if ($snum==7) { 
                    874:         $storeunder=$grpleveli;
                    875:         $possreplace=$grplevelm;
                    876:     }
                    877:     if ($snum==6) {
                    878:         $storeunder=$grplevelm;
                    879:         $possreplace=$grpleveli;
                    880:     }
1.556     raeburn   881:     if ($snum==5) { $storeunder=$grplevelr; }
1.269     raeburn   882: 
1.446     bisitz    883: 
1.186     www       884:     my $delete;
                    885:     if ($nval eq '') { $delete=1;}
                    886:     my %storecontent = ($storeunder         => $nval,
1.473     amueller  887:             $storeunder.'.type' => $ntype);
1.186     www       888:     my $reply='';
1.560     damieng   889:     
1.556     raeburn   890:     if ($snum>4) {
1.186     www       891: # ---------------------------------------------------------------- Store Course
                    892: #
1.560     damieng   893:         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                    894:         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                    895:         # Expire sheets
                    896:         &Apache::lonnet::expirespread('','','studentcalc');
                    897:         if (($snum==13) || ($snum==9) || ($snum==5)) {
                    898:             &Apache::lonnet::expirespread('','','assesscalc',$symb);
1.578     raeburn   899:         } elsif (($snum==17) || ($snum==16) || ($snum==11) || ($snum==10) || ($snum==7) || ($snum==6)) {
1.560     damieng   900:             &Apache::lonnet::expirespread('','','assesscalc',$map);
                    901:         } else {
                    902:             &Apache::lonnet::expirespread('','','assesscalc');
                    903:         }
                    904:         # Store parameter
                    905:         if ($delete) {
                    906:             $reply=&Apache::lonnet::del
                    907:             ('resourcedata',[keys(%storecontent)],$cdom,$cnum);
                    908:                 &log_parmset(\%storecontent,1);
                    909:         } else {
                    910:             $reply=&Apache::lonnet::cput
                    911:             ('resourcedata',\%storecontent,$cdom,$cnum);
                    912:             &log_parmset(\%storecontent);
1.578     raeburn   913:             if ($possreplace) {
                    914:                 my $resdata = &Apache::lonnet::get_courseresdata($cnum,$cdom);
                    915:                 if (ref($resdata) eq 'HASH') {
                    916:                     if (exists($resdata->{$possreplace})) {
                    917:                         if (&Apache::lonnet::del
                    918:                             ('resourcedata',[$possreplace,$possreplace.'.type'],$cdom,$cnum) eq 'ok') {
                    919:                             &log_parmset({$possreplace => '', $possreplace.'.type' => $ntype},1);   
                    920:                         }
                    921:                     }
                    922:                 }
                    923:             }
1.560     damieng   924:         }
                    925:         &Apache::lonnet::devalidatecourseresdata($cnum,$cdom);
1.186     www       926:     } else {
                    927: # ------------------------------------------------------------------ Store User
                    928: #
1.560     damieng   929:         # Expire sheets
                    930:         &Apache::lonnet::expirespread($uname,$udom,'studentcalc');
                    931:         if ($snum==1) {
                    932:             &Apache::lonnet::expirespread
                    933:             ($uname,$udom,'assesscalc',$symb);
1.578     raeburn   934:         } elsif (($snum==2) || ($snum==3)) {
1.560     damieng   935:             &Apache::lonnet::expirespread
                    936:             ($uname,$udom,'assesscalc',$map);
                    937:         } else {
                    938:             &Apache::lonnet::expirespread($uname,$udom,'assesscalc');
                    939:         }
                    940:         # Store parameter
                    941:         if ($delete) {
                    942:             $reply=&Apache::lonnet::del
                    943:             ('resourcedata',[keys(%storecontent)],$udom,$uname);
                    944:             &log_parmset(\%storecontent,1,$uname,$udom);
                    945:         } else {
                    946:             $reply=&Apache::lonnet::cput
                    947:             ('resourcedata',\%storecontent,$udom,$uname);
                    948:             &log_parmset(\%storecontent,0,$uname,$udom);
1.578     raeburn   949:             if ($possreplace) {
                    950:                 my $resdata = &Apache::lonnet::get_userresdata($uname,$udom);
                    951:                 if (ref($resdata) eq 'HASH') {
                    952:                     if (exists($resdata->{$possreplace})) {
                    953:                         if (&Apache::lonnet::del
                    954:                             ('resourcedata',[$possreplace,$possreplace.'.type'],$udom,$uname) eq 'ok') {
                    955:                             &log_parmset({$possreplace => '',$possreplace.'.type' => $ntype},1,
                    956:                                           $uname,$udom);
                    957:                         }
                    958:                     }
                    959:                 }
                    960:             }
1.560     damieng   961:         }
                    962:         &Apache::lonnet::devalidateuserresdata($uname,$udom);
1.186     www       963:     }
1.446     bisitz    964: 
1.186     www       965:     if ($reply=~/^error\:(.*)/) {
1.560     damieng   966:         return "<span class=\"LC_error\">Write Error: $1</span>";
1.186     www       967:     }
                    968:     return '';
                    969: }
                    970: 
1.9       www       971: 
1.561     damieng   972: # Returns HTML with the value of the given parameter,
                    973: # using a readable format for dates, and
                    974: # a warning if there is a problem with a date.
                    975: # Used by table mode.
                    976: # Returns HTML for the editmap.png image if no value is defined and $editable is true.
                    977: #
                    978: # @param {string} $value - the parameter value
                    979: # @param {string} $type - the parameter type
                    980: # @param {boolean} $editable - Set to true to get an icon when no value is defined.
1.9       www       981: sub valout {
1.600     raeburn   982:     my ($value,$type,$editable)=@_;
1.59      matthew   983:     my $result = '';
                    984:     # Values of zero are valid.
                    985:     if (! $value && $value ne '0') {
1.528     bisitz    986:         if ($editable) {
                    987:             $result =
                    988:                 '<img src="/res/adm/pages/editmap.png"'
                    989:                .' alt="'.&mt('Change').'"'
1.539     raeburn   990:                .' title="'.&mt('Change').'" style="border:0;" />';
1.528     bisitz    991:         } else {
                    992:             $result='&nbsp;';
                    993:         }
1.59      matthew   994:     } else {
1.66      www       995:         if ($type eq 'date_interval') {
1.559     raeburn   996:             my ($totalsecs,$donesuffix) = split(/_/,$value,2);
                    997:             my ($usesdone,$donebuttontext,$proctor,$secretkey);
                    998:             if ($donesuffix =~ /^done\:([^\:]+)\:(.*)$/) {
                    999:                 $donebuttontext = $1;
                   1000:                 (undef,$proctor,$secretkey) = split(/_/,$2);
                   1001:                 $usesdone = 'done';
                   1002:             } elsif ($donesuffix =~ /^done(|_.+)$/) {
                   1003:                 $donebuttontext = &mt('Done');
                   1004:                 ($usesdone,$proctor,$secretkey) = split(/_/,$donesuffix);
                   1005:             }
1.554     raeburn  1006:             my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($totalsecs);
1.413     bisitz   1007:             my @timer;
1.66      www      1008:             $year=$year-70;
                   1009:             $mday--;
                   1010:             if ($year) {
1.413     bisitz   1011: #               $result.=&mt('[quant,_1,yr]',$year).' ';
                   1012:                 push(@timer,&mt('[quant,_1,yr]',$year));
1.66      www      1013:             }
                   1014:             if ($mon) {
1.413     bisitz   1015: #               $result.=&mt('[quant,_1,mth]',$mon).' ';
                   1016:                 push(@timer,&mt('[quant,_1,mth]',$mon));
1.66      www      1017:             }
                   1018:             if ($mday) {
1.413     bisitz   1019: #               $result.=&mt('[quant,_1,day]',$mday).' ';
                   1020:                 push(@timer,&mt('[quant,_1,day]',$mday));
1.66      www      1021:             }
                   1022:             if ($hour) {
1.413     bisitz   1023: #               $result.=&mt('[quant,_1,hr]',$hour).' ';
                   1024:                 push(@timer,&mt('[quant,_1,hr]',$hour));
1.66      www      1025:             }
                   1026:             if ($min) {
1.413     bisitz   1027: #               $result.=&mt('[quant,_1,min]',$min).' ';
                   1028:                 push(@timer,&mt('[quant,_1,min]',$min));
1.66      www      1029:             }
                   1030:             if ($sec) {
1.413     bisitz   1031: #               $result.=&mt('[quant,_1,sec]',$sec).' ';
                   1032:                 push(@timer,&mt('[quant,_1,sec]',$sec));
1.66      www      1033:             }
1.413     bisitz   1034: #           $result=~s/\s+$//;
                   1035:             if (!@timer) { # Special case: all entries 0 -> display "0 secs" intead of empty field to keep this field editable
                   1036:                 push(@timer,&mt('[quant,_1,sec]',0));
                   1037:             }
                   1038:             $result.=join(", ",@timer);
1.559     raeburn  1039:             if ($usesdone eq 'done') {
1.558     raeburn  1040:                 if ($secretkey) {
1.559     raeburn  1041:                     $result .= ' '.&mt('+ "[_1]" with proctor key: [_2]',$donebuttontext,$secretkey);  
1.558     raeburn  1042:                 } else {
1.559     raeburn  1043:                     $result .= ' + "'.$donebuttontext.'"';
                   1044:                 }
1.554     raeburn  1045:             }
1.213     www      1046:         } elsif (&isdateparm($type)) {
1.361     albertel 1047:             $result = &Apache::lonlocal::locallocaltime($value).
1.560     damieng  1048:                 &date_sanity_info($value);
1.59      matthew  1049:         } else {
                   1050:             $result = $value;
1.517     www      1051:             $result=~s/\,/\, /gs;
1.560     damieng  1052:             $result = &HTML::Entities::encode($result,'"<>&');
1.59      matthew  1053:         }
                   1054:     }
                   1055:     return $result;
1.9       www      1056: }
                   1057: 
1.59      matthew  1058: 
1.561     damieng  1059: # Returns HTML containing a link on a parameter value, for table mode.
                   1060: # The link uses the javascript function 'pjump'.
                   1061: #
                   1062: # @param {string} $type - parameter type
                   1063: # @param {string} $dis - dialog title for editing the parameter value and type
                   1064: # @param {string} $value - parameter value
                   1065: # @param {string} $marker - identifier for the parameter, "resource id&part_parameter name&level", will be passed as pres_marker when the user submits a change.
                   1066: # @param {string} $return - prefix for the name of the form and field names that will be used to submit the form ('parmform.pres')
                   1067: # @param {string} $call - javascript function to call to submit the form ('psub')
1.588     raeburn  1068: # @param {boolean} $recursive - true if link is for a map/folder where parameter is currently set to be recursive.
                   1069: # @param {string} $extra - optional additional information to send as tenth arg in call to javascript pjump function.
1.5       www      1070: sub plink {
1.588     raeburn  1071:     my ($type,$dis,$value,$marker,$return,$call,$recursive,$extra)=@_;
1.23      www      1072:     my $winvalue=$value;
                   1073:     unless ($winvalue) {
1.592     raeburn  1074:         if (&isdateparm($type) || (&is_specialstring($type))) {
1.190     albertel 1075:             $winvalue=$env{'form.recent_'.$type};
1.591     raeburn  1076:         } elsif ($type eq 'string_yesno') {
                   1077:             if ($env{'form.recent_string'} =~ /^(yes|no)$/i) {
                   1078:                 $winvalue=$env{'form.recent_string'};
                   1079:             }
1.23      www      1080:         } else {
1.190     albertel 1081:             $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
1.23      www      1082:         }
                   1083:     }
1.229     www      1084:     my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);
                   1085:     my ($hour,$min,$sec,$val)=&preset_defaults($parmname);
                   1086:     unless (defined($winvalue)) { $winvalue=$val; }
1.593     raeburn  1087:     my $valout = &valout($value,$type,1);
1.429     raeburn  1088:     my $unencmarker = $marker;
1.378     albertel 1089:     foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call,
1.588     raeburn  1090:               \$hour, \$min, \$sec, \$extra) {
1.560     damieng  1091:         $$item = &HTML::Entities::encode($$item,'"<>&');
                   1092:         $$item =~ s/\'/\\\'/g;
1.378     albertel 1093:     }
1.429     raeburn  1094:     return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$unencmarker.'" /></td></tr><tr><td align="center">'.
1.473     amueller 1095:     '<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
1.588     raeburn  1096:         .$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."','".$extra."'".');">'.
1.578     raeburn  1097:         $valout.'</a></td></tr>'.($recursive?'<tr><td align="center" class="LC_parm_recursive">'.
                   1098:                                               &mt('recursive').'</td></tr>' : '').'</table>';
                   1099: 
1.5       www      1100: }
                   1101: 
1.561     damieng  1102: # Javascript for table mode.
1.280     albertel 1103: sub page_js {
                   1104: 
1.81      www      1105:     my $selscript=&Apache::loncommon::studentbrowser_javascript();
1.88      matthew  1106:     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
1.280     albertel 1107: 
                   1108:     return(<<ENDJS);
                   1109: <script type="text/javascript">
1.454     bisitz   1110: // <![CDATA[
1.44      albertel 1111: 
1.88      matthew  1112:     $pjump_def
1.44      albertel 1113: 
                   1114:     function psub() {
1.591     raeburn  1115:         var specstring = /^string_!(yesno|any)/i;
1.44      albertel 1116:         if (document.parmform.pres_marker.value!='') {
                   1117:             document.parmform.action+='#'+document.parmform.pres_marker.value;
                   1118:             var typedef=new Array();
                   1119:             typedef=document.parmform.pres_type.value.split('_');
1.562     damieng  1120:             if (document.parmform.pres_type.value!='') {
1.589     raeburn  1121:                 if ((typedef[0]=='date') || 
1.591     raeburn  1122:                     (specstring.test(document.parmform.pres_type.value)))  {
1.562     damieng  1123:                     eval('document.parmform.recent_'+
                   1124:                         document.parmform.pres_type.value+
                   1125:                         '.value=document.parmform.pres_value.value;');
                   1126:                 } else {
                   1127:                     eval('document.parmform.recent_'+typedef[0]+
                   1128:                         '.value=document.parmform.pres_value.value;');
                   1129:                 }
1.44      albertel 1130:             }
                   1131:             document.parmform.submit();
                   1132:         } else {
                   1133:             document.parmform.pres_value.value='';
                   1134:             document.parmform.pres_marker.value='';
                   1135:         }
                   1136:     }
                   1137: 
1.57      albertel 1138:     function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
                   1139:         var options = "width=" + w + ",height=" + h + ",";
                   1140:         options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
                   1141:         options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
                   1142:         var newWin = window.open(url, wdwName, options);
                   1143:         newWin.focus();
                   1144:     }
1.523     raeburn  1145: 
1.454     bisitz   1146: // ]]>
1.523     raeburn  1147: 
1.44      albertel 1148: </script>
1.81      www      1149: $selscript
1.280     albertel 1150: ENDJS
                   1151: 
                   1152: }
1.507     www      1153: 
1.561     damieng  1154: # Javascript to show or hide the map selection (function showHide_courseContent),
                   1155: # for table and overview modes.
1.523     raeburn  1156: sub showhide_js {
                   1157:     return <<"COURSECONTENTSCRIPT";
                   1158: 
                   1159: function showHide_courseContent() {
                   1160:     var parmlevValue=document.getElementById("parmlev").value;
                   1161:     if (parmlevValue == 'general') {
                   1162:         document.getElementById('mapmenu').style.display="none";
                   1163:     } else {
                   1164:         if ((parmlevValue == "full") || (parmlevValue == "map")) {
                   1165:             document.getElementById('mapmenu').style.display ="";
                   1166:         } else {
                   1167:             document.getElementById('mapmenu').style.display="none";
                   1168:         }
                   1169:     }
                   1170:     return;
                   1171: }
                   1172: 
                   1173: COURSECONTENTSCRIPT
                   1174: }
                   1175: 
1.561     damieng  1176: # Javascript functions showHideLenient and toggleParmTextbox, for overview mode
1.549     raeburn  1177: sub toggleparmtextbox_js {
                   1178:     return <<"ENDSCRIPT";
                   1179: 
                   1180: if (!document.getElementsByClassName) {
                   1181:     function getElementsByClassName(node, classname) {
                   1182:         var a = [];
                   1183:         var re = new RegExp('(^| )'+classname+'( |$)');
                   1184:         var els = node.getElementsByTagName("*");
                   1185:         for(var i=0,j=els.length; i<j; i++)
                   1186:             if(re.test(els[i].className))a.push(els[i]);
                   1187:         return a;
                   1188:     }
                   1189: }
                   1190: 
                   1191: function showHideLenient() {
                   1192:     var lenients;
                   1193:     var setRegExp = /^set_/;
                   1194:     if (document.getElementsByClassName) {
                   1195:         lenients = document.getElementsByClassName('LC_lenient_radio');
                   1196:     } else {
                   1197:         lenients = getElementsByClassName(document.body,'LC_lenient_radio');
                   1198:     }
                   1199:     if (lenients != 'undefined') {
                   1200:         for (var i=0; i<lenients.length; i++) {
                   1201:             if (lenients[i].checked) {
                   1202:                 if (lenients[i].value == 'weighted') {
                   1203:                     if (setRegExp.test(lenients[i].name)) {
                   1204:                         var identifier = lenients[i].name.replace(setRegExp,'');
                   1205:                         toggleParmTextbox(document.parmform,identifier);
                   1206:                     }
                   1207:                 }
                   1208:             }
                   1209:         }
                   1210:     }
                   1211:     return;
                   1212: }
                   1213: 
                   1214: function toggleParmTextbox(form,key) {
                   1215:     var divfortext = document.getElementById('LC_parmtext_'+key);
                   1216:     if (divfortext) {
                   1217:         var caller = form.elements['set_'+key];
                   1218:         if (caller.length) {
                   1219:             for (i=0; i<caller.length; i++) {
                   1220:                 if (caller[i].checked) {
                   1221:                     if (caller[i].value == 'weighted') {
                   1222:                         divfortext.style.display = 'inline';
                   1223:                     } else {
                   1224:                         divfortext.style.display = 'none';
                   1225:                     }
                   1226:                 }
                   1227:             }
                   1228:         }
                   1229:     }
                   1230:     return;
                   1231: }
                   1232: 
                   1233: ENDSCRIPT
                   1234: }
                   1235: 
1.561     damieng  1236: # Javascript function validateParms, for overview mode
1.549     raeburn  1237: sub validateparms_js {
                   1238:     return <<'ENDSCRIPT';
                   1239: 
                   1240: function validateParms() {
                   1241:     var textRegExp = /^settext_/;
                   1242:     var tailLenient = /\.lenient$/;
                   1243:     var patternRelWeight = /^\-?[\d.]+$/;
                   1244:     var patternLenientStd = /^(yes|no|default)$/;
1.597     raeburn  1245:     var ipRegExp = /^setip/;
1.549     raeburn  1246:     var ipallowRegExp = /^setipallow_/;
                   1247:     var ipdenyRegExp = /^setipdeny_/; 
1.597     raeburn  1248:     var deeplinkRegExp = /^deeplink_/;
1.601     raeburn  1249:     var dlListScopeRegExp = /^deeplink_(state|others|listing|scope)_/; 
                   1250:     var dlLinkProtectRegExp = /^deeplink_protect_/;
                   1251:     var dlLtidRegExp = /^deeplink_ltid_/;
                   1252:     var dlLticRegExp = /^deeplink_ltic_/;
1.597     raeburn  1253:     var dlKeyRegExp = /^deeplink_key_/;
                   1254:     var dlMenusRegExp = /^deeplink_menus_/;
                   1255:     var dlCollsRegExp = /^deeplink_colls_/;
1.613     raeburn  1256:     var dlTargetRegExp = /^deeplink_target_/;
1.616     raeburn  1257:     var dlExitRegExp = /^deeplink_exit_/;
                   1258:     var dlExitTextRegExp = /^deeplink_exittext_/;
1.549     raeburn  1259:     var patternIP = /[\[\]\*\.a-zA-Z\d\-]+/;
1.616     raeburn  1260:     var numelements = document.parmform.elements.length;
                   1261:     if ((typeof(numelements) != 'undefined') && (numelements != null)) {
                   1262:         if (numelements) {
                   1263:             for (i=0; i<numelements; i++) {
1.549     raeburn  1264:                 var name=document.parmform.elements[i].name;
1.588     raeburn  1265:                 if (textRegExp.test(name)) {
1.549     raeburn  1266:                     var identifier = name.replace(textRegExp,'');
                   1267:                     if (tailLenient.test(identifier)) {
                   1268:                         if (document.parmform.elements['set_'+identifier].length) {
                   1269:                             for (var j=0; j<document.parmform.elements['set_'+identifier].length; j++) {
                   1270:                                 if (document.parmform.elements['set_'+identifier][j].checked) {
                   1271:                                     if (!(patternLenientStd.test(document.parmform.elements['set_'+identifier][j].value))) {
                   1272:                                         var relweight = document.parmform.elements[i].value;
                   1273:                                         relweight = relweight.replace(/^\s+|\s+$/g,'');
                   1274:                                         if (!patternRelWeight.test(relweight)) {
                   1275:                                             relweight = '0.0';
                   1276:                                         }
                   1277:                                         if (document.parmform.elements['set_'+identifier][j].value == 'weighted') {
                   1278:                                             document.parmform.elements['set_'+identifier][j].value = relweight;
                   1279:                                         } else {
                   1280:                                             document.parmform.elements['set_'+identifier][j].value += ','+relweight;
                   1281:                                         }
                   1282:                                     }
                   1283:                                     break;
                   1284:                                 }
                   1285:                             }
                   1286:                         }
                   1287:                     }
1.597     raeburn  1288:                 } else if (ipRegExp.test(name)) {
                   1289:                     if (ipallowRegExp.test(name)) {
                   1290:                         var identifier = name.replace(ipallowRegExp,'');
                   1291:                         var possallow = document.parmform.elements[i].value;
                   1292:                         possallow = possallow.replace(/^\s+|\s+$/g,'');
                   1293:                         if (patternIP.test(possallow)) {
                   1294:                             if (document.parmform.elements['set_'+identifier].value) {
                   1295:                                 possallow = ','+possallow;
                   1296:                             }
                   1297:                             document.parmform.elements['set_'+identifier].value += possallow;
                   1298:                         }
                   1299:                     } else if (ipdenyRegExp.test(name)) {
                   1300:                         var identifier = name.replace(ipdenyRegExp,'');
                   1301:                         var possdeny = document.parmform.elements[i].value;
                   1302:                         possdeny = possdeny.replace(/^\s+|\s+$/g,'');
                   1303:                         if (patternIP.test(possdeny)) {
                   1304:                             possdeny = '!'+possdeny;
                   1305:                             if (document.parmform.elements['set_'+identifier].value) {
                   1306:                                 possdeny = ','+possdeny;
                   1307:                             }
                   1308:                             document.parmform.elements['set_'+identifier].value += possdeny;
1.588     raeburn  1309:                         }
                   1310:                     }
                   1311:                 } else if (deeplinkRegExp.test(name)) {
1.597     raeburn  1312:                     if (dlListScopeRegExp.test(name)) {
                   1313:                         var identifier =  name.replace(dlListScopeRegExp,'');
                   1314:                         var idx = document.parmform.elements[i].selectedIndex;
                   1315:                         if (idx > 0) { 
                   1316:                             var possdeeplink = document.parmform.elements[i].options[idx].value
                   1317:                             possdeeplink = possdeeplink.replace(/^\s+|\s+$/g,'');
                   1318:                             if (document.parmform.elements['set_'+identifier].value) {
                   1319:                                 possdeeplink = ','+possdeeplink;
                   1320:                             }
                   1321:                             document.parmform.elements['set_'+identifier].value += possdeeplink;
                   1322:                         }
1.601     raeburn  1323:                     } else if (dlLinkProtectRegExp.test(name)) {
1.597     raeburn  1324:                         if (document.parmform.elements[i].checked) {
1.601     raeburn  1325:                             var identifier =  name.replace(dlLinkProtectRegExp,'');
1.597     raeburn  1326:                             var posslinkurl = document.parmform.elements[i].value;
                   1327:                             posslinkurl = posslinkurl.replace(/^\s+|\s+$/g,'');
                   1328:                             if (document.parmform.elements['set_'+identifier].value) {
                   1329:                                 posslinkurl = ','+posslinkurl;
                   1330:                             }
                   1331:                             document.parmform.elements['set_'+identifier].value += posslinkurl;
                   1332:                         }
1.601     raeburn  1333:                     } else if (dlLtidRegExp.test(name)) {
                   1334:                         var identifier = name.replace(dlLtidRegExp,'');
                   1335:                         if (isRadioSet('deeplink_protect_'+identifier,'ltid')) {
                   1336:                             var possltid = document.parmform.elements[i].value;
                   1337:                             possltid = possltid.replace(/\D+/g,'');
                   1338:                             if (possltid.length) {
1.597     raeburn  1339:                                 if (document.parmform.elements['set_'+identifier].value) {
1.601     raeburn  1340:                                     possltid = ':'+possltid;
1.597     raeburn  1341:                                 }
1.601     raeburn  1342:                                 document.parmform.elements['set_'+identifier].value += possltid;
1.597     raeburn  1343:                             } else {
                   1344:                                 document.parmform.elements['set_'+identifier].value = '';
1.601     raeburn  1345:                                 alert("A link type of 'domain LTI launch' was selected but no domain LTI launcher was selected.\nPlease select one, or choose a different supported link type.");
1.597     raeburn  1346:                                 return false;  
                   1347:                             }
                   1348:                         }
1.601     raeburn  1349:                     } else if (dlLticRegExp.test(name)) {
                   1350:                         var identifier = name.replace(dlLticRegExp,'');
                   1351:                         if (isRadioSet('deeplink_protect_'+identifier,'ltic')) {
                   1352:                             var possltic = document.parmform.elements[i].value;
                   1353:                             possltic = possltic.replace(/\D+/g,'');
                   1354:                             if (possltic.length) {
                   1355:                                 if (document.parmform.elements['set_'+identifier].value) {
                   1356:                                     possltic = ':'+possltic;
                   1357:                                 }
                   1358:                                 document.parmform.elements['set_'+identifier].value += possltic;
                   1359:                             } else {
                   1360:                                 document.parmform.elements['set_'+identifier].value = '';
                   1361:                                 alert("A link type of 'course LTI launch' was selected but no course LTI launcher was selected.\nPlease select one, or choose a different supported link type.");
                   1362:                                 return false;
                   1363:                             }
                   1364:                         }
1.597     raeburn  1365:                     } else if (dlKeyRegExp.test(name)) {
                   1366:                         var identifier = name.replace(dlKeyRegExp,'');
1.601     raeburn  1367:                         if (isRadioSet('deeplink_protect_'+identifier,'key')) {
1.597     raeburn  1368:                             var posskey = document.parmform.elements[i].value;
                   1369:                             posskey = posskey.replace(/^\s+|\s+$/g,'');
                   1370:                             var origlength = posskey.length;
                   1371:                             posskey = posskey.replace(/[^a-zA-Z\d_.!@#$%^&*()+=-]/g,'');
                   1372:                             var newlength = posskey.length;
                   1373:                             if (newlength > 0) {
                   1374:                                 var change = origlength - newlength;
                   1375:                                 if (change) {
                   1376:                                     alert(change+' disallowed character(s) removed from deeplink key'); 
                   1377:                                 }
                   1378:                                 if (document.parmform.elements['set_'+identifier].value) {
                   1379:                                     posskey = ':'+posskey;
                   1380:                                 }
                   1381:                                 document.parmform.elements['set_'+identifier].value += posskey;
                   1382:                             } else {
                   1383:                                 document.parmform.elements['set_'+identifier].value = '';
                   1384:                                 if (newlength < origlength) {
                   1385:                                     alert("A link type of 'deep with key' was selected but the key value was blank, after removing disallowed characters.\nPlease enter a key using one or more of: a-zA-Z0-9_.!@#$%^&*()+=-");
                   1386:                                 } else {
                   1387:                                     alert("A link type of 'deep with key' was selected but the key value was blank.\nPlease enter a key.");
                   1388:                                 }
                   1389:                                 return false;
                   1390:                             }
                   1391:                         }
                   1392:                     } else if (dlMenusRegExp.test(name)) {
                   1393:                         if (document.parmform.elements[i].checked) {
                   1394:                             var identifier =  name.replace(dlMenusRegExp,'');
                   1395:                             var posslinkmenu = document.parmform.elements[i].value;
                   1396:                             posslinkmenu = posslinkmenu.replace(/^\s+|\s+$/g,'');
                   1397:                             if (posslinkmenu == 'std') {
                   1398:                                 posslinkmenu = '0';
                   1399:                                 if (document.parmform.elements['set_'+identifier].value) {
                   1400:                                     posslinkmenu = ','+posslinkmenu;
                   1401:                                 }
                   1402:                                 document.parmform.elements['set_'+identifier].value += posslinkmenu;
                   1403:                             }
                   1404:                         }
                   1405:                     } else if (dlCollsRegExp.test(name)) {
                   1406:                         var identifier =  name.replace(dlCollsRegExp,'');
                   1407:                         if (isRadioSet('deeplink_menus_'+identifier,'colls')) {
                   1408:                             var posslinkmenu = document.parmform.elements[i].value;
                   1409:                             if (document.parmform.elements['set_'+identifier].value) {
                   1410:                                 posslinkmenu = ','+posslinkmenu;
                   1411:                             }
                   1412:                             document.parmform.elements['set_'+identifier].value += posslinkmenu;
                   1413:                         }
1.614     raeburn  1414:                     } else if (dlTargetRegExp.test(name)) {
                   1415:                         var identifier =  name.replace(dlTargetRegExp,'');
1.613     raeburn  1416:                         var idx = document.parmform.elements[i].selectedIndex;
                   1417:                         if (idx > 0) {
1.616     raeburn  1418:                             var linktarget = document.parmform.elements[i].options[idx].value
                   1419:                             linktarget = linktarget.replace(/^\s+|\s+$/g,'');
                   1420:                             if (document.parmform.elements['set_'+identifier].value) {
                   1421:                                 linktarget = ','+linktarget;
                   1422:                             }
                   1423:                             document.parmform.elements['set_'+identifier].value += linktarget;
                   1424:                         }
                   1425:                     } else if (dlExitRegExp.test(name)) {
                   1426:                         if (document.parmform.elements[i].checked) {
                   1427:                             var identifier =  name.replace(dlExitRegExp,'');
                   1428:                             var posslinkexit = document.parmform.elements[i].value;
                   1429:                             posslinkexit = posslinkexit.replace(/^\s+|\s+$/g,'');
1.613     raeburn  1430:                             if (document.parmform.elements['set_'+identifier].value) {
1.616     raeburn  1431:                                 posslinkexit = ','+posslinkexit;
                   1432:                             }
                   1433:                             document.parmform.elements['set_'+identifier].value += posslinkexit;
                   1434:                         }
                   1435:                     } else if (dlExitTextRegExp.test(name)) {
                   1436:                         var identifier = name.replace(dlExitTextRegExp,'');
                   1437:                         if ((isRadioSet('deeplink_exit_'+identifier,'yes')) ||
                   1438:                             (isRadioSet('deeplink_exit_'+identifier,'url'))) {
                   1439:                             var posstext = document.parmform.elements[i].value;
                   1440:                             posstext = posstext.replace(/^\s+|\s+$/g,'');
                   1441:                             var origlength = posstext.length;
                   1442:                             posstext = posstext.replace(/[:;'",]/g,'');
                   1443:                             var newlength = posstext.length;
                   1444:                             if (newlength > 0) {
                   1445:                                 var change = origlength - newlength;
                   1446:                                 if (change) {
                   1447:                                     alert(change+' disallowed character(s) removed from Exit Button text');
                   1448:                                 }
                   1449:                                 if (posstext !== 'Exit Tool') {
                   1450:                                     posstext = ':'+posstext;
                   1451:                                     document.parmform.elements['set_'+identifier].value += posstext;
                   1452:                                 }
                   1453:                             } else {
                   1454:                                 document.parmform.elements['set_'+identifier].value = '';
                   1455:                                 if (newlength < origlength) {
                   1456:                                     alert("An exit link type of 'In use' was selected but the button text value was blank, after removing disallowed characters.\nDisallowed characters are ,\":;'");
                   1457:                                 } else {
                   1458:                                     alert("An exit link type of 'In use' was selected but the button text value was blank.\nPlease enter the text to use.");
                   1459:                                 }
                   1460:                                 return false;
1.613     raeburn  1461:                             }
                   1462:                         }
1.549     raeburn  1463:                     }
                   1464:                 }
                   1465:             }
                   1466:         }
                   1467:     }
                   1468:     return true;
                   1469: }
                   1470: 
1.597     raeburn  1471: function isRadioSet(name,expected) {
                   1472:     var menuitems = document.getElementsByName(name);
                   1473:     var radioLength = menuitems.length;
                   1474:     result = false;
                   1475:     if (radioLength  > 1) {
                   1476:         for (var j=0; j<radioLength; j++) {
                   1477:             if (menuitems[j].checked) {
                   1478:                 if (menuitems[j].value == expected) {
                   1479:                     result = true;
                   1480:                     break;
                   1481:                 }
                   1482:             }
                   1483:         }
                   1484:     }
                   1485:     return result;
                   1486: }
                   1487: 
1.549     raeburn  1488: ENDSCRIPT
                   1489: }
                   1490: 
1.561     damieng  1491: # Javascript initialization, for overview mode
1.549     raeburn  1492: sub ipacc_boxes_js  {
                   1493:     my $remove = &mt('Remove');
                   1494:     return <<"END";
                   1495: \$(document).ready(function() {
                   1496:     var wrapper         = \$(".LC_string_ipacc_wrap");
                   1497:     var add_button      = \$(".LC_add_ipacc_button");
                   1498:     var ipaccRegExp     = /^LC_string_ipacc_/;
                   1499: 
                   1500:     \$(add_button).click(function(e){
                   1501:         e.preventDefault();
                   1502:         var identifier = \$(this).closest("div").attr("id");
                   1503:         identifier = identifier.replace(ipaccRegExp,'');
1.551     raeburn  1504:         \$(this).closest('div').find('.LC_string_ipacc_inner').append('<div><input type="text" name="setip'+identifier+'" /><a href="#" class="LC_remove_ipacc">$remove</a></div>');
1.549     raeburn  1505:     });
                   1506: 
                   1507:     \$(wrapper).delegate(".LC_remove_ipacc","click", function(e){
                   1508:         e.preventDefault(); \$(this).closest("div").remove();
                   1509:     })
                   1510: });
                   1511: 
                   1512: 
                   1513: END
                   1514: }
                   1515: 
1.561     damieng  1516: # Javascript function toggleSecret, for overview mode.
1.558     raeburn  1517: sub done_proctor_js {
1.611     raeburn  1518:     my $defaultdone = &mt('Done');
                   1519:     &js_escape(\$defaultdone);
1.558     raeburn  1520:     return <<"END";
                   1521: function toggleSecret(form,radio,key) {
                   1522:     var radios = form[radio+key];
                   1523:     if (radios.length) {
                   1524:         for (var i=0; i<radios.length; i++) {
                   1525:             if (radios[i].checked) {
                   1526:                 if (radios[i].value == '_done_proctor') {
                   1527:                     if (document.getElementById('done_'+key+'_proctorkey')) {
                   1528:                         document.getElementById('done_'+key+'_proctorkey').type='text';
                   1529:                     }
                   1530:                 } else {
                   1531:                     if (document.getElementById('done_'+key+'_proctorkey')) {
                   1532:                         document.getElementById('done_'+key+'_proctorkey').type='hidden';
                   1533:                         document.getElementById('done_'+key+'_proctorkey').value='';
                   1534:                     }
                   1535:                 }
1.611     raeburn  1536:                 if (document.getElementById('done_'+key+'_buttontext')) {
                   1537:                     if (radios[i].value == '') {
                   1538:                         document.getElementById('done_'+key+'_buttontext').value = '';
                   1539:                     } else {
                   1540:                         if (document.getElementById('done_'+key+'_buttontext').value == '') {
                   1541:                             document.getElementById('done_'+key+'_buttontext').value = '$defaultdone';
                   1542:                         }
                   1543:                     }
                   1544:                 }
1.558     raeburn  1545:             }
                   1546:         }
                   1547:     }
                   1548: }
                   1549: END
                   1550: 
                   1551: }
                   1552: 
1.588     raeburn  1553: # Javascript function toggle
                   1554: sub deeplink_js {
                   1555:     return <<"END";
                   1556: function toggleDeepLink(form,item,key) {
                   1557:     var radios = form['deeplink_'+item+'_'+key];
                   1558:     if (radios.length) {
                   1559:         var keybox;
                   1560:         if (document.getElementById('deeplink_key_'+item+'_'+key)) {
                   1561:             keybox = document.getElementById('deeplink_key_'+item+'_'+key);
                   1562:         }
1.601     raeburn  1563:         var divoptions = new Array();
                   1564:         if (item == 'protect') {
                   1565:             divoptions = ['ltic','ltid'];
1.597     raeburn  1566:         } else {
                   1567:             if (item == 'menus') {
1.601     raeburn  1568:                 divoptions = ['colls'];
1.597     raeburn  1569:             }
                   1570:         }
1.601     raeburn  1571:         var seldivs = new Array();
                   1572:         if ((item == 'protect') || (item == 'menus')) {
                   1573:             for (var i=0; i<divoptions.length; i++) {
                   1574:                 if (document.getElementById('deeplinkdiv_'+divoptions[i]+'_'+item+'_'+key)) {
                   1575:                     seldivs[i] = document.getElementById('deeplinkdiv_'+divoptions[i]+'_'+item+'_'+key);
                   1576:                 } else {
                   1577:                     seldivs[i] = '';
                   1578:                 }
                   1579:             }
1.588     raeburn  1580:         }
                   1581:         for (var i=0; i<radios.length; i++) {
                   1582:             if (radios[i].checked) {
1.601     raeburn  1583:                 if ((item == 'protect') || (item == 'menus')) {
                   1584:                     for (var j=0; j<seldivs.length; j++) {
                   1585:                         if (radios[i].value == divoptions[j]) {
                   1586:                             if (seldivs[j] != '') {
                   1587:                                 seldivs[j].style.display = 'inline-block';
                   1588:                             }
                   1589:                             if (item == 'protect') {
                   1590:                                 keybox.type = 'hidden';
                   1591:                                 keybox.value = '';
                   1592:                             }
                   1593:                         } else {
                   1594:                             if (seldivs[j] != '') {
                   1595:                                 seldivs[j].style.display = 'none';
                   1596:                                 form['deeplink_'+divoptions[j]+'_'+key].selectedIndex = 0;
                   1597:                             }
                   1598:                         }
1.597     raeburn  1599:                     }
1.601     raeburn  1600:                     if (item == 'protect') {
1.597     raeburn  1601:                         if (radios[i].value == 'key') {
                   1602:                             keybox.type = 'text';
                   1603:                         } else {
                   1604:                             keybox.type = 'hidden';
                   1605:                         }
1.588     raeburn  1606:                     }
1.616     raeburn  1607:                 } else if (item == 'exit') {
                   1608:                     if (document.getElementById('deeplinkdiv_'+item+'_'+key)) {
                   1609:                         if (radios[i].value == 'no') {
                   1610:                             document.getElementById('deeplinkdiv_'+item+'_'+key).style.display = 'none';          
                   1611:                             if (document.getElementById('deeplink_exittext_'+key)) {
                   1612:                                 if (document.getElementById('deeplink_exittext_'+key).value != '') {
                   1613:                                     document.getElementById('deeplink_exittext_'+key).value = '';    
                   1614:                                 }
                   1615:                             }
                   1616:                         } else {
                   1617:                             document.getElementById('deeplinkdiv_'+item+'_'+key).style.display = 'inline-block';
                   1618:                             if (document.getElementById('deeplink_exittext_'+key)) {
                   1619:                                 if (document.getElementById('deeplink_exittext_'+key).value == '') {
                   1620:                                     document.getElementById('deeplink_exittext_'+key).value = 'Exit Tool';
                   1621:                                 }
                   1622:                             }
                   1623:                         }
                   1624:                     }
1.588     raeburn  1625:                 }
                   1626:             }
                   1627:         }
                   1628:     }
                   1629: }
                   1630: END
                   1631: 
                   1632: }
                   1633: 
1.561     damieng  1634: # Prints HTML page start for table mode.
                   1635: # @param {Apache2::RequestRec} $r - the Apache request
                   1636: # @param {string} $psymb - resource symb
                   1637: # @param {string} $crstype - course type (Community / Course / Placement Test)
1.280     albertel 1638: sub startpage {
1.531     raeburn  1639:     my ($r,$psymb,$crstype) = @_;
1.281     albertel 1640: 
1.515     raeburn  1641:     my %loaditems = (
                   1642:                       'onload'   => "group_or_section('cgroup')",
                   1643:                     );
                   1644:     if (!$psymb) {
1.523     raeburn  1645:         $loaditems{'onload'} = "showHide_courseContent(); group_or_section('cgroup'); resize_scrollbox('mapmenuscroll','1','1');";
1.515     raeburn  1646:     }
1.280     albertel 1647: 
1.560     damieng  1648:     if ((($env{'form.command'} eq 'set') && ($env{'form.url'}) &&
                   1649:             (!$env{'form.dis'})) || ($env{'form.symb'})) {
                   1650:         &Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',
                   1651:             text=>"Problem Parameters"});
1.414     droeschl 1652:     } else {
1.560     damieng  1653:         &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
                   1654:             text=>"Table Mode",
                   1655:             help => 'Course_Setting_Parameters'});
1.414     droeschl 1656:     }
1.523     raeburn  1657:     my $js = &page_js().'
                   1658: <script type="text/javascript">
                   1659: // <![CDATA[
                   1660: '.
                   1661:             &Apache::lonhtmlcommon::resize_scrollbox_js('params').'
                   1662: // ]]>
                   1663: </script>
                   1664: ';
1.446     bisitz   1665:     my $start_page =
1.523     raeburn  1666:         &Apache::loncommon::start_page('Set/Modify Course Parameters',$js,
                   1667:                                        {'add_entries' => \%loaditems,});
1.446     bisitz   1668:     my $breadcrumbs =
1.473     amueller 1669:     &Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');
1.506     www      1670:     my $escfilter=&Apache::lonhtmlcommon::entity_encode($env{'form.filter'});
                   1671:     my $escpart=&Apache::lonhtmlcommon::entity_encode($env{'form.part'});
1.507     www      1672:     $r->print($start_page.$breadcrumbs);
1.531     raeburn  1673:     &startSettingsScreen($r,'parmset',$crstype);
1.280     albertel 1674:     $r->print(<<ENDHEAD);
1.193     albertel 1675: <form method="post" action="/adm/parmset?action=settable" name="parmform">
1.419     bisitz   1676: <input type="hidden" value="" name="pres_value" />
                   1677: <input type="hidden" value="" name="pres_type" />
                   1678: <input type="hidden" value="" name="pres_marker" />
                   1679: <input type="hidden" value="1" name="prevvisit" />
1.506     www      1680: <input type="hidden" value="$escfilter" name="filter" />
                   1681: <input type="hidden" value="$escpart" name="part" />
1.44      albertel 1682: ENDHEAD
                   1683: }
                   1684: 
1.209     www      1685: 
1.561     damieng  1686: # Prints a row for table mode (except for the tr start).
                   1687: # Every time a hash reference is passed, a single entry is used, so print_row
                   1688: # could just use these values, but why make it simple when it can be complicated ?
                   1689: #
                   1690: # @param {Apache2::RequestRec} $r - the Apache request
                   1691: # @param {string} $which - parameter key ('parameter_'.part.'_'.name)
                   1692: # @param {hash reference} $part - parameter key -> parameter part (can be problem part.'_'.response id for response parameters)
                   1693: # @param {hash reference} $name - parameter key -> parameter name
1.566     damieng  1694: # @param {hash reference} $symbp - map pc or resource/map id -> map src.'___(all)' or resource symb
1.561     damieng  1695: # @param {string} $rid - resource id
                   1696: # @param {hash reference} $default - parameter key -> resource parameter default value
                   1697: # @param {hash reference} $defaulttype - parameter key -> resource parameter default type
                   1698: # @param {hash reference} $display - parameter key -> full title for the parameter
                   1699: # @param {string} $defbgone - user level and other levels background color
                   1700: # @param {string} $defbgtwo - section level background color, also used for part number
                   1701: # @param {string} $defbgthree - group level background color
                   1702: # @param {string} $parmlev - parameter level (Resource:'full', Map:'map', Course:'general')
                   1703: # @param {string} $uname - user name
                   1704: # @param {string} $udom - user domain
                   1705: # @param {string} $csec - section name
                   1706: # @param {string} $cgroup - group name
                   1707: # @param {array reference} $usersgroups - list of groups the user belongs to, if any
                   1708: # @param {boolean} $noeditgrp - true if no edit is allowed for group level parameters
1.582     raeburn  1709: # @param {boolean} $readonly - true if no editing allowed.
                   1710: # @param {array reference} - $recurseup - list of maps containing current one, ending at top-level.
                   1711: # @param {hash reference} - $maptitles - - hash map id or src -> map title 
                   1712: # @param {hash reference} - $allmaps_inverted - hash map src -> map pc
                   1713: # @param {scalar reference} - $reclinks - number of "parameter in effect" cells with link to map where recursive param was set 
1.44      albertel 1714: sub print_row {
1.201     www      1715:     my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,
1.568     raeburn  1716:     $defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups,$noeditgrp,
1.582     raeburn  1717:     $readonly,$recurseup,$maptitles,$allmaps_inverted,$reclinks)=@_;
1.275     raeburn  1718:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   1719:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   1720:     my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
1.582     raeburn  1721:     my $numlinks = 0;
1.553     raeburn  1722: 
1.560     damieng  1723:     # get the values for the parameter in cascading order
                   1724:     # empty levels will remain empty
1.44      albertel 1725:     my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},
1.473     amueller 1726:       $rid,$$default{$which},$uname,$udom,$csec,$cgroup,$courseopt);
1.560     damieng  1727:     # get the type for the parameters
                   1728:     # problem: these may not be set for all levels
1.66      www      1729:     my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.
1.275     raeburn  1730:                                           $$name{$which}.'.type',$rid,
1.473     amueller 1731:          $$defaulttype{$which},$uname,$udom,$csec,$cgroup,$courseopt);
1.560     damieng  1732:     # cascade down manually
1.182     albertel 1733:     my $cascadetype=$$defaulttype{$which};
1.556     raeburn  1734:     for (my $i=18;$i>0;$i--) {
1.560     damieng  1735:         if ($typeoutpar[$i]) {
1.66      www      1736:             $cascadetype=$typeoutpar[$i];
1.560     damieng  1737:         } else {
1.66      www      1738:             $typeoutpar[$i]=$cascadetype;
                   1739:         }
                   1740:     }
1.57      albertel 1741:     my $parm=$$display{$which};
                   1742: 
1.203     www      1743:     if ($parmlev eq 'full') {
1.419     bisitz   1744:         $r->print('<td style="background-color:'.$defbgtwo.';" align="center">'
1.506     www      1745:                   .($$part{$which} eq '0'?'0 ('.&mt('default').')':$$part{$which}).'</td>');
1.433     raeburn  1746:     } else {
1.57      albertel 1747:         $parm=~s|\[.*\]\s||g;
                   1748:     }
1.231     www      1749:     my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
                   1750:     if ($automatic) {
1.560     damieng  1751:         $parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>';
1.231     www      1752:     }
1.619   ! raeburn  1753:     my $advice;
        !          1754:     if ((ref($name) eq 'HASH') && ($name->{$which} eq 'mapalias') &&
        !          1755:         (ref($symbp) eq 'HASH') && ($parmlev eq 'full')) {
        !          1756:         if ($symbp->{$rid} =~ m{^uploaded/}) {
        !          1757:             if ($result == 14) {
        !          1758:                 $advice = &mt('Use Course Editor to modify this.');
        !          1759:             } else {
        !          1760:                 $advice = &mt('Use Course Editor to set this.');
        !          1761:             }
        !          1762:         } else {
        !          1763:             if ($result == 14) {
        !          1764:                 $advice = &mt('Use Resource Assembly Tool to modify this.');
        !          1765:             } else {
        !          1766:                 $advice = &mt('Use Resource Assembly Tool to set this.');
        !          1767:             }
        !          1768:         }
        !          1769:         $parm .= '<br /><span class="LC_fontsize_small LC_cusr_emph">'.$advice.'</span>';
        !          1770:     }
1.427     bisitz   1771:     $r->print('<td>'.$parm.'</td>');
1.446     bisitz   1772: 
1.44      albertel 1773:     my $thismarker=$which;
                   1774:     $thismarker=~s/^parameter\_//;
                   1775:     my $mprefix=$rid.'&'.$thismarker.'&';
1.582     raeburn  1776:     my ($parmname)=($thismarker=~/\_([^\_]+)$/);
                   1777:     my ($othergrp,$grp_parm,$controlgrp,$effective_parm,$effparm_rec,$effparm_level,
1.588     raeburn  1778:         $eff_groupparm,$recurse_check,$recursinfo,$extra);
1.582     raeburn  1779:     if ((ref($recurseup) eq 'ARRAY') && (@{$recurseup} > 0)) {
                   1780:         if ($result eq '') {
                   1781:             $recurse_check = 1;
                   1782:         } elsif (($uname ne '') && ($result > 3)) {
                   1783:             $recurse_check = 1;
                   1784:         } elsif (($cgroup ne '') && ($result > 7)) {
                   1785:             $recurse_check = 1;
                   1786:         } elsif (($csec ne '') && ($result > 11)) {
                   1787:             $recurse_check = 1;
                   1788:         } elsif ($result > 17) {
                   1789:             $recurse_check = 1;
                   1790:         }
                   1791:         if ($recurse_check) {
                   1792:             my $what = $$part{$which}.'.'.$$name{$which};
                   1793:             my $prefix;
                   1794:             if (($uname ne '') && ($udom ne '')) {
                   1795:                 my $useropt = &Apache::lonnet::get_userresdata($uname,$udom);
                   1796:                 $prefix = $env{'request.course.id'};
                   1797:                 $recursinfo = &get_recursive($recurseup,$useropt,$what,$prefix);
                   1798:                 if (ref($recursinfo) eq 'ARRAY') {
                   1799:                     $effparm_rec = 1;
                   1800:                     $effparm_level = &mt('user: [_1]',$uname);
                   1801:                 }
                   1802:             }
                   1803:             if (($cgroup ne '') && (!$effparm_rec)) {
                   1804:                 $prefix = $env{'request.course.id'}.'.['.$cgroup.']';
                   1805:                 $recursinfo = &get_recursive($recurseup,$courseopt,$what,$prefix);
                   1806:                 if (ref($recursinfo) eq 'ARRAY') {
                   1807:                     $effparm_rec = 1;
                   1808:                     $effparm_level = &mt('group: [_1]',$cgroup);
                   1809:                 }
                   1810:             }
                   1811:             if (($csec ne '') && (!$effparm_rec)) {
                   1812:                 $prefix = $env{'request.course.id'}.'.['.$csec.']';
                   1813:                 $recursinfo = &get_recursive($recurseup,$courseopt,$what,$prefix);
                   1814:                 if (ref($recursinfo) eq 'ARRAY') {
                   1815:                     $effparm_rec = 1;
                   1816:                     $effparm_level = &mt('section: [_1]',$csec);
                   1817:                 }
                   1818:             }
                   1819:             if (!$effparm_rec) {
                   1820:                 $prefix = $env{'request.course.id'};
                   1821:                 $recursinfo = &get_recursive($recurseup,$courseopt,$what,$prefix); 
                   1822:                 if (ref($recursinfo) eq 'ARRAY') {
                   1823:                     $effparm_rec = 1;
                   1824:                 }
                   1825:             }
                   1826:         }
                   1827:     }
                   1828:     if ((!$effparm_rec) && ($result == 17 || $result == 11 || $result == 7 || $result == 3)) {
                   1829:         $effparm_rec = 1;
                   1830:     }
                   1831:     if ((!$effparm_rec) && 
                   1832:         (($$name{$which} eq 'encrypturl') || ($$name{$which} eq 'hiddenresource')) && 
                   1833:         ($result == 16 || $result == 10 || $result == 6 || $result == 2)) {
1.578     raeburn  1834:         $effparm_rec = 1;
                   1835:     }
1.588     raeburn  1836:     if ($parmname eq 'deeplink') {
1.601     raeburn  1837:         my ($domltistr,$crsltistr);
1.588     raeburn  1838:         my %lti =
                   1839:             &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
1.604     raeburn  1840:                                             'linkprot');
1.601     raeburn  1841:         if (keys(%lti)) {
                   1842:             foreach my $item (sort { $a <=> $b }  (keys(%lti))) {
1.604     raeburn  1843:                 if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
                   1844:                     $domltistr .= $item.':'.&escape(&escape($lti{$item}{'name'})).',';
1.588     raeburn  1845:                 }
                   1846:             }
1.601     raeburn  1847:             $domltistr =~ s/,$//;
                   1848:             if ($domltistr) {
                   1849:                 $extra = 'ltid_'.$domltistr;
                   1850:             }
1.588     raeburn  1851:         }
1.601     raeburn  1852:         my %courselti = &Apache::lonnet::get_course_lti($cnum,$cdom);
                   1853:         if (keys(%courselti)) {
                   1854:             foreach my $item (sort { $a <=> $b } keys(%courselti)) {
                   1855:                 if (($item =~ /^\d+$/) && (ref($courselti{$item}) eq 'HASH')) {
                   1856:                     $crsltistr .= $item.':'.&escape(&escape($courselti{$item}{'name'})).',';
                   1857:                 }
                   1858:             }
                   1859:             $crsltistr =~ s/,$//;
                   1860:             if ($crsltistr) {
                   1861:                 if ($extra) {
                   1862:                     $extra .= '&';
                   1863:                 }
                   1864:                 $extra .= 'ltic_'.$crsltistr;
1.588     raeburn  1865:             }
                   1866:         }
1.597     raeburn  1867:         if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) {
                   1868:             my @colls;
                   1869:             foreach my $item (split(/;/,$env{'course.'.$env{'request.course.id'}.'.menucollections'})) {
                   1870:                 my ($num,$value) = split(/\%/,$item);
                   1871:                 if ($num =~ /^\d+$/) {
                   1872:                     push(@colls,$num);
                   1873:                 }
                   1874:             }
                   1875:             if (@colls) {
                   1876:                 if ($extra) {
                   1877:                     $extra .= '&';
                   1878:                 }
                   1879:                 $extra .= 'menus_'.join(',',@colls);
                   1880:             }
                   1881:         }
1.588     raeburn  1882:     }
1.57      albertel 1883:     if ($parmlev eq 'general') {
                   1884:         if ($uname) {
1.588     raeburn  1885:             &print_td($r,4,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
1.269     raeburn  1886:         } elsif ($cgroup) {
1.588     raeburn  1887:             &print_td($r,8,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,'',$extra);
1.57      albertel 1888:         } elsif ($csec) {
1.588     raeburn  1889:             &print_td($r,12,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
1.57      albertel 1890:         } else {
1.588     raeburn  1891:             &print_td($r,18,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
1.57      albertel 1892:         }
                   1893:     } elsif ($parmlev eq 'map') {
                   1894:         if ($uname) {
1.588     raeburn  1895:             &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
1.269     raeburn  1896:         } elsif ($cgroup) {
1.588     raeburn  1897:             &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,1,$extra);
1.57      albertel 1898:         } elsif ($csec) {
1.588     raeburn  1899:             &print_td($r,10,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
1.57      albertel 1900:         } else {
1.588     raeburn  1901:             &print_td($r,16,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
1.57      albertel 1902:         }
                   1903:     } else {
1.275     raeburn  1904:         if ($uname) {
                   1905:             if (@{$usersgroups} > 1) {
1.582     raeburn  1906:                 (my $coursereply,$othergrp,$grp_parm,$controlgrp,my $grp_is_rec) =
1.580     raeburn  1907:                     &check_other_groups($$part{$which}.'.'.$$name{$which},
1.275     raeburn  1908:                        $rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);
1.582     raeburn  1909:                 if (($coursereply) && ($result > 4)) {
1.275     raeburn  1910:                     if (defined($controlgrp)) {
                   1911:                         if ($cgroup ne $controlgrp) {
1.582     raeburn  1912:                             $eff_groupparm = $grp_parm;
                   1913:                             undef($result);
                   1914:                             undef($effparm_rec);
                   1915:                             if ($grp_is_rec) {
                   1916:                                  $effparm_rec = 1;
                   1917:                             }
1.275     raeburn  1918:                         }
                   1919:                     }
                   1920:                 }
                   1921:             }
                   1922:         }
1.57      albertel 1923: 
1.588     raeburn  1924:         &print_td($r,18,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
                   1925:         &print_td($r,16,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
                   1926:         &print_td($r,15,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
                   1927:         &print_td($r,14,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
                   1928:         &print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
1.548     raeburn  1929: 
                   1930:         if ($csec) {
1.588     raeburn  1931:             &print_td($r,12,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
                   1932:             &print_td($r,10,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
                   1933:             &print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
1.548     raeburn  1934:         }
1.269     raeburn  1935: 
                   1936:         if ($cgroup) {
1.588     raeburn  1937:             &print_td($r,8,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,'',$extra);
                   1938:             &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,1,$extra);
                   1939:             &print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp.$readonly,'',$extra);
1.269     raeburn  1940:         }
1.446     bisitz   1941: 
1.548     raeburn  1942:         if ($uname) {
1.275     raeburn  1943:             if ($othergrp) {
                   1944:                 $r->print($othergrp);
                   1945:             }
1.588     raeburn  1946:             &print_td($r,4,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
                   1947:             &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
                   1948:             &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
1.548     raeburn  1949:         }
1.57      albertel 1950:     } # end of $parmlev if/else
1.582     raeburn  1951:     if (ref($recursinfo) eq 'ARRAY') {
                   1952:         my $rectitle = &mt('recursive');
                   1953:         if ((ref($maptitles) eq 'HASH') && (exists($maptitles->{$recursinfo->[2]}))) {
                   1954:             if ((ref($allmaps_inverted) eq 'HASH') && (exists($allmaps_inverted->{$recursinfo->[2]}))) {
                   1955:                 $rectitle = &mt('set in: [_1]','"'.
                   1956:                                 '<a href="javascript:pjumprec('."'".$allmaps_inverted->{$recursinfo->[2]}."',".
                   1957:                                                               "'$parmname','$$part{$which}'".');">'.
                   1958:                                 $maptitles->{$recursinfo->[2]}.'</a>"');
                   1959:               
                   1960:                 $numlinks ++;
                   1961:             }
                   1962:         }
                   1963:         my ($parmname)=($thismarker=~/\_([^\_]+)$/);
1.593     raeburn  1964:         $effective_parm = &valout($recursinfo->[0],$recursinfo->[1]);
1.582     raeburn  1965:         $r->print('<td style="background-color:#CCCCFF;" align="center">'.$effective_parm.
                   1966:                   '<br /><span class="LC_parm_recursive">'.$rectitle.'&nbsp;'.
                   1967:                   $effparm_level.'</span></td>');
                   1968:     } else {
                   1969:         if ($result) {
1.593     raeburn  1970:             $effective_parm = &valout($outpar[$result],$typeoutpar[$result]);
1.582     raeburn  1971:         }
                   1972:         if ($eff_groupparm) {
                   1973:             $effective_parm = $eff_groupparm;
                   1974:         }
                   1975:         $r->print('<td style="background-color:#CCCCFF;" align="center">'.$effective_parm.
                   1976:                   ($effparm_rec?'<br /><span class="LC_parm_recursive">'.&mt('recursive').
                   1977:                                 '</span>':'').'</td>');
                   1978:     }
1.203     www      1979:     if ($parmlev eq 'full') {
1.136     albertel 1980:         my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
1.201     www      1981:                                         '.'.$$name{$which},$$symbp{$rid});
1.136     albertel 1982:         my $sessionvaltype=$typeoutpar[$result];
1.560     damieng  1983:         if (!defined($sessionvaltype)) {
                   1984:             $sessionvaltype=$$defaulttype{$which};
                   1985:         }
1.419     bisitz   1986:         $r->print('<td style="background-color:#999999;" align="center"><font color="#FFFFFF">'.
1.593     raeburn  1987:                   &valout($sessionval,$sessionvaltype).'&nbsp;'.
1.57      albertel 1988:                   '</font></td>');
1.136     albertel 1989:     }
1.44      albertel 1990:     $r->print('</tr>');
1.57      albertel 1991:     $r->print("\n");
1.582     raeburn  1992:     if (($numlinks) && (ref($reclinks))) {
                   1993:         $$reclinks = $numlinks;
                   1994:     }
1.44      albertel 1995: }
1.59      matthew  1996: 
1.561     damieng  1997: # Prints a cell for table mode.
                   1998: #
                   1999: # FIXME: some of these parameter names are uninspired ($which and $value)
                   2000: # Also, it would make more sense to pass the display for this cell rather
                   2001: # than the full display hash and the key to use.
                   2002: #
                   2003: # @param {Apache2::RequestRec} $r - the Apache request
                   2004: # @param {integer} $which - level
                   2005: # @param {string} $defbg - cell background color
                   2006: # @param {integer} $result - the most specific level that is defined for that parameter
                   2007: # @param {array reference} $outpar - array level -> parameter value (when defined)
                   2008: # @param {string} $mprefix - resource id.'&'.part.'_'.parameter name.'&'
                   2009: # @param {string} $value - parameter key ('parameter_'.part.'_'.name)
                   2010: # @param {array reference} $typeoutpar - array level -> parameter type (when defined)
                   2011: # @param {hash reference} $display - parameter key -> full title for the parameter
                   2012: # @param {boolean} $noeditgrp - true if no edit is allowed for group level parameters
1.568     raeburn  2013: # @param {boolean} $readonly -true if editing not allowed.
1.588     raeburn  2014: # @param {boolean} $ismaplevel - true if level is for a map.
1.597     raeburn  2015: # @param {string} $extra - extra information to pass to plink.
1.44      albertel 2016: sub print_td {
1.578     raeburn  2017:     my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display,
1.588     raeburn  2018:         $noeditgrp,$readonly,$ismaplevel,$extra)=@_;
1.578     raeburn  2019:     my ($ineffect,$recursive,$currval,$currtype,$currlevel);
                   2020:     $ineffect = 0;
                   2021:     $currval = $$outpar[$which];
                   2022:     $currtype = $$typeoutpar[$which];
                   2023:     $currlevel = $which;
                   2024:     if (($result) && ($result == $which)) {
                   2025:         $ineffect = 1;
                   2026:     } 
                   2027:     if ($ismaplevel) {
                   2028:         if ($mprefix =~ /(hiddenresource|encrypturl)\&/) {
                   2029:             if (($result) && ($result == $which)) {
                   2030:                 $recursive = 1;
                   2031:             }
                   2032:         } elsif ($$outpar[$which+1] ne '') {
                   2033:             $recursive = 1;
                   2034:             $currlevel = $which+1;
                   2035:             $currval = $$outpar[$currlevel];
                   2036:             $currtype = $$typeoutpar[$currlevel];
                   2037:             if (($result) && ($result == $currlevel)) {
                   2038:                 $ineffect = 1;
                   2039:             }
                   2040:         }
                   2041:     }
                   2042:     $r->print('<td style="background-color:'.($ineffect?'#AAFFAA':$defbg).
1.419     bisitz   2043:               ';" align="center">');
1.437     raeburn  2044:     my $nolink = 0;
1.568     raeburn  2045:     if ($readonly) {
1.552     raeburn  2046:         $nolink = 1;
1.568     raeburn  2047:     } else { 
1.578     raeburn  2048:         if ($which == 14 || $which == 15 || $mprefix =~ /mapalias\&$/) {
1.553     raeburn  2049:             $nolink = 1;
1.568     raeburn  2050:         } elsif (($env{'request.course.sec'} ne '') && ($which > 12)) {
1.533     raeburn  2051:             $nolink = 1;
1.568     raeburn  2052:         } elsif ($which == 5 || $which ==  6 || $which == 7 || $which == 8) {
                   2053:             if ($noeditgrp) {
                   2054:                 $nolink = 1;
                   2055:             }
                   2056:         } elsif ($mprefix =~ /availablestudent\&$/) {
1.599     raeburn  2057:             $nolink = 1;
1.568     raeburn  2058:         } elsif ($mprefix =~ /examcode\&$/) {
                   2059:             unless ($which == 2) {
                   2060:                 $nolink = 1;
                   2061:             }
1.533     raeburn  2062:         }
1.437     raeburn  2063:     }
                   2064:     if ($nolink) {
1.577     raeburn  2065:         my ($parmname)=((split(/\&/,$mprefix))[1]=~/\_([^\_]+)$/);
1.593     raeburn  2066:         $r->print(&valout($currval,$currtype));
1.114     www      2067:     } else {
1.578     raeburn  2068:         $r->print(&plink($currtype,
                   2069:                          $$display{$value},$currval,
1.588     raeburn  2070:                          $mprefix.$currlevel,'parmform.pres','psub',$recursive,
                   2071:                          $extra));
1.114     www      2072:     }
                   2073:     $r->print('</td>'."\n");
1.57      albertel 2074: }
                   2075: 
1.561     damieng  2076: # Returns HTML and other info for the cell added when a user is selected
                   2077: # and that user is in several groups. This is the cell with the title "Control by other group".
                   2078: #
                   2079: # @param {string} $what - parameter part.'.'.parameter name
                   2080: # @param {string} $rid - resource id
                   2081: # @param {string} $cgroup - group name
                   2082: # @param {string} $defbg - cell background color
                   2083: # @param {array reference} $usersgroups - list of groups the user belongs to, if any
                   2084: # @param {integer} $result - level
                   2085: # @param {hash reference} $courseopt - course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db)
1.582     raeburn  2086: # @returns {Array} - array (parameter value for the other group, HTML for the cell, HTML with the value, name of the other group, true if recursive)
1.580     raeburn  2087: sub check_other_groups {
                   2088:     my ($what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;
1.275     raeburn  2089:     my $courseid = $env{'request.course.id'};
                   2090:     my $output;
                   2091:     my $symb = &symbcache($rid);
                   2092:     my $symbparm=$symb.'.'.$what;
                   2093:     my $map=(&Apache::lonnet::decode_symb($symb))[0];
1.556     raeburn  2094:     my $recurseparm=$map.'___(rec).'.$what; 
1.275     raeburn  2095:     my $mapparm=$map.'___(all).'.$what;
                   2096:     my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype) =
1.556     raeburn  2097:           &parm_control_group($courseid,$usersgroups,$symbparm,$mapparm,
                   2098:                               $recurseparm,$what,$courseopt);
1.275     raeburn  2099:     my $bgcolor = $defbg;
1.582     raeburn  2100:     my ($grp_parm,$grp_is_rec);
1.446     bisitz   2101:     if (($coursereply) && ($cgroup ne $resultgroup)) {
1.582     raeburn  2102:         my ($parmname) = ($what =~ /\.([^.]+)$/);
1.275     raeburn  2103:         if ($result > 3) {
1.419     bisitz   2104:             $bgcolor = '#AAFFAA';
1.275     raeburn  2105:         }
1.593     raeburn  2106:         $grp_parm = &valout($coursereply,$resulttype);
1.419     bisitz   2107:         $output = '<td style="background-color:'.$bgcolor.';" align="center">';
1.275     raeburn  2108:         if ($resultgroup && $resultlevel) {
1.582     raeburn  2109:             if ($resultlevel eq 'recursive') {
                   2110:                 $resultlevel = 'map/folder';
                   2111:                 $grp_is_rec = 1;
                   2112:             }
                   2113:             $output .= '<small><b>'.$resultgroup.'</b> ('.$resultlevel.'): </small>'.$grp_parm.
                   2114:                        ($grp_is_rec?'<span class="LC_parm_recursive">'.&mt('recursive').'</span>':'');
                   2115:              
1.275     raeburn  2116:         } else {
                   2117:             $output .= '&nbsp;';
                   2118:         }
                   2119:         $output .= '</td>';
                   2120:     } else {
1.419     bisitz   2121:         $output .= '<td style="background-color:'.$bgcolor.';">&nbsp;</td>';
1.275     raeburn  2122:     }
1.582     raeburn  2123:     return ($coursereply,$output,$grp_parm,$resultgroup,$grp_is_rec);
1.275     raeburn  2124: }
                   2125: 
1.561     damieng  2126: # Looks for a group with a defined parameter for given user and parameter.
1.580     raeburn  2127: # Used by check_other_groups.
1.561     damieng  2128: #
                   2129: # @param {string} $courseid - the course id
                   2130: # @param {array reference} $usersgroups - list of groups the user belongs to, if any
                   2131: # @param {string} $symbparm - end of the course parameter hash key for the group resource level
                   2132: # @param {string} $mapparm - end of the course parameter hash key for the group map/folder level
                   2133: # @param {string} $recurseparm - end of the course parameter hash key for the group recursive level
                   2134: # @param {string} $what - parameter part.'.'.parameter name
                   2135: # @param {hash reference} $courseopt - course parameters hash
                   2136: # @returns {Array} - (parameter value for the group, course parameter hash key for the parameter, name of the group, level name, parameter type)
1.275     raeburn  2137: sub parm_control_group {
1.556     raeburn  2138:     my ($courseid,$usersgroups,$symbparm,$mapparm,$recurseparm,$what,$courseopt) = @_;
1.275     raeburn  2139:     my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);
                   2140:     my $grpfound = 0;
1.556     raeburn  2141:     my @levels = ($symbparm,$mapparm,$recurseparm,$what);
                   2142:     my @levelnames = ('resource','map/folder','recursive','general');
1.275     raeburn  2143:     foreach my $group (@{$usersgroups}) {
                   2144:         if ($grpfound) { last; }
                   2145:         for (my $i=0; $i<@levels; $i++) {
                   2146:             my $item = $courseid.'.['.$group.'].'.$levels[$i];
                   2147:             if (defined($$courseopt{$item})) {
                   2148:                 $coursereply = $$courseopt{$item};
                   2149:                 $resultitem = $item;
                   2150:                 $resultgroup = $group;
                   2151:                 $resultlevel = $levelnames[$i];
                   2152:                 $resulttype = $$courseopt{$item.'.type'};
                   2153:                 $grpfound = 1;
                   2154:                 last;
                   2155:             }
                   2156:         }
                   2157:     }
                   2158:     return($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);
                   2159: }
1.201     www      2160: 
1.63      bowersj2 2161: 
                   2162: 
1.562     damieng  2163: # Extracts lots of information about all of the the course's resources into a variety of hashes, using lonnavmaps and lonnet::metadata.
                   2164: # All the parameters are references and are filled by the sub.
                   2165: #
1.566     damieng  2166: # @param {array reference} $ids - resource and map ids
                   2167: # @param {hash reference} $typep - hash resource/map id -> resource type (file extension)
                   2168: # @param {hash reference} $keyp - hash resource/map id -> comma-separated list of parameter keys from lonnet::metadata
1.562     damieng  2169: # @param {hash reference} $allparms - hash parameter name -> parameter title
                   2170: # @param {hash reference} $allparts - hash parameter part -> part title (a parameter part can be problem part.'_'.response id for response parameters)
1.566     damieng  2171: # @param {hash reference} $allmaps - hash map pc -> map src
                   2172: # @param {hash reference} $mapp - hash map pc or resource/map id -> enclosing map src
                   2173: # @param {hash reference} $symbp - hash map pc or resource/map id -> map src.'___(all)' for a map or resource symb for a resource
                   2174: # @param {hash reference} $maptitles - hash map pc or src -> map title (this should really be two separate hashes)
                   2175: # @param {hash reference} $uris - hash resource/map id -> resource src
1.562     damieng  2176: # @param {hash reference} $keyorder - hash parameter key -> appearance rank for this parameter when looking through every resource and every parameter, starting at 100 (integer)
                   2177: # @param {hash reference} $defkeytype - hash parameter name -> parameter type
1.608     raeburn  2178: # @param {string} $pssymb - resource symb (when a single resource is selected)
1.63      bowersj2 2179: sub extractResourceInformation {
                   2180:     my $ids = shift;
                   2181:     my $typep = shift;
                   2182:     my $keyp = shift;
                   2183:     my $allparms = shift;
                   2184:     my $allparts = shift;
                   2185:     my $allmaps = shift;
                   2186:     my $mapp = shift;
                   2187:     my $symbp = shift;
1.82      www      2188:     my $maptitles=shift;
1.196     www      2189:     my $uris=shift;
1.210     www      2190:     my $keyorder=shift;
1.211     www      2191:     my $defkeytype=shift;
1.603     raeburn  2192:     my $pssymb=shift;
1.196     www      2193: 
1.210     www      2194:     my $keyordercnt=100;
1.63      bowersj2 2195: 
1.196     www      2196:     my $navmap = Apache::lonnavmaps::navmap->new();
1.603     raeburn  2197:     return unless(ref($navmap));
                   2198:     my @allres;
                   2199:     if ($pssymb ne '') {
                   2200:         my $res = $navmap->getBySymb($pssymb);
                   2201:         if (ref($res)) {
                   2202:             @allres = ($res);
                   2203:         }
                   2204:     }
                   2205:     if (!@allres) { 
                   2206:         @allres=$navmap->retrieveResources(undef,undef,1,undef,1);
                   2207:     }
1.196     www      2208:     foreach my $resource (@allres) {
1.480     amueller 2209:         my $id=$resource->id();
1.196     www      2210:         my ($mapid,$resid)=split(/\./,$id);
1.480     amueller 2211:         if ($mapid eq '0') { next; }
                   2212:         $$ids[$#$ids+1]=$id;
                   2213:         my $srcf=$resource->src();
                   2214:         $srcf=~/\.(\w+)$/;
                   2215:         $$typep{$id}=$1;
1.584     raeburn  2216:         my $toolsymb;
                   2217:         if ($srcf =~ /ext\.tool$/) {
                   2218:             $toolsymb = $resource->symb();
                   2219:         }
1.480     amueller 2220:         $$keyp{$id}='';
1.196     www      2221:         $$uris{$id}=$srcf;
1.512     foxr     2222: 
1.584     raeburn  2223:         foreach my $key (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys',$toolsymb))) {
1.480     amueller 2224:             next if ($key!~/^parameter_/);
1.363     albertel 2225: 
1.209     www      2226: # Hidden parameters
1.584     raeburn  2227:             next if (&Apache::lonnet::metadata($srcf,$key.'.hidden',$toolsymb) eq 'parm');
1.209     www      2228: #
                   2229: # allparms is a hash of parameter names
                   2230: #
1.584     raeburn  2231:             my $name=&Apache::lonnet::metadata($srcf,$key.'.name',$toolsymb);
1.480     amueller 2232:             if (!exists($$allparms{$name}) || $$allparms{$name} =~ m/^\s*$/ ) {
                   2233:                 my ($display,$parmdis);
                   2234:                 $display = &standard_parameter_names($name);
                   2235:                 if ($display eq '') {
1.584     raeburn  2236:                     $display= &Apache::lonnet::metadata($srcf,$key.'.display',$toolsymb);
1.480     amueller 2237:                     $parmdis = $display;
                   2238:                     $parmdis =~ s/\s*\[Part.*$//g;
                   2239:                 } else {
                   2240:                     $parmdis = &mt($display);
                   2241:                 }
                   2242:                 $$allparms{$name}=$parmdis;
                   2243:                 if (ref($defkeytype)) {
                   2244:                     $$defkeytype{$name}=
1.584     raeburn  2245:                     &Apache::lonnet::metadata($srcf,$key.'.type',$toolsymb);
1.480     amueller 2246:                 }
                   2247:             }
1.363     albertel 2248: 
1.209     www      2249: #
                   2250: # allparts is a hash of all parts
                   2251: #
1.584     raeburn  2252:             my $part= &Apache::lonnet::metadata($srcf,$key.'.part',$toolsymb);
1.480     amueller 2253:             $$allparts{$part} = &mt('Part: [_1]',$part);
1.209     www      2254: #
                   2255: # Remember all keys going with this resource
                   2256: #
1.480     amueller 2257:             if ($$keyp{$id}) {
                   2258:                 $$keyp{$id}.=','.$key;
                   2259:             } else {
                   2260:                 $$keyp{$id}=$key;
                   2261:             }   
1.210     www      2262: #
                   2263: # Put in order
1.446     bisitz   2264: #
1.480     amueller 2265:             unless ($$keyorder{$key}) {
                   2266:                 $$keyorder{$key}=$keyordercnt;
                   2267:                 $keyordercnt++;
                   2268:             }
1.473     amueller 2269:         }
                   2270: 
                   2271: 
1.480     amueller 2272:         if (!exists($$mapp{$mapid})) {
                   2273:             $$mapp{$id}=
                   2274:             &Apache::lonnet::declutter($resource->enclosing_map_src());
                   2275:             $$mapp{$mapid}=$$mapp{$id};
                   2276:             $$allmaps{$mapid}=$$mapp{$id};
                   2277:             if ($mapid eq '1') {
1.532     raeburn  2278:                 $$maptitles{$mapid}=&mt('Main Content');
1.480     amueller 2279:             } else {
                   2280:                 $$maptitles{$mapid}=&Apache::lonnet::gettitle($$mapp{$id});
                   2281:             }
                   2282:             $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
1.556     raeburn  2283:             $$symbp{$mapid}=$$mapp{$id}.'___(all)';  # Added in rev. 1.57, but seems not to be used.
                   2284:                                                      # Lines 1038 and 1114 which use $symbp{$mapid}
                   2285:                                                      # are commented out in rev. 1.57
1.473     amueller 2286:         } else {
1.480     amueller 2287:             $$mapp{$id} = $$mapp{$mapid};
1.473     amueller 2288:         }
1.480     amueller 2289:         $$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
1.63      bowersj2 2290:     }
                   2291: }
                   2292: 
1.582     raeburn  2293: sub get_recursive {
                   2294:     my ($recurseup,$resdata,$what,$prefix) = @_; 
                   2295:     if ((ref($resdata) eq 'HASH') && (ref($recurseup) eq 'ARRAY')) {
                   2296:         foreach my $item (@{$recurseup}) {
                   2297:             my $norecursechk=$prefix.'.'.$item.'___(all).'.$what;
                   2298:             if (defined($resdata->{$norecursechk})) {
                   2299:                 if ($what =~ /\.(encrypturl|hiddenresource)$/) {
                   2300:                     my $type = $resdata->{$norecursechk.'.type'};
                   2301:                     return [$resdata->{$norecursechk},$type,$item];
                   2302:                 } else {
                   2303:                     last;
                   2304:                 }
                   2305:             }
                   2306:             my $recursechk=$prefix.'.'.$item.'___(rec).'.$what;
                   2307:             if (defined($resdata->{$recursechk})) {
                   2308:                 my $type = $resdata->{$recursechk.'.type'};
                   2309:                 return [$resdata->{$recursechk},$type,$item];
                   2310:             }
                   2311:         }
                   2312:     }
                   2313:     return;
                   2314: }
                   2315: 
1.208     www      2316: 
1.562     damieng  2317: # Tells if a parameter type is a date.
                   2318: #
                   2319: # @param {string} type - parameter type
                   2320: # @returns{boolean} - true if it is a date
1.213     www      2321: sub isdateparm {
                   2322:     my $type=shift;
                   2323:     return (($type=~/^date/) && (!($type eq 'date_interval')));
                   2324: }
                   2325: 
1.589     raeburn  2326: # Determine if parameter type is specialized string type (i.e.,
                   2327: # not just string or string_yesno.  
                   2328: 
                   2329: sub is_specialstring {
                   2330:     my $type=shift;
1.603     raeburn  2331:     return (($type=~/^string_/) && ($type ne 'string_yesno'));
1.589     raeburn  2332: }
                   2333: 
1.562     damieng  2334: # Prints the HTML and Javascript to select parameters, with various shortcuts.
1.468     amueller 2335: #
1.581     raeburn  2336: # @param {Apache2::RequestRec} $r - the Apache request
1.208     www      2337: sub parmmenu {
1.581     raeburn  2338:     my ($r)=@_;
1.208     www      2339:     $r->print(<<ENDSCRIPT);
                   2340: <script type="text/javascript">
1.454     bisitz   2341: // <![CDATA[
1.208     www      2342:     function checkall(value, checkName) {
1.453     schualex 2343: 
                   2344:         var li = "_li";
                   2345:         var displayOverview = "";
                   2346:         
                   2347:         if (value == false) {
                   2348:             displayOverview = "none"
                   2349:         }
                   2350: 
1.562     damieng  2351:         for (i=0; i<document.forms.parmform.elements.length; i++) {
1.208     www      2352:             ele = document.forms.parmform.elements[i];
                   2353:             if (ele.name == checkName) {
                   2354:                 document.forms.parmform.elements[i].checked=value;
                   2355:             }
                   2356:         }
                   2357:     }
1.210     www      2358: 
                   2359:     function checkthis(thisvalue, checkName) {
1.562     damieng  2360:         for (i=0; i<document.forms.parmform.elements.length; i++) {
1.210     www      2361:             ele = document.forms.parmform.elements[i];
                   2362:             if (ele.name == checkName) {
1.562     damieng  2363:                 if (ele.value == thisvalue) {
                   2364:                     document.forms.parmform.elements[i].checked=true;
                   2365:                 }
1.210     www      2366:             }
                   2367:         }
                   2368:     }
                   2369: 
                   2370:     function checkdates() {
1.562     damieng  2371:         checkthis('duedate','pscat');
                   2372:         checkthis('opendate','pscat');
                   2373:         checkthis('answerdate','pscat');
1.218     www      2374:     }
                   2375: 
                   2376:     function checkdisset() {
1.562     damieng  2377:         checkthis('discussend','pscat');
                   2378:         checkthis('discusshide','pscat');
                   2379:         checkthis('discussvote','pscat');
1.218     www      2380:     }
                   2381: 
                   2382:     function checkcontdates() {
1.562     damieng  2383:         checkthis('contentopen','pscat');
                   2384:         checkthis('contentclose','pscat');
1.218     www      2385:     }
1.446     bisitz   2386: 
1.210     www      2387:     function checkvisi() {
1.562     damieng  2388:         checkthis('hiddenresource','pscat');
                   2389:         checkthis('encrypturl','pscat');
                   2390:         checkthis('problemstatus','pscat');
                   2391:         checkthis('contentopen','pscat');
                   2392:         checkthis('opendate','pscat');
1.210     www      2393:     }
                   2394: 
                   2395:     function checkparts() {
1.562     damieng  2396:         checkthis('hiddenparts','pscat');
                   2397:         checkthis('display','pscat');
                   2398:         checkthis('ordered','pscat');
1.210     www      2399:     }
                   2400: 
                   2401:     function checkstandard() {
                   2402:         checkall(false,'pscat');
1.562     damieng  2403:         checkdates();
                   2404:         checkthis('weight','pscat');
                   2405:         checkthis('maxtries','pscat');
                   2406:         checkthis('type','pscat');
                   2407:         checkthis('problemstatus','pscat');
1.210     www      2408:     }
                   2409: 
1.454     bisitz   2410: // ]]>
1.208     www      2411: </script>
                   2412: ENDSCRIPT
1.453     schualex 2413: 
1.491     bisitz   2414:     $r->print('<hr />');
1.581     raeburn  2415:     &shortCuts($r);
1.491     bisitz   2416:     $r->print('<hr />');
1.453     schualex 2417: }
1.562     damieng  2418: 
                   2419: # Returns parameter categories.
                   2420: #
                   2421: # @returns {hash} - category name -> title in English
1.465     amueller 2422: sub categories {
                   2423:     return ('time_settings' => 'Time Settings',
                   2424:     'grading' => 'Grading',
                   2425:     'tries' => 'Tries',
                   2426:     'problem_appearance' => 'Problem Appearance',
                   2427:     'behaviour_of_input_fields' => 'Behaviour of Input Fields',
                   2428:     'hiding' => 'Hiding',
                   2429:     'high_level_randomization' => 'High Level Randomization',
                   2430:     'slots' => 'Slots',
                   2431:     'file_submission' => 'File Submission',
                   2432:     'misc' => 'Miscellaneous' ); 
                   2433: }
                   2434: 
1.562     damieng  2435: # Returns the category for each parameter.
                   2436: #
                   2437: # @returns {hash} - parameter name -> category name
1.465     amueller 2438: sub lookUpTableParameter {
                   2439:  
                   2440:     return ( 
                   2441:         'opendate' => 'time_settings',
                   2442:         'duedate' => 'time_settings',
                   2443:         'answerdate' => 'time_settings',
                   2444:         'interval' => 'time_settings',
                   2445:         'contentopen' => 'time_settings',
                   2446:         'contentclose' => 'time_settings',
                   2447:         'discussend' => 'time_settings',
1.560     damieng  2448:         'printstartdate' => 'time_settings',
                   2449:         'printenddate' => 'time_settings',
1.465     amueller 2450:         'weight' => 'grading',
                   2451:         'handgrade' => 'grading',
                   2452:         'maxtries' => 'tries',
                   2453:         'hinttries' => 'tries',
1.503     raeburn  2454:         'randomizeontries' => 'tries',
1.465     amueller 2455:         'type' => 'problem_appearance',
                   2456:         'problemstatus' => 'problem_appearance',
                   2457:         'display' => 'problem_appearance',
                   2458:         'ordered' => 'problem_appearance',
                   2459:         'numbubbles' => 'problem_appearance',
                   2460:         'tol' => 'behaviour_of_input_fields',
                   2461:         'sig' => 'behaviour_of_input_fields',
                   2462:         'turnoffunit' => 'behaviour_of_input_fields',
                   2463:         'hiddenresource' => 'hiding',
                   2464:         'hiddenparts' => 'hiding',
                   2465:         'discusshide' => 'hiding',
                   2466:         'buttonshide' => 'hiding',
                   2467:         'turnoffeditor' => 'hiding',
                   2468:         'encrypturl' => 'hiding',
1.587     raeburn  2469:         'deeplink' => 'hiding',
1.465     amueller 2470:         'randomorder' => 'high_level_randomization',
                   2471:         'randompick' => 'high_level_randomization',
                   2472:         'available' => 'slots',
                   2473:         'useslots' => 'slots',
                   2474:         'availablestudent' => 'slots',
                   2475:         'uploadedfiletypes' => 'file_submission',
                   2476:         'maxfilesize' => 'file_submission',
                   2477:         'cssfile' => 'misc',
                   2478:         'mapalias' => 'misc',
                   2479:         'acc' => 'misc',
                   2480:         'maxcollaborators' => 'misc',
                   2481:         'scoreformat' => 'misc',
1.514     raeburn  2482:         'lenient' => 'grading',
1.519     raeburn  2483:         'retrypartial' => 'tries',
1.521     raeburn  2484:         'discussvote'  => 'misc',
1.584     raeburn  2485:         'examcode' => 'high_level_randomization',
1.575     raeburn  2486:     );
1.465     amueller 2487: }
                   2488: 
1.562     damieng  2489: # Adds the given parameter name to an array of arrays listing all parameters for each category.
                   2490: #
                   2491: # @param {string} $name - parameter name
                   2492: # @param {array reference} $catList - array reference category name -> array reference of parameter names
1.465     amueller 2493: sub whatIsMyCategory {
                   2494:     my $name = shift;
                   2495:     my $catList = shift;
                   2496:     my @list;
                   2497:     my %lookUpList = &lookUpTableParameter; #Initilize the lookupList
                   2498:     my $cat = $lookUpList{$name};
                   2499:     if (defined($cat)) {
                   2500:         if (!defined($$catList{$cat})){
                   2501:             push @list, ($name);
                   2502:             $$catList{$cat} = \@list;
                   2503:         } else {
                   2504:             push @{${$catList}{$cat}}, ($name);     
                   2505:         }
                   2506:     } else {
                   2507:         if (!defined($$catList{'misc'})){
                   2508:             push @list, ($name);
                   2509:             $$catList{'misc'} = \@list;
                   2510:         } else {
                   2511:             push @{${$catList}{'misc'}}, ($name);     
                   2512:         }
                   2513:     }        
                   2514: }
                   2515: 
1.562     damieng  2516: # Sorts parameter names based on appearance order.
                   2517: #
                   2518: # @param {array reference} name - array reference of parameter names
                   2519: # @param {hash reference} $keyorder - hash parameter key -> appearance rank
                   2520: # @returns {Array} - array of parameter names
1.465     amueller 2521: sub keysindisplayorderCategory {
                   2522:     my ($name,$keyorder)=@_;
                   2523:     return sort {
1.473     amueller 2524:         $$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b}; 
1.465     amueller 2525:     } ( @{$name});
                   2526: }
                   2527: 
1.562     damieng  2528: # Returns a hash category name -> order, starting at 1 (integer)
                   2529: #
                   2530: # @returns {hash}
1.467     amueller 2531: sub category_order {
                   2532:     return (
                   2533:         'time_settings' => 1,
                   2534:         'grading' => 2,
                   2535:         'tries' => 3,
                   2536:         'problem_appearance' => 4,
                   2537:         'hiding' => 5,
                   2538:         'behaviour_of_input_fields' => 6,
                   2539:         'high_level_randomization'  => 7,
                   2540:         'slots' => 8,
                   2541:         'file_submission' => 9,
                   2542:         'misc' => 10
                   2543:     );
                   2544: 
                   2545: }
1.453     schualex 2546: 
1.562     damieng  2547: # Prints HTML to let the user select parameters, from a list of all parameters organized by category.
                   2548: #
                   2549: # @param {Apache2::RequestRec} $r - the Apache request
                   2550: # @param {hash reference} $allparms - hash parameter name -> parameter title
                   2551: # @param {array reference} $pscat - list of selected parameter names
                   2552: # @param {hash reference} $keyorder - hash parameter key -> appearance rank
1.453     schualex 2553: sub parmboxes {
                   2554:     my ($r,$allparms,$pscat,$keyorder)=@_;
1.548     raeburn  2555:     my %categories = &categories();
1.467     amueller 2556:     my %category_order = &category_order();
1.465     amueller 2557:     my %categoryList = (
                   2558:         'time_settings' => [],
                   2559:         'grading' => [],
                   2560:         'tries' => [],
                   2561:         'problem_appearance' => [],
                   2562:         'behaviour_of_input_fields' => [],
                   2563:         'hiding' => [],
                   2564:         'high_level_randomization' => [],
                   2565:         'slots' => [],
                   2566:         'file_submission' => [],
                   2567:         'misc' => [],
1.489     bisitz   2568:     );
1.510     www      2569: 
1.548     raeburn  2570:     foreach my $tempparameter (keys(%$allparms)) {
1.465     amueller 2571:         &whatIsMyCategory($tempparameter, \%categoryList);
                   2572:     }
1.453     schualex 2573:     #part to print the parm-list
1.618     raeburn  2574:     $Text::Wrap::columns=60;
                   2575:     $Text::Wrap::separator='<br />';
1.536     raeburn  2576:     foreach my $key (sort { $category_order{$a} <=> $category_order{$b} } keys(%categoryList)) {
                   2577:         next if (@{$categoryList{$key}} == 0);
                   2578:         next if ($key eq '');
                   2579:         $r->print('<div class="LC_Box LC_400Box">'
                   2580:                  .'<h4 class="LC_hcell">'.&mt($categories{$key}).'</h4>'."\n");
                   2581:         foreach my $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {
1.575     raeburn  2582:             next if ($tempkey eq '');
1.536     raeburn  2583:             $r->print('<span class="LC_nobreak">'
                   2584:                      .'<label><input type="checkbox" name="pscat" '
                   2585:                      .'value="'.$tempkey.'" ');
                   2586:             if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
                   2587:                 $r->print( ' checked="checked"');
                   2588:             }
1.617     raeburn  2589:             $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? 
                   2590:                              Text::Wrap::wrap('','&nbsp;'x4,$$allparms{$tempkey})
                   2591:                              : $tempkey)
1.536     raeburn  2592:                      .'</label></span><br />'."\n");
1.465     amueller 2593:         }
1.536     raeburn  2594:         $r->print('</div>');
1.465     amueller 2595:     }
1.536     raeburn  2596:     $r->print("\n");
1.453     schualex 2597: }
1.562     damieng  2598: 
                   2599: # Prints HTML with shortcuts to select groups of parameters in one click, or deselect all.
1.468     amueller 2600: #
1.562     damieng  2601: # @param {Apache2::RequestRec} $r - the Apache request
1.453     schualex 2602: sub shortCuts {
1.581     raeburn  2603:     my ($r)=@_;
1.453     schualex 2604: 
1.491     bisitz   2605:     # Parameter Selection
                   2606:     $r->print(
                   2607:         &Apache::lonhtmlcommon::start_funclist(&mt('Parameter Selection'))
                   2608:        .&Apache::lonhtmlcommon::add_item_funclist(
                   2609:             '<a href="javascript:checkall(true, \'pscat\')">'.&mt('Select All').'</a>')
                   2610:        .&Apache::lonhtmlcommon::add_item_funclist(
                   2611:             '<a href="javascript:checkstandard()">'.&mt('Select Common Only').'</a>')
                   2612:        .&Apache::lonhtmlcommon::add_item_funclist(
                   2613:             '<a href="javascript:checkall(false, \'pscat\')">'.&mt('Unselect All').'</a>')
                   2614:        .&Apache::lonhtmlcommon::end_funclist()
                   2615:     );
                   2616: 
                   2617:     # Add Selection for...
                   2618:     $r->print(
                   2619:         &Apache::lonhtmlcommon::start_funclist(&mt('Add Selection for...'))
                   2620:        .&Apache::lonhtmlcommon::add_item_funclist(
                   2621:             '<a href="javascript:checkdates()">'.&mt('Problem Dates').'</a>')
                   2622:        .&Apache::lonhtmlcommon::add_item_funclist(
                   2623:             '<a href="javascript:checkcontdates()">'.&mt('Content Dates').'</a>')
                   2624:        .&Apache::lonhtmlcommon::add_item_funclist(
                   2625:             '<a href="javascript:checkdisset()">'.&mt('Discussion Settings').'</a>')
                   2626:        .&Apache::lonhtmlcommon::add_item_funclist(
                   2627:             '<a href="javascript:checkvisi()">'.&mt('Visibilities').'</a>')
                   2628:        .&Apache::lonhtmlcommon::add_item_funclist(
                   2629:             '<a href="javascript:checkparts()">'.&mt('Part Parameters').'</a>')
                   2630:        .&Apache::lonhtmlcommon::end_funclist()
                   2631:     );
1.208     www      2632: }
                   2633: 
1.562     damieng  2634: # Prints HTML to select parts to view (except for the title).
                   2635: # Used by table and overview modes.
                   2636: #
                   2637: # @param {Apache2::RequestRec} $r - the Apache request
                   2638: # @param {hash reference} $allparts - hash parameter part -> part title
                   2639: # @param {array reference} $psprt - list of selected parameter parts
1.209     www      2640: sub partmenu {
1.446     bisitz   2641:     my ($r,$allparts,$psprt)=@_;
1.523     raeburn  2642:     my $selsize = 1+scalar(keys(%{$allparts}));
                   2643:     if ($selsize > 8) {
                   2644:         $selsize = 8;
                   2645:     }
1.446     bisitz   2646: 
1.523     raeburn  2647:     $r->print('<select multiple="multiple" name="psprt" size="'.$selsize.'">');
1.208     www      2648:     $r->print('<option value="all"');
1.562     damieng  2649:     $r->print(' selected="selected"') unless (@{$psprt}); # useless, the array is never empty
1.208     www      2650:     $r->print('>'.&mt('All Parts').'</option>');
                   2651:     my %temphash=();
                   2652:     foreach (@{$psprt}) { $temphash{$_}=1; }
1.234     albertel 2653:     foreach my $tempkey (sort {
1.560     damieng  2654:                 if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }
                   2655:             } keys(%{$allparts})) {
                   2656:         unless ($tempkey =~ /\./) {
                   2657:             $r->print('<option value="'.$tempkey.'"');
                   2658:             if ($$psprt[0] eq "all" ||  $temphash{$tempkey}) {
                   2659:                 $r->print(' selected="selected"');
                   2660:             }
                   2661:             $r->print('>'.$$allparts{$tempkey}.'</option>');
1.473     amueller 2662:         }
1.208     www      2663:     }
1.446     bisitz   2664:     $r->print('</select>');
1.209     www      2665: }
                   2666: 
1.562     damieng  2667: # Prints HTML to select a user and/or a group.
                   2668: # Used by table mode.
                   2669: #
                   2670: # @param {Apache2::RequestRec} $r - the Apache request
                   2671: # @param {string} $uname - selected user name
                   2672: # @param {string} $id - selected Student/Employee ID
                   2673: # @param {string} $udom - selected user domain
                   2674: # @param {string} $csec - selected section name
                   2675: # @param {string} $cgroup - selected group name
                   2676: # @param {string} $parmlev - parameter level (Resource:'full', Map:'map', Course:'general')
                   2677: # @param {array reference} $usersgroups - list of groups the user belongs to, if any
                   2678: # @param {string} $pssymb - resource symb (when a single resource is selected)
1.209     www      2679: sub usermenu {
1.553     raeburn  2680:     my ($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,$usersgroups,$pssymb)=@_;
1.209     www      2681:     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
1.596     raeburn  2682:                   &Apache::loncommon::selectstudent_link('parmform','uname','udom','condition').
                   2683:                   &Apache::lonhtmlcommon::scripttag(<<ENDJS);
                   2684: function setCourseadv(form,caller) {
                   2685:     if (caller.value == 'st') {
                   2686:         form.courseadv.value = 'none';
                   2687:     } else {
                   2688:         form.courseadv.value = '';
                   2689:     }
                   2690:     return;
                   2691: }
                   2692: ENDJS
1.412     bisitz   2693: 
1.596     raeburn  2694:     my (%chkroles,$stuonly,$courseadv);
                   2695:     if ($env{'form.userroles'} eq 'any') {
                   2696:         $chkroles{'any'} = ' checked="checked"';
                   2697:     } else {
                   2698:         $chkroles{'st'} = ' checked="checked"';
                   2699:         $courseadv = 'none';
                   2700:     }
                   2701:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
                   2702:     if ($crstype eq 'Community') {
                   2703:         $stuonly = &mt('member only');
                   2704:     } else {
                   2705:         $stuonly = &mt('student only');
                   2706:     }
                   2707:     $chooseopt .= '<br /><span class="LC_cusr_subheading">'.
                   2708:                   &mt("User's role").':&nbsp;'.
                   2709:                   '<label><input type="radio" name="userroles" value="st"'.$chkroles{'st'}.' onclick="setCourseadv(this.form,this);" />'.
                   2710:                   $stuonly.'</label>&nbsp;&nbsp;'.
                   2711:                   '<label><input type="radio" name="userroles" value="any"'.$chkroles{'any'}.' onclick="setCourseadv(this.form,this);" />'.
                   2712:                   &mt('any role').'</label><input type="hidden" id="courseadv" name="courseadv" value="'.$courseadv.'" /></span>';
1.209     www      2713:     my $sections='';
1.300     albertel 2714:     my %sectionhash = &Apache::loncommon::get_sections();
                   2715: 
1.269     raeburn  2716:     my $groups;
1.553     raeburn  2717:     my %grouphash;
                   2718:     if (($pssymb) || &Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
                   2719:         %grouphash = &Apache::longroup::coursegroups();
                   2720:     } elsif ($env{'request.course.groups'} ne '') {
1.585     raeburn  2721:         map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
1.553     raeburn  2722:     }
1.299     albertel 2723: 
1.412     bisitz   2724:     my $g_s_header='';
                   2725:     my $g_s_footer='';
1.446     bisitz   2726: 
1.552     raeburn  2727:     my $currsec = $env{'request.course.sec'};
                   2728:     if ($currsec) {
                   2729:         $sections=&mt('Section:').' '.$currsec;
                   2730:         if (%grouphash) {
                   2731:             $sections .= ';'.('&nbsp;' x2);
                   2732:         }
                   2733:     } elsif (%sectionhash && $currsec eq '') {
1.412     bisitz   2734:         $sections=&mt('Section:').' <select name="csec"';
1.299     albertel 2735:         if (%grouphash && $parmlev ne 'full') {
1.269     raeburn  2736:             $sections .= qq| onchange="group_or_section('csec')" |;
                   2737:         }
                   2738:         $sections .= '>';
1.548     raeburn  2739:     foreach my $section ('',sort(keys(%sectionhash))) {
1.473     amueller 2740:         $sections.='<option value="'.$section.'" '.
                   2741:         ($section eq $csec?'selected="selected"':'').'>'.$section.
1.275     raeburn  2742:                                                               '</option>';
1.209     www      2743:         }
                   2744:         $sections.='</select>';
1.269     raeburn  2745:     }
1.412     bisitz   2746: 
1.552     raeburn  2747:     if (%sectionhash && %grouphash && $parmlev ne 'full' && $currsec eq '') {
1.412     bisitz   2748:         $sections .= '&nbsp;'.&mt('or').'&nbsp;';
1.269     raeburn  2749:         $sections .= qq|
                   2750: <script type="text/javascript">
1.454     bisitz   2751: // <![CDATA[
1.269     raeburn  2752: function group_or_section(caller) {
                   2753:    if (caller == "cgroup") {
                   2754:        if (document.parmform.cgroup.selectedIndex != 0) {
                   2755:            document.parmform.csec.selectedIndex = 0;
                   2756:        }
                   2757:    } else {
                   2758:        if (document.parmform.csec.selectedIndex != 0) {
                   2759:            document.parmform.cgroup.selectedIndex = 0;
                   2760:        }
                   2761:    }
                   2762: }
1.454     bisitz   2763: // ]]>
1.269     raeburn  2764: </script>
                   2765: |;
1.554     raeburn  2766:     } else {
1.269     raeburn  2767:         $sections .= qq|
                   2768: <script type="text/javascript">
1.454     bisitz   2769: // <![CDATA[
1.269     raeburn  2770: function group_or_section(caller) {
                   2771:     return;
                   2772: }
1.454     bisitz   2773: // ]]>
1.269     raeburn  2774: </script>
                   2775: |;
1.446     bisitz   2776:     }
1.299     albertel 2777: 
                   2778:     if (%grouphash) {
1.597     raeburn  2779:         $groups=&mt('Group').': <select name="cgroup"';
1.552     raeburn  2780:         if (%sectionhash && $env{'form.action'} eq 'settable' && $currsec eq '') {
1.269     raeburn  2781:             $groups .= qq| onchange="group_or_section('cgroup')" |;
                   2782:         }
                   2783:         $groups .= '>';
1.548     raeburn  2784:         foreach my $grp ('',sort(keys(%grouphash))) {
1.275     raeburn  2785:             $groups.='<option value="'.$grp.'" ';
                   2786:             if ($grp eq $cgroup) {
                   2787:                 unless ((defined($uname)) && ($grp eq '')) {
                   2788:                     $groups .=  'selected="selected" ';
                   2789:                 }
                   2790:             } elsif (!defined($cgroup)) {
                   2791:                 if (@{$usersgroups} == 1) {
                   2792:                     if ($grp eq $$usersgroups[0]) {
                   2793:                         $groups .=  'selected="selected" ';
                   2794:                     }
                   2795:                 }
                   2796:             }
                   2797:             $groups .= '>'.$grp.'</option>';
1.269     raeburn  2798:         }
                   2799:         $groups.='</select>';
                   2800:     }
1.412     bisitz   2801: 
1.445     neumanie 2802:     if (%sectionhash || %grouphash) {
1.446     bisitz   2803:         $r->print(&Apache::lonhtmlcommon::row_title(&mt('Group/Section')));
                   2804:         $r->print($sections.$groups);
1.448     bisitz   2805:         $r->print(&Apache::lonhtmlcommon::row_closure());
1.554     raeburn  2806:     } else {
                   2807:         $r->print($sections); 
1.445     neumanie 2808:     }
1.446     bisitz   2809: 
                   2810:     $r->print(&Apache::lonhtmlcommon::row_title(&mt('User')));
1.443     neumanie 2811:     $r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
1.412     bisitz   2812:                  ,'<input type="text" value="'.$uname.'" size="12" name="uname" />'
                   2813:                  ,'<input type="text" value="'.$id.'" size="12" name="id" /> '
1.446     bisitz   2814:                  ,$chooseopt));
1.209     www      2815: }
                   2816: 
1.562     damieng  2817: # Prints HTML to select parameters from a list of all parameters.
                   2818: # Uses parmmenu and parmboxes.
                   2819: # Used by table and overview modes.
1.468     amueller 2820: #
1.562     damieng  2821: # @param {Apache2::RequestRec} $r - the Apache request
                   2822: # @param {hash reference} $allparms - hash parameter name -> parameter title
                   2823: # @param {array reference} $pscat - list of selected parameter names
                   2824: # @param {hash reference} $keyorder - hash parameter key -> appearance rank
                   2825: # @param {string} [$divid] - name used to give an id to the HTML element for the scroll box
1.209     www      2826: sub displaymenu {
1.581     raeburn  2827:     my ($r,$allparms,$pscat,$keyorder,$divid)=@_;
1.510     www      2828: 
1.445     neumanie 2829:     $r->print(&Apache::lonhtmlcommon::start_pick_box());
1.510     www      2830:     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));
                   2831: 
1.581     raeburn  2832:     &parmmenu($r);
1.536     raeburn  2833:     $r->print(&Apache::loncommon::start_scrollbox('480px','440px','200px',$divid));
1.510     www      2834:     &parmboxes($r,$allparms,$pscat,$keyorder);
                   2835:     $r->print(&Apache::loncommon::end_scrollbox());
                   2836: 
                   2837:     $r->print(&Apache::lonhtmlcommon::row_closure(1));
1.453     schualex 2838:     $r->print(&Apache::lonhtmlcommon::end_pick_box());
1.510     www      2839:  
1.209     www      2840: }
                   2841: 
1.562     damieng  2842: # Prints HTML to select a map.
                   2843: # Used by table mode and overview mode.
                   2844: #
                   2845: # @param {Apache2::RequestRec} $r - the Apache request
1.566     damieng  2846: # @param {hash reference} $allmaps - hash map pc -> map src
                   2847: # @param {string} $pschp - selected map pc, or 'all'
1.562     damieng  2848: # @param {hash reference} $maptitles - hash map id or src -> map title
1.566     damieng  2849: # @param {hash reference} $symbp - hash map pc or resource/map id -> map src.'___(all)' or resource symb
1.610     raeburn  2850: # @param {string} $parmlev - parameter level (Resource:'full', Map:'map', Course:'general')
1.445     neumanie 2851: sub mapmenu {
1.610     raeburn  2852:     my ($r,$allmaps,$pschp,$maptitles,$symbp,$parmlev)=@_;
1.468     amueller 2853:     my %allmaps_inverted = reverse %$allmaps;
1.461     neumanie 2854:     my $navmap = Apache::lonnavmaps::navmap->new();
                   2855:     my $tree=[];
                   2856:     my $treeinfo={};
                   2857:     if (defined($navmap)) {
1.499     raeburn  2858:         my $it=$navmap->getIterator(undef,undef,undef,1,1,undef);
1.461     neumanie 2859:         my $curRes;
                   2860:         my $depth = 0;
1.468     amueller 2861:         my %parent = ();
                   2862:         my $startcount = 5;
                   2863:         my $lastcontainer = $startcount;
                   2864: # preparing what is to show ...
1.461     neumanie 2865:         while ($curRes = $it->next()) {
                   2866:             if ($curRes == $it->BEGIN_MAP()) {
                   2867:                 $depth++;
1.468     amueller 2868:                 $parent{$depth}= $lastcontainer;
1.461     neumanie 2869:             }
                   2870:             if ($curRes == $it->END_MAP()) {
                   2871:                 $depth--;
1.468     amueller 2872:                 $lastcontainer = $parent{$depth};
1.461     neumanie 2873:             }
                   2874:             if (ref($curRes)) {
1.468     amueller 2875:                 my $symb = $curRes->symb();
                   2876:                 my $ressymb = $symb;
1.461     neumanie 2877:                 if (($curRes->is_sequence()) || ($curRes->is_page())) {
                   2878:                     my $type = 'sequence';
                   2879:                     if ($curRes->is_page()) {
                   2880:                         $type = 'page';
                   2881:                     }
                   2882:                     my $id= $curRes->id();
1.468     amueller 2883:                     my $srcf = $curRes->src();
                   2884:                     my $resource_name = &Apache::lonnet::gettitle($srcf);
                   2885:                     if(!exists($treeinfo->{$id})) {
                   2886:                         push(@$tree,$id);
1.473     amueller 2887:                         my $enclosing_map_folder = &Apache::lonnet::declutter($curRes->enclosing_map_src());        
1.468     amueller 2888:                         $treeinfo->{$id} = {
1.461     neumanie 2889:                                     depth => $depth,
                   2890:                                     type  => $type,
1.468     amueller 2891:                                     name  => $resource_name,
                   2892:                                     enclosing_map_folder => $enclosing_map_folder,
1.461     neumanie 2893:                                     };
1.462     neumanie 2894:                     }
1.461     neumanie 2895:                 }
                   2896:             }
                   2897:         }
1.462     neumanie 2898:     }
1.473     amueller 2899: # Show it ...    
1.610     raeburn  2900:     my $rowattr = ' id="mapmenu"';
                   2901:     if ($parmlev eq 'general') {
                   2902:         $rowattr .= ' style="display:none"';
                   2903:     }
                   2904:     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',$rowattr));
1.461     neumanie 2905:     if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {
                   2906:         my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
1.497     bisitz   2907:         my $whitespace =
                   2908:             '<img src="'
                   2909:            .&Apache::loncommon::lonhttpdurl('/adm/lonIcons/whitespace_21.gif')
                   2910:            .'" alt="" />';
                   2911: 
1.498     bisitz   2912:         # Info about selectable folders/maps
                   2913:         $r->print(
                   2914:             '<div class="LC_info">'
1.508     www      2915:            .&mt('You can only select maps and folders which have modifiable settings.')
                   2916:            .' '.&Apache::loncommon::help_open_topic('Parameter_Set_Folder') 
1.498     bisitz   2917:            .'</div>'
                   2918:         );
                   2919: 
1.536     raeburn  2920:         $r->print(&Apache::loncommon::start_scrollbox('700px','680px','400px','mapmenuscroll'));
1.523     raeburn  2921:         $r->print(&Apache::loncommon::start_data_table(undef,'mapmenuinner'));
1.497     bisitz   2922: 
1.498     bisitz   2923:         # Display row: "All Maps or Folders"
                   2924:         $r->print(
1.523     raeburn  2925:             &Apache::loncommon::start_data_table_row(undef,'picklevel')
1.498     bisitz   2926:            .'<td>'
                   2927:            .'<label>'
                   2928:            .'<input type="radio" name="pschp"'
1.497     bisitz   2929:         );
                   2930:         $r->print(' checked="checked"') if ($pschp eq 'all' || !$pschp);
1.498     bisitz   2931:         $r->print(
                   2932:             ' value="all" />&nbsp;'.$icon.'&nbsp;'
                   2933:            .&mt('All Maps or Folders')
                   2934:            .'</label>'
                   2935:            .'<hr /></td>'
                   2936:            .&Apache::loncommon::end_data_table_row()
1.463     bisitz   2937:         );
1.497     bisitz   2938: 
1.532     raeburn  2939:         # Display row: "Main Content"
1.468     amueller 2940:         if (exists($$allmaps{1})) {
1.498     bisitz   2941:             $r->print(
                   2942:                 &Apache::loncommon::start_data_table_row()
                   2943:                .'<td>'
                   2944:                .'<label>'
                   2945:                .'<input type="radio" name="pschp" value="1"'
1.468     amueller 2946:             );
1.497     bisitz   2947:             $r->print(' checked="checked"') if ($pschp eq '1');
1.498     bisitz   2948:             $r->print(
                   2949:                 '/>&nbsp;'.$icon.'&nbsp;'
                   2950:                .$$maptitles{1}
                   2951:                .($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')
                   2952:                .'</label>'
                   2953:                .'</td>'
                   2954:                .&Apache::loncommon::end_data_table_row()
1.468     amueller 2955:             );
                   2956:         }
1.497     bisitz   2957: 
                   2958:         # Display rows for all course maps and folders
1.468     amueller 2959:         foreach my $id (@{$tree}) {
                   2960:             my ($mapid,$resid)=split(/\./,$id);
1.464     bisitz   2961:             # Indentation
1.468     amueller 2962:             my $depth = $treeinfo->{$id}->{'depth'};
1.464     bisitz   2963:             my $indent;
                   2964:             for (my $i = 0; $i < $depth; $i++) {
                   2965:                 $indent.= $whitespace;
                   2966:             }
1.461     neumanie 2967:             $icon =  '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
1.468     amueller 2968:             if ($treeinfo->{$id}->{'type'} eq 'page') {
1.461     neumanie 2969:                 $icon = '<img src="/adm/lonIcons/navmap.page.open.gif" alt="" />';
                   2970:             }
1.468     amueller 2971:             my $symb_name = $$symbp{$id};
                   2972:             my ($front, $tail) = split (/___${resid}___/, $symb_name);
                   2973:             $symb_name = $tail;
1.498     bisitz   2974:             $r->print(
                   2975:                 &Apache::loncommon::start_data_table_row()
                   2976:                .'<td>'
                   2977:                .'<label>'
1.463     bisitz   2978:             );
1.498     bisitz   2979:             # Only offer radio button for folders/maps which can be parameterized
                   2980:             if ($allmaps_inverted{$symb_name}) {
                   2981:                 $r->print(
                   2982:                     '<input type ="radio" name="pschp"'
                   2983:                    .' value="'.$allmaps_inverted{$symb_name}.'"'
                   2984:                 );
                   2985:                 $r->print(' checked="checked"') if ($allmaps_inverted{$symb_name} eq $pschp);
                   2986:                 $r->print('/>');
                   2987:             } else {
                   2988:                 $r->print($whitespace);
1.461     neumanie 2989:             }
1.498     bisitz   2990:             $r->print(
                   2991:                 $indent.$icon.'&nbsp;'
                   2992:                .$treeinfo->{$id}->{name}
                   2993:                .($$allmaps{$mapid}!~/^uploaded/?' ['.$$allmaps{$mapid}.']':'')
                   2994:                .'</label>'
                   2995:                .'</td>'
                   2996:                .&Apache::loncommon::end_data_table_row()
1.463     bisitz   2997:             );
1.461     neumanie 2998:         }
1.497     bisitz   2999: 
1.523     raeburn  3000:         $r->print(&Apache::loncommon::end_data_table().
                   3001:                   '<br style="line-height:2px;" />'.
                   3002:                   &Apache::loncommon::end_scrollbox());
1.209     www      3003:     }
                   3004: }
                   3005: 
1.563     damieng  3006: # Prints HTML to select the parameter level (resource, map/folder or course).
                   3007: # Used by table and overview modes.
                   3008: #
                   3009: # @param {Apache2::RequestRec} $r - the Apache request
                   3010: # @param {hash reference} $alllevs - all parameter levels, hash English title -> value
                   3011: # @param {string} $parmlev - selected level value (full|map|general), or ''
1.209     www      3012: sub levelmenu {
1.446     bisitz   3013:     my ($r,$alllevs,$parmlev)=@_;
                   3014: 
1.548     raeburn  3015:     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameter Level').
                   3016:                                                 &Apache::loncommon::help_open_topic('Course_Parameter_Levels')));
1.474     amueller 3017:     $r->print('<select id="parmlev" name="parmlev" onchange="showHide_courseContent()">');
1.548     raeburn  3018:     foreach my $lev (reverse(sort(keys(%{$alllevs})))) {
                   3019:         $r->print('<option value="'.$$alllevs{$lev}.'"');
                   3020:         if ($parmlev eq $$alllevs{$lev}) {
                   3021:             $r->print(' selected="selected"');
                   3022:         }
                   3023:         $r->print('>'.&mt($lev).'</option>');
1.208     www      3024:     }
1.446     bisitz   3025:     $r->print("</select>");
1.208     www      3026: }
                   3027: 
1.211     www      3028: 
1.563     damieng  3029: # Returns HTML to select a section (with a select HTML element).
                   3030: # Used by overview mode.
                   3031: #
                   3032: # @param {array reference} $selectedsections - list of selected section ids
                   3033: # @returns {string}
1.211     www      3034: sub sectionmenu {
1.553     raeburn  3035:     my ($selectedsections)=@_;
1.300     albertel 3036:     my %sectionhash = &Apache::loncommon::get_sections();
1.553     raeburn  3037:     return '' if (!%sectionhash);
1.300     albertel 3038: 
1.552     raeburn  3039:     my (@possibles,$disabled);
                   3040:     if ($env{'request.course.sec'} ne '') {
                   3041:         @possibles = ($env{'request.course.sec'});
                   3042:         $selectedsections = [$env{'request.course.sec'}];
                   3043:         $disabled = ' disabled="disabled"';
                   3044:     } else {
                   3045:         @possibles = ('all',sort(keys(%sectionhash)));
                   3046:     }
1.553     raeburn  3047:     my $output = '<select name="Section" multiple="multiple" size="8"'.$disabled.'>';
1.552     raeburn  3048:     foreach my $s (@possibles) {
1.553     raeburn  3049:         $output .= '    <option value="'.$s.'"';
                   3050:         if ((@{$selectedsections}) && (grep(/^\Q$s\E$/,@{$selectedsections}))) {  
                   3051:             $output .= ' selected="selected"';
1.473     amueller 3052:         }
1.553     raeburn  3053:         $output .= '>'."$s</option>\n";
1.300     albertel 3054:     }
1.553     raeburn  3055:     $output .= "</select>\n";
                   3056:     return $output;
1.269     raeburn  3057: }
                   3058: 
1.563     damieng  3059: # Returns HTML to select a group (with a select HTML element).
                   3060: # Used by overview mode.
                   3061: #
                   3062: # @param {array reference} $selectedgroups - list of selected group names
                   3063: # @returns {string}
1.269     raeburn  3064: sub groupmenu {
1.553     raeburn  3065:     my ($selectedgroups)=@_;
                   3066:     my %grouphash;
                   3067:     if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
                   3068:         %grouphash = &Apache::longroup::coursegroups();
                   3069:     } elsif ($env{'request.course.groups'} ne '') {
1.585     raeburn  3070:          map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
1.553     raeburn  3071:     }
                   3072:     return '' if (!%grouphash);
1.299     albertel 3073: 
1.553     raeburn  3074:     my $output = '<select name="Group" multiple="multiple" size="8">';
1.299     albertel 3075:     foreach my $group (sort(keys(%grouphash))) {
1.553     raeburn  3076:         $output .= '    <option value="'.$group.'"';
                   3077:         if ((@{$selectedgroups}) && (grep(/^\Q$group\E$/,\@{$selectedgroups}))) {
                   3078:             $output .=  ' selected="selected"';
1.473     amueller 3079:         }
1.553     raeburn  3080:         $output .= '>'."$group</option>\n";
1.211     www      3081:     }
1.553     raeburn  3082:     $output .= "</select>\n";
                   3083:     return $output;
1.211     www      3084: }
                   3085: 
1.563     damieng  3086: # Returns an array with the given parameter split by comma.
                   3087: # Used by assessparms (table mode).
                   3088: #
                   3089: # @param {string} $keyp - the string to split
                   3090: # @returns {Array<string>}
1.210     www      3091: sub keysplit {
                   3092:     my $keyp=shift;
                   3093:     return (split(/\,/,$keyp));
                   3094: }
                   3095: 
1.563     damieng  3096: # Returns the keys in $name, sorted using $keyorder.
                   3097: # Parameters are sorted by key, which means they are sorted by part first, then by name.
                   3098: # Used by assessparms (table mode) for resource level.
                   3099: #
                   3100: # @param {hash reference} $name - parameter key -> parameter name
                   3101: # @param {hash reference} $keyorder - hash parameter key -> appearance rank
                   3102: # @returns {Array<string>}
1.210     www      3103: sub keysinorder {
                   3104:     my ($name,$keyorder)=@_;
                   3105:     return sort {
1.560     damieng  3106:         $$keyorder{$a} <=> $$keyorder{$b};
1.548     raeburn  3107:     } (keys(%{$name}));
1.210     www      3108: }
                   3109: 
1.563     damieng  3110: # Returns the keys in $name, sorted using $keyorder to sort parameters by name first, then by part.
                   3111: # Used by assessparms (table mode) for map and general levels.
                   3112: #
                   3113: # @param {hash reference} $name - parameter key -> parameter name
                   3114: # @param {hash reference} $keyorder - hash parameter key -> appearance rank
                   3115: # @returns {Array<string>}
1.236     albertel 3116: sub keysinorder_bytype {
                   3117:     my ($name,$keyorder)=@_;
                   3118:     return sort {
1.563     damieng  3119:         my $ta=(split('_',$a))[-1]; # parameter name
1.560     damieng  3120:         my $tb=(split('_',$b))[-1];
                   3121:         if ($$keyorder{'parameter_0_'.$ta} == $$keyorder{'parameter_0_'.$tb}) {
                   3122:             return ($a cmp $b);
                   3123:         }
                   3124:         $$keyorder{'parameter_0_'.$ta} <=> $$keyorder{'parameter_0_'.$tb};
1.548     raeburn  3125:     } (keys(%{$name}));
1.236     albertel 3126: }
                   3127: 
1.563     damieng  3128: # Returns the keys in $name, sorted using $keyorder to sort parameters by name.
                   3129: # Used by defaultsetter (parameter settings default actions).
                   3130: #
                   3131: # @param {hash reference} $name - hash parameter name -> parameter title
                   3132: # @param {hash reference} $keyorder - hash parameter key -> appearance rank
                   3133: # @returns {Array<string>}
1.211     www      3134: sub keysindisplayorder {
                   3135:     my ($name,$keyorder)=@_;
                   3136:     return sort {
1.560     damieng  3137:         $$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b};
1.548     raeburn  3138:     } (keys(%{$name}));
1.211     www      3139: }
                   3140: 
1.563     damieng  3141: # Prints HTML with a choice to sort results by realm or student first.
                   3142: # Used by overview mode.
                   3143: #
                   3144: # @param {Apache2::RequestRec} $r - the Apache request
                   3145: # @param {string} $sortorder - realmstudent|studentrealm
1.608     raeburn  3146: # @param {string} $context - newoverview|overview
1.214     www      3147: sub sortmenu {
1.608     raeburn  3148:     my ($r,$sortorder,$context)=@_;
                   3149:     my %text;
                   3150:     if ($context eq 'newoverview') {
                   3151:         %text = &Apache::lonlocal::texthash (
                   3152:                    realmstudent => 'Sort by location in course first, then student (group/section)',
                   3153:                    studentrealm => 'Sort by student (group/section) first, then location in course',
                   3154:         );
                   3155:     } else {
                   3156:         %text = &Apache::lonlocal::texthash (
                   3157:                    realmstudent => 'Sort by realm first, then student (group/section)',
                   3158:                    studentrealm => 'Sort by student (group/section) first, then realm',
                   3159:         );
1.214     www      3160:     }
1.608     raeburn  3161:     my %sortchecked = (
                   3162:        realmstudent => ' checked="checked"',
                   3163:        studentrealm => '',
                   3164:     );
1.214     www      3165:     if ($sortorder eq 'studentrealm') {
1.608     raeburn  3166:         $sortchecked{'studentrealm'} = $sortchecked{'realmstudent'};
                   3167:         $sortchecked{'realmstudent'} = '';
                   3168:     }
                   3169:     foreach my $sorttype ('realmstudent','studentrealm') {
                   3170:         $r->print('<br /><label><input type="radio" name="sortorder" value="'.$sorttype.'"'.$sortchecked{$sorttype}.' />'.
                   3171:                   $text{$sorttype}.'</label>');
1.214     www      3172:     }
                   3173: }
                   3174: 
1.563     damieng  3175: # Returns a hash parameter key -> order (integer) giving the order for some parameters.
                   3176: #
                   3177: # @returns {hash}
1.211     www      3178: sub standardkeyorder {
                   3179:     return ('parameter_0_opendate' => 1,
1.473     amueller 3180:         'parameter_0_duedate' => 2,
                   3181:         'parameter_0_answerdate' => 3,
                   3182:         'parameter_0_interval' => 4,
                   3183:         'parameter_0_weight' => 5,
                   3184:         'parameter_0_maxtries' => 6,
                   3185:         'parameter_0_hinttries' => 7,
                   3186:         'parameter_0_contentopen' => 8,
                   3187:         'parameter_0_contentclose' => 9,
                   3188:         'parameter_0_type' => 10,
                   3189:         'parameter_0_problemstatus' => 11,
                   3190:         'parameter_0_hiddenresource' => 12,
                   3191:         'parameter_0_hiddenparts' => 13,
                   3192:         'parameter_0_display' => 14,
                   3193:         'parameter_0_ordered' => 15,
                   3194:         'parameter_0_tol' => 16,
                   3195:         'parameter_0_sig' => 17,
                   3196:         'parameter_0_turnoffunit' => 18,
1.521     raeburn  3197:         'parameter_0_discussend' => 19,
                   3198:         'parameter_0_discusshide' => 20,
                   3199:         'parameter_0_discussvote' => 21,
1.560     damieng  3200:         'parameter_0_printstartdate'  =>  22,
                   3201:         'parameter_0_printenddate' =>  23);
1.211     www      3202: }
                   3203: 
1.59      matthew  3204: 
1.560     damieng  3205: # Table mode UI.
1.563     damieng  3206: # If nothing is selected, prints HTML forms to select resources, parts, parameters, user, group and section.
                   3207: # Otherwise, prints the parameter table, with a link to change the selection unless a single resource is selected.
                   3208: #
                   3209: # Parameters used from the request:
                   3210: # action - handler action (see handler), usermenu is checking for value 'settable'
                   3211: # cgroup - selected group
                   3212: # command - 'set': direct access to table mode for a resource
                   3213: # csec - selected section
                   3214: # dis - set when the "Update Display" button was used, used only to discard command 'set'
                   3215: # hideparmsel - can be 'hidden' to hide the parameter selection div initially and display the "Change Parameter Selection" link instead (which displays the div)
                   3216: # id - student/employee ID
                   3217: # parmlev - selected level (full|map|general)
                   3218: # part - selected part (unused ?)
                   3219: # pres_marker - &&&-separated parameter identifiers, "resource id&part_parameter name&level"
                   3220: # pres_type - &&&-separated parameter types
                   3221: # pres_value - &&&-separated parameter values
                   3222: # prevvisit - '1' if the user has submitted the form before
                   3223: # pscat (multiple values) - selected parameter names
1.566     damieng  3224: # pschp - selected map pc, or 'all'
1.563     damieng  3225: # psprt (multiple values) - list of selected parameter parts
                   3226: # filter - part of or whole parameter name, to be filtered out when parameters are displayed (unused ?)
                   3227: # recent_* (* = parameter type) - recent values entered by the user for parameter types
                   3228: # symb - resource symb (when a single resource is selected)
                   3229: # udom - selected user domain
                   3230: # uname - selected user name
                   3231: # url - used only with command 'set', the resource url
                   3232: #
                   3233: # @param {Apache2::RequestRec} $r - the Apache request
1.568     raeburn  3234: # @param $parm_permission - ref to hash of permissions
                   3235: #                           if $parm_permission->{'edit'} is true, editing is allowed.
1.30      www      3236: sub assessparms {
1.1       www      3237: 
1.568     raeburn  3238:     my ($r,$parm_permission) = @_;
1.201     www      3239: 
1.512     foxr     3240: 
                   3241: # -------------------------------------------------------- Variable declaration
1.566     damieng  3242:     my @ids=(); # resource and map ids
                   3243:     my %symbp=(); # hash map pc or resource/map id -> map src.'___(all)' or resource symb
                   3244:     my %mapp=(); # hash map pc or resource/map id -> enclosing map src
                   3245:     my %typep=(); # hash resource/map id -> resource type (file extension)
                   3246:     my %keyp=(); # hash resource/map id -> comma-separated list of parameter keys
                   3247:     my %uris=(); # hash resource/map id -> resource src
                   3248:     my %maptitles=(); # hash map pc or src -> map title
                   3249:     my %allmaps=(); # hash map pc -> map src
1.582     raeburn  3250:     my %allmaps_inverted=(); # hash map src -> map pc
1.563     damieng  3251:     my %alllevs=(); # hash English level title -> value
                   3252: 
                   3253:     my $uname; # selected user name
                   3254:     my $udom; # selected user domain
                   3255:     my $uhome; # server with the user's files, or 'no_host'
                   3256:     my $csec; # selected section name
                   3257:     my $cgroup; # selected group name
                   3258:     my @usersgroups = (); # list of the user groups
1.582     raeburn  3259:     my $numreclinks = 0;
1.446     bisitz   3260: 
1.190     albertel 3261:     my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
1.187     www      3262: 
1.57      albertel 3263:     $alllevs{'Resource Level'}='full';
1.215     www      3264:     $alllevs{'Map/Folder Level'}='map';
1.57      albertel 3265:     $alllevs{'Course Level'}='general';
                   3266: 
1.563     damieng  3267:     my %allparms; # hash parameter name -> parameter title
                   3268:     my %allparts; # hash parameter part -> part title
1.512     foxr     3269: # ------------------------------------------------------------------------------
                   3270: 
1.210     www      3271: #
                   3272: # Order in which these parameters will be displayed
                   3273: #
1.211     www      3274:     my %keyorder=&standardkeyorder();
                   3275: 
1.512     foxr     3276: #    @ids=();
                   3277: #    %symbp=();       # These seem defined above already.
                   3278: #    %typep=();
1.43      albertel 3279: 
                   3280:     my $message='';
                   3281: 
1.190     albertel 3282:     $csec=$env{'form.csec'};
1.552     raeburn  3283:     if ($env{'request.course.sec'} ne '') {
                   3284:         $csec = $env{'request.course.sec'};    
                   3285:     }
                   3286: 
1.553     raeburn  3287: # Check group privs.
1.269     raeburn  3288:     $cgroup=$env{'form.cgroup'};
1.553     raeburn  3289:     my $noeditgrp; 
                   3290:     if ($cgroup ne '') {
                   3291:         unless (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
                   3292:             if (($env{'request.course.groups'} eq '') || 
1.585     raeburn  3293:                 (!grep(/^\Q$cgroup\E$/,split(/:/,$env{'request.course.groups'})))) {
1.553     raeburn  3294:                 $noeditgrp = 1;
                   3295:             }
                   3296:         }
                   3297:     }
1.188     www      3298: 
1.190     albertel 3299:     if      ($udom=$env{'form.udom'}) {
                   3300:     } elsif ($udom=$env{'request.role.domain'}) {
                   3301:     } elsif ($udom=$env{'user.domain'}) {
1.172     albertel 3302:     } else {
1.473     amueller 3303:         $udom=$r->dir_config('lonDefDomain');
1.172     albertel 3304:     }
1.468     amueller 3305:     
1.43      albertel 3306: 
1.134     albertel 3307:     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
1.190     albertel 3308:     my $pschp=$env{'form.pschp'};
1.506     www      3309: 
                   3310: 
1.134     albertel 3311:     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
1.516     www      3312:     if (!@psprt) { $psprt[0]='all'; }
1.506     www      3313:     if (($env{'form.part'}) && ($psprt[0] ne 'all')) { $psprt[0]=$env{'form.part'}; }
1.57      albertel 3314: 
1.43      albertel 3315:     my $pssymb='';
1.57      albertel 3316:     my $parmlev='';
1.446     bisitz   3317: 
1.190     albertel 3318:     unless ($env{'form.parmlev'}) {
1.57      albertel 3319:         $parmlev = 'map';
                   3320:     } else {
1.190     albertel 3321:         $parmlev = $env{'form.parmlev'};
1.57      albertel 3322:     }
1.26      www      3323: 
1.29      www      3324: # ----------------------------------------------- Was this started from grades?
                   3325: 
1.560     damieng  3326:     if (($env{'form.command'} eq 'set') && ($env{'form.url'}) &&
                   3327:             (!$env{'form.dis'})) {
1.473     amueller 3328:         my $url=$env{'form.url'};
                   3329:         $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
                   3330:         $pssymb=&Apache::lonnet::symbread($url);
                   3331:         if (!@pscat) { @pscat=('all'); }
                   3332:         $pschp='';
1.57      albertel 3333:         $parmlev = 'full';
1.190     albertel 3334:     } elsif ($env{'form.symb'}) {
1.473     amueller 3335:         $pssymb=$env{'form.symb'};
                   3336:         if (!@pscat) { @pscat=('all'); }
                   3337:         $pschp='';
1.57      albertel 3338:         $parmlev = 'full';
1.43      albertel 3339:     } else {
1.473     amueller 3340:         $env{'form.url'}='';
1.43      albertel 3341:     }
                   3342: 
1.190     albertel 3343:     my $id=$env{'form.id'};
1.43      albertel 3344:     if (($id) && ($udom)) {
1.555     raeburn  3345:         $uname=(&Apache::lonnet::idget($udom,[$id],'ids'))[1];
1.473     amueller 3346:         if ($uname) {
                   3347:             $id='';
                   3348:         } else {
                   3349:             $message=
1.540     bisitz   3350:                 '<p class="LC_warning">'.
                   3351:                 &mt('Unknown ID [_1] at domain [_2]',
                   3352:                     "'".$id."'","'".$udom."'").
                   3353:                 '</p>';
1.473     amueller 3354:         }
1.43      albertel 3355:     } else {
1.473     amueller 3356:         $uname=$env{'form.uname'};
1.43      albertel 3357:     }
                   3358:     unless ($udom) { $uname=''; }
                   3359:     $uhome='';
                   3360:     if ($uname) {
1.473     amueller 3361:         $uhome=&Apache::lonnet::homeserver($uname,$udom);
1.43      albertel 3362:         if ($uhome eq 'no_host') {
1.473     amueller 3363:             $message=
1.540     bisitz   3364:                 '<p class="LC_warning">'.
                   3365:                 &mt('Unknown user [_1] at domain [_2]',
                   3366:                     "'".$uname."'","'".$udom."'").
                   3367:                 '</p>';
1.473     amueller 3368:             $uname='';
1.12      www      3369:         } else {
1.473     amueller 3370:             $csec=&Apache::lonnet::getsection($udom,$uname,
                   3371:                           $env{'request.course.id'});
                   3372:             if ($csec eq '-1') {
1.596     raeburn  3373:                 my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
                   3374:                 if ($env{'form.userroles'} eq 'any') {
                   3375:                     if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
                   3376:                         $csec = $env{'request.course.sec'};
                   3377:                         $message = '<span class="LC_info">';
                   3378:                         if ($crstype eq 'Community') {
                   3379:                             $message .= &mt('User [_1] at domain [_2] has a non-member role in this community',
                   3380:                                             $uname,$udom);
                   3381:                         } else {
                   3382:                             $message .= &mt('User [_1] at domain [_2] has a non-student role in this course',
                   3383:                                             $uname,$udom);
                   3384:                         }
                   3385:                         $message .= '</span>';
                   3386:                     } else {
                   3387:                         my @possroles = ('in','ep','ta','cr');
                   3388:                         if ($crstype eq 'Community') {
                   3389:                             unshift(@possroles,'co');
                   3390:                         } else {
                   3391:                             unshift(@possroles,'cc');
                   3392:                         }
                   3393:                         my %not_student_roles =
                   3394:                             &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'],
                   3395:                                                           \@possroles,[$udom],1,1);
                   3396:                         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3397:                         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   3398:                         my %sections_by_role;
                   3399:                         foreach my $role (keys(%not_student_roles)) {
                   3400:                             if ($role =~ /^\Q$cnum:$cdom:\E([^:]+):(|[^:]+)$/) {
                   3401:                                 my ($rolename,$sec) = ($1,$2);
                   3402:                                 if ($rolename =~ m{^cr/}) {
                   3403:                                     $rolename = 'cr';
                   3404:                                 }
                   3405:                                 push(@{$sections_by_role{$rolename}},$sec);
                   3406:                             }
                   3407:                         }
                   3408:                         my $numroles = scalar(keys(%sections_by_role));
                   3409:                         if ($numroles) {
                   3410:                             foreach my $role (@possroles) {
                   3411:                                 if (ref($sections_by_role{$role}) eq 'ARRAY') {
                   3412:                                     my @secs = sort { $a <=> $b } @{$sections_by_role{$role}};
                   3413:                                     $csec = $secs[0];
                   3414:                                     last;
                   3415:                                 }
                   3416:                             }
                   3417:                         }
                   3418:                         if ($csec eq '-1') {
                   3419:                             $message = '<span class="LC_warning">';
                   3420:                             if ($crstype eq 'Community') {
                   3421:                                 $message .= &mt('User [_1] at domain [_2] does not have a role in this community',
                   3422:                                                 $uname,$udom);
                   3423:                             } else {
                   3424:                                 $message .= &mt('User [_1] at domain [_2] does not have a role in this course',
                   3425:                                                 $uname,$udom);
                   3426:                             }
                   3427:                             $message .= '</span>';
                   3428:                             $uname='';
                   3429:                             if ($env{'request.course.sec'} ne '') {
                   3430:                                 $csec=$env{'request.course.sec'};
                   3431:                             } else {
                   3432:                                 $csec=$env{'form.csec'};
                   3433:                             }
                   3434:                             $cgroup=$env{'form.cgroup'};
                   3435:                         } else {
                   3436:                             $message = '<span class="LC_info">';
                   3437:                             if ($crstype eq 'Community') {
                   3438:                                 $message .= &mt('User [_1] at domain [_2] has a non-member role in this community',
                   3439:                                          $uname,$udom);
                   3440:                             } else {
                   3441:                                 $message .= &mt('User [_1] at domain [_2] has a non-student role in this course',
                   3442:                                                 $uname,$udom);
                   3443:                             }
                   3444:                             $message .= '</span>';
                   3445:                         }
                   3446:                     }
1.594     raeburn  3447:                 } else {
1.596     raeburn  3448:                     $message = '<span class="LC_warning">';
                   3449:                     if ($crstype eq 'Community') {
                   3450:                         $message .= &mt('User [_1] at domain [_2] does not have a member role in this community',
                   3451:                                          $uname,$udom);
                   3452:                     } else {
                   3453:                          $message .= &mt('User [_1] at domain [_2] does not have a student role in this course',
                   3454:                                          $uname,$udom);
                   3455:                     }
                   3456:                     $message .= '</span>';
                   3457:                     $uname='';
                   3458:                     if ($env{'request.course.sec'} ne '') {
                   3459:                         $csec=$env{'request.course.sec'};
                   3460:                     } else {
                   3461:                         $csec=$env{'form.csec'};
                   3462:                     }
                   3463:                     $cgroup=$env{'form.cgroup'};
1.594     raeburn  3464:                 }
                   3465:             } elsif ($env{'request.course.sec'} ne '') {
                   3466:                 if ($csec ne $env{'request.course.sec'}) {
1.596     raeburn  3467:                     $message='<span class="LC_warning">'.
1.594     raeburn  3468:                               &mt("User '[_1]' at domain '[_2]' not in section '[_3]'",
                   3469:                                   $uname,$udom,$env{'request.course.sec'}).
                   3470:                               '</span>';
                   3471:                     $uname='';
                   3472:                     $csec=$env{'request.course.sec'};
                   3473:                 }
1.269     raeburn  3474:                 $cgroup=$env{'form.cgroup'};
1.596     raeburn  3475:             }
                   3476:             if ($uname ne '') {
1.473     amueller 3477:                 my %name=&Apache::lonnet::userenvironment($udom,$uname,
                   3478:                   ('firstname','middlename','lastname','generation','id'));
1.596     raeburn  3479:                 $message .= "\n<p>\n".&mt('Full Name').': '
                   3480:                             .$name{'firstname'}.' '.$name{'middlename'}.' '
                   3481:                             .$name{'lastname'}.' '.$name{'generation'}
                   3482:                             ."<br />\n".&mt('Student/Employee ID').': '.$name{'id'}.'</p>';
                   3483:                 @usersgroups = &Apache::lonnet::get_users_groups(
                   3484:                                    $udom,$uname,$env{'request.course.id'});
                   3485:                 if (@usersgroups > 0) {
                   3486:                     unless (grep(/^\Q$cgroup\E$/,@usersgroups)) {
                   3487:                         $cgroup = $usersgroups[0];
                   3488:                     }
                   3489:                 } else {
                   3490:                     $cgroup = '';
1.297     raeburn  3491:                 }
1.269     raeburn  3492:             }
1.12      www      3493:         }
1.43      albertel 3494:     }
1.2       www      3495: 
1.43      albertel 3496:     unless ($csec) { $csec=''; }
1.269     raeburn  3497:     unless ($cgroup) { $cgroup=''; }
1.12      www      3498: 
1.14      www      3499: # --------------------------------------------------------- Get all assessments
1.446     bisitz   3500:     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
1.473     amueller 3501:                 \%mapp, \%symbp,\%maptitles,\%uris,
1.603     raeburn  3502:                 \%keyorder,undef,$pssymb);
1.63      bowersj2 3503: 
1.582     raeburn  3504:     %allmaps_inverted = reverse(%allmaps);
                   3505: 
1.57      albertel 3506:     $mapp{'0.0'} = '';
                   3507:     $symbp{'0.0'} = '';
1.99      albertel 3508: 
1.14      www      3509: # ---------------------------------------------------------- Anything to store?
1.568     raeburn  3510:     if ($env{'form.pres_marker'} && $parm_permission->{'edit'}) {
1.205     www      3511:         my @markers=split(/\&\&\&/,$env{'form.pres_marker'});
                   3512:         my @values=split(/\&\&\&/,$env{'form.pres_value'});
                   3513:         my @types=split(/\&\&\&/,$env{'form.pres_type'});
1.500     raeburn  3514:         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   3515:         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
1.504     raeburn  3516:         my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
                   3517:         my ($got_chostname,$chostname,$cmajor,$cminor);
                   3518:         my $totalstored = 0;
1.605     raeburn  3519:         my $totalskippeduser = 0;
1.546     raeburn  3520:         my $now = time;
1.473     amueller 3521:         for (my $i=0;$i<=$#markers;$i++) {
1.557     raeburn  3522:             my ($needsrelease,$needsnewer,$name,$namematch);
1.556     raeburn  3523:             if (($env{'request.course.sec'} ne '') && ($markers[$i] =~ /\&(9|10|11|12)$/)) {
1.552     raeburn  3524:                 next if ($csec ne $env{'request.course.sec'});
                   3525:             }
1.556     raeburn  3526:             if ($markers[$i] =~ /\&(8|7|6|5)$/) {
1.553     raeburn  3527:                 next if ($noeditgrp);
1.605     raeburn  3528:             } elsif ($markers[$i] =~ /\&(4|3|2|1)$/) {
                   3529:                 if ($uname eq '') {
                   3530:                     $totalskippeduser ++;
                   3531:                     next;
                   3532:                 }
1.557     raeburn  3533:             }
                   3534:             if ($markers[$i] =~ /\&(17|11|7|3)$/) {
                   3535:                 $namematch = 'maplevelrecurse';
                   3536:             }
1.556     raeburn  3537:             if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3|4)$/) {
1.437     raeburn  3538:                 my (@ok_slots,@fail_slots,@del_slots);
                   3539:                 my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
                   3540:                 my ($level,@all) =
                   3541:                     &parmval_by_symb('0.availablestudent',$pssymb,'',$uname,$udom,
                   3542:                                      $csec,$cgroup,$courseopt);
                   3543:                 foreach my $slot_name (split(/:/,$values[$i])) {
                   3544:                     next if ($slot_name eq '');
                   3545:                     if (&update_slots($slot_name,$cdom,$cnum,$pssymb,$uname,$udom) eq 'ok') {
                   3546:                         push(@ok_slots,$slot_name);
                   3547: 
                   3548:                     } else {
                   3549:                         push(@fail_slots,$slot_name);
                   3550:                     }
                   3551:                 }
                   3552:                 if (@ok_slots) {
                   3553:                     $values[$i] = join(':',@ok_slots);
                   3554:                 } else {
                   3555:                     $values[$i] = '';
                   3556:                 }
                   3557:                 if ($all[$level] ne '') {
                   3558:                     my @existing = split(/:/,$all[$level]);
                   3559:                     foreach my $slot_name (@existing) {
                   3560:                         if (!grep(/^\Q$slot_name\E$/,split(/:/,$values[$i]))) {
                   3561:                             if (&delete_slots($slot_name,$cdom,$cnum,$uname,$udom,$pssymb) eq 'ok') {
                   3562:                                 push(@del_slots,$slot_name);
                   3563:                             }
                   3564:                         }
                   3565:                     }
                   3566:                 }
1.554     raeburn  3567:             } elsif ($markers[$i] =~ /_(type|lenient|retrypartial|discussvote|examcode|printstartdate|printenddate|acc|interval)\&\d+$/) {
1.514     raeburn  3568:                 $name = $1;
1.533     raeburn  3569:                 my $val = $values[$i];
1.549     raeburn  3570:                 my $valmatch = '';
1.533     raeburn  3571:                 if ($name eq 'examcode') {
1.544     raeburn  3572:                     if (&Apache::lonnet::validCODE($values[$i])) {
                   3573:                         $val = 'valid';
                   3574:                     }
1.546     raeburn  3575:                 } elsif ($name eq 'printstartdate') {
                   3576:                     if ($val =~ /^\d+$/) {
                   3577:                         if ($val > $now) {
                   3578:                             $val = 'future';
                   3579:                         }
                   3580:                     } 
                   3581:                 } elsif ($name eq 'printenddate') {
                   3582:                     if ($val =~ /^\d+$/) {
                   3583:                         if ($val < $now) {
                   3584:                             $val = 'past';
                   3585:                         }
                   3586:                     }
1.549     raeburn  3587:                 } elsif (($name eq 'lenient') || ($name eq 'acc')) {
                   3588:                     my $stringtype = &get_stringtype($name);
                   3589:                     my $stringmatch = &standard_string_matches($stringtype);
                   3590:                     if (ref($stringmatch) eq 'ARRAY') {
                   3591:                         foreach my $item (@{$stringmatch}) {
                   3592:                             if (ref($item) eq 'ARRAY') {
                   3593:                                 my ($regexpname,$pattern) = @{$item};
                   3594:                                 if ($pattern ne '') {
                   3595:                                     if ($val =~ /$pattern/) {
                   3596:                                         $valmatch = $regexpname;
                   3597:                                         $val = '';
                   3598:                                         last;
                   3599:                                     }
                   3600:                                 }
                   3601:                             }
                   3602:                         }
                   3603:                     }
1.554     raeburn  3604:                 } elsif ($name eq 'interval') {
                   3605:                     my $intervaltype = &get_intervaltype($name);
                   3606:                     my $intervalmatch = &standard_interval_matches($intervaltype);
                   3607:                     if (ref($intervalmatch) eq 'ARRAY') {
                   3608:                         foreach my $item (@{$intervalmatch}) {
                   3609:                             if (ref($item) eq 'ARRAY') {
                   3610:                                 my ($regexpname,$pattern) = @{$item};
                   3611:                                 if ($pattern ne '') {
                   3612:                                     if ($val =~ /$pattern/) {
                   3613:                                         $valmatch = $regexpname;
                   3614:                                         $val = '';
                   3615:                                         last;
                   3616:                                     }
                   3617:                                 }
                   3618:                             }
                   3619:                         }
                   3620:                     }
1.533     raeburn  3621:                 }
1.504     raeburn  3622:                 $needsrelease =
1.557     raeburn  3623:                     $Apache::lonnet::needsrelease{"parameter:$name:$val:$valmatch:"};
1.504     raeburn  3624:                 if ($needsrelease) {
1.505     raeburn  3625:                     unless ($got_chostname) {
1.514     raeburn  3626:                         ($chostname,$cmajor,$cminor) = &parameter_release_vars();
1.504     raeburn  3627:                         $got_chostname = 1;
1.546     raeburn  3628:                     } 
1.557     raeburn  3629:                     $needsnewer = &parameter_releasecheck($name,$val,$valmatch,undef,
1.514     raeburn  3630:                                                           $needsrelease,
                   3631:                                                           $cmajor,$cminor);
1.500     raeburn  3632:                 }
1.437     raeburn  3633:             }
1.504     raeburn  3634:             if ($needsnewer) {
1.557     raeburn  3635:                 undef($namematch);
                   3636:             } else {
                   3637:                 my $currneeded;
                   3638:                 if ($needsrelease) {
                   3639:                     $currneeded = $needsrelease;
                   3640:                 }
                   3641:                 if ($namematch) {
                   3642:                     $needsrelease =
                   3643:                         $Apache::lonnet::needsrelease{"parameter::::$namematch"};
                   3644:                     if (($needsrelease) && (($currneeded eq '') || ($needsrelease < $currneeded))) {
                   3645:                         unless ($got_chostname) {
                   3646:                             ($chostname,$cmajor,$cminor) = &parameter_release_vars();
                   3647:                             $got_chostname = 1;
                   3648:                         }
                   3649:                         $needsnewer = &parameter_releasecheck(undef,undef,undef,$namematch,
                   3650:                                                               $needsrelease,
                   3651:                                                               $cmajor,$cminor);
                   3652:                     } else {
                   3653:                         undef($namematch);
                   3654:                     }
                   3655:                 }
                   3656:             }
                   3657:             if ($needsnewer) {
                   3658:                 $message .= &oldversion_warning($name,$namematch,$values[$i],$chostname,$cmajor,
1.504     raeburn  3659:                                                 $cminor,$needsrelease);
                   3660:             } else {
                   3661:                 $message.=&storeparm(split(/\&/,$markers[$i]),
                   3662:                                      $values[$i],
                   3663:                                      $types[$i],
                   3664:                                      $uname,$udom,$csec,$cgroup);
                   3665:                 $totalstored ++;
                   3666:             }
1.473     amueller 3667:         }
1.68      www      3668: # ---------------------------------------------------------------- Done storing
1.504     raeburn  3669:         if ($totalstored) {
                   3670:             $message.='<p class="LC_warning">'
1.605     raeburn  3671:                      .&mt('Changes for [quant,_1,parameter] saved.',$totalstored)
                   3672:                      .'<br />'
1.504     raeburn  3673:                      .&mt('Changes can take up to 10 minutes before being active for all students.')
                   3674:                      .&Apache::loncommon::help_open_topic('Caching')
                   3675:                      .'</p>';
1.605     raeburn  3676:         } else {
                   3677:             $message.='<p class="LC_info">'.&mt('No parameter changes saved.').'</p>';
                   3678:         }
                   3679:         if ($totalskippeduser) {
                   3680:             $message .= '<p class="LC_warning">';
                   3681:             if ($uhome eq 'no_host') {
                   3682:                 $message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the username or ID was invalid.',
                   3683:                                 $totalskippeduser);
                   3684:             } elsif ($env{'form.userroles'} eq 'any') {
                   3685:                 $message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the user does not have a course role.',
                   3686:                                 $totalskippeduser);
                   3687:             } else {
                   3688:                 $message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the user is not a student.',
                   3689:                                 $totalskippeduser);
                   3690:             }
                   3691:             $message .= '</p>';
1.504     raeburn  3692:         }
1.68      www      3693:     }
1.584     raeburn  3694: 
1.57      albertel 3695: #----------------------------------------------- if all selected, fill in array
1.563     damieng  3696:     if ($pscat[0] eq "all") {
                   3697:         @pscat = (keys(%allparms));
                   3698:     }
                   3699:     if (!@pscat) {
                   3700:         @pscat=('duedate','opendate','answerdate','weight','maxtries','type','problemstatus')
                   3701:     };
                   3702:     if ($psprt[0] eq "all" || !@psprt) {
                   3703:         @psprt = (keys(%allparts));
                   3704:     }
1.2       www      3705: # ------------------------------------------------------------------ Start page
1.63      bowersj2 3706: 
1.531     raeburn  3707:     my $crstype = &Apache::loncommon::course_type();
                   3708:     &startpage($r,$pssymb,$crstype);
1.57      albertel 3709: 
1.548     raeburn  3710:     foreach my $item ('tolerance','date_default','date_start','date_end',
1.589     raeburn  3711:             'date_interval','int','float','string','string_lenient',
                   3712:             'string_examcode','string_deeplink','string_discussvote',
                   3713:             'string_useslots','string_problemstatus','string_ip',
                   3714:             'string_questiontype') {
1.473     amueller 3715:         $r->print('<input type="hidden" value="'.
1.563     damieng  3716:             &HTML::Entities::encode($env{'form.recent_'.$item},'"&<>').
                   3717:             '" name="recent_'.$item.'" />');
1.44      albertel 3718:     }
1.446     bisitz   3719: 
1.459     bisitz   3720:     # ----- Start Parameter Selection
                   3721: 
1.606     raeburn  3722:     # Hide parm selection and possibly table?
                   3723:     my ($tablejs,$tabledivsty);
                   3724:     if (((($env{'form.uname'} ne '') || ($env{'form.id'} ne '')) && ($uname eq '')) &&
                   3725:         ($env{'form.dis'}) && ($pssymb eq '')) {
                   3726:         $tablejs = 'document.getElementById('."'parmtable'".').style.display = "";';
                   3727:         $tabledivsty = ' style="display:none"';
                   3728:     }
1.459     bisitz   3729:     $r->print(<<ENDPARMSELSCRIPT);
                   3730: <script type="text/javascript">
                   3731: // <![CDATA[
                   3732: function parmsel_show() {
1.562     damieng  3733:     document.getElementById('parmsel').style.display = "";
                   3734:     document.getElementById('parmsellink').style.display = "none";
1.606     raeburn  3735:     $tablejs
1.459     bisitz   3736: }
                   3737: // ]]>
                   3738: </script>
                   3739: ENDPARMSELSCRIPT
1.474     amueller 3740:     
1.445     neumanie 3741:     if (!$pssymb) {
1.563     damieng  3742:         # No single resource selected, print forms to select things (hidden after first selection)
1.486     www      3743:         my $parmselhiddenstyle=' style="display:none"';
                   3744:         if($env{'form.hideparmsel'} eq 'hidden') {
                   3745:            $r->print('<div id="parmsel"'.$parmselhiddenstyle.'>');
                   3746:         } else  {
                   3747:            $r->print('<div id="parmsel">');
                   3748:         }
                   3749: 
1.491     bisitz   3750:         # Step 1
1.523     raeburn  3751:         $r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification'),'parmstep1'));
                   3752:         $r->print('
1.474     amueller 3753: <script type="text/javascript">
1.523     raeburn  3754: // <![CDATA['.
                   3755:                  &showhide_js().'
1.474     amueller 3756: // ]]>
                   3757: </script>
1.523     raeburn  3758: ');
                   3759:         $r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
1.209     www      3760:         &levelmenu($r,\%alllevs,$parmlev);
1.491     bisitz   3761:         $r->print(&Apache::lonhtmlcommon::row_closure());
1.610     raeburn  3762:         &mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp,$parmlev);
1.491     bisitz   3763:         $r->print(&Apache::lonhtmlcommon::row_closure());
                   3764:         $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
                   3765:         &partmenu($r,\%allparts,\@psprt);
1.474     amueller 3766:         $r->print(&Apache::lonhtmlcommon::row_closure(1));
                   3767:         $r->print(&Apache::lonhtmlcommon::end_pick_box());
1.491     bisitz   3768: 
                   3769:         # Step 2
1.523     raeburn  3770:         $r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification'),'parmstep2'));
1.581     raeburn  3771:         &displaymenu($r,\%allparms,\@pscat,\%keyorder,'parmmenuscroll');
1.491     bisitz   3772: 
                   3773:         # Step 3
1.523     raeburn  3774:         $r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)'),'parmstep3'));
1.486     www      3775:         $r->print(&Apache::lonhtmlcommon::start_pick_box());
1.553     raeburn  3776:         &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups,$pssymb);
1.486     www      3777:         $r->print(&Apache::lonhtmlcommon::row_closure(1));
                   3778:         $r->print(&Apache::lonhtmlcommon::end_pick_box());
1.491     bisitz   3779: 
                   3780:         # Update Display Button
1.486     www      3781:         $r->print('<p>'
                   3782:              .'<input type="submit" name="dis"'
1.511     www      3783:              .' value="'.&mt('Update Display').'" />'
1.486     www      3784:              .'<input type="hidden" name="hideparmsel" value="hidden" />'
                   3785:              .'</p>');
                   3786:         $r->print('</div>');
1.491     bisitz   3787: 
1.486     www      3788:         # Offer link to display parameter selection again
                   3789:         $r->print('<p id="parmsellink"');
                   3790:         if ($env{'form.hideparmsel'} ne 'hidden') {
                   3791:            $r->print($parmselhiddenstyle);
                   3792:         }
                   3793:         $r->print('>'
                   3794:              .'<a href="javascript:parmsel_show()">'
                   3795:              .&mt('Change Parameter Selection')
                   3796:              .'</a>'
                   3797:              .'</p>');
1.44      albertel 3798:     } else {
1.478     amueller 3799:         # parameter screen for a single resource. 
1.486     www      3800:         my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);
1.473     amueller 3801:         my $title = &Apache::lonnet::gettitle($pssymb);
1.501     bisitz   3802:         $r->print(&mt('Specific Resource: [_1] ([_2])',
                   3803:                          $title,'<span class="LC_filename">'.$resource.'</span>').
1.472     amueller 3804:                 '<input type="hidden" value="'.$pssymb.'" name="symb" />'.
1.486     www      3805:                   '<br />');
                   3806:         $r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));
                   3807:         $r->print(&Apache::lonhtmlcommon::start_pick_box());
1.553     raeburn  3808:         &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups,$pssymb);
1.486     www      3809:         $r->print(&Apache::lonhtmlcommon::row_closure(1));
                   3810:         $r->print(&Apache::lonhtmlcommon::end_pick_box());
                   3811:         $r->print('<p>'
1.459     bisitz   3812:              .'<input type="submit" name="dis"'
1.511     www      3813:              .' value="'.&mt('Update Display').'" />'
1.459     bisitz   3814:              .'<input type="hidden" name="hideparmsel" value="hidden" />'
1.486     www      3815:              .'</p>');
1.459     bisitz   3816:     }
1.478     amueller 3817:     
1.486     www      3818:     # ----- End Parameter Selection
1.57      albertel 3819: 
1.459     bisitz   3820:     # Display Messages
                   3821:     $r->print('<div>'.$message.'</div>');
1.210     www      3822: 
1.57      albertel 3823: 
                   3824:     my @temp_pscat;
                   3825:     map {
                   3826:         my $cat = $_;
                   3827:         push(@temp_pscat, map { $_.'.'.$cat } @psprt);
                   3828:     } @pscat;
                   3829: 
                   3830:     @pscat = @temp_pscat;
                   3831: 
1.548     raeburn  3832: 
1.209     www      3833:     if (($env{'form.prevvisit'}) || ($pschp) || ($pssymb)) {
1.10      www      3834: # ----------------------------------------------------------------- Start Table
1.57      albertel 3835:         my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;
1.190     albertel 3836:         my $csuname=$env{'user.name'};
                   3837:         my $csudom=$env{'user.domain'};
1.568     raeburn  3838:         my $readonly = 1;
                   3839:         if ($parm_permission->{'edit'}) {
                   3840:             undef($readonly); 
                   3841:         }
1.606     raeburn  3842:         $r->print('<div id="parmtable"'.$tabledivsty.'>');
1.57      albertel 3843: 
1.203     www      3844:         if ($parmlev eq 'full') {
1.506     www      3845: #
                   3846: # This produces the cascading table output of parameters
                   3847: #
1.578     raeburn  3848:             my $coursespan=$csec?8:5;
                   3849:             my $userspan=3;
1.560     damieng  3850:             if ($cgroup ne '') {
1.578     raeburn  3851:                 $coursespan += 3;
1.560     damieng  3852:             }
1.473     amueller 3853: 
1.560     damieng  3854:             $r->print(&Apache::loncommon::start_data_table());
                   3855:             #
                   3856:             # This produces the headers
                   3857:             #
                   3858:             $r->print('<tr><td colspan="5"></td>');
                   3859:             $r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');
                   3860:             if ($uname) {
1.473     amueller 3861:                 if (@usersgroups > 1) {
1.560     damieng  3862:                     $userspan ++;
                   3863:                 }
                   3864:                 $r->print('<th colspan="'.$userspan.'" rowspan="2">');
                   3865:                 $r->print(&mt('User [_1] at Domain [_2]',"'".$uname."'","'".$udom."'").'</th>');
                   3866:             }
                   3867:             my %lt=&Apache::lonlocal::texthash(
1.473     amueller 3868:                 'pie'    => "Parameter in Effect",
                   3869:                 'csv'    => "Current Session Value",
1.472     amueller 3870:                 'rl'     => "Resource Level",
1.473     amueller 3871:                 'ic'     => 'in Course',
                   3872:                 'aut'    => "Assessment URL and Title",
                   3873:                 'type'   => 'Type',
                   3874:                 'emof'   => "Enclosing Map or Folder",
                   3875:                 'part'   => 'Part',
1.472     amueller 3876:                 'pn'     => 'Parameter Name',
1.473     amueller 3877:                 'def'    => 'default',
                   3878:                 'femof'  => 'from Enclosing Map or Folder',
                   3879:                 'gen'    => 'general',
                   3880:                 'foremf' => 'for Enclosing Map or Folder',
                   3881:                 'fr'     => 'for Resource'
                   3882:             );
1.560     damieng  3883:             $r->print(<<ENDTABLETWO);
1.419     bisitz   3884: <th rowspan="3">$lt{'pie'}</th>
1.501     bisitz   3885: <th rowspan="3">$lt{'csv'}<br />($csuname:$csudom)</th>
1.578     raeburn  3886: </tr><tr><td colspan="5"></td><th colspan="2">$lt{'ic'}</th><th colspan="2">$lt{'rl'}</th>
1.419     bisitz   3887: <th colspan="1">$lt{'ic'}</th>
1.182     albertel 3888: 
1.10      www      3889: ENDTABLETWO
1.560     damieng  3890:             if ($csec) {
1.578     raeburn  3891:                 $r->print('<th colspan="3">'.
1.560     damieng  3892:                 &mt("in Section")." $csec</th>");
                   3893:             }
                   3894:             if ($cgroup) {
1.578     raeburn  3895:                 $r->print('<th colspan="3">'.
1.472     amueller 3896:                 &mt("in Group")." $cgroup</th>");
1.560     damieng  3897:             }
                   3898:             $r->print(<<ENDTABLEHEADFOUR);
1.133     www      3899: </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
                   3900: <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
1.578     raeburn  3901: <th>$lt{'gen'}</th><th>$lt{'foremf'}</th>
1.192     albertel 3902: <th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>
1.10      www      3903: ENDTABLEHEADFOUR
1.57      albertel 3904: 
1.560     damieng  3905:             if ($csec) {
1.578     raeburn  3906:                 $r->print('<th>'.$lt{'gen'}.'</th><th>'.$lt{'foremf'}.'</th><th>'.$lt{'fr'}.'</th>');
1.560     damieng  3907:             }
1.473     amueller 3908: 
1.560     damieng  3909:             if ($cgroup) {
1.578     raeburn  3910:                 $r->print('<th>'.$lt{'gen'}.'</th><th>'.$lt{'foremf'}.'</th><th>'.$lt{'fr'}.'</th>');
1.560     damieng  3911:             }
                   3912: 
                   3913:             if ($uname) {
                   3914:                 if (@usersgroups > 1) {
                   3915:                     $r->print('<th>'.&mt('Control by other group?').'</th>');
                   3916:                 }
1.578     raeburn  3917:                 $r->print('<th>'.$lt{'gen'}.'</th><th>'.$lt{'foremf'}.'</th><th>'.$lt{'fr'}.'</th>');
1.560     damieng  3918:             }
                   3919: 
                   3920:             $r->print('</tr>');
1.506     www      3921: #
                   3922: # Done with the headers
                   3923: # 
1.560     damieng  3924:             my $defbgone='';
                   3925:             my $defbgtwo='';
                   3926:             my $defbgthree = '';
1.57      albertel 3927: 
1.560     damieng  3928:             foreach my $rid (@ids) {
1.57      albertel 3929: 
                   3930:                 my ($inmapid)=($rid=~/\.(\d+)$/);
1.446     bisitz   3931:                 if ((!$pssymb &&
1.560     damieng  3932:                         (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))
                   3933:                         ||
                   3934:                         ($pssymb && $pssymb eq $symbp{$rid})) {
1.4       www      3935: # ------------------------------------------------------ Entry for one resource
1.473     amueller 3936:                     if ($defbgone eq '#E0E099') {
                   3937:                         $defbgone='#E0E0DD';
1.57      albertel 3938:                     } else {
1.419     bisitz   3939:                         $defbgone='#E0E099';
1.57      albertel 3940:                     }
1.419     bisitz   3941:                     if ($defbgtwo eq '#FFFF99') {
1.473     amueller 3942:                         $defbgtwo='#FFFFDD';
1.57      albertel 3943:                     } else {
1.473     amueller 3944:                         $defbgtwo='#FFFF99';
1.57      albertel 3945:                     }
1.419     bisitz   3946:                     if ($defbgthree eq '#FFBB99') {
                   3947:                         $defbgthree='#FFBBDD';
1.269     raeburn  3948:                     } else {
1.419     bisitz   3949:                         $defbgthree='#FFBB99';
1.269     raeburn  3950:                     }
                   3951: 
1.57      albertel 3952:                     my $thistitle='';
                   3953:                     my %name=   ();
                   3954:                     undef %name;
                   3955:                     my %part=   ();
                   3956:                     my %display=();
                   3957:                     my %type=   ();
                   3958:                     my %default=();
1.196     www      3959:                     my $uri=&Apache::lonnet::declutter($uris{$rid});
1.584     raeburn  3960:                     my $toolsymb;
                   3961:                     if ($uri =~ /ext\.tool$/) {
                   3962:                         $toolsymb = $symbp{$rid};
                   3963:                     }
1.57      albertel 3964: 
1.506     www      3965:                     my $filter=$env{'form.filter'};
1.548     raeburn  3966:                     foreach my $tempkeyp (&keysplit($keyp{$rid})) {
1.57      albertel 3967:                         if (grep $_ eq $tempkeyp, @catmarker) {
1.584     raeburn  3968:                             my $parmname=&Apache::lonnet::metadata($uri,$tempkeyp.'.name',$toolsymb);
1.560     damieng  3969:     # We may only want certain parameters listed
                   3970:                             if ($filter) {
                   3971:                                 unless ($filter=~/\Q$parmname\E/) { next; }
                   3972:                             }
                   3973:                             $name{$tempkeyp}=$parmname;
1.584     raeburn  3974:                             $part{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.part',$toolsymb);
1.560     damieng  3975: 
1.584     raeburn  3976:                             my $parmdis=&Apache::lonnet::metadata($uri,$tempkeyp.'.display',$toolsymb);
1.560     damieng  3977:                             if ($allparms{$name{$tempkeyp}} ne '') {
                   3978:                                 my $identifier;
                   3979:                                 if ($parmdis =~ /(\s*\[Part.*)$/) {
                   3980:                                     $identifier = $1;
                   3981:                                 }
                   3982:                                 $display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;
                   3983:                             } else {
                   3984:                                 $display{$tempkeyp} = $parmdis;
                   3985:                             }
                   3986:                             unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                   3987:                             $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
1.584     raeburn  3988:                             $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp,$toolsymb);
                   3989:                             $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.type',$toolsymb);
                   3990:                             $thistitle=&Apache::lonnet::metadata($uri,$tempkeyp.'.title',$toolsymb);
1.57      albertel 3991:                         }
                   3992:                     }
1.548     raeburn  3993:                     my $totalparms=scalar(keys(%name));
1.57      albertel 3994:                     if ($totalparms>0) {
1.560     damieng  3995:                         my $firstrow=1;
1.473     amueller 3996:                         my $title=&Apache::lonnet::gettitle($symbp{$rid});
1.582     raeburn  3997:                         my $navmap = Apache::lonnavmaps::navmap->new();
                   3998:                         my @recurseup;
                   3999:                         if (ref($navmap) && $mapp{$rid}) {
                   4000:                             @recurseup = $navmap->recurseup_maps($mapp{$rid});
                   4001:                         }
1.419     bisitz   4002:                         $r->print('<tr><td style="background-color:'.$defbgone.';"'.
1.57      albertel 4003:                              ' rowspan='.$totalparms.
1.419     bisitz   4004:                              '><tt><font size="-1">'.
1.57      albertel 4005:                              join(' / ',split(/\//,$uri)).
                   4006:                              '</font></tt><p><b>'.
1.154     albertel 4007:                              "<a href=\"javascript:openWindow('".
1.473     amueller 4008:                           &Apache::lonnet::clutter($uri).'?symb='.
                   4009:                           &escape($symbp{$rid}).
1.336     albertel 4010:                              "', 'metadatafile', '450', '500', 'no', 'yes');\"".
                   4011:                              " target=\"_self\">$title");
1.57      albertel 4012: 
                   4013:                         if ($thistitle) {
1.473     amueller 4014:                             $r->print(' ('.$thistitle.')');
1.57      albertel 4015:                         }
                   4016:                         $r->print('</a></b></td>');
1.419     bisitz   4017:                         $r->print('<td style="background-color:'.$defbgtwo.';"'.
1.57      albertel 4018:                                       ' rowspan='.$totalparms.'>'.$typep{$rid}.
                   4019:                                       '</td>');
                   4020: 
1.419     bisitz   4021:                         $r->print('<td style="background-color:'.$defbgone.';"'.
1.57      albertel 4022:                                       ' rowspan='.$totalparms.
1.238     www      4023:                                       '>'.$maptitles{$mapp{$rid}}.'</td>');
1.548     raeburn  4024:                         foreach my $item (&keysinorder_bytype(\%name,\%keyorder)) {
1.57      albertel 4025:                             unless ($firstrow) {
                   4026:                                 $r->print('<tr>');
                   4027:                             } else {
                   4028:                                 undef $firstrow;
                   4029:                             }
1.548     raeburn  4030:                             &print_row($r,$item,\%part,\%name,\%symbp,$rid,\%default,
1.57      albertel 4031:                                        \%type,\%display,$defbgone,$defbgtwo,
1.269     raeburn  4032:                                        $defbgthree,$parmlev,$uname,$udom,$csec,
1.582     raeburn  4033:                                        $cgroup,\@usersgroups,$noeditgrp,$readonly,
                   4034:                                        \@recurseup,\%maptitles,\%allmaps_inverted,
                   4035:                                        \$numreclinks);
1.57      albertel 4036:                         }
                   4037:                     }
                   4038:                 }
                   4039:             } # end foreach ids
1.43      albertel 4040: # -------------------------------------------------- End entry for one resource
1.517     www      4041:             $r->print(&Apache::loncommon::end_data_table);
1.203     www      4042:         } # end of  full
1.57      albertel 4043: #--------------------------------------------------- Entry for parm level map
                   4044:         if ($parmlev eq 'map') {
1.419     bisitz   4045:             my $defbgone = '#E0E099';
                   4046:             my $defbgtwo = '#FFFF99';
                   4047:             my $defbgthree = '#FFBB99';
1.57      albertel 4048: 
                   4049:             my %maplist;
                   4050: 
                   4051:             if ($pschp eq 'all') {
1.446     bisitz   4052:                 %maplist = %allmaps;
1.57      albertel 4053:             } else {
                   4054:                 %maplist = ($pschp => $mapp{$pschp});
                   4055:             }
                   4056: 
                   4057: #-------------------------------------------- for each map, gather information
                   4058:             my $mapid;
1.607     raeburn  4059:             foreach $mapid (sort { $a <=> $b } keys(%maplist)) {
1.60      albertel 4060:                 my $maptitle = $maplist{$mapid};
1.57      albertel 4061: 
                   4062: #-----------------------  loop through ids and get all parameter types for map
                   4063: #-----------------------------------------          and associated information
                   4064:                 my %name = ();
                   4065:                 my %part = ();
                   4066:                 my %display = ();
                   4067:                 my %type = ();
                   4068:                 my %default = ();
                   4069:                 my $map = 0;
                   4070: 
1.473     amueller 4071: #        $r->print("Catmarker: @catmarker<br />\n");
1.446     bisitz   4072: 
1.548     raeburn  4073:                 foreach my $id (@ids) {
                   4074:                     ($map)=($id =~ /([\d]*?)\./);
                   4075:                     my $rid = $id;
1.446     bisitz   4076: 
1.57      albertel 4077: #                  $r->print("$mapid:$map:   $rid <br /> \n");
                   4078: 
1.560     damieng  4079:                     if ($map eq $mapid) {
1.473     amueller 4080:                         my $uri=&Apache::lonnet::declutter($uris{$rid});
1.584     raeburn  4081:                         my $toolsymb;
                   4082:                         if ($uri =~ /ext\.tool$/) {
                   4083:                             $toolsymb = $symbp{$rid};
                   4084:                         }
1.582     raeburn  4085: 
1.57      albertel 4086: #                    $r->print("Keys: $keyp{$rid} <br />\n");
                   4087: 
                   4088: #--------------------------------------------------------------------
                   4089: # @catmarker contains list of all possible parameters including part #s
                   4090: # $fullkeyp contains the full part/id # for the extraction of proper parameters
                   4091: # $tempkeyp contains part 0 only (no ids - ie, subparts)
                   4092: # When storing information, store as part 0
                   4093: # When requesting information, request from full part
                   4094: #-------------------------------------------------------------------
1.548     raeburn  4095:                         foreach my $fullkeyp (&keysplit($keyp{$rid})) {
                   4096:                             my $tempkeyp = $fullkeyp;
                   4097:                             $tempkeyp =~ s/_\w+_/_0_/;
1.473     amueller 4098: 
1.548     raeburn  4099:                             if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
1.473     amueller 4100:                                 $part{$tempkeyp}="0";
1.584     raeburn  4101:                                 $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name',$toolsymb);
                   4102:                                 my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display',$toolsymb);
1.473     amueller 4103:                                 if ($allparms{$name{$tempkeyp}} ne '') {
                   4104:                                     my $identifier;
                   4105:                                     if ($parmdis =~ /(\s*\[Part.*)$/) {
                   4106:                                         $identifier = $1;
                   4107:                                     }
                   4108:                                     $display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;
                   4109:                                 } else {
                   4110:                                     $display{$tempkeyp} = $parmdis;
                   4111:                                 }
                   4112:                                 unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                   4113:                                 $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
                   4114:                                 $display{$tempkeyp} =~ s/_\w+_/_0_/;
1.584     raeburn  4115:                                 $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp,$toolsymb);
                   4116:                                 $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type',$toolsymb);
1.473     amueller 4117:                               }
                   4118:                         } # end loop through keys
1.560     damieng  4119:                     }
1.57      albertel 4120:                 } # end loop through ids
1.446     bisitz   4121: 
1.57      albertel 4122: #---------------------------------------------------- print header information
1.133     www      4123:                 my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
1.82      www      4124:                 my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
1.401     bisitz   4125:                 my $tmp="";
1.57      albertel 4126:                 if ($uname) {
1.473     amueller 4127:                     my $person=&Apache::loncommon::plainname($uname,$udom);
1.401     bisitz   4128:                     $tmp.=&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".
                   4129:                         &mt('in')." \n";
1.57      albertel 4130:                 } else {
1.401     bisitz   4131:                     $tmp.="<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n";
1.57      albertel 4132:                 }
1.269     raeburn  4133:                 if ($cgroup) {
1.401     bisitz   4134:                     $tmp.=&mt("Group")." <font color=\"red\"><i>$cgroup".
                   4135:                               "</i></font> ".&mt('of')." \n";
1.269     raeburn  4136:                     $csec = '';
                   4137:                 } elsif ($csec) {
1.401     bisitz   4138:                     $tmp.=&mt("Section")." <font color=\"red\"><i>$csec".
                   4139:                               "</i></font> ".&mt('of')." \n";
1.269     raeburn  4140:                 }
1.401     bisitz   4141:                 $r->print('<div align="center"><h4>'
                   4142:                          .&mt('Set Defaults for All Resources in [_1]Specifically for [_2][_3]'
1.404     bisitz   4143:                              ,$foldermap.'<br /><font color="red"><i>'.$showtitle.'</i></font><br />'
1.401     bisitz   4144:                              ,$tmp
                   4145:                              ,'<font color="red"><i>'.$coursename.'</i></font>'
                   4146:                              )
                   4147:                          ."<br /></h4>\n"
1.422     bisitz   4148:                 );
1.57      albertel 4149: #---------------------------------------------------------------- print table
1.419     bisitz   4150:                 $r->print('<p>'.&Apache::loncommon::start_data_table()
                   4151:                          .&Apache::loncommon::start_data_table_header_row()
                   4152:                          .'<th>'.&mt('Parameter Name').'</th>'
1.578     raeburn  4153:                          .'<th>'.&mt('Value').'</th>'
1.419     bisitz   4154:                          .'<th>'.&mt('Parameter in Effect').'</th>'
                   4155:                          .&Apache::loncommon::end_data_table_header_row()
                   4156:                 );
1.57      albertel 4157: 
1.582     raeburn  4158:                 my $navmap = Apache::lonnavmaps::navmap->new();
                   4159:                 my @recurseup;
                   4160:                 if (ref($navmap)) {
                   4161:                      my $mapres = $navmap->getByMapPc($mapid);
                   4162:                      if (ref($mapres)) {
                   4163:                          @recurseup = $navmap->recurseup_maps($mapres->src());
                   4164:                      }
                   4165:                 }
                   4166: 
                   4167: 
1.548     raeburn  4168:                 foreach my $item (&keysinorder(\%name,\%keyorder)) {
1.473     amueller 4169:                     $r->print(&Apache::loncommon::start_data_table_row());
1.548     raeburn  4170:                     &print_row($r,$item,\%part,\%name,\%symbp,$mapid,\%default,
1.269     raeburn  4171:                            \%type,\%display,$defbgone,$defbgtwo,$defbgthree,
1.568     raeburn  4172:                            $parmlev,$uname,$udom,$csec,$cgroup,'',$noeditgrp,
1.582     raeburn  4173:                            $readonly,\@recurseup,\%maptitles,\%allmaps_inverted,
                   4174:                            \$numreclinks);
1.57      albertel 4175:                 }
1.422     bisitz   4176:                 $r->print(&Apache::loncommon::end_data_table().'</p>'
                   4177:                          .'</div>'
                   4178:                 );
1.57      albertel 4179:             } # end each map
                   4180:         } # end of $parmlev eq map
                   4181: #--------------------------------- Entry for parm level general (Course level)
                   4182:         if ($parmlev eq 'general') {
1.473     amueller 4183:             my $defbgone = '#E0E099';
1.419     bisitz   4184:             my $defbgtwo = '#FFFF99';
                   4185:             my $defbgthree = '#FFBB99';
1.57      albertel 4186: 
                   4187: #-------------------------------------------- for each map, gather information
                   4188:             my $mapid="0.0";
                   4189: #-----------------------  loop through ids and get all parameter types for map
                   4190: #-----------------------------------------          and associated information
                   4191:             my %name = ();
                   4192:             my %part = ();
                   4193:             my %display = ();
                   4194:             my %type = ();
                   4195:             my %default = ();
1.446     bisitz   4196: 
1.548     raeburn  4197:             foreach $id (@ids) {
                   4198:                 my $rid = $id;
1.446     bisitz   4199: 
1.196     www      4200:                 my $uri=&Apache::lonnet::declutter($uris{$rid});
1.584     raeburn  4201:                 my $toolsymb;
                   4202:                 if ($uri =~ /ext\.tool$/) {
                   4203:                     $toolsymb = $symbp{$rid};
                   4204:                 }
1.57      albertel 4205: 
                   4206: #--------------------------------------------------------------------
                   4207: # @catmarker contains list of all possible parameters including part #s
                   4208: # $fullkeyp contains the full part/id # for the extraction of proper parameters
                   4209: # $tempkeyp contains part 0 only (no ids - ie, subparts)
                   4210: # When storing information, store as part 0
                   4211: # When requesting information, request from full part
                   4212: #-------------------------------------------------------------------
1.548     raeburn  4213:                 foreach my $fullkeyp (&keysplit($keyp{$rid})) {
                   4214:                     my $tempkeyp = $fullkeyp;
                   4215:                     $tempkeyp =~ s/_\w+_/_0_/;
                   4216:                     if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
1.473     amueller 4217:                         $part{$tempkeyp}="0";
1.584     raeburn  4218:                         $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name',$toolsymb);
                   4219:                         my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display',$toolsymb);
1.473     amueller 4220:                         if ($allparms{$name{$tempkeyp}} ne '') {
                   4221:                             my $identifier;
                   4222:                             if ($parmdis =~ /(\s*\[Part.*)$/) {
                   4223:                                 $identifier = $1;
                   4224:                             }
                   4225:                             $display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;
                   4226:                         } else {
                   4227:                             $display{$tempkeyp} = $parmdis;
                   4228:                         }
                   4229:                         unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                   4230:                         $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
                   4231:                         $display{$tempkeyp} =~ s/_\w+_/_0_/;
1.584     raeburn  4232:                         $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp,$toolsymb);
                   4233:                         $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type',$toolsymb);
1.560     damieng  4234:                     }
1.57      albertel 4235:                 } # end loop through keys
                   4236:             } # end loop through ids
1.446     bisitz   4237: 
1.57      albertel 4238: #---------------------------------------------------- print header information
1.473     amueller 4239:             my $setdef=&mt("Set Defaults for All Resources in Course");
1.57      albertel 4240:             $r->print(<<ENDMAPONE);
1.419     bisitz   4241: <center>
                   4242: <h4>$setdef
1.135     albertel 4243: <font color="red"><i>$coursename</i></font><br />
1.57      albertel 4244: ENDMAPONE
                   4245:             if ($uname) {
1.473     amueller 4246:                 my $person=&Apache::loncommon::plainname($uname,$udom);
1.135     albertel 4247:                 $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");
1.57      albertel 4248:             } else {
1.135     albertel 4249:                 $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
1.57      albertel 4250:             }
1.446     bisitz   4251: 
1.135     albertel 4252:             if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
1.306     albertel 4253:             if ($cgroup) {$r->print(&mt("Group")."<font color=\"red\"> <i>$cgroup</i></font>\n")};
1.135     albertel 4254:             $r->print("</h4>\n");
1.57      albertel 4255: #---------------------------------------------------------------- print table
1.419     bisitz   4256:             $r->print('<p>'.&Apache::loncommon::start_data_table()
                   4257:                      .&Apache::loncommon::start_data_table_header_row()
                   4258:                      .'<th>'.&mt('Parameter Name').'</th>'
                   4259:                      .'<th>'.&mt('Default Value').'</th>'
                   4260:                      .'<th>'.&mt('Parameter in Effect').'</th>'
                   4261:                      .&Apache::loncommon::end_data_table_header_row()
                   4262:             );
1.57      albertel 4263: 
1.548     raeburn  4264:             foreach my $item (&keysinorder(\%name,\%keyorder)) {
1.419     bisitz   4265:                 $r->print(&Apache::loncommon::start_data_table_row());
1.548     raeburn  4266:                 &print_row($r,$item,\%part,\%name,\%symbp,$mapid,\%default,
1.568     raeburn  4267:                            \%type,\%display,$defbgone,$defbgtwo,$defbgthree,
                   4268:                            $parmlev,$uname,$udom,$csec,$cgroup,'',$noeditgrp,
                   4269:                            $readonly);
1.57      albertel 4270:             }
1.419     bisitz   4271:             $r->print(&Apache::loncommon::end_data_table()
                   4272:                      .'</p>'
                   4273:                      .'</center>'
                   4274:             );
1.57      albertel 4275:         } # end of $parmlev eq general
1.606     raeburn  4276:         $r->print('</div>');
1.43      albertel 4277:     }
1.507     www      4278:     $r->print('</form>');
1.582     raeburn  4279:     if ($numreclinks) {
                   4280:         $r->print(<<"END");
                   4281: <form name="recurseform" action="/adm/parmset?action=settable" method="post">
                   4282: <input type="hidden" name="pschp" />
                   4283: <input type="hidden" name="pscat" />
                   4284: <input type="hidden" name="psprt" />
                   4285: <input type="hidden" name="hideparmsel" value="hidden" />
                   4286: </form>
                   4287: <script type="text/javascript">
                   4288: function pjumprec(rid,name,part) {
                   4289:     document.forms.recurseform.pschp.value = rid;
                   4290:     document.forms.recurseform.pscat.value = name;
                   4291:     document.forms.recurseform.psprt.value = part;
                   4292:     document.forms.recurseform.submit();
                   4293:     return false;
                   4294: }
                   4295: </script>
                   4296: END
                   4297:     }
1.507     www      4298:     &endSettingsScreen($r);
                   4299:     $r->print(&Apache::loncommon::end_page());
1.57      albertel 4300: } # end sub assessparms
1.30      www      4301: 
1.560     damieng  4302: 
                   4303: 
1.120     www      4304: ##################################################
1.560     damieng  4305: # OVERVIEW MODE
1.207     www      4306: ##################################################
1.124     www      4307: 
1.563     damieng  4308: my $tableopen; # boolean, true if HTML table is already opened
                   4309: 
                   4310: # Returns HTML with the HTML table start tag and header, unless the table is already opened.
                   4311: # @param {boolean} $readonly - true if values cannot be edited (otherwise more columns are added)
                   4312: # @returns {string}
1.124     www      4313: sub tablestart {
1.576     raeburn  4314:     my ($readonly,$is_map) = @_;
1.124     www      4315:     if ($tableopen) {
1.552     raeburn  4316:         return '';
1.124     www      4317:     } else {
1.552     raeburn  4318:         $tableopen=1;
                   4319:         my $output = &Apache::loncommon::start_data_table().'<tr><th>'.&mt('Parameter').'</th>';
                   4320:         if ($readonly) {
                   4321:             $output .= '<th>'.&mt('Current value').'</th>';
                   4322:         } else {
1.576     raeburn  4323:             $output .= '<th>'.&mt('Delete').'</th>'.
                   4324:                        '<th>'.&mt('Set to ...').'</th>';
                   4325:             if ($is_map) {
                   4326:                 $output .= '<th>'.&mt('Recursive?').'</th>';
                   4327:             }
1.552     raeburn  4328:         }
                   4329:         $output .= '</tr>';
                   4330:         return $output;
1.124     www      4331:     }
                   4332: }
                   4333: 
1.563     damieng  4334: # Returns HTML with the HTML table end tag, unless the table is not opened.
                   4335: # @returns {string}
1.124     www      4336: sub tableend {
                   4337:     if ($tableopen) {
1.560     damieng  4338:         $tableopen=0;
                   4339:         return &Apache::loncommon::end_data_table();
1.124     www      4340:     } else {
1.560     damieng  4341:         return'';
1.124     www      4342:     }
                   4343: }
                   4344: 
1.563     damieng  4345: # Reads course and user information.
                   4346: # If the context is looking for a scalar, returns the course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db) with added student data from lonnet::get_userresdata (which reads the user's resourcedata.db).
                   4347: # The key for student data is modified with '[useropt:'.username.':'.userdomain.'].'.
                   4348: # If the context is looking for a list, returns a list with the scalar data and the class list.
                   4349: # @param {string} $crs - course number
                   4350: # @param {string} $dom - course domain
                   4351: # @returns {hash reference|Array}
1.207     www      4352: sub readdata {
                   4353:     my ($crs,$dom)=@_;
                   4354: # Read coursedata
                   4355:     my $resourcedata=&Apache::lonnet::get_courseresdata($crs,$dom);
                   4356: # Read userdata
                   4357: 
                   4358:     my $classlist=&Apache::loncoursedata::get_classlist();
1.548     raeburn  4359:     foreach my $user (keys(%$classlist)) {
                   4360:         if ($user=~/^($match_username)\:($match_domain)$/) {
                   4361:             my ($tuname,$tudom)=($1,$2);
                   4362:             my $useropt=&Apache::lonnet::get_userresdata($tuname,$tudom);
                   4363:             foreach my $userkey (keys(%{$useropt})) {
                   4364:                 if ($userkey=~/^\Q$env{'request.course.id'}\E/) {
1.207     www      4365:                     my $newkey=$userkey;
1.548     raeburn  4366:                     $newkey=~s/^($env{'request.course.id'}\.)/$1\[useropt\:$tuname\:$tudom\]\./;
                   4367:                     $$resourcedata{$newkey}=$$useropt{$userkey};
                   4368:                 }
                   4369:             }
1.473     amueller 4370:         }
                   4371:     }
1.552     raeburn  4372:     if (wantarray) {
                   4373:         return ($resourcedata,$classlist);
                   4374:     } else {
                   4375:         return $resourcedata;
                   4376:     }
1.207     www      4377: }
                   4378: 
                   4379: 
1.563     damieng  4380: # Stores parameter data, using form parameters directly.
                   4381: #
                   4382: # Uses the following form parameters. The variable part in the names is a resourcedata key (except for a modification for user data).
1.588     raeburn  4383: # set_* (except settext, setipallow, setipdeny, setdeeplink) - set a parameter value
1.563     damieng  4384: # del_* - remove a parameter
                   4385: # datepointer_* - set a date parameter (value is key_* refering to a set of other form parameters)
                   4386: # dateinterval_* - set a date interval parameter (value refers to more form parameters)
                   4387: # key_* - date values
                   4388: # days_* - for date intervals
                   4389: # hours_* - for date intervals
                   4390: # minutes_* - for date intervals
                   4391: # seconds_* - for date intervals
                   4392: # done_* - for date intervals
                   4393: # typeof_* - parameter type
                   4394: # 
                   4395: # @param {Apache2::RequestRec} $r - the Apache request
                   4396: # @param {string} $crs - course number
                   4397: # @param {string} $dom - course domain
1.208     www      4398: sub storedata {
                   4399:     my ($r,$crs,$dom)=@_;
1.207     www      4400: # Set userlevel immediately
                   4401: # Do an intermediate store of course level
                   4402:     my $olddata=&readdata($crs,$dom);
1.124     www      4403:     my %newdata=();
                   4404:     undef %newdata;
                   4405:     my @deldata=();
1.576     raeburn  4406:     my @delrec=();
                   4407:     my @delnonrec=();
1.124     www      4408:     undef @deldata;
1.504     raeburn  4409:     my ($got_chostname,$chostname,$cmajor,$cminor);
1.546     raeburn  4410:     my $now = time;
1.560     damieng  4411:     foreach my $key (keys(%env)) {
                   4412:         if ($key =~ /^form\.([a-z]+)\_(.+)$/) {
                   4413:             my $cmd=$1;
                   4414:             my $thiskey=$2;
1.576     raeburn  4415:             my ($altkey,$recursive,$tkey,$tkeyrec,$tkeynonrec);
1.588     raeburn  4416:             next if ($cmd eq 'rec' || $cmd eq 'settext' || $cmd eq 'setipallow' || $cmd eq 'setipdeny' || $cmd eq 'setdeeplink');
1.576     raeburn  4417:             if ((($cmd eq 'set') || ($cmd eq 'datepointer') || ($cmd eq 'dateinterval') || ($cmd eq 'del')) && 
                   4418:                  ($thiskey =~ /(?:sequence|page)\Q___(all)\E/)) {
                   4419:                 unless ($thiskey =~ /(encrypturl|hiddenresource)$/) {
                   4420:                     $altkey = $thiskey;
                   4421:                     $altkey =~ s/\Q___(all)\E/___(rec)/;
                   4422:                     if ($env{'form.rec_'.$thiskey}) {
                   4423:                         $recursive = 1;
                   4424:                     }
                   4425:                 }
                   4426:             }
1.560     damieng  4427:             my ($tuname,$tudom)=&extractuser($thiskey);
1.473     amueller 4428:             if ($tuname) {
1.576     raeburn  4429:                 $tkey=$thiskey;
1.560     damieng  4430:                 $tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
1.576     raeburn  4431:                 if ($altkey) {
                   4432:                     $tkeynonrec = $tkey; 
                   4433:                     $tkeyrec = $altkey;
                   4434:                     $tkeyrec=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
                   4435:                 }
1.560     damieng  4436:             }
                   4437:             if ($cmd eq 'set' || $cmd eq 'datepointer' || $cmd eq 'dateinterval') {
1.563     damieng  4438:                 my ($data, $typeof, $text, $name, $valchk, $valmatch, $namematch);
                   4439:                 if ($cmd eq 'set') {
                   4440:                     $data=$env{$key};
                   4441:                     $valmatch = '';
                   4442:                     $valchk = $data;
                   4443:                     $typeof=$env{'form.typeof_'.$thiskey};
                   4444:                     $text = &mt('Saved modified parameter for');
                   4445:                     if ($typeof eq 'string_questiontype') {
                   4446:                         $name = 'type';
1.588     raeburn  4447:                     } elsif (($typeof eq 'string_lenient') || ($typeof eq 'string_deeplink')) {
                   4448:                         ($name) = ($typeof =~ /^string_(lenient|deeplink)$/);
1.563     damieng  4449:                         my $stringmatch = &standard_string_matches($typeof);
                   4450:                         if (ref($stringmatch) eq 'ARRAY') {
                   4451:                             foreach my $item (@{$stringmatch}) {
                   4452:                                 if (ref($item) eq 'ARRAY') {
                   4453:                                     my ($regexpname,$pattern) = @{$item};
                   4454:                                     if ($pattern ne '') {
                   4455:                                         if ($data =~ /$pattern/) {
                   4456:                                             $valmatch = $regexpname;
                   4457:                                             $valchk = '';
                   4458:                                             last;
                   4459:                                         }
1.560     damieng  4460:                                     }
1.549     raeburn  4461:                                 }
                   4462:                             }
                   4463:                         }
1.563     damieng  4464:                     } elsif ($typeof eq 'string_discussvote') {
                   4465:                         $name = 'discussvote';
                   4466:                     } elsif ($typeof eq 'string_examcode') {
                   4467:                         $name = 'examcode';
                   4468:                         if (&Apache::lonnet::validCODE($data)) {
                   4469:                             $valchk = 'valid';
                   4470:                         }
                   4471:                     } elsif ($typeof eq 'string_yesno') {
                   4472:                         if ($thiskey =~ /\.retrypartial$/) {
                   4473:                             $name = 'retrypartial';
                   4474:                         }
1.549     raeburn  4475:                     }
1.563     damieng  4476:                 } elsif ($cmd eq 'datepointer') {
                   4477:                     $data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});
                   4478:                     $typeof=$env{'form.typeof_'.$thiskey};
                   4479:                     $text = &mt('Saved modified date for');
                   4480:                     if ($typeof eq 'date_start') {
                   4481:                         if ($thiskey =~ /\.printstartdate$/) {
                   4482:                             $name = 'printstartdate';
                   4483:                             if (($data) && ($data > $now)) {
                   4484:                                 $valchk = 'future';
                   4485:                             }
1.560     damieng  4486:                         }
1.563     damieng  4487:                     } elsif ($typeof eq 'date_end') {
                   4488:                         if ($thiskey =~ /\.printenddate$/) {
                   4489:                             $name = 'printenddate';
                   4490:                             if (($data) && ($data < $now)) {
                   4491:                                 $valchk = 'past';
                   4492:                             }
1.560     damieng  4493:                         }
1.504     raeburn  4494:                     }
1.563     damieng  4495:                 } elsif ($cmd eq 'dateinterval') {
                   4496:                     $data=&get_date_interval_from_form($thiskey);
                   4497:                     if ($thiskey =~ /\.interval$/) {
                   4498:                         $name = 'interval';
                   4499:                         my $intervaltype = &get_intervaltype($name);
                   4500:                         my $intervalmatch = &standard_interval_matches($intervaltype);
                   4501:                         if (ref($intervalmatch) eq 'ARRAY') {
                   4502:                             foreach my $item (@{$intervalmatch}) {
                   4503:                                 if (ref($item) eq 'ARRAY') {
                   4504:                                     my ($regexpname,$pattern) = @{$item};
                   4505:                                     if ($pattern ne '') {
                   4506:                                         if ($data =~ /$pattern/) {
                   4507:                                             $valmatch = $regexpname;
                   4508:                                             $valchk = '';
                   4509:                                             last;
                   4510:                                         }
1.560     damieng  4511:                                     }
1.554     raeburn  4512:                                 }
                   4513:                             }
                   4514:                         }
                   4515:                     }
1.563     damieng  4516:                     $typeof=$env{'form.typeof_'.$thiskey};
                   4517:                     $text = &mt('Saved modified date for');
1.554     raeburn  4518:                 }
1.576     raeburn  4519:                 if ($recursive) {
1.563     damieng  4520:                     $namematch = 'maplevelrecurse';
1.560     damieng  4521:                 }
1.563     damieng  4522:                 if (($name ne '') || ($namematch ne '')) {
                   4523:                     my ($needsrelease,$needsnewer);
                   4524:                     if ($name ne '') {
                   4525:                         $needsrelease = $Apache::lonnet::needsrelease{"parameter:$name:$valchk:$valmatch:"};
1.560     damieng  4526:                         if ($needsrelease) {
                   4527:                             unless ($got_chostname) {
1.563     damieng  4528:                                 ($chostname,$cmajor,$cminor)=&parameter_release_vars();
1.560     damieng  4529:                                 $got_chostname = 1;
                   4530:                             }
1.563     damieng  4531:                             $needsnewer = &parameter_releasecheck($name,$valchk,$valmatch,undef,
                   4532:                                                                 $needsrelease,
                   4533:                                                                 $cmajor,$cminor);
                   4534:                         }
                   4535:                     }
                   4536:                     if ($namematch ne '') {
                   4537:                         if ($needsnewer) {
                   4538:                             undef($namematch);
1.560     damieng  4539:                         } else {
1.563     damieng  4540:                             my $currneeded;
                   4541:                             if ($needsrelease) {
                   4542:                                 $currneeded = $needsrelease;
                   4543:                             }
                   4544:                             $needsrelease =
                   4545:                                 $Apache::lonnet::needsrelease{"parameter::::$namematch"};
                   4546:                             if (($needsrelease) &&
                   4547:                                     (($currneeded eq '') || ($needsrelease < $currneeded))) {
                   4548:                                 unless ($got_chostname) {
                   4549:                                     ($chostname,$cmajor,$cminor) = &parameter_release_vars();
                   4550:                                     $got_chostname = 1;
                   4551:                                 }
                   4552:                                 $needsnewer = &parameter_releasecheck(undef,$valchk,$valmatch,
                   4553:                                     $namematch, $needsrelease,$cmajor,$cminor);
                   4554:                             } else {
                   4555:                                 undef($namematch);
                   4556:                             }
1.560     damieng  4557:                         }
1.557     raeburn  4558:                     }
1.563     damieng  4559:                     if ($needsnewer) {
                   4560:                         $r->print('<br />'.&oldversion_warning($name,$namematch,$data,
                   4561:                                                             $chostname,$cmajor,
                   4562:                                                             $cminor,$needsrelease));
                   4563:                         next;
                   4564:                     }
1.504     raeburn  4565:                 }
1.576     raeburn  4566:                 my ($reconlychg,$haschange,$storekey);
                   4567:                 if ($tuname) {
                   4568:                     my $ustorekey;
                   4569:                     if ($altkey) {
                   4570:                         if ($recursive) {
                   4571:                             if (exists($$olddata{$thiskey})) {
                   4572:                                 if ($$olddata{$thiskey} eq $data) {
                   4573:                                     $reconlychg = 1;
                   4574:                                 }
                   4575:                                 &Apache::lonnet::del('resourcedata',[$tkeynonrec,$tkeynonrec.'.type'],$tudom,$tuname);
                   4576:                             }
                   4577:                             if (exists($$olddata{$altkey})) {
                   4578:                                 if (defined($data) && $$olddata{$altkey} ne $data) {
                   4579:                                     $haschange = 1;
                   4580:                                 }
                   4581:                             } elsif ((!$reconlychg) && ($data ne '')) {
                   4582:                                 $haschange = 1;
                   4583:                             }
                   4584:                             $ustorekey = $tkeyrec;
                   4585:                         } else {
                   4586:                             if (exists($$olddata{$altkey})) {
                   4587:                                 if ($$olddata{$altkey} eq $data) {
                   4588:                                     $reconlychg = 1;
                   4589:                                 }
                   4590:                                 &Apache::lonnet::del('resourcedata',[$tkeyrec,$tkeyrec.'.type'],$tudom,$tuname);
                   4591:                             }
                   4592:                             if (exists($$olddata{$thiskey})) {
                   4593:                                 if (defined($data) && $$olddata{$thiskey} ne $data) {
                   4594:                                     $haschange = 1;
                   4595:                                 }
                   4596:                             } elsif ((!$reconlychg) && ($data ne '')) {
                   4597:                                 $haschange = 1;
                   4598:                             }
                   4599:                             $ustorekey = $tkeynonrec;
                   4600:                         }
                   4601:                     } else {
                   4602:                         if (exists($$olddata{$tkey})) {
                   4603:                             if (defined($data) && $$olddata{$tkey} ne $data) {
                   4604:                                 $haschange = 1;
                   4605:                             }
                   4606:                             $ustorekey = $tkey;
                   4607:                         }
                   4608:                     }
                   4609:                     if ($haschange || $reconlychg)  {
                   4610:                         unless ($env{'form.del_'.$thiskey}) {
                   4611:                             if (&Apache::lonnet::put('resourcedata',{$ustorekey=>$data,
                   4612:                                                                      $ustorekey.'.type' => $typeof},
                   4613:                                                                      $tudom,$tuname) eq 'ok') {
                   4614:                                 &log_parmset({$ustorekey=>$data,$ustorekey.'.type' => $typeof},0,$tuname,$tudom);
                   4615:                                 $r->print('<br />'.$text.' '.
                   4616:                                           &Apache::loncommon::plainname($tuname,$tudom));
                   4617:                             } else {
                   4618:                                 $r->print('<div class="LC_error">'.
                   4619:                                           &mt('Error saving parameters').'</div>');
                   4620:                             }
                   4621:                             &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
                   4622:                         }
                   4623:                     }
                   4624:                 } else {
                   4625:                     if ($altkey) {
                   4626:                         if ($recursive) {
                   4627:                             if (exists($$olddata{$thiskey})) {
                   4628:                                 if ($$olddata{$thiskey} eq $data) {
                   4629:                                     $reconlychg = 1;
                   4630:                                 }
                   4631:                                 push(@delnonrec,($thiskey,$thiskey.'.type'));
                   4632:                             }
                   4633:                             if (exists($$olddata{$altkey})) {
                   4634:                                 if (defined($data) && $$olddata{$altkey} ne $data) {
                   4635:                                     $haschange = 1;
                   4636:                                 }
                   4637:                             } elsif (($data ne '') && (!$reconlychg)) {
                   4638:                                 $haschange = 1;
                   4639:                             }
                   4640:                             $storekey = $altkey;
1.563     damieng  4641:                         } else {
1.576     raeburn  4642:                             if (exists($$olddata{$altkey})) {
                   4643:                                 if ($$olddata{$altkey} eq $data) {
                   4644:                                     $reconlychg = 1;
                   4645:                                 }
                   4646:                                 push(@delrec,($altkey,$altkey.'.type'));
                   4647:                             } 
                   4648:                             if (exists($$olddata{$thiskey})) {
                   4649:                                 if (defined($data) && $$olddata{$thiskey} ne $data) {
                   4650:                                     $haschange = 1;
                   4651:                                 }
                   4652:                             } elsif (($data ne '') && (!$reconlychg)) {
                   4653:                                 $haschange = 1;
                   4654:                             }
                   4655:                             $storekey = $thiskey;
1.563     damieng  4656:                         }
1.560     damieng  4657:                     } else {
1.576     raeburn  4658:                         if (defined($data) && $$olddata{$thiskey} ne $data) {
                   4659:                             $haschange = 1;
                   4660:                             $storekey = $thiskey;
                   4661:                         }
                   4662:                     }
                   4663:                 }
                   4664:                 if ($reconlychg || $haschange) {
                   4665:                     unless ($env{'form.del_'.$thiskey}) {
                   4666:                         $newdata{$storekey}=$data;
                   4667:                         $newdata{$storekey.'.type'}=$typeof;
1.560     damieng  4668:                     }
                   4669:                 }
                   4670:             } elsif ($cmd eq 'del') {
                   4671:                 if ($tuname) {
1.576     raeburn  4672:                     my $error;
                   4673:                     if ($altkey) {  
                   4674:                         if (exists($$olddata{$altkey})) {
                   4675:                             if (&Apache::lonnet::del('resourcedata',[$tkeyrec,$tkeyrec.'.type'],$tudom,$tuname) eq 'ok') {
                   4676:                                 &log_parmset({$tkeyrec=>''},1,$tuname,$tudom);
                   4677:                                 if ($recursive) {
                   4678:                                     $r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
                   4679:                                 }
                   4680:                             } elsif ($recursive) {
                   4681:                                 $error = 1;
                   4682:                             }
                   4683:                         }
                   4684:                         if (exists($$olddata{$thiskey})) {
                   4685:                             if (&Apache::lonnet::del('resourcedata',[$tkeynonrec,$tkeynonrec.'.type'],$tudom,$tuname) eq 'ok') {
                   4686:                                 &log_parmset({$tkeynonrec=>''},1,$tuname,$tudom);
                   4687:                                 unless ($recursive) {
                   4688:                                     $r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
                   4689:                                 }
                   4690:                             } elsif (!$recursive) {
                   4691:                                 $error = 1;
                   4692:                             }
                   4693:                         }
1.560     damieng  4694:                     } else {
1.576     raeburn  4695:                         if (exists($$olddata{$thiskey})) {
                   4696:                             if (&Apache::lonnet::del('resourcedata',[$tkey,$tkey.'.type'],$tudom,$tuname) eq 'ok') {
                   4697:                                 &log_parmset({$tkey=>''},1,$tuname,$tudom);
                   4698:                                 $r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
                   4699:                             } else {
                   4700:                                 $error = 1;
                   4701:                             }
                   4702:                         }
                   4703:                     }
                   4704:                     if ($error) { 
1.560     damieng  4705:                         $r->print('<div class="LC_error">'.
                   4706:                             &mt('Error deleting parameters').'</div>');
                   4707:                     }
                   4708:                     &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
                   4709:                 } else {
1.576     raeburn  4710:                     if ($altkey) {
                   4711:                         if (exists($$olddata{$altkey})) {
                   4712:                             unless (grep(/^\Q$altkey\E$/,@delrec)) {
                   4713:                                 push(@deldata,($altkey,$altkey.'.type'));
                   4714:                             }
                   4715:                         }
                   4716:                         if (exists($$olddata{$thiskey})) {
                   4717:                             unless (grep(/^\Q$thiskey\E$/,@delnonrec)) {
                   4718:                                 push(@deldata,($thiskey,$thiskey.'.type'));
                   4719:                             }
                   4720:                         }
                   4721:                     } elsif (exists($$olddata{$thiskey})) {
                   4722:                         push(@deldata,($thiskey,$thiskey.'.type'));
                   4723:                     }
1.560     damieng  4724:                 }
1.473     amueller 4725:             }
                   4726:         }
                   4727:     }
1.207     www      4728: # Store all course level
1.144     www      4729:     my $delentries=$#deldata+1;
1.576     raeburn  4730:     my @alldels;
                   4731:     if (@delrec) {
                   4732:         push(@alldels,@delrec);
                   4733:     }
                   4734:     if (@delnonrec) {
                   4735:         push(@alldels,@delnonrec);
                   4736:     }
                   4737:     if (@deldata) {
                   4738:         push(@alldels,@deldata);
                   4739:     }
1.548     raeburn  4740:     my @newdatakeys=keys(%newdata);
1.144     www      4741:     my $putentries=$#newdatakeys+1;
1.576     raeburn  4742:     my ($delresult,$devalidate);
                   4743:     if (@alldels) {
                   4744:         if (&Apache::lonnet::del('resourcedata',\@alldels,$dom,$crs) eq 'ok') {
                   4745:             my %loghash=map { $_ => '' } @alldels;
1.560     damieng  4746:             &log_parmset(\%loghash,1);
1.576     raeburn  4747:             if ($delentries) {
                   4748:                 $r->print('<h2>'.&mt('Deleted [quant,_1,parameter]',$delentries/2).'</h2>');
                   4749:             }
                   4750:         } elsif ($delentries) {
1.560     damieng  4751:             $r->print('<div class="LC_error">'.
                   4752:                 &mt('Error deleting parameters').'</div>');
                   4753:         }
1.576     raeburn  4754:         $devalidate = 1; 
1.144     www      4755:     }
                   4756:     if ($putentries) {
1.560     damieng  4757:         if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
                   4758:                     &log_parmset(\%newdata,0);
                   4759:             $r->print('<h3>'.&mt('Saved [quant,_1,parameter]',$putentries/2).'</h3>');
                   4760:         } else {
                   4761:             $r->print('<div class="LC_error">'.
                   4762:                 &mt('Error saving parameters').'</div>');
                   4763:         }
1.576     raeburn  4764:         $devalidate = 1; 
                   4765:     }
                   4766:     if ($devalidate) {
1.560     damieng  4767:         &Apache::lonnet::devalidatecourseresdata($crs,$dom);
1.144     www      4768:     }
1.208     www      4769: }
1.207     www      4770: 
1.563     damieng  4771: # Returns the username and domain from a key created in readdata from a resourcedata key.
                   4772: #
                   4773: # @param {string} $key - the key
                   4774: # @returns {Array}
1.208     www      4775: sub extractuser {
                   4776:     my $key=shift;
1.350     albertel 4777:     return ($key=~/^$env{'request.course.id'}.\[useropt\:($match_username)\:($match_domain)\]\./);
1.208     www      4778: }
1.206     www      4779: 
1.563     damieng  4780: # Parses a parameter key and returns the components.
                   4781: #
                   4782: # @param {string} $key - 
                   4783: # @param {hash reference} $listdata - 
                   4784: # @return {Array} - (student, resource, part, parameter)
1.381     albertel 4785: sub parse_listdata_key {
                   4786:     my ($key,$listdata) = @_;
                   4787:     # split into student/section affected, and
                   4788:     # the realm (folder/resource part and parameter
1.446     bisitz   4789:     my ($student,$realm) =
1.473     amueller 4790:     ($key=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)$/);
1.381     albertel 4791:     # if course wide student would be undefined
                   4792:     if (!defined($student)) {
1.560     damieng  4793:         ($realm)=($key=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
1.381     albertel 4794:     }
                   4795:     # strip off the .type if it's not the Question type parameter
                   4796:     if ($realm=~/\.type$/ && !exists($listdata->{$key.'.type'})) {
1.560     damieng  4797:         $realm=~s/\.type//;
1.381     albertel 4798:     }
                   4799:     # split into resource+part and parameter name
1.388     albertel 4800:     my ($res,    $parm) = ($realm=~/^(.*)\.(.*)$/);
                   4801:        ($res, my $part) = ($res  =~/^(.*)\.(.*)$/);
1.381     albertel 4802:     return ($student,$res,$part,$parm);
                   4803: }
                   4804: 
1.563     damieng  4805: # Prints HTML with forms for the given parameter data in overview mode (newoverview or overview).
                   4806: #
                   4807: # @param {Apache2::RequestRec} $r - the Apache request
                   4808: # @param {hash reference} $resourcedata - parameter data returned by readdata
                   4809: # @param {hash reference} $listdata - data created in secgroup_lister, course id.[section id].part.name -> 1 or course id.[section id].part.name.type -> parameter type
                   4810: # @param {string} $sortorder - realmstudent|studentrealm
                   4811: # @param {string} $caller - name of the calling sub (overview|newoverview)
                   4812: # @param {hash reference} $classlist - from loncoursedata::get_classlist
1.568     raeburn  4813: # @param {boolean} $readonly - true if editing not allowed
1.608     raeburn  4814: # @param {string} $parmlev - full|map
                   4815: # @param {hash reference} $hash_for_realm - keys: realm, values: numeric order  
                   4816: # @param {string} $pschp - selected map pc, or 'all'
1.563     damieng  4817: # @returns{integer} - number of $listdata parameters processed
1.208     www      4818: sub listdata {
1.608     raeburn  4819:     my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly,$parmlev,$hash_for_realm,$pschp)=@_;
1.552     raeburn  4820:     
1.207     www      4821: # Start list output
1.206     www      4822: 
1.122     www      4823:     my $oldsection='';
                   4824:     my $oldrealm='';
                   4825:     my $oldpart='';
1.123     www      4826:     my $pointer=0;
1.124     www      4827:     $tableopen=0;
1.145     www      4828:     my $foundkeys=0;
1.248     albertel 4829:     my %keyorder=&standardkeyorder();
1.594     raeburn  4830:     my $readonlyall = $readonly;
1.381     albertel 4831: 
1.552     raeburn  4832:     my ($secidx,%grouphash);
                   4833:     if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
                   4834:         $secidx = &Apache::loncoursedata::CL_SECTION();
1.553     raeburn  4835:         if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
                   4836:             %grouphash = &Apache::longroup::coursegroups();
                   4837:         } elsif ($env{'request.course.groups'} ne '') {
1.585     raeburn  4838:             map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
1.553     raeburn  4839:         }
1.552     raeburn  4840:     }
                   4841: 
1.576     raeburn  4842:     foreach my $key (sort {
1.560     damieng  4843:         my ($astudent,$ares,$apart,$aparm) = &parse_listdata_key($a,$listdata);
                   4844:         my ($bstudent,$bres,$bpart,$bparm) = &parse_listdata_key($b,$listdata);
1.608     raeburn  4845:         my ($aid,$bid);
                   4846:         if ($caller eq 'newoverview') {
                   4847:             if (ref($hash_for_realm) eq 'HASH') {
                   4848:                 if (($parmlev eq 'map') && ($pschp eq 'all')) {
                   4849:                     my ($aurl) = ($ares =~ /^(.+\.(?:sequence|page))___\(all\)$/);
                   4850:                     my ($burl) = ($bres =~ /^(.+\.(?:sequence|page))___\(all\)$/);
                   4851:                     $aid = $hash_for_realm->{$aurl};
                   4852:                     $bid = $hash_for_realm->{$burl};
                   4853:                 } elsif ($parmlev eq 'full') {
                   4854:                     $aid = $hash_for_realm->{$ares};
                   4855:                     $bid = $hash_for_realm->{$bres};
                   4856:                 }
                   4857:             }
                   4858:         }
1.381     albertel 4859: 
1.560     damieng  4860:         # get the numerical order for the param
                   4861:         $aparm=$keyorder{'parameter_0_'.$aparm};
                   4862:         $bparm=$keyorder{'parameter_0_'.$bparm};
1.381     albertel 4863: 
1.560     damieng  4864:         my $result=0;
1.381     albertel 4865: 
1.560     damieng  4866:         if ($sortorder eq 'realmstudent') {
1.381     albertel 4867:             if ($ares     ne $bres    ) {
1.608     raeburn  4868:                 if ($caller eq 'newoverview') {
                   4869:                     if (ref($hash_for_realm) eq 'HASH') {
                   4870:                         if (($parmlev eq 'map') && ($pschp eq 'all')) {
                   4871:                             $result = ($aid <=> $bid);
                   4872:                         } elsif ($parmlev eq 'full') {
                   4873:                             $result = ($aid <=> $bid);
                   4874:                         } else {
                   4875:                             $result = ($ares cmp $bres);
                   4876:                         }
                   4877:                     } else {
                   4878:                         $result = ($ares cmp $bres);
                   4879:                     }
                   4880:                 } else {
                   4881:                     $result = ($ares cmp $bres);
                   4882:                 }
1.446     bisitz   4883:             } elsif ($astudent ne $bstudent) {
1.560     damieng  4884:                 $result = ($astudent cmp $bstudent);
                   4885:             } elsif ($apart    ne $bpart   ) {
                   4886:                 $result = ($apart    cmp $bpart);
                   4887:             }
                   4888:         } else {
                   4889:             if      ($astudent ne $bstudent) {
                   4890:                 $result = ($astudent cmp $bstudent);
                   4891:             } elsif ($ares     ne $bres    ) {
1.608     raeburn  4892:                 if ($caller eq 'newoverview') {
                   4893:                     if (ref($hash_for_realm) eq 'HASH') {
                   4894:                         if (($parmlev eq 'map') && ($pschp eq 'all')) {
                   4895:                             $result = ($aid <=> $bid);
                   4896:                         } elsif ($parmlev eq 'full') {
                   4897:                             $result = ($aid <=> $bid);
                   4898:                         } else {
                   4899:                             $result = ($ares cmp $bres);
                   4900:                         }
                   4901:                     } else {
                   4902:                         $result = ($ares cmp $bres);
                   4903:                     }
                   4904:                 } else {
                   4905:                     $result = ($ares cmp $bres);
                   4906:                 }
1.560     damieng  4907:             } elsif ($apart    ne $bpart   ) {
                   4908:                 $result = ($apart    cmp $bpart);
                   4909:             }
1.473     amueller 4910:         }
1.446     bisitz   4911: 
1.560     damieng  4912:         if (!$result) {
1.381     albertel 4913:             if (defined($aparm) && defined($bparm)) {
1.560     damieng  4914:                 $result = ($aparm <=> $bparm);
1.381     albertel 4915:             } elsif (defined($aparm)) {
1.560     damieng  4916:                 $result = -1;
1.381     albertel 4917:             } elsif (defined($bparm)) {
1.560     damieng  4918:                 $result = 1;
                   4919:             }
1.473     amueller 4920:         }
1.381     albertel 4921: 
1.560     damieng  4922:         $result;
                   4923:         
1.576     raeburn  4924:     } keys(%{$listdata})) { # foreach my $key
                   4925:         my $thiskey = $key;
1.560     damieng  4926:         if ($$listdata{$thiskey.'.type'}) {
                   4927:             my $thistype=$$listdata{$thiskey.'.type'};
                   4928:             if ($$resourcedata{$thiskey.'.type'}) {
                   4929:                 $thistype=$$resourcedata{$thiskey.'.type'};
                   4930:             }
                   4931:             my ($middle,$part,$name)=
1.572     damieng  4932:                 ($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s\-]+)\.(\w+)$/);
1.560     damieng  4933:             my $section=&mt('All Students');
1.594     raeburn  4934:             $readonly = $readonlyall;
1.599     raeburn  4935:             my $userscope;
1.576     raeburn  4936:             my $showval = $$resourcedata{$thiskey}; 
1.560     damieng  4937:             if ($middle=~/^\[(.*)\]/) {
                   4938:                 my $issection=$1;
                   4939:                 if ($issection=~/^useropt\:($match_username)\:($match_domain)/) {
                   4940:                     my ($stuname,$studom) = ($1,$2);
                   4941:                     if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
                   4942:                         if (ref($classlist) eq 'HASH') {
                   4943:                             if (ref($classlist->{$stuname.':'.$studom}) eq 'ARRAY') {
                   4944:                                 next unless ($classlist->{$stuname.':'.$studom}->[$secidx] eq $env{'request.course.sec'}); 
                   4945:                             }
                   4946:                         }
                   4947:                     }
                   4948:                     $section=&mt('User').": ".&Apache::loncommon::plainname($stuname,$studom);
1.599     raeburn  4949:                     $userscope = 1;
1.560     damieng  4950:                 } else {
                   4951:                     if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
                   4952:                         if (exists($grouphash{$issection})) {
                   4953:                             $section=&mt('Group').': '.$issection;
                   4954:                         } elsif ($issection eq $env{'request.course.sec'}) {
                   4955:                             $section = &mt('Section').': '.$issection;
                   4956:                         } else {
                   4957:                             next; 
1.552     raeburn  4958:                         }
1.560     damieng  4959:                     } else {
                   4960:                         $section=&mt('Group/Section').': '.$issection;
1.552     raeburn  4961:                     }
                   4962:                 }
1.560     damieng  4963:                 $middle=~s/^\[(.*)\]//;
                   4964:             } elsif (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
                   4965:                 $readonly = 1;
                   4966:             }
                   4967:             $middle=~s/\.+$//;
                   4968:             $middle=~s/^\.+//;
                   4969:             my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
1.576     raeburn  4970:             my ($is_map,$is_recursive,$mapurl,$maplevel);
                   4971:             if ($caller eq 'overview') {
                   4972:                 if ($middle=~/^(.+)\_\_\_\((all|rec)\)$/) {
                   4973:                     $mapurl = $1;
                   4974:                     $maplevel = $2;
                   4975:                     $is_map = 1;
                   4976:                 }
                   4977:             } elsif ($caller eq 'newoverview') {
                   4978:                 if ($middle=~/^(.+)\_\_\_\((all)\)$/) {
                   4979:                     $mapurl = $1;
                   4980:                     $maplevel = $2;
                   4981:                     $is_map = 1;
                   4982:                 }
                   4983:             }
                   4984:             if ($is_map) {
1.560     damieng  4985:                 my $leveltitle = &mt('Folder/Map');
1.615     raeburn  4986:                 my $title = &Apache::lonnet::gettitle($mapurl);
1.608     raeburn  4987:                 if (ref($hash_for_realm) eq 'HASH') {
                   4988:                     if ($hash_for_realm->{$mapurl} eq '1') {
                   4989:                         $title = &mt('Main Content');
                   4990:                     }
                   4991:                 }
1.576     raeburn  4992:                 unless (($name eq 'hiddenresource') || ($name eq 'encrypturl')) {   
                   4993:                     if ($caller eq 'newoverview') {
                   4994:                         my $altkey = $thiskey;
                   4995:                         $altkey =~ s/\Q___(all)\E/___(rec)/;
                   4996:                         if ((exists($$resourcedata{$altkey})) & (!exists($$resourcedata{$thiskey}))) {
                   4997:                             $is_recursive = 1;
                   4998:                             if ($$resourcedata{$altkey.'.type'}) {
                   4999:                                 $thistype=$$resourcedata{$altkey.'.type'};
                   5000:                             }
                   5001:                             $showval = $$resourcedata{$altkey};
                   5002:                         }
                   5003:                     } elsif (($caller eq 'overview') && ($maplevel eq 'rec')) {
                   5004:                         $thiskey =~ s/\Q___(rec)\E/___(all)/;
                   5005:                         $is_recursive = 1;
                   5006:                     }
1.560     damieng  5007:                 }
1.608     raeburn  5008:                 $realm='<span class="LC_parm_scope_folder">'.$leveltitle.': '.$title.' <br /><span class="LC_parm_folder">('.$mapurl.')</span></span>';
1.560     damieng  5009:             } elsif ($middle) {
                   5010:                 my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
1.609     raeburn  5011:                 next if (($url =~ /\.(page|sequence)$/) && ($parmlev eq 'full') && ($caller eq 'newoverview'));
1.560     damieng  5012:                 $realm='<span class="LC_parm_scope_resource">'.&mt('Resource').
                   5013:                     ': '.&Apache::lonnet::gettitle($middle).
                   5014:                     ' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.
                   5015:                     $id.')</span></span>';
                   5016:             }
                   5017:             if ($sortorder eq 'realmstudent') {
                   5018:                 if ($realm ne $oldrealm) {
                   5019:                     $r->print(&tableend()."\n<hr /><h1>$realm</h1>");
                   5020:                     $oldrealm=$realm;
                   5021:                     $oldsection='';
                   5022:                 }
                   5023:                 if ($section ne $oldsection) {
                   5024:                     $r->print(&tableend()."\n<h2>$section</h2>");
                   5025:                     $oldsection=$section;
                   5026:                     $oldpart='';
                   5027:                 }
1.552     raeburn  5028:             } else {
1.560     damieng  5029:                 if ($section ne $oldsection) {
                   5030:                     $r->print(&tableend()."\n<hr /><h1>$section</h1>");
                   5031:                     $oldsection=$section;
                   5032:                     $oldrealm='';
                   5033:                 }
                   5034:                 if ($realm ne $oldrealm) {
                   5035:                     $r->print(&tableend()."\n<h2>$realm</h2>");
                   5036:                     $oldrealm=$realm;
                   5037:                     $oldpart='';
1.552     raeburn  5038:                 }
                   5039:             }
1.560     damieng  5040:             if ($part ne $oldpart) {
                   5041:                 $r->print(&tableend().
                   5042:                     "\n".'<span class="LC_parm_part">'.&mt('Part').": $part</span>");
                   5043:                 $oldpart=$part;
1.556     raeburn  5044:             }
1.560     damieng  5045:     #
                   5046:     # Ready to print
                   5047:     #
1.470     raeburn  5048:             my $parmitem = &standard_parameter_names($name);
1.619   ! raeburn  5049:             my $advice;
        !          5050:             if (($name eq 'mapalias') && ($middle) && (!$is_map)) {
        !          5051:                 if ($middle =~ m{^uploaded/}) {
        !          5052:                     $advice = &mt('Use Course Editor to set this.');
        !          5053:                 } else {
        !          5054:                     $advice = &mt('Use Resource Assembly Tool to set this.');
        !          5055:                 }
        !          5056:                 $advice = '<br /><span class="LC_fontsize_small LC_cusr_emph">'.$advice.'</span>';
        !          5057:             }
1.576     raeburn  5058:             $r->print(&tablestart($readonly,$is_map).
1.560     damieng  5059:                 &Apache::loncommon::start_data_table_row().
                   5060:                 '<td><b>'.&mt($parmitem).
1.619   ! raeburn  5061:                 '</b>'.$advice.'</td>');
1.560     damieng  5062:             unless ($readonly) {
1.599     raeburn  5063:                 my $disabled;
                   5064:                 if (($name eq 'availablestudent') &&
                   5065:                     (($showval eq '') || ($userscope))) {
                   5066:                     $disabled = ' disabled="disabled"';
1.619   ! raeburn  5067:                 } elsif (($name eq 'mapalias') && ($showval eq '')) {
        !          5068:                     $disabled = ' disabled="disabled"';
1.599     raeburn  5069:                 }
1.560     damieng  5070:                 $r->print('<td><input type="checkbox" name="del_'.
1.599     raeburn  5071:                         $thiskey.'"'.$disabled.' /></td>');
1.560     damieng  5072:             }
                   5073:             $r->print('<td>');
                   5074:             $foundkeys++;
                   5075:             if (&isdateparm($thistype)) {
                   5076:                 my $jskey='key_'.$pointer;
                   5077:                 my $state;
                   5078:                 $pointer++;
                   5079:                 if ($readonly) {
                   5080:                     $state = 'disabled';
                   5081:                 }
                   5082:                 $r->print(
                   5083:                     &Apache::lonhtmlcommon::date_setter('parmform',
                   5084:                                                         $jskey,
1.576     raeburn  5085:                                                         $showval,
1.560     damieng  5086:                                                         '',1,$state));
                   5087:                 unless  ($readonly) {
                   5088:                     $r->print(
                   5089:     '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
1.576     raeburn  5090:     (($showval!=0)?'<span class="LC_nobreak"><a href="/adm/parmset?&action=dateshift1&timebase='.$showval.'">'.
1.560     damieng  5091:     &mt('Shift all dates based on this date').'</a></span>':'').
1.576     raeburn  5092:     &date_sanity_info($showval)
1.560     damieng  5093:                     );
                   5094:                 }
                   5095:             } elsif ($thistype eq 'date_interval') {
                   5096:                 $r->print(&date_interval_selector($thiskey,$name,
1.576     raeburn  5097:                           $showval,$readonly));
1.560     damieng  5098:             } elsif ($thistype =~ m/^string/) {
1.599     raeburn  5099:                 if ($name eq 'availablestudent') {
                   5100:                     $readonly = 1;
1.619   ! raeburn  5101:                 } elsif (($name eq 'mapalias') && ($showval eq '')) {
        !          5102:                     $readonly = 1;
1.599     raeburn  5103:                 }
1.560     damieng  5104:                 $r->print(&string_selector($thistype,$thiskey,
1.576     raeburn  5105:                           $showval,$name,$readonly));
1.560     damieng  5106:             } else {
1.576     raeburn  5107:                 $r->print(&default_selector($thiskey,$showval,$readonly));
1.552     raeburn  5108:             }
1.560     damieng  5109:             unless ($readonly) {
                   5110:                 $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
                   5111:                         $thistype.'" />');
1.552     raeburn  5112:             }
1.576     raeburn  5113:             $r->print('</td>');
                   5114:             if ($is_map) {
                   5115:                 if (($name eq 'encrypturl') || ($name eq 'hiddenresource')) {
                   5116:                     $r->print('<td><table><tr><td>'.&mt('Yes').'</td></tr></table></td>');
                   5117:                 } else {
                   5118:                     my ($disabled,$recon,$recoff);
                   5119:                     if ($readonly) {
                   5120:                         $disabled = ' disabled="disabled"';
                   5121:                     }
                   5122:                     if ($is_recursive) {
                   5123:                         $recon = ' checked="checked"';
                   5124:                     } else {
                   5125:                         $recoff = ' checked="checked"';
                   5126:                     }
                   5127:                     $r->print('<td><table><tr><td><label><input type="radio" name="rec_'.$thiskey.'" value="1"'.$recon.$disabled.' />'.&mt('Yes').'</label>'.
                   5128:                               '</td><td><label><input type="radio" name="rec_'.$thiskey.'" value="0"'.$recoff.$disabled.' />'.&mt('No').'</label></td></tr></table></td>');
                   5129:                 }
                   5130:             }
                   5131:             $r->print(&Apache::loncommon::end_data_table_row());
1.473     amueller 5132:         }
1.121     www      5133:     }
1.208     www      5134:     return $foundkeys;
                   5135: }
                   5136: 
1.563     damieng  5137: # Returns a string representing the interval, directly using form data matching the given key.
                   5138: # The returned string may also include information related to proctored exams.
                   5139: # Format: seconds['_done'[':'done button title':']['_proctor'['_'proctor key]]]
                   5140: #
                   5141: # @param {string} $key - suffix for form fields related to the interval
                   5142: # @returns {string}
1.385     albertel 5143: sub get_date_interval_from_form {
                   5144:     my ($key) = @_;
                   5145:     my $seconds = 0;
1.611     raeburn  5146:     my $numnotnull = 0;
1.385     albertel 5147:     foreach my $which (['days', 86400],
1.473     amueller 5148:                ['hours', 3600],
                   5149:                ['minutes', 60],
                   5150:                ['seconds',  1]) {
1.560     damieng  5151:         my ($name, $factor) = @{ $which };
                   5152:         if (defined($env{'form.'.$name.'_'.$key})) {
1.611     raeburn  5153:             unless ($env{'form.'.$name.'_'.$key} eq '') {
                   5154:                 $numnotnull ++;
                   5155:                 $seconds += $env{'form.'.$name.'_'.$key} * $factor;
                   5156:             }
1.560     damieng  5157:         }
1.473     amueller 5158:     }
1.560     damieng  5159:     if (($key =~ /\.interval$/) &&
                   5160:             (($env{'form.done_'.$key} eq '_done') || ($env{'form.done_'.$key} eq '_done_proctor'))) {
1.559     raeburn  5161:         if ($env{'form.done_'.$key.'_buttontext'}) {
                   5162:             $env{'form.done_'.$key.'_buttontext'} =~ s/\://g;
                   5163:             $seconds .= '_done:'.$env{'form.done_'.$key.'_buttontext'}.':';
                   5164:             if ($env{'form.done_'.$key} eq '_done_proctor') {
                   5165:                 $seconds .= '_proctor';
                   5166:             }
                   5167:         } else {
                   5168:             $seconds .= $env{'form.done_'.$key}; 
                   5169:         }
                   5170:         if (($env{'form.done_'.$key} eq '_done_proctor') && 
1.560     damieng  5171:                 ($env{'form.done_'.$key.'_proctorkey'})) {
1.558     raeburn  5172:             $seconds .= '_'.$env{'form.done_'.$key.'_proctorkey'};
                   5173:         }
1.554     raeburn  5174:     }
1.611     raeburn  5175:     return if (!$numnotnull);
1.385     albertel 5176:     return $seconds;
                   5177: }
                   5178: 
                   5179: 
1.563     damieng  5180: # Returns HTML to enter a text value for a parameter.
                   5181: #
                   5182: # @param {string} $thiskey - parameter key
                   5183: # @param {string} $showval - the current value
                   5184: # @param {boolean} $readonly - true if the field should not be made editable
                   5185: # @returns {string}
1.383     albertel 5186: sub default_selector {
1.552     raeburn  5187:     my ($thiskey, $showval, $readonly) = @_;
                   5188:     my $disabled;
                   5189:     if ($readonly) {
                   5190:         $disabled = ' disabled="disabled"';
                   5191:     }
                   5192:     return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'"'.$disabled.' />';
1.383     albertel 5193: }
                   5194: 
1.563     damieng  5195: # Returns HTML to enter allow/deny rules related to IP addresses.
                   5196: #
                   5197: # @param {string} $thiskey - parameter key
                   5198: # @param {string} $showval - the current value
                   5199: # @param {boolean} $readonly - true if the fields should not be made editable
                   5200: # @returns {string}
1.549     raeburn  5201: sub string_ip_selector {
1.552     raeburn  5202:     my ($thiskey, $showval, $readonly) = @_;
1.549     raeburn  5203:     my %access = (
                   5204:                    allow => [],
                   5205:                    deny  => [],
                   5206:                  );
                   5207:     if ($showval ne '') {
                   5208:         my @current;
                   5209:         if ($showval =~ /,/) {
                   5210:             @current = split(/,/,$showval);
                   5211:         } else {
                   5212:             @current = ($showval);
                   5213:         }
                   5214:         foreach my $item (@current) {
                   5215:             if ($item =~ /^\!([\[\]a-zA-Z\.\d\*\-]+)$/) {
                   5216:                 push(@{$access{'deny'}},$1);
                   5217:             } elsif ($item =~ /^([\[\]a-zA-Z\.\d\*\-]+)$/) {
                   5218:                 push(@{$access{'allow'}},$item);
                   5219:             }
                   5220:         }
                   5221:     }
                   5222:     if (!@{$access{'allow'}}) {
                   5223:         @{$access{'allow'}} = ('');
                   5224:     }
                   5225:     if (!@{$access{'deny'}}) {
                   5226:         @{$access{'deny'}} = ('');
                   5227:     }
1.552     raeburn  5228:     my ($disabled,$addmore);
1.567     raeburn  5229:     if ($readonly) {
1.552     raeburn  5230:         $disabled=' disabled="disabled"';
                   5231:     } else {
                   5232:         $addmore = "\n".'<button class="LC_add_ipacc_button">'.&mt('Add more').'</button>';
                   5233:     }
1.549     raeburn  5234:     my $output = '<input type="hidden" name="set_'.$thiskey.'" />
                   5235: <table><tr><th>'.&mt('Allow from').'</th><th>'.&mt('Deny from').'</th></tr><tr>';
                   5236:     foreach my $acctype ('allow','deny') {
                   5237:         $output .= '
                   5238: <td valign="top">
                   5239: <div class="LC_string_ipacc_wrap" id="LC_string_ipacc_'.$acctype.'_'.$thiskey.'">
                   5240:   <div class="LC_string_ipacc_inner">'."\n";
                   5241:         my $num = 0;
                   5242:         foreach my $curr (@{$access{$acctype}}) {
1.552     raeburn  5243:             $output .= '<div><input type="text" name="setip'.$acctype.'_'.$thiskey.'" value="'.$curr.'"'.$disabled.' />';
1.549     raeburn  5244:             if ($num > 0) {
                   5245:                 $output .= '<a href="#" class="LC_remove_ipacc">'.&mt('Remove').'</a>'; 
                   5246:             }
                   5247:             $output .= '</div>'."\n";
                   5248:             $num ++;
                   5249:         }
                   5250:         $output .= '
1.552     raeburn  5251:   </div>'.$addmore.'
1.549     raeburn  5252: </div>
                   5253: </td>';
                   5254:    }
                   5255:    $output .= '
                   5256: </tr>
                   5257: </table>'."\n";
                   5258:     return $output;
                   5259: }
                   5260: 
1.588     raeburn  5261: sub string_deeplink_selector {
                   5262:     my ($thiskey, $showval, $readonly) = @_;
1.616     raeburn  5263:     my (@tables,%values,@current,%titles,%options,%optiontext,%defaults,
                   5264:         %selectnull,%domlti,%crslti,@possmenus,%components);
                   5265:     @tables = ('upper','lower');
                   5266:     %components = (
                   5267:                     upper => ['state','others','listing','scope'],
                   5268:                     lower => ['protect','menus','target','exit'],
                   5269:                   );   
1.588     raeburn  5270:     %titles = &Apache::lonlocal::texthash (
1.601     raeburn  5271:                   state   => 'Access status',
                   5272:                   others  => 'Hide other resources',
1.588     raeburn  5273:                   listing => 'In Contents and/or Gradebook',
                   5274:                   scope   => 'Access scope for link',
1.601     raeburn  5275:                   protect => 'Link protection',
1.597     raeburn  5276:                   menus   => 'Menu Items Displayed',
1.613     raeburn  5277:                   target  => 'Embedded?',
1.616     raeburn  5278:                   exit    => 'Exit Tool Button?',
1.588     raeburn  5279:               );
                   5280:     %options = (
1.601     raeburn  5281:                    state   => ['only','off','both'],
                   5282:                    others  => ['hide','unhide'],
1.588     raeburn  5283:                    listing => ['full','absent','grades','details','datestatus'],
                   5284:                    scope   => ['res','map','rec'],
1.601     raeburn  5285:                    protect => ['none','key','ltid','ltic'],
1.597     raeburn  5286:                    menus   => ['std','colls'],
1.613     raeburn  5287:                    target  => ['_self','_top'],
1.616     raeburn  5288:                    exit    => ['no','yes','url'],
1.588     raeburn  5289:                );
                   5290:     %optiontext = &Apache::lonlocal::texthash (
1.601     raeburn  5291:                     only       => 'deep only',
                   5292:                     off        => 'deeplink off',
                   5293:                     both       => 'regular + deep',
                   5294:                     hide       => 'Hidden',
                   5295:                     unhide     => 'Unhidden',
1.588     raeburn  5296:                     full       => 'Listed (linked) in both',
                   5297:                     absent     => 'Not listed',
                   5298:                     grades     => 'Listed in grades only',
                   5299:                     details    => 'Listed (unlinked) in both',
                   5300:                     datestatus => 'Listed (unlinked) inc. status in both',
                   5301:                     res        => 'resource only',
                   5302:                     map        => 'enclosing map/folder',
                   5303:                     rec        => 'recursive map/folder',
1.601     raeburn  5304:                     none       => 'not in use',
                   5305:                     key        => 'key access',
                   5306:                     ltic       => 'LTI access (course)',
                   5307:                     ltid       => 'LTI access (domain)' ,
1.597     raeburn  5308:                     std        => 'Standard (all menus)',
                   5309:                     colls      => 'Numbered collection',
1.614     raeburn  5310:                     _self      => 'Embedded',
1.613     raeburn  5311:                     _top       => 'Not embedded',
1.616     raeburn  5312:                     no         => 'Not in use',
                   5313:                     yes        => 'In use, no URL redirect',
                   5314:                     url        => 'In use, redirect to URL',  
1.597     raeburn  5315:                   );
                   5316:     %selectnull = &Apache::lonlocal::texthash (
1.601     raeburn  5317:                     ltic => 'Select Launcher',
                   5318:                     ltid => 'Select Launcher', 
1.597     raeburn  5319:                     colls => 'Select',
1.588     raeburn  5320:                   );
                   5321:     if ($showval =~ /,/) {
1.597     raeburn  5322:         %values=();
1.588     raeburn  5323:         @current = split(/,/,$showval);
1.601     raeburn  5324:         ($values{'state'}) = ($current[0] =~ /^(only|off|both)$/);
                   5325:         ($values{'others'}) = ($current[1] =~ /^(hide|unhide)$/);
                   5326:         ($values{'listing'}) = ($current[2] =~ /^(full|absent|grades|details|datestatus)$/);
                   5327:         ($values{'scope'}) = ($current[3] =~ /^(res|map|rec)$/);
                   5328:         ($values{'protect'}) = ($current[4] =~ /^(key:[a-zA-Z\d_.!\@#\$%^&*()+=-]+|ltic:\d+|ltid:\d+)$/);
                   5329:         ($values{'menus'}) = ($current[5] =~ /^(\d+)$/);
1.613     raeburn  5330:         ($values{'target'}) = ($current[6] =~ /^(_self|_top)$/);
1.616     raeburn  5331:         ($values{'exit'}) = ($current[7] =~ /^((?:(?:yes|url)(?:|\:[^:;"',]+))|no)$/);
1.588     raeburn  5332:     } else {
1.601     raeburn  5333:         $defaults{'state'} = 'off',
                   5334:         $defaults{'others'} = 'unhide',
1.588     raeburn  5335:         $defaults{'listing'} = 'full';
                   5336:         $defaults{'scope'} = 'res';
1.601     raeburn  5337:         $defaults{'protect'} = 'none';
1.597     raeburn  5338:         $defaults{'menus'} = '0';
1.613     raeburn  5339:         $defaults{'target'} = '_top';
1.616     raeburn  5340:         $defaults{'exit'} = 'yes';
1.588     raeburn  5341:     }
                   5342:     my $disabled;
                   5343:     if ($readonly) {
                   5344:         $disabled=' disabled="disabled"';
                   5345:     }
1.601     raeburn  5346:     my %courselti =
                   5347:         &Apache::lonnet::get_course_lti($env{'course.'.$env{'request.course.id'}.'.num'},
                   5348:                                         $env{'course.'.$env{'request.course.id'}.'.domain'});
                   5349:     foreach my $item (keys(%courselti)) {
                   5350:         if (ref($courselti{$item}) eq 'HASH') {
                   5351:             $crslti{$item} = $courselti{$item}{'name'};
                   5352:         }
                   5353:     }
                   5354:     my %lti =
1.588     raeburn  5355:         &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
1.604     raeburn  5356:                                         'linkprot');
1.588     raeburn  5357:     foreach my $item (keys(%lti)) {
1.604     raeburn  5358:         if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
                   5359:             $domlti{$item} = $lti{$item}{'name'};
1.588     raeburn  5360:         }
                   5361:     }
1.597     raeburn  5362:     if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) {
                   5363:         foreach my $item (split(/;/,$env{'course.'.$env{'request.course.id'}.'.menucollections'})) {
                   5364:             my ($num,$value) = split(/\%/,$item);
                   5365:             if ($num =~ /^\d+$/) {
                   5366:                 push(@possmenus,$num);
                   5367:             }
                   5368:         }
                   5369:     }
                   5370: 
1.616     raeburn  5371:     my $output = '<input type="hidden" name="set_'.$thiskey.'" />';
                   5372:     foreach my $table ('upper','lower') {
                   5373:         next unless (ref($components{$table}) eq 'ARRAY');
                   5374:         $output .= '<table width="100%"><tr>';
                   5375:         foreach my $item (@{$components{$table}}) {
                   5376:             $output .= '<th>'.$titles{$item}.'</th>';
                   5377:         }
                   5378:         $output .= '</tr><tr>';
                   5379:         foreach my $item (@{$components{$table}}) {
                   5380:             $output .= '<td>';
                   5381:             if (($item eq 'protect') || ($item eq 'menus') || ($item eq 'exit')) {
                   5382:                 my $selected = $values{$item};
                   5383:                 foreach my $option (@{$options{$item}}) {
                   5384:                     if ($item eq 'protect') { 
                   5385:                         if ($option eq 'ltid') {
                   5386:                             next unless (keys(%domlti));
                   5387:                         } elsif ($option eq 'ltic') {
                   5388:                             next unless (keys(%crslti));
                   5389:                         }
                   5390:                     } elsif (($item eq 'menus') && ($option eq 'colls')) {
                   5391:                         next unless (@possmenus);
                   5392:                     }
                   5393:                     my $checked;
                   5394:                     if ($item eq 'menus') {
                   5395:                         if (($selected =~ /^\d+$/) && (@possmenus) &&
                   5396:                             (grep(/^\Q$selected\E$/,@possmenus))) {
                   5397:                             if ($option eq 'colls') {
                   5398:                                 $checked = ' checked="checked"';
                   5399:                             }
                   5400:                         } elsif (($option eq 'std') && ($selected == 0) && ($selected ne '')) {
1.597     raeburn  5401:                             $checked = ' checked="checked"';
                   5402:                         }
1.616     raeburn  5403:                     } elsif ($selected =~ /^\Q$option\E/) {
1.597     raeburn  5404:                         $checked = ' checked="checked"';
                   5405:                     }
1.616     raeburn  5406:                     my $onclick;
                   5407:                     unless ($readonly) {
                   5408:                         my $esc_key = &js_escape($thiskey);
                   5409:                         $onclick = ' onclick="toggleDeepLink(this.form,'."'$item','$esc_key'".');"';
                   5410:                     }
                   5411:                     $output .= '<span class="LC_nobreak"><label>'.
                   5412:                                '<input type="radio" name="deeplink_'.$item.'_'.$thiskey.'" value="'.$option.'"'.$onclick.$disabled.$checked.' />'."\n".
                   5413:                                $optiontext{$option}.'</label>';
                   5414:                     if (($item eq 'protect') && ($option eq 'key')) {
                   5415:                         my $visibility="hidden";
                   5416:                         my $currkey;
                   5417:                         if ($checked) {
                   5418:                             $visibility = "text";
                   5419:                             $currkey = (split(/\:/,$values{$item}))[1];
                   5420:                         }
                   5421:                         $output .= '&nbsp;'.
                   5422:                                    '<input type="'.$visibility.'" name="deeplink_'.$option.'_'.$thiskey.'" id="deeplink_'.$option.'_'.$item.'_'.$thiskey.'" value="'.$currkey.'" size="10"'.$disabled.' />';
                   5423:                     } elsif (($option eq 'ltic') || ($option eq 'ltid') || ($option eq 'colls')) {
                   5424:                         my $display="none";
                   5425:                         my ($current,$blankcheck,@possibles);
                   5426:                         if ($checked) {
                   5427:                             $display = 'inline-block';
                   5428:                             if (($option eq 'ltic') || ($option eq 'ltid'))  {
                   5429:                                 $current = (split(/\:/,$selected))[1];
                   5430:                             } else {
                   5431:                                 $current = $selected;
                   5432:                             }
1.597     raeburn  5433:                         } else {
1.616     raeburn  5434:                             $blankcheck = ' selected="selected"';
1.597     raeburn  5435:                         }
1.601     raeburn  5436:                         if ($option eq 'ltid') {
1.616     raeburn  5437:                             @possibles = keys(%domlti);
1.601     raeburn  5438:                         } elsif ($option eq 'ltic') {
1.616     raeburn  5439:                             @possibles = keys(%crslti); 
                   5440:                         } else {
                   5441:                             @possibles = @possmenus;
                   5442:                         }
                   5443:                         $output .= '<div id="deeplinkdiv_'.$option.'_'.$item.'_'.$thiskey.'"'.
                   5444:                                    ' style="display: '.$display.'">&nbsp;<select name="'.
                   5445:                                    'deeplink_'.$option.'_'.$thiskey.'"'.$disabled.'>';
                   5446:                         if (@possibles > 1) {
                   5447:                             $output .= '<option value=""'.$blankcheck.'>'.$selectnull{$option}.
                   5448:                                        '</option>'."\n";
                   5449:                         }
                   5450:                         foreach my $poss (sort { $a <=> $b } @possibles) {
                   5451:                             my $selected;
                   5452:                             if (($poss == $current) || (scalar(@possibles) ==1)) {
                   5453:                                 $selected = ' selected="selected"';
                   5454:                             }
                   5455:                             my $shown = $poss;
                   5456:                             if ($option eq 'ltid') {
                   5457:                                 $shown = $domlti{$poss};
                   5458:                             } elsif ($option eq 'ltic') {
                   5459:                                 $shown = $crslti{$poss};
                   5460:                             }
                   5461:                             $output .= '<option value="'.$poss.'"'.$selected.'>'.$shown.'</option>';
                   5462:                         }
                   5463:                         $output .= '</select></div>';
                   5464:                     }
                   5465:                     $output .= '</span> ';
                   5466:                 }
                   5467:                 if ($item eq 'exit') {
                   5468:                     my $exitsty = 'none';
                   5469:                     my $displayval;
                   5470:                     if ($values{$item} =~ /^(yes|url)/) { 
                   5471:                         $exitsty = 'inline-block';
                   5472:                         my $currval = (split(/\:/,$values{$item}))[1];
                   5473:                         if ($currval eq '') {
                   5474:                             $displayval = 'Exit Tool';
                   5475:                         } else {
                   5476:                             $displayval = $currval;
1.597     raeburn  5477:                         }
1.588     raeburn  5478:                     }
1.616     raeburn  5479:                     $output .= '<div id="deeplinkdiv_'.$item.'_'.$thiskey.'"'.
                   5480:                                ' style="display: '.$exitsty.'"><br />'.&mt('Button text').': '.
                   5481:                                '<input type="text" name="deeplink_exittext_'.$thiskey.'"'.
                   5482:                                ' id="deeplink_exittext_'.$thiskey.'" value="'.$displayval.'"'.
                   5483:                                ' size="10"'.$disabled.' /></div>';
1.588     raeburn  5484:                 }
1.616     raeburn  5485:             } else {
                   5486:                 my $selected = $values{$item};
                   5487:                 my $defsel;
                   5488:                 if ($selected eq '') {
                   5489:                     $defsel = ' selected="selected"';
                   5490:                 }
                   5491:                 $output .= '<select name="deeplink_'.$item.'_'.$thiskey.'"'.$disabled.'>'."\n".
                   5492:                            '<option value=""'.$defsel.'>'.&mt('Please select').'</option>'."\n";
                   5493:                 foreach my $option (@{$options{$item}}) {
                   5494:                     $output .= '<option value="'.$option.'"';
                   5495:                     if ($option eq $selected) {
                   5496:                         $output .= ' selected="selected"';
                   5497:                     }
                   5498:                     $output .= '>'.$optiontext{$option}.'</option>';
1.588     raeburn  5499:                 }
1.616     raeburn  5500:                 $output .= '</select>';
1.588     raeburn  5501:             }
1.616     raeburn  5502:             $output .= '</td>';
                   5503:         }
                   5504:         $output .= '</tr></table>'."\n";
                   5505:         if ($table eq 'upper') {
                   5506:             $output .= '<br />';
1.588     raeburn  5507:         }
                   5508:     }
                   5509:     return $output;
                   5510: }
                   5511: 
1.560     damieng  5512: 
                   5513: { # block using some constants related to parameter types (overview mode)
                   5514: 
1.446     bisitz   5515: my %strings =
1.383     albertel 5516:     (
                   5517:      'string_yesno'
                   5518:              => [[ 'yes', 'Yes' ],
1.560     damieng  5519:                  [ 'no', 'No' ]],
1.383     albertel 5520:      'string_problemstatus'
                   5521:              => [[ 'yes', 'Yes' ],
1.473     amueller 5522:          [ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ],
                   5523:          [ 'no', 'No, don\'t show correct/incorrect feedback.' ],
                   5524:          [ 'no_feedback_ever', 'No, show no feedback at all.' ]],
1.504     raeburn  5525:      'string_questiontype'
                   5526:              => [[ 'problem', 'Standard Problem'],
                   5527:                  [ 'survey', 'Survey'],
                   5528:                  [ 'anonsurveycred', 'Anonymous Survey (credit for submission)'],
1.530     bisitz   5529:                  [ 'exam', 'Bubblesheet Exam'],
1.504     raeburn  5530:                  [ 'anonsurvey', 'Anonymous Survey'],
                   5531:                  [ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],
                   5532:                  [ 'practice', 'Practice'],
                   5533:                  [ 'surveycred', 'Survey (credit for submission)']],
1.514     raeburn  5534:      'string_lenient'
                   5535:              => [['yes', 'Yes' ],
                   5536:                  [ 'no', 'No' ],
1.549     raeburn  5537:                  [ 'default', 'Default - only bubblesheet grading is lenient' ],
                   5538:                  [ 'weighted', 'Yes, weighted (optionresponse in checkbox mode)' ]],
1.521     raeburn  5539:      'string_discussvote'
                   5540:              => [['yes','Yes'],
                   5541:                  ['notended','Yes, unless discussion ended'],
                   5542:                  ['no','No']],
1.549     raeburn  5543:      'string_ip'
                   5544:              => [['_allowfrom_','Hostname(s), or IP(s) from which access is allowed'],
1.587     raeburn  5545:                  ['_denyfrom_','Hostname(s) or IP(s) from which access is disallowed']], 
                   5546:      'string_deeplink'
1.616     raeburn  5547:              => [['on','Set choices for link protection, resource listing, access scope, shown menu items, embedding, and exit link']],
1.587     raeburn  5548:     );
                   5549:    
1.383     albertel 5550: 
1.549     raeburn  5551: my %stringmatches = (
                   5552:          'string_lenient'
                   5553:               => [['weighted','^\-?[.\d]+,\-?[.\d]+,\-?[.\d]+,\-?[.\d]+$'],],
                   5554:          'string_ip'
                   5555:               => [['_allowfrom_','[^\!]+'],
                   5556:                   ['_denyfrom_','\!']],
1.588     raeburn  5557:          'string_deeplink'
1.616     raeburn  5558:               => [['on','^(only|off|both)\,(hide|unhide)\,(full|absent|grades|details|datestatus)\,(res|map|rec)\,(none|key\:\w+|ltic\:\d+|ltid\:\d+)\,(\d+|)\,_(self|top),(yes|url|no)(|:[^:;\'",]+)$']],
1.549     raeburn  5559:     );
                   5560: 
                   5561: my %stringtypes = (
                   5562:                     type         => 'string_questiontype',
                   5563:                     lenient      => 'string_lenient',
                   5564:                     retrypartial => 'string_yesno',
                   5565:                     discussvote  => 'string_discussvote',
                   5566:                     examcode     => 'string_examcode',
                   5567:                     acc          => 'string_ip',
1.587     raeburn  5568:                     deeplink     => 'string_deeplink',
1.549     raeburn  5569:                   );
                   5570: 
1.563     damieng  5571: # Returns the possible values and titles for a given string type, or undef if there are none.
                   5572: # Used by courseprefs.
                   5573: #
                   5574: # @param {string} $string_type - a parameter type for strings
                   5575: # @returns {array reference} - 2D array, containing values and English titles
1.505     raeburn  5576: sub standard_string_options {
                   5577:     my ($string_type) = @_;
                   5578:     if (ref($strings{$string_type}) eq 'ARRAY') {
                   5579:         return $strings{$string_type};
                   5580:     }
                   5581:     return;
                   5582: }
1.383     albertel 5583: 
1.563     damieng  5584: # Returns regular expressions to match kinds of string types, or undef if there are none.
                   5585: #
                   5586: # @param {string} $string_type - a parameter type for strings
                   5587: # @returns {array reference}  - 2D array, containing regular expression names and regular expressions
1.549     raeburn  5588: sub standard_string_matches {
                   5589:     my ($string_type) = @_;
                   5590:     if (ref($stringmatches{$string_type}) eq 'ARRAY') {
                   5591:         return $stringmatches{$string_type};
                   5592:     }
                   5593:     return;
                   5594: }
                   5595: 
1.563     damieng  5596: # Returns a parameter type for a given parameter with a string type, or undef if not known.
                   5597: #
                   5598: # @param {string} $name - parameter name
                   5599: # @returns {string}
1.549     raeburn  5600: sub get_stringtype {
                   5601:     my ($name) = @_;
                   5602:     if (exists($stringtypes{$name})) {
                   5603:         return $stringtypes{$name};
                   5604:     }
                   5605:     return;
                   5606: }
                   5607: 
1.563     damieng  5608: # Returns HTML to edit a string parameter.
                   5609: #
                   5610: # @param {string} $thistype - parameter type
                   5611: # @param {string} $thiskey - parameter key
                   5612: # @param {string} $showval - parameter current value
                   5613: # @param {string} $name - parameter name
                   5614: # @param {boolean} $readonly - true if the values should not be made editable
                   5615: # @returns {string}
1.383     albertel 5616: sub string_selector {
1.552     raeburn  5617:     my ($thistype, $thiskey, $showval, $name, $readonly) = @_;
1.446     bisitz   5618: 
1.383     albertel 5619:     if (!exists($strings{$thistype})) {
1.552     raeburn  5620:         return &default_selector($thiskey,$showval,$readonly);
1.383     albertel 5621:     }
                   5622: 
1.504     raeburn  5623:     my %skiptype;
1.514     raeburn  5624:     if (($thistype eq 'string_questiontype') || 
1.560     damieng  5625:             ($thistype eq 'string_lenient') ||
                   5626:             ($thistype eq 'string_discussvote') ||
                   5627:             ($thistype eq 'string_ip') ||
1.588     raeburn  5628:             ($thistype eq 'string_deeplink') ||
1.560     damieng  5629:             ($name eq 'retrypartial')) {
1.504     raeburn  5630:         my ($got_chostname,$chostname,$cmajor,$cminor); 
                   5631:         foreach my $possibilities (@{ $strings{$thistype} }) {
                   5632:             next unless (ref($possibilities) eq 'ARRAY');
1.514     raeburn  5633:             my ($parmval, $description) = @{ $possibilities };
1.549     raeburn  5634:             my $parmmatch;
                   5635:             if (ref($stringmatches{$thistype}) eq 'ARRAY') {
                   5636:                 foreach my $item (@{$stringmatches{$thistype}}) {
                   5637:                     if (ref($item) eq 'ARRAY') {
                   5638:                         if ($parmval eq $item->[0]) {
                   5639:                             $parmmatch = $parmval;
                   5640:                             $parmval = '';
                   5641:                             last;
                   5642:                         }
                   5643:                     }
                   5644:                 }
                   5645:             }
                   5646:             my $needsrelease=$Apache::lonnet::needsrelease{"parameter:$name:$parmval:$parmmatch"}; 
1.504     raeburn  5647:             if ($needsrelease) {
                   5648:                 unless ($got_chostname) {
1.514     raeburn  5649:                     ($chostname,$cmajor,$cminor)=&parameter_release_vars();
1.504     raeburn  5650:                     $got_chostname = 1;
                   5651:                 }
1.557     raeburn  5652:                 my $needsnewer=&parameter_releasecheck($name,$parmval,$parmmatch,undef,
1.549     raeburn  5653:                                                        $needsrelease,$cmajor,$cminor);
1.504     raeburn  5654:                 if ($needsnewer) {
1.549     raeburn  5655:                     if ($parmmatch ne '') {
                   5656:                         $skiptype{$parmmatch} = 1;
                   5657:                     } elsif ($parmval ne '') {
                   5658:                         $skiptype{$parmval} = 1;
                   5659:                     }
1.504     raeburn  5660:                 }
                   5661:             }
                   5662:         }
                   5663:     }
1.549     raeburn  5664: 
                   5665:     if ($thistype eq 'string_ip') {
1.552     raeburn  5666:         return &string_ip_selector($thiskey,$showval,$readonly); 
1.588     raeburn  5667:     } elsif ($thistype eq 'string_deeplink') {
                   5668:         return &string_deeplink_selector($thiskey,$showval,$readonly);
1.549     raeburn  5669:     }
1.504     raeburn  5670: 
1.552     raeburn  5671:     my ($result,$disabled);
                   5672: 
                   5673:     if ($readonly) {
                   5674:         $disabled = ' disabled="disabled"';
                   5675:     }
1.504     raeburn  5676:     my $numinrow = 3;
                   5677:     if ($thistype eq 'string_problemstatus') {
                   5678:         $numinrow = 2;
                   5679:     } elsif ($thistype eq 'string_questiontype') {
                   5680:         if (keys(%skiptype) > 0) {
                   5681:              $numinrow = 4;
                   5682:         }
                   5683:     }
                   5684:     my $rem;
                   5685:     if (ref($strings{$thistype}) eq 'ARRAY') {
                   5686:         my $i=0;
                   5687:         foreach my $possibilities (@{ $strings{$thistype} }) {
                   5688:             next unless (ref($possibilities) eq 'ARRAY');
                   5689:             my ($name, $description) = @{ $possibilities };
1.549     raeburn  5690:             next if ($skiptype{$name});
1.504     raeburn  5691:             $rem = $i%($numinrow);
                   5692:             if ($rem == 0) {
                   5693:                 if ($i > 0) {
                   5694:                     $result .= '</tr>';
                   5695:                 }
                   5696:                 $result .= '<tr>';
                   5697:             }
1.549     raeburn  5698:             my $colspan;
                   5699:             if ($i == @{ $strings{$thistype} }-1) {
                   5700:                 $rem = @{ $strings{$thistype} }%($numinrow);
                   5701:                 if ($rem) {
                   5702:                     my $colsleft = $numinrow - $rem;
                   5703:                     if ($colsleft) {
                   5704:                         $colspan = $colsleft+1;
                   5705:                         $colspan = ' colspan="'.$colspan.'"';
                   5706:                     }
                   5707:                 }
                   5708:             }
                   5709:             my ($add,$onchange,$css_class);
                   5710:             if ($thistype eq 'string_lenient') {
                   5711:                 if ($name eq 'weighted') {
                   5712:                     my $display;
                   5713:                     my %relatives = &Apache::lonlocal::texthash(
                   5714:                                         corrchkd     => 'Correct (checked)',
                   5715:                                         corrunchkd   => 'Correct (unchecked)',
                   5716:                                         incorrchkd   => 'Incorrect (checked)',
                   5717:                                         incorrunchkd => 'Incorrect (unchecked)',
                   5718:                     );
                   5719:                     my %textval = (
                   5720:                                     corrchkd     => '1.0',
                   5721:                                     corrunchkd   => '1.0',
                   5722:                                     incorrchkd   => '0.0',
                   5723:                                     incorrunchkd => '0.0',
                   5724:                     );
                   5725:                     if ($showval =~ /^([\-\d\.]+)\,([\-\d\.]+)\,([\-\d\.]+)\,([\-\d\.]+)$/) {
                   5726:                         $textval{'corrchkd'} = $1;
                   5727:                         $textval{'corrunchkd'} = $2;
                   5728:                         $textval{'incorrchkd'} = $3;
                   5729:                         $textval{'incorrunchkd'} = $4;
                   5730:                         $display = 'inline';
                   5731:                         $showval = $name;
                   5732:                     } else {
                   5733:                         $display = 'none';
                   5734:                     }
                   5735:                     $add = ' <div id="LC_parmtext_'.$thiskey.'" style="display:'.$display.'"><table>'.
                   5736:                            '<tr><th colspan="2">'.&mt("Foil's submission status").'</th><th>'.&mt('Points').'</th></tr>';  
                   5737:                     foreach my $reltype ('corrchkd','corrunchkd','incorrchkd','incorrunchkd') {
                   5738:                         $add .= '<tr><td>&nbsp;</td><td>'.$relatives{$reltype}.'</td>'."\n".
                   5739:                                 '<td><input type="text" name="settext_'.$thiskey.'"'.
1.552     raeburn  5740:                                 ' value="'.$textval{$reltype}.'" size="3"'.$disabled.' />'.
1.549     raeburn  5741:                                 '</td></tr>';
                   5742:                     }
                   5743:                     $add .= '</table></div>'."\n";
                   5744:                 }
                   5745:                 $onchange = ' onclick="javascript:toggleParmTextbox(this.form,'."'$thiskey'".');"';
                   5746:                 $css_class = ' class="LC_lenient_radio"';
                   5747:             }
                   5748:             $result .= '<td class="LC_left_item"'.$colspan.'>'.
1.504     raeburn  5749:                        '<span class="LC_nobreak"><label>'.
                   5750:                        '<input type="radio" name="set_'.$thiskey.
1.552     raeburn  5751:                        '" value="'.$name.'"'.$onchange.$css_class.$disabled;
1.504     raeburn  5752:             if ($showval eq $name) {
                   5753:                 $result .= ' checked="checked"';
                   5754:             }
1.549     raeburn  5755:             $result .= ' />'.&mt($description).'</label>'.$add.'</span></td>';
1.504     raeburn  5756:             $i++;
                   5757:         }
                   5758:         $result .= '</tr>';
1.473     amueller 5759:     }
1.504     raeburn  5760:     if ($result) {
                   5761:         $result = '<table border="0">'.$result.'</table>';
1.383     albertel 5762:     }
                   5763:     return $result;
                   5764: }
                   5765: 
1.554     raeburn  5766: my %intervals =
                   5767:     (
                   5768:      'date_interval'
                   5769:              => [[ 'done', 'Yes' ],
1.558     raeburn  5770:                  [ 'done_proctor', 'Yes, with proctor key'],                  
1.554     raeburn  5771:                  [ '', 'No' ]],
                   5772:     );
                   5773: 
                   5774: my %intervalmatches = (
                   5775:          'date_interval'
1.559     raeburn  5776:               => [['done','\d+_done(|\:[^\:]+\:)$'],
                   5777:                   ['done_proctor','\d+_done(|\:[^\:]+\:)_proctor_']],
1.554     raeburn  5778:     );
                   5779: 
                   5780: my %intervaltypes = (
                   5781:                       interval => 'date_interval',
                   5782:     );
                   5783: 
1.563     damieng  5784: # Returns regular expressions to match kinds of interval type, or undef if there are none.
                   5785: #
                   5786: # @param {string} $interval_type - a parameter type for intervals
                   5787: # @returns {array reference}  - 2D array, containing regular expression names and regular expressions
1.554     raeburn  5788: sub standard_interval_matches {
                   5789:     my ($interval_type) = @_;
                   5790:     if (ref($intervalmatches{$interval_type}) eq 'ARRAY') {
                   5791:         return $intervalmatches{$interval_type};
                   5792:     }
                   5793:     return;
                   5794: }
                   5795: 
1.563     damieng  5796: # Returns a parameter type for a given parameter with an interval type, or undef if not known.
                   5797: #
                   5798: # @param {string} $name - parameter name
                   5799: # @returns {string}
1.554     raeburn  5800: sub get_intervaltype {
                   5801:     my ($name) = @_;
                   5802:     if (exists($intervaltypes{$name})) {
                   5803:         return $intervaltypes{$name};
                   5804:     }
                   5805:     return;
                   5806: }
                   5807: 
1.563     damieng  5808: # Returns the possible values and titles for a given interval type, or undef if there are none.
                   5809: # Used by courseprefs.
                   5810: #
                   5811: # @param {string} $interval_type - a parameter type for intervals
                   5812: # @returns {array reference} - 2D array, containing values and English titles
1.554     raeburn  5813: sub standard_interval_options {
                   5814:     my ($interval_type) = @_;
                   5815:     if (ref($intervals{$interval_type}) eq 'ARRAY') {
                   5816:         return $intervals{$interval_type};
                   5817:     }
                   5818:     return;
                   5819: }
                   5820: 
1.563     damieng  5821: # Returns HTML to edit a date interval parameter.
                   5822: #
                   5823: # @param {string} $thiskey - parameter key
                   5824: # @param {string} $name - parameter name
                   5825: # @param {string} $showval - parameter current value
                   5826: # @param {boolean} $readonly - true if the values should not be made editable
                   5827: # @returns {string}
1.554     raeburn  5828: sub date_interval_selector {
                   5829:     my ($thiskey, $name, $showval, $readonly) = @_;
                   5830:     my ($result,%skipval);
                   5831:     if ($name eq 'interval') {
                   5832:         my $intervaltype = &get_intervaltype($name);
                   5833:         my ($got_chostname,$chostname,$cmajor,$cminor);
                   5834:         foreach my $possibilities (@{ $intervals{$intervaltype} }) {
                   5835:             next unless (ref($possibilities) eq 'ARRAY');
                   5836:             my ($parmval, $description) = @{ $possibilities };
                   5837:             my $parmmatch;
                   5838:             if (ref($intervalmatches{$intervaltype}) eq 'ARRAY') {
                   5839:                 foreach my $item (@{$intervalmatches{$intervaltype}}) {
                   5840:                     if (ref($item) eq 'ARRAY') {
                   5841:                         if ($parmval eq $item->[0]) {
                   5842:                             $parmmatch = $parmval;
                   5843:                             $parmval = '';
                   5844:                             last;
                   5845:                         }
                   5846:                     }
                   5847:                 }
                   5848:             }
                   5849:             my $needsrelease=$Apache::lonnet::needsrelease{"parameter:$name:$parmval:$parmmatch"};
                   5850:             if ($needsrelease) {
                   5851:                 unless ($got_chostname) {
                   5852:                     ($chostname,$cmajor,$cminor)=&parameter_release_vars();
                   5853:                     $got_chostname = 1;
                   5854:                 }
1.557     raeburn  5855:                 my $needsnewer=&parameter_releasecheck($name,$parmval,$parmmatch,undef,
1.554     raeburn  5856:                                                        $needsrelease,$cmajor,$cminor);
                   5857:                 if ($needsnewer) {
                   5858:                     if ($parmmatch ne '') {
                   5859:                         $skipval{$parmmatch} = 1;
                   5860:                     } elsif ($parmval ne '') {
                   5861:                         $skipval{$parmval} = 1;
                   5862:                     }
                   5863:                 }
                   5864:             }
                   5865:         }
                   5866:     }
                   5867: 
                   5868:     my $currval = $showval;
                   5869:     foreach my $which (['days', 86400, 31],
                   5870:                ['hours', 3600, 23],
                   5871:                ['minutes', 60, 59],
                   5872:                ['seconds',  1, 59]) {
1.560     damieng  5873:         my ($name, $factor, $max) = @{ $which };
                   5874:         my $amount = int($showval/$factor);
                   5875:         $showval  %= $factor;
                   5876:         my %select = ((map {$_ => $_} (0..$max)),
                   5877:                 'select_form_order' => [0..$max]);
1.611     raeburn  5878:         if ($currval eq '') {
                   5879:             unshift(@{$select{'select_form_order'}},'');
                   5880:             $select{''} = '';
                   5881:             $amount = '';
                   5882:         }
1.560     damieng  5883:         $result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
                   5884:                             \%select,'',$readonly);
                   5885:         $result .= ' '.&mt($name);
1.554     raeburn  5886:     }
                   5887:     if ($name eq 'interval') {
                   5888:         unless ($skipval{'done'}) {
                   5889:             my $checkedon = '';
1.611     raeburn  5890:             my $checkedoff = '';
1.558     raeburn  5891:             my $checkedproc = '';
                   5892:             my $currproctorkey = '';
                   5893:             my $currprocdisplay = 'hidden';
1.559     raeburn  5894:             my $currdonetext = &mt('Done');
                   5895:             if ($currval =~ /^(?:\d+)_done$/) {
                   5896:                 $checkedon = ' checked="checked"';
                   5897:             } elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:$/) {
                   5898:                 $currdonetext = $1;
1.554     raeburn  5899:                 $checkedon = ' checked="checked"';
1.558     raeburn  5900:             } elsif ($currval =~ /^(?:\d+)_done_proctor_(.+)$/) {
                   5901:                 $currproctorkey = $1;
                   5902:                 $checkedproc = ' checked="checked"';
                   5903:                 $currprocdisplay = 'text';
1.559     raeburn  5904:             } elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:_proctor_(.+)$/) {
                   5905:                 $currdonetext = $1;
                   5906:                 $currproctorkey = $2;
                   5907:                 $checkedproc = ' checked="checked"';
                   5908:                 $currprocdisplay = 'text';
1.611     raeburn  5909:             } elsif ($currval ne '') {
                   5910:                 $checkedoff = ' checked="checked"';
                   5911:             } else {
                   5912:                 $currdonetext = '';
1.554     raeburn  5913:             }
1.558     raeburn  5914:             my $onclick = ' onclick="toggleSecret(this.form,'."'done_','$thiskey'".');"';
1.567     raeburn  5915:             my $disabled;
                   5916:             if ($readonly) {
                   5917:                 $disabled = ' disabled="disabled"';
                   5918:             }
1.558     raeburn  5919:             $result .= '<br /><span class="LC_nobreak">'.&mt('Include "done" button').
1.567     raeburn  5920:                        '<label><input type="radio" value="" name="done_'.$thiskey.'"'.$checkedoff.$onclick.$disabled.' />'.
1.558     raeburn  5921:                        &mt('No').'</label>'.('&nbsp;'x2).
1.567     raeburn  5922:                        '<label><input type="radio" value="_done" name="done_'.$thiskey.'"'.$checkedon.$onclick.$disabled.' />'.
1.558     raeburn  5923:                        &mt('Yes').'</label>'.('&nbsp;'x2).
1.567     raeburn  5924:                        '<label><input type="radio" value="_done_proctor" name="done_'.$thiskey.'"'.$checkedproc.$onclick.$disabled.' />'.
1.558     raeburn  5925:                        &mt('Yes, with proctor key').'</label>'.
                   5926:                        '<input type="'.$currprocdisplay.'" id="done_'.$thiskey.'_proctorkey" '.
1.567     raeburn  5927:                        'name="done_'.$thiskey.'_proctorkey" value="'.&HTML::Entities::encode($currproctorkey,'"<>&').'"'.$disabled.' /></span><br />'.
1.559     raeburn  5928:                        '<span class="LC_nobreak">'.&mt('Button text').': '.
1.611     raeburn  5929:                        '<input type="text" name="done_'.$thiskey.'_buttontext" id="done_'.$thiskey.'_buttontext" value="'.
                   5930:                        &HTML::Entities::encode($currdonetext,'"<>&').'"'.$disabled.' /></span>';
1.554     raeburn  5931:         }
                   5932:     }
                   5933:     unless ($readonly) {
                   5934:         $result .= '<input type="hidden" name="dateinterval_'.$thiskey.'" />';
                   5935:     }
                   5936:     return $result;
                   5937: }
                   5938: 
1.563     damieng  5939: # Returns HTML with a warning if a parameter requires a more recent version of LON-CAPA.
                   5940: #
                   5941: # @param {string} $name - parameter name
                   5942: # @param {string} $namematch - parameter level name (recognized: resourcelevel|maplevel|maplevelrecurse|courselevel)
                   5943: # @param {string} $value - parameter value
                   5944: # @param {string} $chostname - course server name
                   5945: # @param {integer} $cmajor - major version number
                   5946: # @param {integer} $cminor - minor version number
                   5947: # @param {string} $needsrelease - release version needed (major.minor)
                   5948: # @returns {string}
1.549     raeburn  5949: sub oldversion_warning {
1.557     raeburn  5950:     my ($name,$namematch,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
                   5951:     my $standard_name = &standard_parameter_names($name);
                   5952:     if ($namematch) {
                   5953:         my $level = &standard_parameter_levels($namematch);
                   5954:         my $msg = '';
                   5955:         if ($level) {
                   5956:             $msg = &mt('[_1] was [_2]not[_3] set at the level of: [_4].',
                   5957:                        $standard_name,'<b>','</b>','"'.$level.'"');
                   5958:         } else {
                   5959:             $msg = &mt('[_1] was [_2]not[_3] set.',
                   5960:                       $standard_name,'<b>','</b>');
                   5961:         }
                   5962:         return '<p class="LC_warning">'.$msg.'<br />'.
                   5963:                &mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
                   5964:                    $cmajor.'.'.$cminor,$chostname,
                   5965:                    $needsrelease).
                   5966:                    '</p>';
                   5967:     }
1.549     raeburn  5968:     my $desc;
                   5969:     my $stringtype = &get_stringtype($name);
                   5970:     if ($stringtype ne '') {
                   5971:         if ($name eq 'examcode') {
                   5972:             $desc = $value;
                   5973:         } elsif (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {
                   5974:             foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {
                   5975:                 next unless (ref($possibilities) eq 'ARRAY');
                   5976:                 my ($parmval, $description) = @{ $possibilities };
                   5977:                 my $parmmatch;
                   5978:                 if (ref($stringmatches{$stringtypes{$name}}) eq 'ARRAY') {
                   5979:                     foreach my $item (@{$stringmatches{$stringtypes{$name}}}) {
                   5980:                         if (ref($item) eq 'ARRAY') {
                   5981:                             my ($regexpname,$pattern) = @{$item};
                   5982:                             if ($parmval eq $regexpname) {
                   5983:                                 if ($value =~ /$pattern/) {
                   5984:                                     $desc = $description; 
                   5985:                                     $parmmatch = 1;
                   5986:                                     last;
                   5987:                                 }
                   5988:                             }
                   5989:                         }
                   5990:                     }
                   5991:                     last if ($parmmatch);
                   5992:                 } elsif ($parmval eq $value) {
                   5993:                     $desc = $description;
                   5994:                     last;
                   5995:                 }
                   5996:             }
                   5997:         }
                   5998:     } elsif (($name eq 'printstartdate') || ($name eq 'printenddate')) {
                   5999:         my $now = time;
                   6000:         if ($value =~ /^\d+$/) {
                   6001:             if ($name eq 'printstartdate') {
                   6002:                 if ($value > $now) {
                   6003:                     $desc = &Apache::lonlocal::locallocaltime($value);
                   6004:                 }
                   6005:             } elsif ($name eq 'printenddate') {
                   6006:                 if ($value < $now) {
                   6007:                     $desc = &Apache::lonlocal::locallocaltime($value);
                   6008:                 }
                   6009:             }
                   6010:         }
                   6011:     }
                   6012:     return '<p class="LC_warning">'.
1.557     raeburn  6013:        &mt('[_1] was [_2]not[_3] set to [_4].',
                   6014:            $standard_name,'<b>','</b>','"'.$desc.'"').'<br />'.
                   6015:        &mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
                   6016:        $cmajor.'.'.$cminor,$chostname,
                   6017:        $needsrelease).
                   6018:        '</p>';
1.549     raeburn  6019: }
                   6020: 
1.560     damieng  6021: } # end of block using some constants related to parameter types
                   6022: 
1.549     raeburn  6023: 
1.563     damieng  6024: 
                   6025: # Shifts all start and end dates in the current course by $shift.
1.389     www      6026: #
1.563     damieng  6027: # @param {integer} $shift - time to shift, in seconds
                   6028: # @returns {string} - error name or 'ok'
1.389     www      6029: sub dateshift {
1.594     raeburn  6030:     my ($shift,$numchanges)=@_;
1.389     www      6031:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   6032:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.594     raeburn  6033:     my $sec = $env{'request.course.sec'};
1.595     raeburn  6034:     my $secgrpregex;
                   6035:     if ($sec ne '') {
                   6036:         my @groups;
                   6037:         if ($env{'request.course.groups'} ne '') {
                   6038:             @groups = split(/:/,$env{'request.course.groups'});
                   6039:         }
                   6040:         if (@groups) {
                   6041:             $secgrpregex = '(?:'.join('|',($sec,@groups)).')';
                   6042:         } else {
                   6043:             $secgrpregex = $sec;
                   6044:         }
                   6045:     }
1.389     www      6046:     my %data=&Apache::lonnet::dump('resourcedata',$dom,$crs);
                   6047: # ugly retro fix for broken version of types
1.548     raeburn  6048:     foreach my $key (keys(%data)) {
1.389     www      6049:         if ($key=~/\wtype$/) {
                   6050:             my $newkey=$key;
                   6051:             $newkey=~s/type$/\.type/;
                   6052:             $data{$newkey}=$data{$key};
                   6053:             delete $data{$key};
                   6054:         }
                   6055:     }
1.391     www      6056:     my %storecontent=();
1.389     www      6057: # go through all parameters and look for dates
1.548     raeburn  6058:     foreach my $key (keys(%data)) {
1.389     www      6059:        if ($data{$key.'.type'}=~/^date_(start|end)$/) {
1.594     raeburn  6060:           if ($sec ne '') {
1.595     raeburn  6061:               next unless ($key =~ /^$env{'request.course.id'}\.\[$secgrpregex\]\./);
1.594     raeburn  6062:           }
1.389     www      6063:           my $newdate=$data{$key}+$shift;
1.594     raeburn  6064:           $$numchanges ++;
1.391     www      6065:           $storecontent{$key}=$newdate;
1.389     www      6066:        }
                   6067:     }
1.391     www      6068:     my $reply=&Apache::lonnet::cput
                   6069:                 ('resourcedata',\%storecontent,$dom,$crs);
                   6070:     if ($reply eq 'ok') {
                   6071:        &log_parmset(\%storecontent);
                   6072:     }
                   6073:     &Apache::lonnet::devalidatecourseresdata($crs,$dom);
                   6074:     return $reply;
1.389     www      6075: }
                   6076: 
1.563     damieng  6077: # Overview mode UI to edit course parameters.
                   6078: #
                   6079: # @param {Apache2::RequestRec} $r - the Apache request
1.208     www      6080: sub newoverview {
1.568     raeburn  6081:     my ($r,$parm_permission) = @_;
1.280     albertel 6082: 
1.208     www      6083:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   6084:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.531     raeburn  6085:     my $crstype =  $env{'course.'.$env{'request.course.id'}.'.type'};
1.568     raeburn  6086:     my $readonly = 1;
                   6087:     if ($parm_permission->{'edit'}) {
                   6088:         undef($readonly);
                   6089:     }
1.414     droeschl 6090:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
1.473     amueller 6091:         text=>"Overview Mode"});
1.523     raeburn  6092: 
                   6093:     my %loaditems = (
1.549     raeburn  6094:                       'onload'   => "showHide_courseContent(); resize_scrollbox('mapmenuscroll','1','1'); showHideLenient();",
1.523     raeburn  6095:                     );
                   6096:     my $js = '
                   6097: <script type="text/javascript">
                   6098: // <![CDATA[
                   6099: '.
                   6100:             &Apache::lonhtmlcommon::resize_scrollbox_js('params')."\n".
                   6101:             &showhide_js()."\n".
1.549     raeburn  6102:             &toggleparmtextbox_js()."\n".
                   6103:             &validateparms_js()."\n".
                   6104:             &ipacc_boxes_js()."\n".
1.558     raeburn  6105:             &done_proctor_js()."\n".
1.588     raeburn  6106:             &deeplink_js()."\n".
1.523     raeburn  6107: '// ]]>
                   6108: </script>
                   6109: ';
1.549     raeburn  6110: 
1.523     raeburn  6111:     my $start_page = &Apache::loncommon::start_page('Set Parameters',$js,
                   6112:                                                     {'add_entries' => \%loaditems,});
1.298     albertel 6113:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
1.507     www      6114:     $r->print($start_page.$breadcrumbs);
1.531     raeburn  6115:     &startSettingsScreen($r,'parmset',$crstype);
1.208     www      6116:     $r->print(<<ENDOVER);
1.549     raeburn  6117: <form method="post" action="/adm/parmset?action=newoverview" name="parmform" onsubmit="return validateParms();">
1.208     www      6118: ENDOVER
1.211     www      6119:     my @ids=();
                   6120:     my %typep=();
                   6121:     my %keyp=();
                   6122:     my %allparms=();
                   6123:     my %allparts=();
                   6124:     my %allmaps=();
                   6125:     my %mapp=();
                   6126:     my %symbp=();
                   6127:     my %maptitles=();
                   6128:     my %uris=();
                   6129:     my %keyorder=&standardkeyorder();
                   6130:     my %defkeytype=();
                   6131: 
                   6132:     my %alllevs=();
                   6133:     $alllevs{'Resource Level'}='full';
1.215     www      6134:     $alllevs{'Map/Folder Level'}='map';
1.211     www      6135:     $alllevs{'Course Level'}='general';
                   6136: 
                   6137:     my $csec=$env{'form.csec'};
1.269     raeburn  6138:     my $cgroup=$env{'form.cgroup'};
1.211     www      6139: 
                   6140:     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
                   6141:     my $pschp=$env{'form.pschp'};
1.506     www      6142: 
1.211     www      6143:     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
1.516     www      6144:     if (!@psprt) { $psprt[0]='all'; }
1.211     www      6145: 
1.446     bisitz   6146:     my @selected_sections =
1.473     amueller 6147:     &Apache::loncommon::get_env_multiple('form.Section');
1.211     www      6148:     @selected_sections = ('all') if (! @selected_sections);
1.374     albertel 6149:     foreach my $sec (@selected_sections) {
                   6150:         if ($sec eq 'all') {
1.211     www      6151:             @selected_sections = ('all');
                   6152:         }
                   6153:     }
1.552     raeburn  6154:     if ($env{'request.course.sec'} ne '') {
                   6155:         @selected_sections = ($env{'request.course.sec'});
                   6156:     }
1.269     raeburn  6157:     my @selected_groups =
                   6158:         &Apache::loncommon::get_env_multiple('form.Group');
1.211     www      6159: 
                   6160:     my $pssymb='';
                   6161:     my $parmlev='';
1.446     bisitz   6162: 
1.211     www      6163:     unless ($env{'form.parmlev'}) {
                   6164:         $parmlev = 'map';
                   6165:     } else {
                   6166:         $parmlev = $env{'form.parmlev'};
                   6167:     }
                   6168: 
1.446     bisitz   6169:     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
1.473     amueller 6170:                 \%mapp, \%symbp,\%maptitles,\%uris,
1.603     raeburn  6171:                 \%keyorder,\%defkeytype,$pssymb);
1.211     www      6172: 
1.374     albertel 6173:     if (grep {$_ eq 'all'} (@psprt)) {
1.481     amueller 6174:         @psprt = keys(%allparts);
1.374     albertel 6175:     }
1.211     www      6176: # Menu to select levels, etc
                   6177: 
1.456     bisitz   6178:     $r->print('<div class="LC_Box">');
1.445     neumanie 6179:     #$r->print('<h2 class="LC_hcell">Step 1</h2>');
1.452     bisitz   6180:     $r->print('<div>');
1.523     raeburn  6181:     $r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
1.211     www      6182:     &levelmenu($r,\%alllevs,$parmlev);
1.610     raeburn  6183:     $r->print(&Apache::lonhtmlcommon::row_closure());
                   6184:     &mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp,$parmlev);
1.447     bisitz   6185:     $r->print(&Apache::lonhtmlcommon::row_closure(1));
1.445     neumanie 6186:     $r->print(&Apache::lonhtmlcommon::end_pick_box());
                   6187:     $r->print('</div></div>');
1.446     bisitz   6188: 
1.456     bisitz   6189:     $r->print('<div class="LC_Box">');
1.452     bisitz   6190:     $r->print('<div>');
1.581     raeburn  6191:     &displaymenu($r,\%allparms,\@pscat,\%keyorder);
1.453     schualex 6192:     $r->print(&Apache::lonhtmlcommon::start_pick_box());
1.446     bisitz   6193:     $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
1.553     raeburn  6194:     my $sectionselector = &sectionmenu(\@selected_sections);
                   6195:     my $groupselector = &groupmenu(\@selected_groups);
1.481     amueller 6196:     $r->print('<table>'.
1.553     raeburn  6197:               '<tr><th>'.&mt('Parts').'</th>');
                   6198:     if ($sectionselector) {
                   6199:         $r->print('<th>'.&mt('Section(s)').'</th>');
                   6200:     }
                   6201:     if ($groupselector) {
                   6202:         $r->print('<th>'.&mt('Group(s)').'</th>');
                   6203:     }
                   6204:     $r->print('</tr><tr><td>');
1.211     www      6205:     &partmenu($r,\%allparts,\@psprt);
1.553     raeburn  6206:     $r->print('</td>');
                   6207:     if ($sectionselector) { 
                   6208:         $r->print('<td>'.$sectionselector.'</td>');
                   6209:     }
                   6210:     if ($groupselector) {
                   6211:         $r->print('<td>'.$groupselector.'</td>');
                   6212:     }
                   6213:     $r->print('</tr></table>');
1.447     bisitz   6214:     $r->print(&Apache::lonhtmlcommon::row_closure(1));
1.445     neumanie 6215:     $r->print(&Apache::lonhtmlcommon::end_pick_box());
                   6216:     $r->print('</div></div>');
                   6217: 
1.456     bisitz   6218:     $r->print('<div class="LC_Box">');
1.452     bisitz   6219:     $r->print('<div>');
1.214     www      6220:     my $sortorder=$env{'form.sortorder'};
                   6221:     unless ($sortorder) { $sortorder='realmstudent'; }
1.612     raeburn  6222:     &sortmenu($r,$sortorder,'newoverview');
1.445     neumanie 6223:     $r->print('</div></div>');
1.446     bisitz   6224: 
1.214     www      6225:     $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
1.446     bisitz   6226: 
1.211     www      6227: # Build the list data hash from the specified parms
                   6228: 
                   6229:     my $listdata;
                   6230:     %{$listdata}=();
                   6231: 
                   6232:     foreach my $cat (@pscat) {
1.269     raeburn  6233:         &secgroup_lister($cat,$pschp,$parmlev,$listdata,\@psprt,\@selected_sections,\%defkeytype,\%allmaps,\@ids,\%symbp);
                   6234:         &secgroup_lister($cat,$pschp,$parmlev,$listdata,\@psprt,\@selected_groups,\%defkeytype,\%allmaps,\@ids,\%symbp);
1.211     www      6235:     }
                   6236: 
1.212     www      6237:     if (($env{'form.store'}) || ($env{'form.dis'})) {
1.211     www      6238: 
1.481     amueller 6239:         if ($env{'form.store'}) { &storedata($r,$crs,$dom); }
1.211     www      6240: 
                   6241: # Read modified data
                   6242: 
1.481     amueller 6243:         my $resourcedata=&readdata($crs,$dom);
1.211     www      6244: 
                   6245: # List data
                   6246: 
1.608     raeburn  6247:         my $hash_for_realm;
                   6248:         if (($parmlev eq 'map') && (keys(%allmaps))) {
                   6249:             %{$hash_for_realm} = reverse(%allmaps);
                   6250:         } elsif (($parmlev eq 'full') && (keys(%symbp))) {
                   6251:             for (my $i=0; $i<@ids; $i++) {
                   6252:                 $hash_for_realm->{$symbp{$ids[$i]}} = $i;
                   6253:             }
                   6254:         }
                   6255:         &listdata($r,$resourcedata,$listdata,$sortorder,'newoverview',undef,$readonly,$parmlev,$hash_for_realm,$pschp);
1.568     raeburn  6256:     }
                   6257:     $r->print(&tableend());
                   6258:     unless ($readonly) {
                   6259:         $r->print( ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Save').'" /></p>':'') );
1.211     www      6260:     }
1.568     raeburn  6261:     $r->print('</form>');
1.507     www      6262:     &endSettingsScreen($r);
                   6263:     $r->print(&Apache::loncommon::end_page());
1.208     www      6264: }
                   6265: 
1.563     damieng  6266: # Fills $listdata with parameter information.
                   6267: # Keys use the format course id.[section id].part.name and course id.[section id].part.name.type.
                   6268: # The non-type value is always 1.
                   6269: #
                   6270: # @param {string} $cat - parameter name
1.566     damieng  6271: # @param {string} $pschp - selected map pc, or 'all'
1.563     damieng  6272: # @param {string} $parmlev - selected level value (full|map|general), or ''
                   6273: # @param {hash reference} $listdata - the parameter data that will be modified
                   6274: # @param {array reference} $psprt - selected parts
                   6275: # @param {array reference} $selections - selected sections
                   6276: # @param {hash reference} $defkeytype - hash parameter name -> parameter type
1.566     damieng  6277: # @param {hash reference} $allmaps - hash map pc -> map src
                   6278: # @param {array reference} $ids - resource and map ids
                   6279: # @param {hash reference} $symbp - hash map pc or resource/map id -> map src.'___(all)' or resource symb
1.269     raeburn  6280: sub secgroup_lister {
                   6281:     my ($cat,$pschp,$parmlev,$listdata,$psprt,$selections,$defkeytype,$allmaps,$ids,$symbp) = @_;
                   6282:     foreach my $item (@{$selections}) {
                   6283:         foreach my $part (@{$psprt}) {
                   6284:             my $rootparmkey=$env{'request.course.id'};
                   6285:             if (($item ne 'all') && ($item ne 'none') && ($item)) {
                   6286:                 $rootparmkey.='.['.$item.']';
                   6287:             }
                   6288:             if ($parmlev eq 'general') {
                   6289: # course-level parameter
                   6290:                 my $newparmkey=$rootparmkey.'.'.$part.'.'.$cat;
                   6291:                 $$listdata{$newparmkey}=1;
                   6292:                 $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   6293:             } elsif ($parmlev eq 'map') {
                   6294: # map-level parameter
1.548     raeburn  6295:                 foreach my $mapid (keys(%{$allmaps})) {
1.269     raeburn  6296:                     if (($pschp ne 'all') && ($pschp ne $mapid)) { next; }
                   6297:                     my $newparmkey=$rootparmkey.'.'.$$allmaps{$mapid}.'___(all).'.$part.'.'.$cat;
                   6298:                     $$listdata{$newparmkey}=1;
                   6299:                     $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   6300:                 }
                   6301:             } else {
                   6302: # resource-level parameter
                   6303:                 foreach my $rid (@{$ids}) {
                   6304:                     my ($map,$resid,$url)=&Apache::lonnet::decode_symb($$symbp{$rid});
                   6305:                     if (($pschp ne 'all') && ($$allmaps{$pschp} ne $map)) { next; }
                   6306:                     my $newparmkey=$rootparmkey.'.'.$$symbp{$rid}.'.'.$part.'.'.$cat;
                   6307:                     $$listdata{$newparmkey}=1;
                   6308:                     $$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
                   6309:                 }
                   6310:             }
                   6311:         }
                   6312:     }
                   6313: }
                   6314: 
1.563     damieng  6315: # UI to edit parameter settings starting with a list of all existing parameters.
                   6316: # (called by setoverview action)
                   6317: #
                   6318: # @param {Apache2::RequestRec} $r - the Apache request
1.208     www      6319: sub overview {
1.568     raeburn  6320:     my ($r,$parm_permission) = @_;
1.208     www      6321:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   6322:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.531     raeburn  6323:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
1.568     raeburn  6324:     my $readonly = 1;
                   6325:     if ($parm_permission->{'edit'}) {
                   6326:         undef($readonly);
                   6327:     }
1.549     raeburn  6328:     my $js = '<script type="text/javascript">'."\n".
                   6329:              '// <![CDATA['."\n".
                   6330:              &toggleparmtextbox_js()."\n".
                   6331:              &validateparms_js()."\n".
                   6332:              &ipacc_boxes_js()."\n".
1.558     raeburn  6333:              &done_proctor_js()."\n".
1.588     raeburn  6334:              &deeplink_js()."\n".
1.549     raeburn  6335:              '// ]]>'."\n".
                   6336:              '</script>'."\n";
1.414     droeschl 6337:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
1.473     amueller 6338:     text=>"Overview Mode"});
1.549     raeburn  6339:     my %loaditems = (
                   6340:                       'onload'   => "showHideLenient();",
                   6341:                     );
                   6342: 
                   6343:     my $start_page=&Apache::loncommon::start_page('Modify Parameters',$js,{'add_entries' => \%loaditems,});
1.298     albertel 6344:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
1.507     www      6345:     $r->print($start_page.$breadcrumbs);
1.531     raeburn  6346:     &startSettingsScreen($r,'parmset',$crstype);
1.549     raeburn  6347:     $r->print('<form method="post" action="/adm/parmset?action=setoverview" name="parmform" onsubmit="return validateParms();">');
1.507     www      6348: 
1.208     www      6349: # Store modified
                   6350: 
1.568     raeburn  6351:     unless ($readonly) {
                   6352:         &storedata($r,$crs,$dom);
                   6353:     }
1.208     www      6354: 
                   6355: # Read modified data
                   6356: 
1.552     raeburn  6357:     my ($resourcedata,$classlist)=&readdata($crs,$dom);
1.208     www      6358: 
1.214     www      6359: 
                   6360:     my $sortorder=$env{'form.sortorder'};
                   6361:     unless ($sortorder) { $sortorder='realmstudent'; }
1.608     raeburn  6362:     &sortmenu($r,$sortorder,'overview');
1.214     www      6363: 
1.568     raeburn  6364:     my $submitbutton = '<input type="submit" value="'.&mt('Save').'" />';
                   6365: 
                   6366:     if ($readonly) {
                   6367:         $r->print('<p>'.$submitbutton.'</p>');
                   6368:     }
                   6369: 
1.208     www      6370: # List data
                   6371: 
1.568     raeburn  6372:     my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder,'overview',$classlist,$readonly);
                   6373:     $r->print(&tableend().'<p>');
                   6374:     if ($foundkeys) {
                   6375:         unless ($readonly) {
                   6376:             $r->print('<p>'.$submitbutton.'</p>');
                   6377:         }
                   6378:     } else {
                   6379:         $r->print('<p class="LC_info">'.&mt('There are no parameters.').'</p>');
                   6380:     }
                   6381:     $r->print('</form>'.&Apache::loncommon::end_page());
1.120     www      6382: }
1.121     www      6383: 
1.560     damieng  6384: # Unused sub.
1.563     damieng  6385: #
                   6386: # @param {Apache2::RequestRec} $r - the Apache request
1.333     albertel 6387: sub clean_parameters {
                   6388:     my ($r) = @_;
                   6389:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   6390:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
                   6391: 
1.414     droeschl 6392:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=cleanparameters',
1.473     amueller 6393:         text=>"Clean Parameters"});
1.333     albertel 6394:     my $start_page=&Apache::loncommon::start_page('Clean Parameters');
                   6395:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Clean');
                   6396:     $r->print(<<ENDOVER);
                   6397: $start_page
                   6398: $breadcrumbs
                   6399: <form method="post" action="/adm/parmset?action=cleanparameters" name="parmform">
                   6400: ENDOVER
                   6401: # Store modified
                   6402: 
                   6403:     &storedata($r,$crs,$dom);
                   6404: 
                   6405: # Read modified data
                   6406: 
                   6407:     my $resourcedata=&readdata($crs,$dom);
                   6408: 
                   6409: # List data
                   6410: 
                   6411:     $r->print('<h3>'.
1.473     amueller 6412:           &mt('These parameters refer to resources that do not exist.').
                   6413:           '</h3>'.
                   6414:           '<input type="submit" value="'.&mt('Delete Selected').'" />'.'<br />'.
                   6415:           '<br />');
1.333     albertel 6416:     $r->print(&Apache::loncommon::start_data_table().
1.473     amueller 6417:           '<tr>'.
                   6418:           '<th>'.&mt('Delete').'</th>'.
                   6419:           '<th>'.&mt('Parameter').'</th>'.
                   6420:           '</tr>');
1.333     albertel 6421:     foreach my $thiskey (sort(keys(%{$resourcedata}))) {
1.560     damieng  6422:         next if (!exists($resourcedata->{$thiskey.'.type'})
                   6423:             && $thiskey=~/\.type$/);
                   6424:         my %data = &parse_key($thiskey);
                   6425:         if (1) { #exists($data{'realm_exists'})
                   6426:             #&& !$data{'realm_exists'}) {
                   6427:             $r->print(&Apache::loncommon::start_data_table_row().
                   6428:                 '<tr>'.
                   6429:                 '<td><input type="checkbox" name="del_'.$thiskey.'" /></td>'              );
                   6430: 
                   6431:             $r->print('<td>');
                   6432:             my $display_value = $resourcedata->{$thiskey};
                   6433:             if (&isdateparm($resourcedata->{$thiskey.'.type'})) {
                   6434:             $display_value =
                   6435:                 &Apache::lonlocal::locallocaltime($display_value);
                   6436:             }
1.470     raeburn  6437:             my $parmitem = &standard_parameter_names($data{'parameter_name'});
                   6438:             $parmitem = &mt($parmitem);
1.560     damieng  6439:             $r->print(&mt('Parameter: "[_1]" with value: "[_2]"',
                   6440:                 $parmitem,$resourcedata->{$thiskey}));
                   6441:             $r->print('<br />');
                   6442:             if ($data{'scope_type'} eq 'all') {
                   6443:                 $r->print(&mt('All users'));
                   6444:             } elsif ($data{'scope_type'} eq 'user') {
                   6445:                 $r->print(&mt('User: [_1]',join(':',@{$data{'scope'}})));
1.581     raeburn  6446:             } elsif ($data{'scope_type'} eq 'secgroup') {
                   6447:                 $r->print(&mt('Group/Section: [_1]',$data{'scope'}));
1.560     damieng  6448:             }
                   6449:             $r->print('<br />');
                   6450:             if ($data{'realm_type'} eq 'all') {
                   6451:                 $r->print(&mt('All Resources'));
                   6452:             } elsif ($data{'realm_type'} eq 'folder') {
                   6453:                 $r->print(&mt('Folder: [_1]'),$data{'realm'});
                   6454:             } elsif ($data{'realm_type'} eq 'symb') {
                   6455:             my ($map,$resid,$url) =
                   6456:                 &Apache::lonnet::decode_symb($data{'realm'});
                   6457:             $r->print(&mt('Resource: [_1]with ID: [_2]in folder [_3]',
                   6458:                         $url.' <br />&nbsp;&nbsp;&nbsp;',
                   6459:                         $resid.' <br />&nbsp;&nbsp;&nbsp;',$map));
                   6460:             }
                   6461:             $r->print(' <br />&nbsp;&nbsp;&nbsp;'.&mt('Part: [_1]',$data{'parameter_part'}));
                   6462:             $r->print('</td></tr>');
                   6463: 
1.473     amueller 6464:         }
1.333     albertel 6465:     }
                   6466:     $r->print(&Apache::loncommon::end_data_table().'<p>'.
1.473     amueller 6467:           '<input type="submit" value="'.&mt('Delete Selected').'" />'.
1.507     www      6468:           '</p></form>');
                   6469:     &endSettingsScreen($r);
                   6470:     $r->print(&Apache::loncommon::end_page());
1.333     albertel 6471: }
                   6472: 
1.563     damieng  6473: # UI to shift all dates (called by dateshift1 action).
                   6474: # Used by overview mode.
                   6475: #
                   6476: # @param {Apache2::RequestRec} $r - the Apache request
1.390     www      6477: sub date_shift_one {
                   6478:     my ($r) = @_;
                   6479:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   6480:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.531     raeburn  6481:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
1.594     raeburn  6482:     my $sec = $env{'request.course.sec'};
1.414     droeschl 6483:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},
1.473     amueller 6484:         text=>"Shifting Dates"});
1.594     raeburn  6485:     my $submit_text = &mt('Shift all dates accordingly');
                   6486:     if ($sec ne '') {
1.595     raeburn  6487:         my @groups;
                   6488:         if ($env{'request.course.groups'} ne '') {
                   6489:             @groups = split(/:/,$env{'request.course.groups'});
                   6490:         }
                   6491:         if (@groups) {
                   6492:             $submit_text = &mt("Shift dates set just for your section/group(s), accordingly");
                   6493:         } else {
                   6494:             $submit_text = &mt("Shift dates set just for your section, accordingly");
                   6495:         }
1.594     raeburn  6496:     }
1.390     www      6497:     my $start_page=&Apache::loncommon::start_page('Shift Dates');
                   6498:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
1.507     www      6499:     $r->print($start_page.$breadcrumbs);
1.531     raeburn  6500:     &startSettingsScreen($r,'parmset',$crstype);
1.538     bisitz   6501:     $r->print('<form name="shiftform" method="post" action="">'.
1.390     www      6502:               '<table><tr><td>'.&mt('Currently set date:').'</td><td>'.
                   6503:               &Apache::lonlocal::locallocaltime($env{'form.timebase'}).'</td></tr>'.
                   6504:               '<tr><td>'.&mt('Shifted date:').'</td><td>'.
1.541     bisitz   6505:                     &Apache::lonhtmlcommon::date_setter('shiftform',
1.390     www      6506:                                                         'timeshifted',
                   6507:                                                         $env{'form.timebase'},,
                   6508:                                                         '').
                   6509:               '</td></tr></table>'.
                   6510:               '<input type="hidden" name="action" value="dateshift2" />'.
                   6511:               '<input type="hidden" name="timebase" value="'.$env{'form.timebase'}.'" />'.
1.594     raeburn  6512:               '<input type="submit" value="'.$submit_text.'" /></form>');
1.507     www      6513:     &endSettingsScreen($r);
1.390     www      6514:     $r->print(&Apache::loncommon::end_page());
                   6515: }
                   6516: 
1.563     damieng  6517: # UI to shift all dates (second form).
                   6518: #
                   6519: # @param {Apache2::RequestRec} $r - the Apache request
1.390     www      6520: sub date_shift_two {
                   6521:     my ($r) = @_;
                   6522:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   6523:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.594     raeburn  6524:     my $sec = $env{'request.course.sec'};
1.531     raeburn  6525:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
1.414     droeschl 6526:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},
1.473     amueller 6527:         text=>"Shifting Dates"});
1.390     www      6528:     my $start_page=&Apache::loncommon::start_page('Shift Dates');
                   6529:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
1.507     www      6530:     $r->print($start_page.$breadcrumbs);
1.531     raeburn  6531:     &startSettingsScreen($r,'parmset',$crstype);
1.390     www      6532:     my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');
1.594     raeburn  6533:     $r->print('<h2>'.&mt('Shift Dates').'</h2>');
                   6534:     if ($sec ne '') {
1.595     raeburn  6535:         my @groups;
                   6536:         if ($env{'request.course.groups'} ne '') {
                   6537:             @groups = split(/:/,$env{'request.course.groups'});
                   6538:         }
                   6539:         if (@groups) {
                   6540:             $r->print('<p>'.
                   6541:                       &mt("Shift dates set just for your section/group(s), such that [_1] becomes [_2]",
                   6542:                           &Apache::lonlocal::locallocaltime($env{'form.timebase'}),
                   6543:                           &Apache::lonlocal::locallocaltime($timeshifted)).
                   6544:                       '</p>');
                   6545:         } else {
                   6546:             $r->print('<p>'.
                   6547:                       &mt("Shift dates set just for your section, such that [_1] becomes [_2]",
                   6548:                           &Apache::lonlocal::locallocaltime($env{'form.timebase'}),
                   6549:                           &Apache::lonlocal::locallocaltime($timeshifted)).
                   6550:                       '</p>');
                   6551:         }
1.594     raeburn  6552:     } else {
                   6553:         $r->print('<p>'.&mt('Shifting all dates such that [_1] becomes [_2]',
                   6554:                             &Apache::lonlocal::locallocaltime($env{'form.timebase'}),
                   6555:                             &Apache::lonlocal::locallocaltime($timeshifted)).
                   6556:                   '</p>');
                   6557:     }
1.390     www      6558:     my $delta=$timeshifted-$env{'form.timebase'};
1.594     raeburn  6559:     my $numchanges = 0;
                   6560:     my $result = &dateshift($delta,\$numchanges);
                   6561:     if ($result eq 'ok') {
                   6562:         $r->print(
                   6563:             &Apache::lonhtmlcommon::confirm_success(&mt('Completed shifting of [quant,_1,date setting]',
                   6564:                                                     $numchanges)));
                   6565:     } elsif ($result eq 'con_delayed') {
                   6566:         $r->print(
                   6567:             &Apache::lonhtmlcommon::confirm_success(&mt('Queued shifting of [quant,_1,date setting]',
                   6568:                                                         $numchanges)));
                   6569:     } else {
                   6570:         $r->print(
                   6571:             &Apache::lonhtmlcommon::confirm_success(&mt('An error occurred attempting to shift dates'),1));
                   6572:     }
1.543     bisitz   6573:     $r->print(
                   6574:         '<br /><br />'.
                   6575:         &Apache::lonhtmlcommon::actionbox(
                   6576:             ['<a href="/adm/parmset">'.&mt('Content and Problem Settings').'</a>']));
1.507     www      6577:     &endSettingsScreen($r);
1.390     www      6578:     $r->print(&Apache::loncommon::end_page());
                   6579: }
                   6580: 
1.563     damieng  6581: # Returns the different components of a resourcedata key.
                   6582: # Keys: scope_type, scope, realm_type, realm, realm_title,
                   6583: #       realm_exists, parameter_part, parameter_name.
                   6584: # Was used by clean_parameters (which is unused).
                   6585: #
                   6586: # @param {string} $key - the parameter key
                   6587: # @returns {hash}
1.333     albertel 6588: sub parse_key {
                   6589:     my ($key) = @_;
                   6590:     my %data;
                   6591:     my ($middle,$part,$name)=
1.572     damieng  6592:     ($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s\-]+)\.(\w+)$/);
1.333     albertel 6593:     $data{'scope_type'} = 'all';
                   6594:     if ($middle=~/^\[(.*)\]/) {
1.560     damieng  6595:         $data{'scope'} = $1;
                   6596:         if ($data{'scope'}=~/^useropt\:($match_username)\:($match_domain)/) {
                   6597:             $data{'scope_type'} = 'user';
                   6598:             $data{'scope'} = [$1,$2];
                   6599:         } else {
1.581     raeburn  6600:             $data{'scope_type'} = 'secgroup';
1.560     damieng  6601:         }
                   6602:         $middle=~s/^\[(.*)\]//;
1.333     albertel 6603:     }
                   6604:     $middle=~s/\.+$//;
                   6605:     $middle=~s/^\.+//;
                   6606:     $data{'realm_type'}='all';
                   6607:     if ($middle=~/^(.+)\_\_\_\(all\)$/) {
1.560     damieng  6608:         $data{'realm'} = $1;
                   6609:         $data{'realm_type'} = 'folder';
                   6610:         $data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});
                   6611:         ($data{'realm_exists'}) = &Apache::lonnet::is_on_map($data{'realm'});
1.333     albertel 6612:     } elsif ($middle) {
1.560     damieng  6613:         $data{'realm'} = $middle;
                   6614:         $data{'realm_type'} = 'symb';
                   6615:         $data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});
                   6616:         my ($map,$resid,$url) = &Apache::lonnet::decode_symb($data{'realm'});
                   6617:         $data{'realm_exists'} = &Apache::lonnet::symbverify($data{'realm'},$url);
1.333     albertel 6618:     }
1.446     bisitz   6619: 
1.333     albertel 6620:     $data{'parameter_part'} = $part;
                   6621:     $data{'parameter_name'} = $name;
                   6622: 
                   6623:     return %data;
                   6624: }
                   6625: 
1.239     raeburn  6626: 
1.563     damieng  6627: # Calls loncommon::start_page with the "Settings" title.
1.416     jms      6628: sub header {
1.507     www      6629:     return &Apache::loncommon::start_page('Settings');
1.416     jms      6630: }
1.193     albertel 6631: 
                   6632: 
                   6633: 
1.560     damieng  6634: ##################################################
                   6635: # MAIN MENU
                   6636: ##################################################
                   6637: 
1.563     damieng  6638: # Content and problem settings main menu.
                   6639: #
                   6640: # @param {Apache2::RequestRec} $r - the Apache request
                   6641: # @param {boolean} $parm_permission - true if the user has permission to edit the current course or section
1.193     albertel 6642: sub print_main_menu {
                   6643:     my ($r,$parm_permission)=@_;
                   6644:     #
1.414     droeschl 6645:     $r->print(&header());
1.507     www      6646:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Content and Problem Settings'));
1.531     raeburn  6647:     my $crstype = &Apache::loncommon::course_type();
                   6648:     my $lc_crstype = lc($crstype);
                   6649: 
                   6650:     &startSettingsScreen($r,'parmset',$crstype);
1.193     albertel 6651:     $r->print(<<ENDMAINFORMHEAD);
                   6652: <form method="post" enctype="multipart/form-data"
                   6653:       action="/adm/parmset" name="studentform">
                   6654: ENDMAINFORMHEAD
                   6655: #
1.195     albertel 6656:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   6657:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1.268     albertel 6658:     my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
1.366     albertel 6659:     my $mgr  = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
1.520     raeburn  6660:     my $dcm = &Apache::lonnet::allowed('dcm',$env{'request.course.id'});
1.568     raeburn  6661:     my $vcb = &Apache::lonnet::allowed('vcb',$env{'request.course.id'});
                   6662:     my $vpa = &Apache::lonnet::allowed('vpa',$env{'request.course.id'});
1.520     raeburn  6663:     if ((!$dcm) && ($env{'request.course.sec'} ne '')) {
                   6664:         $dcm = &Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
                   6665:                                         '/'.$env{'request.course.sec'});
                   6666:     }
1.568     raeburn  6667:     if ((!$vcb) && ($env{'request.course.sec'} ne '')) {
                   6668:         $vcb = &Apache::lonnet::allowed('vcb',$env{'request.course.id'}.
                   6669:                                         '/'.$env{'request.course.sec'});
                   6670:     }
                   6671:     my (%linktext,%linktitle,%url);
                   6672:     if ($parm_permission->{'edit'}) {
                   6673:         %linktext = (
                   6674:                      newoverview     => 'Edit Resource Parameters - Overview Mode',
                   6675:                      settable        => 'Edit Resource Parameters - Table Mode',
                   6676:                      setoverview     => 'Modify Resource Parameters - Overview Mode',
                   6677:                     );
                   6678:         %linktitle = (
                   6679:                      newoverview     => 'Set/Modify resource parameters in overview mode.',
                   6680:                      settable        => 'Set/Modify resource parameters in table mode.',
                   6681:                      setoverview     => 'Set/Modify existing resource parameters in overview mode.',
                   6682:                      );
                   6683:     } else {
                   6684:         %linktext = (
                   6685:                      newoverview     => 'View Resource Parameters - Overview Mode',
                   6686:                      settable        => 'View Resource Parameters - Table Mode',
                   6687:                      setoverview     => 'View Resource Parameters - Overview Mode',
                   6688:                    );
                   6689:         %linktitle = (
                   6690:                      newoverview     => 'Display resource parameters in overview mode.',
                   6691:                      settable        => 'Display resource parameters in table mode.',
                   6692:                      setoverview     => 'Display existing resource parameters in overview mode.',
                   6693:                      );
                   6694:     }
                   6695:     if ($mgr) {
                   6696:         $linktext{'resettimes'} = 'Reset Student Access Times';
                   6697:         $linktitle{'resettimes'} = "Reset access times for folders/maps, resources or the $lc_crstype.";
                   6698:         $url{'resettimes'} = '/adm/helper/resettimes.helper';
                   6699:     } elsif ($vgr) {
                   6700:         $linktext{'resettimes'} = 'Display Student Access Times',
                   6701:         $linktitle{'resettimes'} = "Display access times for folders/maps, resources or the $lc_crstype.",
                   6702:         $url{'resettimes'} = '/adm/accesstimes';
                   6703:     }
1.193     albertel 6704:     my @menu =
1.507     www      6705:         ( { categorytitle=>"Content Settings for this $crstype",
1.473     amueller 6706:         items => [
                   6707:           { linktext => 'Portfolio Metadata',
                   6708:             url => '/adm/parmset?action=setrestrictmeta',
1.568     raeburn  6709:             permission => $parm_permission->{'setrestrictmeta'},
1.477     raeburn  6710:             linktitle => "Restrict metadata for this $lc_crstype." ,
1.473     amueller 6711:             icon =>'contact-new.png'   ,
                   6712:             },
1.568     raeburn  6713:           { linktext => $linktext{'resettimes'},
                   6714:             url => $url{'resettimes'},
                   6715:             permission => ($vgr || $mgr),
                   6716:             linktitle => $linktitle{'resettimes'},
                   6717:             icon => 'start-here.png',
1.473     amueller 6718:             },
1.520     raeburn  6719:           { linktext => 'Blocking Communication/Resource Access',
                   6720:             url => '/adm/setblock',
1.568     raeburn  6721:             permission => ($vcb || $dcm),
1.520     raeburn  6722:             linktitle => 'Configure blocking of communication/collaboration and access to resources during an exam',
                   6723:             icon => 'comblock.png',
                   6724:             },
1.473     amueller 6725:           { linktext => 'Set Parameter Setting Default Actions',
                   6726:             url => '/adm/parmset?action=setdefaults',
1.568     raeburn  6727:             permission => $parm_permission->{'setdefaults'},
1.473     amueller 6728:             linktitle =>'Set default actions for parameters.'  ,
                   6729:             icon => 'folder-new.png'  ,
                   6730:             }]},
                   6731:       { categorytitle => 'New and Existing Parameter Settings for Resources',
                   6732:         items => [
                   6733:           { linktext => 'Edit Resource Parameters - Helper Mode',
                   6734:             url => '/adm/helper/parameter.helper',
1.568     raeburn  6735:             permission => $parm_permission->{'helper'},
1.473     amueller 6736:             linktitle =>'Set/Modify resource parameters in helper mode.'  ,
                   6737:             icon => 'dialog-information.png'  ,
                   6738:             #help => 'Parameter_Helper',
                   6739:             },
1.568     raeburn  6740:           { linktext => $linktext{'newoverview'},
1.473     amueller 6741:             url => '/adm/parmset?action=newoverview',
1.568     raeburn  6742:             permission => $parm_permission->{'newoverview'},
                   6743:             linktitle => $linktitle{'newoverview'},
                   6744:             icon => 'edit-find.png',
1.473     amueller 6745:             #help => 'Parameter_Overview',
                   6746:             },
1.568     raeburn  6747:           { linktext => $linktext{'settable'},
1.473     amueller 6748:             url => '/adm/parmset?action=settable',
1.568     raeburn  6749:             permission => $parm_permission->{'settable'},
                   6750:             linktitle => $linktitle{'settable'},
                   6751:             icon => 'edit-copy.png',
1.473     amueller 6752:             #help => 'Table_Mode',
                   6753:             }]},
1.417     droeschl 6754:            { categorytitle => 'Existing Parameter Settings for Resources',
1.473     amueller 6755:          items => [
1.570     raeburn  6756:           { linktext => $linktext{'setoverview'},
1.473     amueller 6757:             url => '/adm/parmset?action=setoverview',
1.568     raeburn  6758:             permission => $parm_permission->{'setoverview'},
                   6759:             linktitle => $linktitle{'setoverview'},
                   6760:             icon => 'preferences-desktop-wallpaper.png',
1.473     amueller 6761:             #help => 'Parameter_Overview',
                   6762:             },
                   6763:           { linktext => 'Change Log',
                   6764:             url => '/adm/parmset?action=parameterchangelog',
1.568     raeburn  6765:             permission => $parm_permission->{'parameterchangelog'},
1.477     raeburn  6766:             linktitle =>"View parameter and $lc_crstype blog posting/user notification change log."  ,
1.487     wenzelju 6767:             icon => 'document-properties.png',
1.473     amueller 6768:             }]}
1.193     albertel 6769:           );
1.414     droeschl 6770:     $r->print(&Apache::lonhtmlcommon::generate_menu(@menu));
1.539     raeburn  6771:     $r->print('</form>');
1.507     www      6772:     &endSettingsScreen($r);
1.539     raeburn  6773:     $r->print(&Apache::loncommon::end_page());
1.193     albertel 6774:     return;
                   6775: }
1.414     droeschl 6776: 
1.416     jms      6777: 
                   6778: 
1.560     damieng  6779: ##################################################
                   6780: # PORTFOLIO METADATA
                   6781: ##################################################
                   6782: 
1.563     damieng  6783: # Prints HTML to edit an item of portfolio metadata. The HTML contains several td elements (no tr).
                   6784: # It looks like field titles are not localized.
                   6785: #
                   6786: # @param {Apache2::RequestRec} $r - the Apache request
                   6787: # @param {string} $field_name - metadata field name
                   6788: # @param {string} $field_text - metadata field title, in English unless manually added
                   6789: # @param {boolean} $added_flag - true if the field was manually added
1.252     banghart 6790: sub output_row {
1.347     banghart 6791:     my ($r, $field_name, $field_text, $added_flag) = @_;
1.252     banghart 6792:     my $output;
1.263     banghart 6793:     my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'};
                   6794:     my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'};
1.337     banghart 6795:     if (!defined($options)) {
1.254     banghart 6796:         $options = 'active,stuadd';
1.261     banghart 6797:         $values = '';
1.252     banghart 6798:     }
1.337     banghart 6799:     if (!($options =~ /deleted/)) {
                   6800:         my @options= ( ['active', 'Show to student'],
1.418     schafran 6801:                     ['stuadd', 'Provide text area for students to type metadata'],
1.351     banghart 6802:                     ['choices','Provide choices for students to select from']);
1.473     amueller 6803: #           ['onlyone','Student may select only one choice']);
1.337     banghart 6804:         if ($added_flag) {
                   6805:             push @options,['deleted', 'Delete Metadata Field'];
                   6806:         }
1.351     banghart 6807:        $output = &Apache::loncommon::start_data_table_row();
1.451     bisitz   6808:         $output .= '<td><strong>'.$field_text.':</strong></td>';
1.351     banghart 6809:         $output .= &Apache::loncommon::end_data_table_row();
1.337     banghart 6810:         foreach my $opt (@options) {
1.560     damieng  6811:             my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ;
                   6812:             $output .= &Apache::loncommon::continue_data_table_row();
                   6813:             $output .= '<td>'.('&nbsp;' x 5).'<label>
                   6814:                     <input type="checkbox" name="'.
                   6815:                     $field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'.
                   6816:                     &mt($opt->[1]).'</label></td>';
                   6817:             $output .= &Apache::loncommon::end_data_table_row();
                   6818:         }
1.351     banghart 6819:         $output .= &Apache::loncommon::continue_data_table_row();
1.451     bisitz   6820:         $output .= '<td>'.('&nbsp;' x 10).'<input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /></td>';
1.351     banghart 6821:         $output .= &Apache::loncommon::end_data_table_row();
                   6822:         my $multiple_checked;
                   6823:         my $single_checked;
                   6824:         if ($options =~ m/onlyone/) {
1.422     bisitz   6825:             $multiple_checked = '';
1.423     bisitz   6826:             $single_checked = ' checked="checked"';
1.351     banghart 6827:         } else {
1.423     bisitz   6828:             $multiple_checked = ' checked="checked"';
1.422     bisitz   6829:             $single_checked = '';
1.351     banghart 6830:         }
1.560     damieng  6831:         $output .= &Apache::loncommon::continue_data_table_row();
                   6832:         $output .= '<td>'.('&nbsp;' x 10).'
                   6833:                     <input type="radio" name="'.$field_name.'_onlyone" value="multiple"'.$multiple_checked .' />
                   6834:                     '.&mt('Student may select multiple choices from list').'</td>';
                   6835:         $output .= &Apache::loncommon::end_data_table_row();
                   6836:         $output .= &Apache::loncommon::continue_data_table_row();
                   6837:         $output .= '<td>'.('&nbsp;' x 10).'
                   6838:                     <input type="radio" name="'.$field_name.'_onlyone"  value="single"'.$single_checked.' />
                   6839:                     '.&mt('Student may select only one choice from list').'</td>';
                   6840:         $output .= &Apache::loncommon::end_data_table_row();
1.252     banghart 6841:     }
                   6842:     return ($output);
                   6843: }
1.416     jms      6844: 
                   6845: 
1.560     damieng  6846: # UI to order portfolio metadata fields.
1.563     damieng  6847: # Currently useless because addmetafield does not work.
                   6848: #
                   6849: # @param {Apache2::RequestRec} $r - the Apache request
1.340     banghart 6850: sub order_meta_fields {
                   6851:     my ($r)=@_;
                   6852:     my $idx = 1;
                   6853:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   6854:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.531     raeburn  6855:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};;
1.341     banghart 6856:     $r->print(&Apache::loncommon::start_page('Order Metadata Fields'));
1.560     damieng  6857:     &Apache::lonhtmlcommon::add_breadcrumb(
                   6858:         {href=>'/adm/parmset?action=addmetadata',
1.473     amueller 6859:         text=>"Add Metadata Field"});
1.560     damieng  6860:     &Apache::lonhtmlcommon::add_breadcrumb(
                   6861:         {href=>"/adm/parmset?action=setrestrictmeta",
                   6862:         text=>"Restrict Metadata"},
                   6863:         {text=>"Order Metadata"});
1.345     banghart 6864:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata'));
1.531     raeburn  6865:     &startSettingsScreen($r,'parmset',$crstype);
1.340     banghart 6866:     if ($env{'form.storeorder'}) {
                   6867:         my $newpos = $env{'form.newpos'} - 1;
                   6868:         my $currentpos = $env{'form.currentpos'} - 1;
                   6869:         my @neworder = ();
1.548     raeburn  6870:         my @oldorder = split(/,/,$env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'});
1.340     banghart 6871:         my $i;
1.341     banghart 6872:         if ($newpos > $currentpos) {
1.340     banghart 6873:         # moving stuff up
                   6874:             for ($i=0;$i<$currentpos;$i++) {
1.560     damieng  6875:                 $neworder[$i]=$oldorder[$i];
1.340     banghart 6876:             }
                   6877:             for ($i=$currentpos;$i<$newpos;$i++) {
1.560     damieng  6878:                 $neworder[$i]=$oldorder[$i+1];
1.340     banghart 6879:             }
                   6880:             $neworder[$newpos]=$oldorder[$currentpos];
                   6881:             for ($i=$newpos+1;$i<=$#oldorder;$i++) {
1.560     damieng  6882:                 $neworder[$i]=$oldorder[$i];
1.340     banghart 6883:             }
                   6884:         } else {
                   6885:         # moving stuff down
1.473     amueller 6886:             for ($i=0;$i<$newpos;$i++) {
                   6887:                 $neworder[$i]=$oldorder[$i];
                   6888:             }
                   6889:             $neworder[$newpos]=$oldorder[$currentpos];
                   6890:             for ($i=$newpos+1;$i<$currentpos+1;$i++) {
                   6891:                 $neworder[$i]=$oldorder[$i-1];
                   6892:             }
                   6893:             for ($i=$currentpos+1;$i<=$#oldorder;$i++) {
                   6894:                 $neworder[$i]=$oldorder[$i];
                   6895:             }
1.340     banghart 6896:         }
1.560     damieng  6897:         my $ordered_fields = join ",", @neworder;
1.343     banghart 6898:         my $put_result = &Apache::lonnet::put('environment',
1.560     damieng  6899:                         {'metadata.addedorder'=>$ordered_fields},$dom,$crs);
                   6900:         &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields});
1.340     banghart 6901:     }
1.357     raeburn  6902:     my $fields = &get_added_meta_fieldnames($env{'request.course.id'});
1.341     banghart 6903:     my $ordered_fields;
1.548     raeburn  6904:     my @fields_in_order = split(/,/,$env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'});
1.340     banghart 6905:     if (!@fields_in_order) {
                   6906:         # no order found, pick sorted order then create metadata.addedorder key.
1.548     raeburn  6907:         foreach my $key (sort(keys(%$fields))) {
1.340     banghart 6908:             push @fields_in_order, $key;
1.341     banghart 6909:             $ordered_fields = join ",", @fields_in_order;
1.340     banghart 6910:         }
1.341     banghart 6911:         my $put_result = &Apache::lonnet::put('environment',
1.446     bisitz   6912:                             {'metadata.addedorder'=>$ordered_fields},$dom,$crs);
                   6913:     }
1.340     banghart 6914:     $r->print('<table>');
                   6915:     my $num_fields = scalar(@fields_in_order);
                   6916:     foreach my $key (@fields_in_order) {
                   6917:         $r->print('<tr><td>');
                   6918:         $r->print('<form method="post" action="">');
1.537     bisitz   6919:         $r->print('<select name="newpos" onchange="this.form.submit()">');
1.340     banghart 6920:         for (my $i = 1;$i le $num_fields;$i ++) {
                   6921:             if ($i eq $idx) {
                   6922:                 $r->print('<option value="'.$i.'"  SELECTED>('.$i.')</option>');
                   6923:             } else {
                   6924:                 $r->print('<option value="'.$i.'">'.$i.'</option>');
                   6925:             }
                   6926:         }
                   6927:         $r->print('</select></td><td>');
                   6928:         $r->print('<input type="hidden" name="currentpos" value="'.$idx.'" />');
                   6929:         $r->print('<input type="hidden" name="storeorder" value="true" />');
                   6930:         $r->print('</form>');
                   6931:         $r->print($$fields{$key}.'</td></tr>');
                   6932:         $idx ++;
                   6933:     }
                   6934:     $r->print('</table>');
1.507     www      6935:     &endSettingsScreen($r);
1.340     banghart 6936:     return 'ok';
                   6937: }
1.416     jms      6938: 
                   6939: 
1.563     damieng  6940: # Returns HTML with a Continue button redirecting to the initial portfolio metadata screen.
                   6941: # @returns {string}
1.359     banghart 6942: sub continue {
                   6943:     my $output;
                   6944:     $output .= '<form action="" method="post">';
                   6945:     $output .= '<input type="hidden" name="action" value="setrestrictmeta" />';
1.586     raeburn  6946:     $output .= '<input type="submit" value="'.&mt('Continue').'" />';
1.359     banghart 6947:     return ($output);
                   6948: }
1.416     jms      6949: 
                   6950: 
1.563     damieng  6951: # UI to add a metadata field.
                   6952: # Currenly does not work because of an HTML error (the field is not visible).
                   6953: #
                   6954: # @param {Apache2::RequestRec} $r - the Apache request
1.334     banghart 6955: sub addmetafield {
                   6956:     my ($r)=@_;
1.414     droeschl 6957:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
1.473     amueller 6958:         text=>"Add Metadata Field"});
1.334     banghart 6959:     $r->print(&Apache::loncommon::start_page('Add Metadata Field'));
                   6960:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));
1.335     banghart 6961:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   6962:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.531     raeburn  6963:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
                   6964:     &startSettingsScreen($r,'parmset',$crstype);
1.339     banghart 6965:     if (exists($env{'form.undelete'})) {
1.358     banghart 6966:         my @meta_fields = &Apache::loncommon::get_env_multiple('form.undeletefield');
1.339     banghart 6967:         foreach my $meta_field(@meta_fields) {
                   6968:             my $options = $env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.options'};
                   6969:             $options =~ s/deleted//;
                   6970:             $options =~ s/,,/,/;
                   6971:             my $put_result = &Apache::lonnet::put('environment',
                   6972:                                         {'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);
1.446     bisitz   6973: 
1.586     raeburn  6974:             $r->print(&mt('Undeleted Metadata Field [_1] with result [_2]',
                   6975:                           '<strong>'.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}.
                   6976:                           '</strong>',$put_result).
                   6977:                       '<br />');
1.339     banghart 6978:         }
1.359     banghart 6979:         $r->print(&continue());
1.339     banghart 6980:     } elsif (exists($env{'form.fieldname'})) {
1.335     banghart 6981:         my $meta_field = $env{'form.fieldname'};
                   6982:         my $display_field = $env{'form.fieldname'};
                   6983:         $meta_field =~ s/\W/_/g;
1.338     banghart 6984:         $meta_field =~ tr/A-Z/a-z/;
1.335     banghart 6985:         my $put_result = &Apache::lonnet::put('environment',
                   6986:                             {'metadata.'.$meta_field.'.values'=>"",
                   6987:                              'metadata.'.$meta_field.'.added'=>"$display_field",
                   6988:                              'metadata.'.$meta_field.'.options'=>""},$dom,$crs);
1.586     raeburn  6989:         $r->print(&mt('Added new Metadata Field [_1] with result [_2]',
                   6990:                       '<strong>'.$env{'form.fieldname'}.'</strong>',$put_result).
                   6991:                   '<br />');
1.359     banghart 6992:         $r->print(&continue());
1.335     banghart 6993:     } else {
1.357     raeburn  6994:         my $fields = &get_deleted_meta_fieldnames($env{'request.course.id'});
1.339     banghart 6995:         if ($fields) {
1.586     raeburn  6996:             $r->print(&mt('You may undelete previously deleted fields.').
                   6997:                       '<br />'.
                   6998:                       &mt('Check those you wish to undelete and click Undelete.').
                   6999:                       '<br />');
1.339     banghart 7000:             $r->print('<form method="post" action="">');
                   7001:             foreach my $key(keys(%$fields)) {
1.581     raeburn  7002:                 $r->print('<label><input type="checkbox" name="undeletefield" value="'.$key.'" />'.$$fields{$key}.'</label><br /');
1.339     banghart 7003:             }
1.586     raeburn  7004:             $r->print('<input type="submit" name="undelete" value="'.&mt('Undelete').'" />');
1.339     banghart 7005:             $r->print('</form>');
                   7006:         }
1.586     raeburn  7007:         $r->print('<hr />'.
                   7008:                   &mt('[_1]Or[_2] you may enter a new metadata field name.',
                   7009:                       '<strong>','</strong>').
1.581     raeburn  7010:                   '<form method="post" action="/adm/parmset?action=addmetadata">');
1.335     banghart 7011:         $r->print('<input type="text" name="fieldname" /><br />');
1.586     raeburn  7012:         $r->print('<input type="submit" value="'.&mt('Add Metadata Field').'" />');
1.581     raeburn  7013:         $r->print('</form>');
1.334     banghart 7014:     }
1.507     www      7015:     &endSettingsScreen($r);
1.334     banghart 7016: }
1.416     jms      7017: 
                   7018: 
                   7019: 
1.560     damieng  7020: # Display or save portfolio metadata.
1.563     damieng  7021: #
                   7022: # @param {Apache2::RequestRec} $r - the Apache request
1.259     banghart 7023: sub setrestrictmeta {
1.240     banghart 7024:     my ($r)=@_;
1.242     banghart 7025:     my $next_meta;
1.244     banghart 7026:     my $output;
1.245     banghart 7027:     my $item_num;
1.246     banghart 7028:     my $put_result;
1.414     droeschl 7029:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',
1.473     amueller 7030:         text=>"Restrict Metadata"});
1.280     albertel 7031:     $r->print(&Apache::loncommon::start_page('Restrict Metadata'));
1.298     albertel 7032:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
1.240     banghart 7033:     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   7034:     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.531     raeburn  7035:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
                   7036:     &startSettingsScreen($r,'parmset',$crstype);
1.259     banghart 7037:     my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};
1.252     banghart 7038:     my $save_field = '';
1.586     raeburn  7039:     my %lt = &Apache::lonlocal::texthash(
                   7040:                                            addm => 'Add Metadata Field',
                   7041:                                            ordm => 'Order Metadata Fields',
                   7042:                                            save => 'Save',
                   7043:                                         );
1.259     banghart 7044:     if ($env{'form.restrictmeta'}) {
1.254     banghart 7045:         foreach my $field (sort(keys(%env))) {
1.252     banghart 7046:             if ($field=~m/^form.(.+)_(.+)$/) {
1.254     banghart 7047:                 my $options;
1.252     banghart 7048:                 my $meta_field = $1;
                   7049:                 my $meta_key = $2;
1.253     banghart 7050:                 if ($save_field ne $meta_field) {
1.252     banghart 7051:                     $save_field = $meta_field;
1.473     amueller 7052:                     if ($env{'form.'.$meta_field.'_stuadd'}) {
                   7053:                         $options.='stuadd,';
                   7054:                     }
                   7055:                     if ($env{'form.'.$meta_field.'_choices'}) {
                   7056:                         $options.='choices,';
                   7057:                     }
                   7058:                     if ($env{'form.'.$meta_field.'_onlyone'} eq 'single') {
                   7059:                         $options.='onlyone,';
                   7060:                     }
                   7061:                     if ($env{'form.'.$meta_field.'_active'}) {
                   7062:                         $options.='active,';
                   7063:                     }
                   7064:                     if ($env{'form.'.$meta_field.'_deleted'}) {
                   7065:                         $options.='deleted,';
                   7066:                     }
1.259     banghart 7067:                     my $name = $save_field;
1.560     damieng  7068:                     $put_result = &Apache::lonnet::put('environment',
                   7069:                         {'metadata.'.$meta_field.'.options'=>$options,
                   7070:                         'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
                   7071:                         },$dom,$crs);
1.252     banghart 7072:                 }
                   7073:             }
                   7074:         }
                   7075:     }
1.296     albertel 7076:     &Apache::lonnet::coursedescription($env{'request.course.id'},
1.473     amueller 7077:                        {'freshen_cache' => 1});
1.335     banghart 7078:     # Get the default metadata fields
1.258     albertel 7079:     my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
1.335     banghart 7080:     # Now get possible added metadata fields
1.357     raeburn  7081:     my $added_metadata_fields = &get_added_meta_fieldnames($env{'request.course.id'});
1.347     banghart 7082:     $output .= &Apache::loncommon::start_data_table();
1.258     albertel 7083:     foreach my $field (sort(keys(%metadata_fields))) {
1.265     banghart 7084:         if ($field ne 'courserestricted') {
1.586     raeburn  7085:             $output.= &output_row($r,$field,$metadata_fields{$field});
1.560     damieng  7086:         }
1.255     banghart 7087:     }
1.351     banghart 7088:     my $buttons = (<<ENDButtons);
1.586     raeburn  7089:         <input type="submit" name="restrictmeta" value="$lt{'save'}" />
1.351     banghart 7090:         </form><br />
                   7091:         <form method="post" action="/adm/parmset?action=addmetadata" name="form1">
1.586     raeburn  7092:         <input type="submit" name="restrictmeta" value="$lt{'addm'}" />
1.351     banghart 7093:         </form>
                   7094:         <br />
                   7095:         <form method="post" action="/adm/parmset?action=ordermetadata" name="form2">
1.586     raeburn  7096:         <input type="submit" name="restrictmeta" value="$lt{'ordm'}" />
1.351     banghart 7097: ENDButtons
1.337     banghart 7098:     my $added_flag = 1;
1.335     banghart 7099:     foreach my $field (sort(keys(%$added_metadata_fields))) {
1.586     raeburn  7100:         $output.= &output_row($r,$field,$$added_metadata_fields{$field},$added_flag);
1.335     banghart 7101:     }
1.347     banghart 7102:     $output .= &Apache::loncommon::end_data_table();
1.446     bisitz   7103:     $r->print(<<ENDenv);
1.259     banghart 7104:         <form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">
1.244     banghart 7105:         $output
1.351     banghart 7106:         $buttons
1.340     banghart 7107:         </form>
1.244     banghart 7108: ENDenv
1.507     www      7109:     &endSettingsScreen($r);
1.280     albertel 7110:     $r->print(&Apache::loncommon::end_page());
1.240     banghart 7111:     return 'ok';
                   7112: }
1.416     jms      7113: 
                   7114: 
1.563     damieng  7115: # Returns metadata fields that have been manually added.
                   7116: #
                   7117: # @param {string} $cid - course id
                   7118: # @returns {hash reference} - hash field name -> field title (not localized)
1.335     banghart 7119: sub get_added_meta_fieldnames {
1.357     raeburn  7120:     my ($cid) = @_;
1.335     banghart 7121:     my %fields;
                   7122:     foreach my $key(%env) {
1.357     raeburn  7123:         if ($key =~ m/\Q$cid\E\.metadata\.(.+)\.added$/) {
1.335     banghart 7124:             my $field_name = $1;
                   7125:             my ($display_field_name) = $env{$key};
                   7126:             $fields{$field_name} = $display_field_name;
                   7127:         }
                   7128:     }
                   7129:     return \%fields;
                   7130: }
1.416     jms      7131: 
                   7132: 
1.563     damieng  7133: # Returns metadata fields that have been manually added and deleted.
                   7134: #
                   7135: # @param {string} $cid - course id
                   7136: # @returns {hash reference} - hash field name -> field title (not localized)
1.339     banghart 7137: sub get_deleted_meta_fieldnames {
1.357     raeburn  7138:     my ($cid) = @_;
1.339     banghart 7139:     my %fields;
                   7140:     foreach my $key(%env) {
1.357     raeburn  7141:         if ($key =~ m/\Q$cid\E\.metadata\.(.+)\.added$/) {
1.339     banghart 7142:             my $field_name = $1;
                   7143:             if ($env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/) {
                   7144:                 my ($display_field_name) = $env{$key};
                   7145:                 $fields{$field_name} = $display_field_name;
                   7146:             }
                   7147:         }
                   7148:     }
                   7149:     return \%fields;
                   7150: }
1.560     damieng  7151: 
                   7152: 
                   7153: ##################################################
                   7154: # PARAMETER SETTINGS DEFAULT ACTIONS
                   7155: ##################################################
                   7156: 
                   7157: # UI to change parameter setting default actions
1.563     damieng  7158: #
                   7159: # @param {Apache2::RequestRec} $r - the Apache request
1.220     www      7160: sub defaultsetter {
1.280     albertel 7161:     my ($r) = @_;
                   7162: 
1.414     droeschl 7163:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
1.473     amueller 7164:         text=>"Set Defaults"});
1.531     raeburn  7165:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   7166:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   7167:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
1.446     bisitz   7168:     my $start_page =
1.531     raeburn  7169:         &Apache::loncommon::start_page('Parameter Setting Default Actions');
1.298     albertel 7170:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
1.507     www      7171:     $r->print($start_page.$breadcrumbs);
1.531     raeburn  7172:     &startSettingsScreen($r,'parmset',$crstype);
1.507     www      7173:     $r->print('<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">');
1.280     albertel 7174: 
1.221     www      7175:     my @ids=();
                   7176:     my %typep=();
                   7177:     my %keyp=();
                   7178:     my %allparms=();
                   7179:     my %allparts=();
                   7180:     my %allmaps=();
                   7181:     my %mapp=();
                   7182:     my %symbp=();
                   7183:     my %maptitles=();
                   7184:     my %uris=();
                   7185:     my %keyorder=&standardkeyorder();
                   7186:     my %defkeytype=();
                   7187: 
1.446     bisitz   7188:     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
1.473     amueller 7189:                 \%mapp, \%symbp,\%maptitles,\%uris,
                   7190:                 \%keyorder,\%defkeytype);
1.224     www      7191:     if ($env{'form.storerules'}) {
1.560     damieng  7192:         my %newrules=();
                   7193:         my @delrules=();
                   7194:         my %triggers=();
                   7195:         foreach my $key (keys(%env)) {
1.225     albertel 7196:             if ($key=~/^form\.(\w+)\_action$/) {
1.560     damieng  7197:                 my $tempkey=$1;
                   7198:                 my $action=$env{$key};
1.226     www      7199:                 if ($action) {
1.560     damieng  7200:                     $newrules{$tempkey.'_action'}=$action;
                   7201:                     if ($action ne 'default') {
                   7202:                         my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
                   7203:                         $triggers{$whichparm}.=$tempkey.':';
                   7204:                     }
                   7205:                     $newrules{$tempkey.'_type'}=$defkeytype{$tempkey};
                   7206:                     if (&isdateparm($defkeytype{$tempkey})) {
                   7207:                         $newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};
                   7208:                         $newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
                   7209:                         $newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
                   7210:                         $newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
                   7211:                     } else {
                   7212:                         $newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
                   7213:                         $newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};
                   7214:                     }
                   7215:                 } else {
                   7216:                     push(@delrules,$tempkey.'_action');
                   7217:                     push(@delrules,$tempkey.'_type');
                   7218:                     push(@delrules,$tempkey.'_hours');
                   7219:                     push(@delrules,$tempkey.'_min');
                   7220:                     push(@delrules,$tempkey.'_sec');
                   7221:                     push(@delrules,$tempkey.'_value');
                   7222:                 }
1.473     amueller 7223:             }
                   7224:         }
1.560     damieng  7225:         foreach my $key (keys(%allparms)) {
                   7226:             $newrules{$key.'_triggers'}=$triggers{$key};
1.473     amueller 7227:         }
1.560     damieng  7228:         &Apache::lonnet::put('parmdefactions',\%newrules,$cdom,$cnum);
                   7229:         &Apache::lonnet::del('parmdefactions',\@delrules,$cdom,$cnum);
                   7230:         &resetrulescache();
1.224     www      7231:     }
1.227     www      7232:     my %lt=&Apache::lonlocal::texthash('days' => 'Days',
1.473     amueller 7233:                        'hours' => 'Hours',
                   7234:                        'min' => 'Minutes',
                   7235:                        'sec' => 'Seconds',
                   7236:                        'yes' => 'Yes',
                   7237:                        'no' => 'No');
1.222     www      7238:     my @standardoptions=('','default');
                   7239:     my @standarddisplay=('',&mt('Default value when manually setting'));
                   7240:     my @dateoptions=('','default');
                   7241:     my @datedisplay=('',&mt('Default value when manually setting'));
                   7242:     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
1.560     damieng  7243:         unless ($tempkey) { next; }
                   7244:         push @standardoptions,'when_setting_'.$tempkey;
                   7245:         push @standarddisplay,&mt('Automatically set when setting ').$tempkey;
                   7246:         if (&isdateparm($defkeytype{$tempkey})) {
                   7247:             push @dateoptions,'later_than_'.$tempkey;
                   7248:             push @datedisplay,&mt('Automatically set later than ').$tempkey;
                   7249:             push @dateoptions,'earlier_than_'.$tempkey;
                   7250:             push @datedisplay,&mt('Automatically set earlier than ').$tempkey;
                   7251:         }
1.222     www      7252:     }
1.563     damieng  7253:     $r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.
                   7254:         &mt('Automatic setting rules apply to table mode interfaces only.'));
1.318     albertel 7255:     $r->print("\n".&Apache::loncommon::start_data_table().
1.473     amueller 7256:           &Apache::loncommon::start_data_table_header_row().
                   7257:           "<th>".&mt('Rule for parameter').'</th><th>'.
                   7258:           &mt('Action').'</th><th>'.&mt('Value').'</th>'.
                   7259:           &Apache::loncommon::end_data_table_header_row());
1.221     www      7260:     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
1.560     damieng  7261:         unless ($tempkey) { next; }
                   7262:         $r->print("\n".&Apache::loncommon::start_data_table_row().
                   7263:             "<td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
                   7264:         my $action=&rulescache($tempkey.'_action');
                   7265:         $r->print('<select name="'.$tempkey.'_action">');
                   7266:         if (&isdateparm($defkeytype{$tempkey})) {
                   7267:             for (my $i=0;$i<=$#dateoptions;$i++) {
                   7268:             if ($dateoptions[$i]=~/\_$tempkey$/) { next; }
                   7269:             $r->print("\n<option value='$dateoptions[$i]'".
                   7270:                 ($dateoptions[$i] eq $action?' selected="selected"':'').
                   7271:                 ">$datedisplay[$i]</option>");
                   7272:             }
                   7273:         } else {
                   7274:             for (my $i=0;$i<=$#standardoptions;$i++) {
                   7275:             if ($standardoptions[$i]=~/\_$tempkey$/) { next; }
                   7276:             $r->print("\n<option value='$standardoptions[$i]'".
                   7277:                 ($standardoptions[$i] eq $action?' selected="selected"':'').
                   7278:                 ">$standarddisplay[$i]</option>");
                   7279:             }
1.473     amueller 7280:         }
1.560     damieng  7281:         $r->print('</select>');
                   7282:         unless (&isdateparm($defkeytype{$tempkey})) {
                   7283:             $r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').
                   7284:                 '<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');
1.473     amueller 7285:         }
1.560     damieng  7286:         $r->print("\n</td><td>\n");
1.222     www      7287: 
1.221     www      7288:         if (&isdateparm($defkeytype{$tempkey})) {
1.560     damieng  7289:             my $days=&rulescache($tempkey.'_days');
                   7290:             my $hours=&rulescache($tempkey.'_hours');
                   7291:             my $min=&rulescache($tempkey.'_min');
                   7292:             my $sec=&rulescache($tempkey.'_sec');
                   7293:             $r->print(<<ENDINPUTDATE);
                   7294:     <input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />
                   7295:     <input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />
                   7296:     <input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />
                   7297:     <input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}
1.564     raeburn  7298: ENDINPUTDATE
1.560     damieng  7299:         } elsif ($defkeytype{$tempkey} eq 'string_yesno') {
                   7300:                 my $yeschecked='';
                   7301:                 my $nochecked='';
                   7302:                 if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked=' checked="checked"'; }
                   7303:                 if (&rulescache($tempkey.'_value') eq 'no') { $nochecked=' checked="checked"'; }
                   7304: 
                   7305:             $r->print(<<ENDYESNO);
                   7306:     <label><input type="radio" name="$tempkey\_value" value="yes"$yeschecked /> $lt{'yes'}</label><br />
                   7307:     <label><input type="radio" name="$tempkey\_value" value="no"$nochecked /> $lt{'no'}</label>
1.564     raeburn  7308: ENDYESNO
1.221     www      7309:         } else {
1.560     damieng  7310:             $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
                   7311:         }
1.318     albertel 7312:         $r->print('</td>'.&Apache::loncommon::end_data_table_row());
1.221     www      7313:     }
1.318     albertel 7314:     $r->print(&Apache::loncommon::end_data_table().
1.473     amueller 7315:           "\n".'<input type="submit" name="storerules" value="'.
1.507     www      7316:           &mt('Save').'" /></form>'."\n");
                   7317:     &endSettingsScreen($r);
                   7318:     $r->print(&Apache::loncommon::end_page());
1.220     www      7319:     return;
                   7320: }
1.193     albertel 7321: 
1.560     damieng  7322: ##################################################
                   7323: # PARAMETER CHANGES LOG
                   7324: ##################################################
                   7325: 
1.563     damieng  7326: # Returns some info for a parameter log entry.
                   7327: # Returned entries:
                   7328: # $realm - HTML title for the parameter level and resource
                   7329: # $section - parameter section
                   7330: # $name - parameter name
                   7331: # $part - parameter part
                   7332: # $what - $part.'.'.$name
                   7333: # $middle - resource symb ?
                   7334: # $uname - user name (same as given)
                   7335: # $udom - user domain (same as given)
                   7336: # $issection - section or group name
                   7337: # $realmdescription - title for the parameter level and resource (without using HTML)
                   7338: #
                   7339: # @param {string} $key - parameter log key
                   7340: # @param {string} $uname - user name
                   7341: # @param {string} $udom - user domain
                   7342: # @param {boolean} $typeflag - .type log entry
                   7343: # @returns {Array}
1.290     www      7344: sub components {
1.581     raeburn  7345:     my ($key,$uname,$udom,$typeflag)=@_;
1.330     albertel 7346: 
                   7347:     if ($typeflag) {
1.560     damieng  7348:         $key=~s/\.type$//;
1.290     www      7349:     }
1.330     albertel 7350: 
                   7351:     my ($middle,$part,$name)=
1.572     damieng  7352:         ($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s\-]+)\.(\w+)$/);
1.291     www      7353:     my $issection;
1.330     albertel 7354: 
1.290     www      7355:     my $section=&mt('All Students');
                   7356:     if ($middle=~/^\[(.*)\]/) {
1.560     damieng  7357:         $issection=$1;
                   7358:         $section=&mt('Group/Section').': '.$issection;
                   7359:         $middle=~s/^\[(.*)\]//;
1.290     www      7360:     }
                   7361:     $middle=~s/\.+$//;
                   7362:     $middle=~s/^\.+//;
1.291     www      7363:     if ($uname) {
1.560     damieng  7364:         $section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
                   7365:         $issection='';
1.291     www      7366:     }
1.316     albertel 7367:     my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
1.446     bisitz   7368:     my $realmdescription=&mt('all resources');
1.556     raeburn  7369:     if ($middle=~/^(.+)\_\_\_\((all|rec)\)$/) {
                   7370:         my $mapurl = $1;
                   7371:         my $maplevel = $2;
                   7372:         my $leveltitle = &mt('Folder/Map');
                   7373:         if ($maplevel eq 'rec') {
                   7374:             $leveltitle = &mt('Recursive');
                   7375:         }
1.560     damieng  7376:         $realm='<span class="LC_parm_scope_folder">'.$leveltitle.
                   7377:             ': '.&Apache::lonnet::gettitle($mapurl).' <span class="LC_parm_folder"><br />('.
                   7378:             $mapurl.')</span></span>';
                   7379:         $realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($mapurl);
                   7380:     } elsif ($middle) {
                   7381:         my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
                   7382:         $realm='<span class="LC_parm_scope_resource">'.&mt('Resource').
                   7383:             ': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.
                   7384:             ' in '.$map.' id: '.$id.')</span></span>';
                   7385:         $realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);
1.290     www      7386:     }
1.291     www      7387:     my $what=$part.'.'.$name;
1.330     albertel 7388:     return ($realm,$section,$name,$part,
1.473     amueller 7389:         $what,$middle,$uname,$udom,$issection,$realmdescription);
1.290     www      7390: }
1.293     www      7391: 
1.563     damieng  7392: my %standard_parms; # hash parameter name -> parameter title (not localized)
                   7393: my %standard_parms_types; # hash parameter name -> parameter type
1.416     jms      7394: 
1.563     damieng  7395: # Reads parameter info from packages.tab into %standard_parms.
1.328     albertel 7396: sub load_parameter_names {
1.583     raeburn  7397:     open(my $config,"<","$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
1.328     albertel 7398:     while (my $configline=<$config>) {
1.560     damieng  7399:         if ($configline !~ /\S/ || $configline=~/^\#/) { next; }
                   7400:         chomp($configline);
                   7401:         my ($short,$plain)=split(/:/,$configline);
                   7402:         my (undef,$name,$type)=split(/\&/,$short,3);
                   7403:         if ($type eq 'display') {
                   7404:             $standard_parms{$name} = $plain;
1.469     raeburn  7405:         } elsif ($type eq 'type') {
1.560     damieng  7406:                 $standard_parms_types{$name} = $plain;
1.469     raeburn  7407:         }
1.328     albertel 7408:     }
                   7409:     close($config);
                   7410:     $standard_parms{'int_pos'}      = 'Positive Integer';
                   7411:     $standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';
1.575     raeburn  7412:     $standard_parms{'scoreformat'}  = 'Format for display of score';
1.328     albertel 7413: }
                   7414: 
1.563     damieng  7415: # Returns a parameter title for standard parameters, the name for others.
                   7416: #
                   7417: # @param {string} $name - parameter name
                   7418: # @returns {string}
1.292     www      7419: sub standard_parameter_names {
                   7420:     my ($name)=@_;
1.328     albertel 7421:     if (!%standard_parms) {
1.560     damieng  7422:         &load_parameter_names();
1.328     albertel 7423:     }
1.292     www      7424:     if ($standard_parms{$name}) {
1.560     damieng  7425:         return $standard_parms{$name};
1.446     bisitz   7426:     } else {
1.560     damieng  7427:         return $name;
1.292     www      7428:     }
                   7429: }
1.290     www      7430: 
1.563     damieng  7431: # Returns a parameter type for standard parameters, undef for others.
                   7432: #
                   7433: # @param {string} $name - parameter name
                   7434: # @returns {string}
1.469     raeburn  7435: sub standard_parameter_types {
                   7436:     my ($name)=@_;
                   7437:     if (!%standard_parms_types) {
                   7438:         &load_parameter_names();
                   7439:     }
                   7440:     if ($standard_parms_types{$name}) {
                   7441:         return $standard_parms_types{$name};
                   7442:     }
                   7443:     return;
                   7444: }
1.309     www      7445: 
1.563     damieng  7446: # Returns a parameter level title (not localized) from the parameter level name.
                   7447: #
                   7448: # @param {string} $name - parameter level name (recognized: resourcelevel|maplevel|maplevelrecurse|courselevel)
                   7449: # @returns {string}
1.557     raeburn  7450: sub standard_parameter_levels {
                   7451:     my ($name)=@_;
                   7452:     my %levels = (
                   7453:                     'resourcelevel'   => 'a single resource',
                   7454:                     'maplevel'        => 'the enclosing map/folder', 
                   7455:                     'maplevelrecurse' => 'the enclosing map/folder (recursive into sub-folders)',
                   7456:                     'courselevel'     => 'the general (course) level',
                   7457:                  );
                   7458:     if ($levels{$name}) {
                   7459:         return $levels{$name};
                   7460:     }
                   7461:     return;
                   7462: }
                   7463: 
1.560     damieng  7464: # Display log for parameter changes, blog postings, user notification changes.
1.563     damieng  7465: #
                   7466: # @param {Apache2::RequestRec} $r - the Apache request
1.285     albertel 7467: sub parm_change_log {
1.568     raeburn  7468:     my ($r,$parm_permission)=@_;
1.531     raeburn  7469:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   7470:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
1.569     raeburn  7471:     my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
1.414     droeschl 7472:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
1.473     amueller 7473:     text=>"Parameter Change Log"});
1.522     raeburn  7474:     my $js = '<script type="text/javascript">'."\n".
                   7475:              '// <![CDATA['."\n".
                   7476:              &Apache::loncommon::display_filter_js('parmslog')."\n".
                   7477:              '// ]]>'."\n".
                   7478:              '</script>'."\n";
                   7479:     $r->print(&Apache::loncommon::start_page('Parameter Change Log',$js));
1.327     albertel 7480:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));
1.531     raeburn  7481:     &startSettingsScreen($r,'parmset',$crstype);
                   7482:     my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',$cdom,$cnum);
1.311     albertel 7483: 
1.301     www      7484:     if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }
1.311     albertel 7485: 
1.522     raeburn  7486:     $r->print('<div class="LC_left_float">'.
                   7487:               '<fieldset><legend>'.&mt('Display of Changes').'</legend>'.
                   7488:               '<form action="/adm/parmset?action=parameterchangelog"
1.327     albertel 7489:                      method="post" name="parameterlog">');
1.446     bisitz   7490: 
1.311     albertel 7491:     my %saveable_parameters = ('show' => 'scalar',);
                   7492:     &Apache::loncommon::store_course_settings('parameter_log',
                   7493:                                               \%saveable_parameters);
                   7494:     &Apache::loncommon::restore_course_settings('parameter_log',
                   7495:                                                 \%saveable_parameters);
1.522     raeburn  7496:     $r->print(&Apache::loncommon::display_filter('parmslog').'&nbsp;'."\n".
                   7497:               '<input type="submit" value="'.&mt('Display').'" />'.
                   7498:               '</form></fieldset></div><br clear="all" />');
1.301     www      7499: 
1.568     raeburn  7500:     my $readonly = 1;
                   7501:     if ($parm_permission->{'edit'}) {
                   7502:         undef($readonly);
                   7503:     }
1.531     raeburn  7504:     my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
1.301     www      7505:     $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
1.473     amueller 7506:           '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Extent').'</th><th>'.&mt('Users').'</th><th>'.
1.568     raeburn  7507:           &mt('Parameter').'</th><th>'.&mt('Part').'</th><th>'.&mt('New Value').'</th>');
                   7508:     unless ($readonly) {
                   7509:         $r->print('<th>'.&mt('Announce').'</th>');
                   7510:     }
                   7511:     $r->print(&Apache::loncommon::end_data_table_header_row());
1.309     www      7512:     my $shown=0;
1.349     www      7513:     my $folder='';
                   7514:     if ($env{'form.displayfilter'} eq 'currentfolder') {
1.560     damieng  7515:         my $last='';
                   7516:         if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
                   7517:                 &GDBM_READER(),0640)) {
                   7518:             $last=$hash{'last_known'};
                   7519:             untie(%hash);
                   7520:         }
                   7521:         if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }
                   7522:     }
1.595     raeburn  7523:     my $numgroups = 0;
                   7524:     my @groups;
                   7525:     if ($env{'request.course.groups'} ne '') {
                   7526:         @groups = split(/:/,$env{'request.course.groups'});
                   7527:         $numgroups = scalar(@groups);
                   7528:     }
1.560     damieng  7529:     foreach my $id (sort {
                   7530:                 if ($parmlog{$b}{'exe_time'} ne $parmlog{$a}{'exe_time'}) {
                   7531:                     return $parmlog{$b}{'exe_time'} <=>$parmlog{$a}{'exe_time'}
                   7532:                 }
                   7533:                 my $aid = (split('00000',$a))[-1];
                   7534:                 my $bid = (split('00000',$b))[-1];
                   7535:                 return $bid<=>$aid;
1.473     amueller 7536:             } (keys(%parmlog))) {
1.294     www      7537:         my @changes=keys(%{$parmlog{$id}{'logentry'}});
1.560     damieng  7538:         my $count = 0;
                   7539:         my $time =
                   7540:             &Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'});
                   7541:         my $plainname =
                   7542:             &Apache::loncommon::plainname($parmlog{$id}{'exe_uname'},
                   7543:                         $parmlog{$id}{'exe_udom'});
                   7544:         my $about_me_link =
                   7545:             &Apache::loncommon::aboutmewrapper($plainname,
                   7546:                             $parmlog{$id}{'exe_uname'},
                   7547:                             $parmlog{$id}{'exe_udom'});
                   7548:         my $send_msg_link='';
1.568     raeburn  7549:         if ((!$readonly) && 
                   7550:             (($parmlog{$id}{'exe_uname'} ne $env{'user.name'})
1.560     damieng  7551:             || ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
                   7552:             $send_msg_link ='<br />'.
                   7553:             &Apache::loncommon::messagewrapper(&mt('Send message'),
                   7554:                             $parmlog{$id}{'exe_uname'},
                   7555:                             $parmlog{$id}{'exe_udom'});
                   7556:         }
                   7557:         my $row_start=&Apache::loncommon::start_data_table_row();
                   7558:         my $makenewrow=0;
                   7559:         my %istype=();
                   7560:         my $output;
                   7561:         foreach my $changed (reverse(sort(@changes))) {
                   7562:                 my $value=$parmlog{$id}{'logentry'}{$changed};
                   7563:             my $typeflag = ($changed =~/\.type$/ &&
                   7564:                     !exists($parmlog{$id}{'logentry'}{$changed.'.type'}));
1.330     albertel 7565:             my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)=
1.581     raeburn  7566:                 &components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},$typeflag);
1.560     damieng  7567:             if ($env{'request.course.sec'} ne '') {
1.595     raeburn  7568:                 next if (($issection ne '') && (!(($issection eq $env{'request.course.sec'}) ||
                   7569:                                                   ($numgroups && (grep(/^\Q$issection\E$/,@groups))))));
1.560     damieng  7570:                 if ($uname ne '') {
                   7571:                     my $stusection = &Apache::lonnet::getsection($uname,$udom,$env{'request.course.id'});
                   7572:                     next if (($stusection ne '-1') && ($stusection ne $env{'request.course.sec'})); 
                   7573:                 }
                   7574:             }
                   7575:             if ($env{'form.displayfilter'} eq 'currentfolder') {
                   7576:                 if ($folder) {
                   7577:                     if ($middle!~/^\Q$folder\E/) { next; }
                   7578:                 }
                   7579:             }
                   7580:             if ($typeflag) {
                   7581:                 $istype{$parmname}=$value;
                   7582:                 if (!$env{'form.includetypes'}) { next; }
                   7583:             }
                   7584:             $count++;
                   7585:             if ($makenewrow) {
                   7586:                 $output .= $row_start;
                   7587:             } else {
                   7588:                 $makenewrow=1;
                   7589:             }
1.470     raeburn  7590:             my $parmitem = &standard_parameter_names($parmname);
1.560     damieng  7591:             $output .='<td>'.$realm.'</td><td>'.$section.'</td><td>'.
                   7592:                 &mt($parmitem).'</td><td>'.
                   7593:                 ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>';
                   7594:             my $stillactive=0;
                   7595:             if ($parmlog{$id}{'delflag'}) {
                   7596:                 $output .= &mt('Deleted');
                   7597:             } else {
                   7598:                 if ($typeflag) {
1.470     raeburn  7599:                     my $parmitem = &standard_parameter_names($value); 
                   7600:                     $parmitem = &mt($parmitem);
1.560     damieng  7601:                     $output .= &mt('Type: [_1]',$parmitem);
                   7602:                 } else {
1.584     raeburn  7603:                     my $toolsymb;
                   7604:                     if ($middle =~ /ext\.tool$/) {
                   7605:                         $toolsymb = $middle;
                   7606:                     }
1.560     damieng  7607:                     my ($level,@all)=&parmval_by_symb($what,$middle,
1.584     raeburn  7608:                         &Apache::lonnet::metadata($middle,$what,$toolsymb),
1.560     damieng  7609:                         $uname,$udom,$issection,$issection,$courseopt);
1.469     raeburn  7610:                     my $showvalue = $value;
                   7611:                     if ($istype{$parmname} eq '') {
                   7612:                         my $type = &standard_parameter_types($parmname);
                   7613:                         if ($type ne '') {
                   7614:                             if (&isdateparm($type)) {
                   7615:                                 $showvalue =
                   7616:                                     &Apache::lonlocal::locallocaltime($value);
                   7617:                             }
                   7618:                         }
                   7619:                     } else {
1.560     damieng  7620:                         if (&isdateparm($istype{$parmname})) {
                   7621:                             $showvalue = &Apache::lonlocal::locallocaltime($value);
                   7622:                         }
1.469     raeburn  7623:                     }
                   7624:                     $output .= $showvalue;
1.560     damieng  7625:                     if ($value ne $all[$level]) {
                   7626:                         $output .= '<br /><span class="LC_warning">'.&mt('Not active anymore').'</span>';
                   7627:                     } else {
                   7628:                         $stillactive=1;
                   7629:                     }
                   7630:                 }
1.473     amueller 7631:             }
1.568     raeburn  7632:             $output .= '</td>';
                   7633: 
                   7634:             unless ($readonly) { 
                   7635:                 $output .= '<td>';
                   7636:                 if ($stillactive) {
                   7637:                     my $parmitem = &standard_parameter_names($parmname);
                   7638:                     $parmitem = &mt($parmitem);
                   7639:                     my $title=&mt('Changed [_1]',$parmitem);
                   7640:                     my $description=&mt('Changed [_1] for [_2] to [_3]',
                   7641:                         $parmitem,$realmdescription,
                   7642:                         (&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));
                   7643:                     if (($uname) && ($udom)) {
                   7644:                         $output .=
                   7645:                         &Apache::loncommon::messagewrapper('Notify User',
                   7646:                                                            $uname,$udom,$title,
                   7647:                                                            $description);
                   7648:                     } else {
                   7649:                         $output .=
                   7650:                             &Apache::lonrss::course_blog_link($id,$title,
                   7651:                                                               $description);
                   7652:                     }
1.560     damieng  7653:                 }
1.568     raeburn  7654:                 $output .= '</td>';
1.560     damieng  7655:             }
1.568     raeburn  7656:             $output .= &Apache::loncommon::end_data_table_row();
1.473     amueller 7657:         }
1.560     damieng  7658:         if ($env{'form.displayfilter'} eq 'containing') {
                   7659:             my $wholeentry=$about_me_link.':'.
                   7660:             $parmlog{$id}{'exe_uname'}.':'.$parmlog{$id}{'exe_udom'}.':'.
                   7661:             $output;
                   7662:             if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }
1.473     amueller 7663:         }
1.349     www      7664:         if ($count) {
1.560     damieng  7665:             $r->print($row_start.'<td rowspan="'.$count.'">'.$time.'</td>
                   7666:                         <td rowspan="'.$count.'">'.$about_me_link.
                   7667:             '<br /><tt>'.$parmlog{$id}{'exe_uname'}.
                   7668:                         ':'.$parmlog{$id}{'exe_udom'}.'</tt>'.
                   7669:             $send_msg_link.'</td>'.$output);
                   7670:             $shown++;
                   7671:         }
                   7672:         if (!($env{'form.show'} eq &mt('all')
                   7673:             || $shown<=$env{'form.show'})) { last; }
1.286     www      7674:     }
1.301     www      7675:     $r->print(&Apache::loncommon::end_data_table());
1.507     www      7676:     &endSettingsScreen($r);
1.284     www      7677:     $r->print(&Apache::loncommon::end_page());
                   7678: }
                   7679: 
1.560     damieng  7680: ##################################################
                   7681: # MISC !
                   7682: ##################################################
                   7683: 
1.563     damieng  7684: # Stores slot information.
1.560     damieng  7685: # Used by table UI
1.563     damieng  7686: # FIXME: I don't understand how this can work when the symb is not defined (if only a map was selected)
                   7687: #
                   7688: # @param {string} $slot_name - slot name
                   7689: # @param {string} $cdom - course domain
                   7690: # @param {string} $cnum - course number
                   7691: # @param {string} $symb - resource symb
                   7692: # @param {string} $uname - user name
                   7693: # @param {string} $udom - user domain
                   7694: # @returns {string} - 'ok' or error name
1.437     raeburn  7695: sub update_slots {
                   7696:     my ($slot_name,$cdom,$cnum,$symb,$uname,$udom) = @_;
                   7697:     my %slot=&Apache::lonnet::get_slot($slot_name);
                   7698:     if (!keys(%slot)) {
                   7699:         return 'error: slot does not exist';
                   7700:     }
                   7701:     my $max=$slot{'maxspace'};
                   7702:     if (!defined($max)) { $max=99999; }
                   7703: 
                   7704:     my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
                   7705:                                        "^$slot_name\0");
                   7706:     my ($tmp)=%consumed;
                   7707:     if ($tmp=~/^error: 2 / ) {
                   7708:         return 'error: unable to determine current slot status';
                   7709:     }
                   7710:     my $last=0;
                   7711:     foreach my $key (keys(%consumed)) {
                   7712:         my $num=(split('\0',$key))[1];
                   7713:         if ($num > $last) { $last=$num; }
                   7714:         if ($consumed{$key}->{'name'} eq $uname.':'.$udom) {
                   7715:             return 'ok';
                   7716:         }
                   7717:     }
                   7718: 
                   7719:     if (scalar(keys(%consumed)) >= $max) {
                   7720:         return 'error: no space left in slot';
                   7721:     }
                   7722:     my $wanted=$last+1;
                   7723: 
                   7724:     my %reservation=('name'      => $uname.':'.$udom,
                   7725:                      'timestamp' => time,
                   7726:                      'symb'      => $symb);
                   7727: 
                   7728:     my $success=&Apache::lonnet::newput('slot_reservations',
                   7729:                                         {"$slot_name\0$wanted" =>
                   7730:                                              \%reservation},
                   7731:                                         $cdom, $cnum);
1.438     raeburn  7732:     if ($success eq 'ok') {
                   7733:         my %storehash = (
                   7734:                           symb    => $symb,
                   7735:                           slot    => $slot_name,
                   7736:                           action  => 'reserve',
                   7737:                           context => 'parameter',
                   7738:                         );
1.526     raeburn  7739:         &Apache::lonnet::write_log('course','slotreservationslog',\%storehash,
1.524     raeburn  7740:                                    '',$uname,$udom,$cnum,$cdom);
1.438     raeburn  7741: 
1.526     raeburn  7742:         &Apache::lonnet::write_log('course',$cdom.'_'.$cnum.'_slotlog',\%storehash,
1.524     raeburn  7743:                                    '',$uname,$udom,$uname,$udom);
1.438     raeburn  7744:     }
1.437     raeburn  7745:     return $success;
                   7746: }
                   7747: 
1.563     damieng  7748: # Deletes a slot reservation.
1.560     damieng  7749: # Used by table UI
1.563     damieng  7750: # FIXME: I don't understand how this can work when the symb is not defined (if only a map was selected)
                   7751: #
                   7752: # @param {string} $slot_name - slot name
                   7753: # @param {string} $cdom - course domain
                   7754: # @param {string} $cnum - course number
                   7755: # @param {string} $uname - user name
                   7756: # @param {string} $udom - user domain
                   7757: # @param {string} $symb - resource symb
                   7758: # @returns {string} - 'ok' or error name
1.437     raeburn  7759: sub delete_slots {
                   7760:     my ($slot_name,$cdom,$cnum,$uname,$udom,$symb) = @_;
                   7761:     my $delresult;
                   7762:     my %consumed = &Apache::lonnet::dump('slot_reservations',$cdom,
                   7763:                                          $cnum, "^$slot_name\0");
                   7764:     if (&Apache::lonnet::error(%consumed)) {
                   7765:         return 'error: unable to determine current slot status';
                   7766:     }
                   7767:     my ($tmp)=%consumed;
                   7768:     if ($tmp=~/^error: 2 /) {
                   7769:         return 'error: unable to determine current slot status';
                   7770:     }
                   7771:     foreach my $key (keys(%consumed)) {
                   7772:         if ($consumed{$key}->{'name'} eq $uname.':'.$udom) {
                   7773:             my $num=(split('\0',$key))[1];
                   7774:             my $entry = $slot_name.'\0'.$num;
                   7775:             $delresult = &Apache::lonnet::del('slot_reservations',[$entry],
                   7776:                                               $cdom,$cnum);
                   7777:             if ($delresult eq 'ok') {
                   7778:                 my %storehash = (
                   7779:                                   symb    => $symb,
                   7780:                                   slot    => $slot_name,
                   7781:                                   action  => 'release',
                   7782:                                   context => 'parameter',
                   7783:                                 );
1.526     raeburn  7784:                 &Apache::lonnet::write_log('course','slotreservationslog',\%storehash,
1.524     raeburn  7785:                                            1,$uname,$udom,$cnum,$cdom);
1.526     raeburn  7786:                 &Apache::lonnet::write_log('course',$cdom.'_'.$cnum.'_slotlog',\%storehash,
1.524     raeburn  7787:                                            1,$uname,$udom,$uname,$udom);
1.437     raeburn  7788:             }
                   7789:         }
                   7790:     }
                   7791:     return $delresult;
                   7792: }
                   7793: 
1.563     damieng  7794: # Returns true if there is a current course.
1.560     damieng  7795: # Used by handler
1.563     damieng  7796: #
                   7797: # @returns {boolean}
1.355     albertel 7798: sub check_for_course_info {
                   7799:     my $navmap = Apache::lonnavmaps::navmap->new();
                   7800:     return 1 if ($navmap);
                   7801:     return 0;
                   7802: }
                   7803: 
1.563     damieng  7804: # Returns the current course host and host LON-CAPA version.
                   7805: #
                   7806: # @returns {Array} - (course hostname, major version number, minor version number)
1.514     raeburn  7807: sub parameter_release_vars { 
1.504     raeburn  7808:    my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   7809:    my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
                   7810:    my $chostname = &Apache::lonnet::hostname($chome);
                   7811:    my ($cmajor,$cminor) = 
                   7812:        split(/\./,&Apache::lonnet::get_server_loncaparev($cdom,$chome));
                   7813:    return ($chostname,$cmajor,$cminor);
                   7814: }
                   7815: 
1.563     damieng  7816: # Checks if the course host version can handle a parameter required version,
                   7817: # and if it does, stores the release needed for the course.
                   7818: #
                   7819: # @param {string} $name - parameter name
                   7820: # @param {string} $value - parameter value
                   7821: # @param {string} $valmatch - name of the test used for checking the value
                   7822: # @param {string} $namematch - name of the test used for checking the name
                   7823: # @param {string} $needsrelease - version needed by the parameter, major.minor
                   7824: # @param {integer} $cmajor - course major version number
                   7825: # @param {integer} $cminor - course minor version number
                   7826: # @returns {boolean} - true if a newer version is needed
1.514     raeburn  7827: sub parameter_releasecheck {
1.557     raeburn  7828:     my ($name,$value,$valmatch,$namematch,$needsrelease,$cmajor,$cminor) = @_;
1.504     raeburn  7829:     my $needsnewer;
                   7830:     my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
                   7831:     if (($cmajor < $needsmajor) || 
                   7832:         ($cmajor == $needsmajor && $cminor < $needsminor)) {
                   7833:         $needsnewer = 1;
1.557     raeburn  7834:     } elsif ($name) {
                   7835:         if ($valmatch) {
                   7836:             &Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.'::'.$valmatch.':'});
                   7837:         } elsif ($value) { 
                   7838:             &Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.':'.$value.'::'});
                   7839:         }
                   7840:     } elsif ($namematch) {
                   7841:         &Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter::::'.$namematch});
1.504     raeburn  7842:     }
                   7843:     return $needsnewer;
                   7844: }
                   7845: 
1.568     raeburn  7846: sub get_permission {
                   7847:     my %permission;
                   7848:     my $allowed = 0;
                   7849:     return (\%permission,$allowed) unless ($env{'request.course.id'});
                   7850:     if ((&Apache::lonnet::allowed('opa',$env{'request.course.id'})) ||
                   7851:         (&Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.
                   7852:                   $env{'request.course.sec'}))) {
                   7853:         %permission= (
                   7854:                        'edit'               => 1,
                   7855:                        'set'                => 1,
                   7856:                        'setoverview'        => 1,
                   7857:                        'addmetadata'        => 1,
                   7858:                        'ordermetadata'      => 1,
                   7859:                        'setrestrictmeta'    => 1,
                   7860:                        'newoverview'        => 1,
                   7861:                        'setdefaults'        => 1,
                   7862:                        'settable'           => 1,
                   7863:                        'parameterchangelog' => 1,
                   7864:                        'cleanparameters'    => 1,
                   7865:                        'dateshift1'         => 1,
                   7866:                        'dateshift2'         => 1,
                   7867:                        'helper'             => 1,
                   7868:          );
                   7869:     } elsif ((&Apache::lonnet::allowed('vpa',$env{'request.course.id'})) ||
                   7870:              (&Apache::lonnet::allowed('vpa',$env{'request.course.id'}.'/'.
                   7871:                   $env{'request.course.sec'}))) {
                   7872:         %permission = (
                   7873:                        'set'                => 1,
                   7874:                        'settable'           => 1,
                   7875:                        'newoverview'        => 1,
                   7876:                        'setoverview'        => 1,
                   7877:                        'parameterchangelog' => 1,
                   7878:                       );
                   7879:     }
                   7880:     foreach my $perm (values(%permission)) {
                   7881:         if ($perm) { $allowed=1; last; }
                   7882:     }
                   7883:     return (\%permission,$allowed);
                   7884: }
                   7885: 
1.560     damieng  7886: ##################################################
                   7887: # HANDLER
                   7888: ##################################################
                   7889: 
                   7890: # Main handler for lonparmset.
                   7891: # Sub called based on request parameters action and command:
                   7892: # no command or action: print_main_menu
                   7893: # command 'set': assessparms (direct access to table mode for a resource)
                   7894: #                (this can also be accessed simply with the symb parameter)
                   7895: # action 'setoverview': overview (display all existing parameter settings)
                   7896: # action 'addmetadata': addmetafield (called to add a portfolio metadata field)
                   7897: # action 'ordermetadata': order_meta_fields (called to order portfolio metadata fields)
                   7898: # action 'setrestrictmeta': setrestrictmeta (display or save portfolio metadata)
                   7899: # action 'newoverview': newoverview (overview mode)
                   7900: # action 'setdefaults': defaultsetter (UI to change parameter setting default actions)
                   7901: # action 'settable': assessparms (table mode)
                   7902: # action 'parameterchangelog': parm_change_log (display log for parameter changes,
                   7903: #                              blog postings, user notification changes)
                   7904: # action 'cleanparameters': clean_parameters (unused)
                   7905: # action 'dateshift1': date_shift_one (overview mode, shift all dates)
                   7906: # action 'dateshift2': date_shift_two (overview mode, shift all dates)
1.30      www      7907: sub handler {
1.43      albertel 7908:     my $r=shift;
1.30      www      7909: 
1.376     albertel 7910:     &reset_caches();
                   7911: 
1.414     droeschl 7912:     &Apache::loncommon::content_type($r,'text/html');
                   7913:     $r->send_http_header;
                   7914:     return OK if $r->header_only;
                   7915: 
1.193     albertel 7916:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.473     amueller 7917:                         ['action','state',
1.205     www      7918:                                              'pres_marker',
                   7919:                                              'pres_value',
1.206     www      7920:                                              'pres_type',
1.506     www      7921:                                              'filter','part',
1.390     www      7922:                                              'udom','uname','symb','serial','timebase']);
1.131     www      7923: 
1.83      bowersj2 7924: 
1.193     albertel 7925:     &Apache::lonhtmlcommon::clear_breadcrumbs();
1.194     albertel 7926:     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
1.507     www      7927:                         text=>"Content and Problem Settings",
1.473     amueller 7928:                         faq=>10,
                   7929:                         bug=>'Instructor Interface',
1.442     droeschl 7930:                                             help =>
                   7931:                                             'Parameter_Manager,Course_Environment,Parameter_Helper,Parameter_Overview,Table_Mode'});
1.203     www      7932: 
1.30      www      7933: # ----------------------------------------------------- Needs to be in a course
1.568     raeburn  7934:     my ($parm_permission,$allowed) = &get_permission();
1.355     albertel 7935:     my $exists = &check_for_course_info();
                   7936: 
1.568     raeburn  7937:     if ($env{'request.course.id'} && $allowed && $exists) {
1.193     albertel 7938:         #
                   7939:         # Main switch on form.action and form.state, as appropriate
                   7940:         #
                   7941:         # Check first if coming from someone else headed directly for
                   7942:         #  the table mode
1.568     raeburn  7943:         if (($parm_permission->{'set'}) && 
                   7944:             ((($env{'form.command'} eq 'set') && ($env{'form.url'})
                   7945:                 && (!$env{'form.dis'})) || ($env{'form.symb'}))) {
                   7946:             &assessparms($r,$parm_permission);
1.193     albertel 7947:         } elsif (! exists($env{'form.action'})) {
                   7948:             &print_main_menu($r,$parm_permission);
1.568     raeburn  7949:         } elsif (!$parm_permission->{$env{'form.action'}}) {
                   7950:             &print_main_menu($r,$parm_permission);
1.414     droeschl 7951:         } elsif ($env{'form.action'} eq 'setoverview') {
1.568     raeburn  7952:             &overview($r,$parm_permission);
1.560     damieng  7953:         } elsif ($env{'form.action'} eq 'addmetadata') {
                   7954:             &addmetafield($r);
                   7955:         } elsif ($env{'form.action'} eq 'ordermetadata') {
                   7956:             &order_meta_fields($r);
1.414     droeschl 7957:         } elsif ($env{'form.action'} eq 'setrestrictmeta') {
1.560     damieng  7958:             &setrestrictmeta($r);
1.414     droeschl 7959:         } elsif ($env{'form.action'} eq 'newoverview') {
1.568     raeburn  7960:             &newoverview($r,$parm_permission);
1.414     droeschl 7961:         } elsif ($env{'form.action'} eq 'setdefaults') {
1.560     damieng  7962:             &defaultsetter($r);
                   7963:         } elsif ($env{'form.action'} eq 'settable') {
1.568     raeburn  7964:             &assessparms($r,$parm_permission);
1.414     droeschl 7965:         } elsif ($env{'form.action'} eq 'parameterchangelog') {
1.568     raeburn  7966:             &parm_change_log($r,$parm_permission);
1.414     droeschl 7967:         } elsif ($env{'form.action'} eq 'cleanparameters') {
1.560     damieng  7968:             &clean_parameters($r);
1.414     droeschl 7969:         } elsif ($env{'form.action'} eq 'dateshift1') {
1.390     www      7970:             &date_shift_one($r);
1.414     droeschl 7971:         } elsif ($env{'form.action'} eq 'dateshift2') {
1.390     www      7972:             &date_shift_two($r);
1.446     bisitz   7973:         }
1.43      albertel 7974:     } else {
1.1       www      7975: # ----------------------------- Not in a course, or not allowed to modify parms
1.560     damieng  7976:         if ($exists) {
                   7977:             $env{'user.error.msg'}=
                   7978:             "/adm/parmset:opa:0:0:Cannot modify assessment parameters";
                   7979:         } else {
                   7980:             $env{'user.error.msg'}=
                   7981:             "/adm/parmset::0:1:Course environment gone, reinitialize the course";
                   7982:         }
                   7983:         return HTTP_NOT_ACCEPTABLE;
1.43      albertel 7984:     }
1.376     albertel 7985:     &reset_caches();
                   7986: 
1.43      albertel 7987:     return OK;
1.1       www      7988: }
                   7989: 
                   7990: 1;
                   7991: __END__
                   7992: 
                   7993: 

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