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