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