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