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