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