Annotation of loncom/interface/lonparmset.pm, revision 1.194
1.1 www 1: # The LearningOnline Network with CAPA
2: # Handler to set parameters for assessments
3: #
1.194 ! albertel 4: # $Id: lonparmset.pm,v 1.193 2005/05/30 17:50:18 albertel 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.1 www 65:
1.2 www 66: my %courseopt;
67: my %useropt;
68: my %parmhash;
69:
1.3 www 70: my @ids;
71: my %symbp;
1.10 www 72: my %mapp;
1.3 www 73: my %typep;
1.16 www 74: my %keyp;
1.2 www 75:
1.82 www 76: my %maptitles;
77:
1.59 matthew 78: ##################################################
79: ##################################################
80:
81: =pod
82:
83: =item parmval
84:
85: Figure out a cascading parameter.
86:
1.71 albertel 87: Inputs: $what - a parameter spec (incluse part info and name I.E. 0.weight)
1.162 albertel 88: $id - a bighash Id number
1.71 albertel 89: $def - the resource's default value 'stupid emacs
90:
91: 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 11 possible levels
92:
1.182 albertel 93: 11 - General Course
94: 10 - Map or Folder level in course
95: 9- resource default
96: 8- map default
1.71 albertel 97: 7 - resource level in course
98: 6 - General for section
1.82 www 99: 5 - Map or Folder level for section
1.71 albertel 100: 4 - resource level in section
101: 3 - General for specific student
1.82 www 102: 2 - Map or Folder level for specific student
1.71 albertel 103: 1 - resource level for specific student
1.2 www 104:
1.59 matthew 105: =cut
106:
107: ##################################################
108: ##################################################
1.2 www 109: sub parmval {
1.187 www 110: my ($what,$id,$def,$uname,$udom,$csec)=@_;
1.8 www 111: my $result='';
1.44 albertel 112: my @outpar=();
1.2 www 113: # ----------------------------------------------------- Cascading lookup scheme
1.10 www 114:
1.43 albertel 115: my $symbparm=$symbp{$id}.'.'.$what;
116: my $mapparm=$mapp{$id}.'___(all).'.$what;
1.10 www 117:
1.190 albertel 118: my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$what;
119: my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
120: my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
121:
122: my $courselevel=$env{'request.course.id'}.'.'.$what;
123: my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
124: my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
1.2 www 125:
1.11 www 126:
127:
1.182 albertel 128: # --------------------------------------------------------- first, check course
1.11 www 129:
1.71 albertel 130: if (defined($courseopt{$courselevel})) {
1.182 albertel 131: $outpar[11]=$courseopt{$courselevel};
132: $result=11;
1.43 albertel 133: }
1.11 www 134:
1.71 albertel 135: if (defined($courseopt{$courselevelm})) {
1.182 albertel 136: $outpar[10]=$courseopt{$courselevelm};
137: $result=10;
1.43 albertel 138: }
1.11 www 139:
1.182 albertel 140: # ------------------------------------------------------- second, check default
141:
142: if (defined($def)) { $outpar[9]=$def; $result=9; }
143:
144: # ------------------------------------------------------ third, check map parms
145:
146: my $thisparm=$parmhash{$symbparm};
147: if (defined($thisparm)) { $outpar[8]=$thisparm; $result=8; }
148:
1.71 albertel 149: if (defined($courseopt{$courselevelr})) {
1.43 albertel 150: $outpar[7]=$courseopt{$courselevelr};
151: $result=7;
152: }
1.11 www 153:
1.182 albertel 154: # ------------------------------------------------------ fourth, back to course
1.71 albertel 155: if (defined($csec)) {
156: if (defined($courseopt{$seclevel})) {
1.43 albertel 157: $outpar[6]=$courseopt{$seclevel};
158: $result=6;
159: }
1.71 albertel 160: if (defined($courseopt{$seclevelm})) {
1.43 albertel 161: $outpar[5]=$courseopt{$seclevelm};
162: $result=5;
163: }
164:
1.71 albertel 165: if (defined($courseopt{$seclevelr})) {
1.43 albertel 166: $outpar[4]=$courseopt{$seclevelr};
167: $result=4;
168: }
169: }
1.11 www 170:
1.182 albertel 171: # ---------------------------------------------------------- fifth, check user
1.11 www 172:
1.71 albertel 173: if (defined($uname)) {
174: if (defined($useropt{$courselevel})) {
1.43 albertel 175: $outpar[3]=$useropt{$courselevel};
176: $result=3;
177: }
1.10 www 178:
1.71 albertel 179: if (defined($useropt{$courselevelm})) {
1.43 albertel 180: $outpar[2]=$useropt{$courselevelm};
181: $result=2;
182: }
1.2 www 183:
1.71 albertel 184: if (defined($useropt{$courselevelr})) {
1.43 albertel 185: $outpar[1]=$useropt{$courselevelr};
186: $result=1;
187: }
188: }
1.44 albertel 189: return ($result,@outpar);
1.2 www 190: }
191:
1.186 www 192:
193: ##################################################
194: ##################################################
195: #
196: # Store a parameter
197: #
198: # Takes
199: # - resource id
200: # - name of parameter
201: # - level
202: # - new value
203: # - new type
1.187 www 204: # - username
205: # - userdomain
206:
1.186 www 207: sub storeparm {
1.187 www 208: my ($sresid,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec)=@_;
1.186 www 209: $spnam=~s/\_([^\_]+)$/\.$1/;
210: # ---------------------------------------------------------- Construct prefixes
211:
212: my $symbparm=$symbp{$sresid}.'.'.$spnam;
213: my $mapparm=$mapp{$sresid}.'___(all).'.$spnam;
214:
1.190 albertel 215: my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$spnam;
216: my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
217: my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
1.186 www 218:
1.190 albertel 219: my $courselevel=$env{'request.course.id'}.'.'.$spnam;
220: my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
221: my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
1.186 www 222:
223: my $storeunder='';
224: if (($snum==11) || ($snum==3)) { $storeunder=$courselevel; }
225: if (($snum==10) || ($snum==2)) { $storeunder=$courselevelm; }
226: if (($snum==7) || ($snum==1)) { $storeunder=$courselevelr; }
227: if ($snum==6) { $storeunder=$seclevel; }
228: if ($snum==5) { $storeunder=$seclevelm; }
229: if ($snum==4) { $storeunder=$seclevelr; }
230:
231: my $delete;
232: if ($nval eq '') { $delete=1;}
233: my %storecontent = ($storeunder => $nval,
234: $storeunder.'.type' => $ntype);
235: my $reply='';
236: if ($snum>3) {
237: # ---------------------------------------------------------------- Store Course
238: #
239: # Expire sheets
240: &Apache::lonnet::expirespread('','','studentcalc');
241: if (($snum==7) || ($snum==4)) {
242: &Apache::lonnet::expirespread('','','assesscalc',$symbp{$sresid});
243: } elsif (($snum==8) || ($snum==5)) {
244: &Apache::lonnet::expirespread('','','assesscalc',$mapp{$sresid});
245: } else {
246: &Apache::lonnet::expirespread('','','assesscalc');
247: }
248: # Store parameter
249: if ($delete) {
250: $reply=&Apache::lonnet::del
251: ('resourcedata',[keys(%storecontent)],
1.190 albertel 252: $env{'course.'.$env{'request.course.id'}.'.domain'},
253: $env{'course.'.$env{'request.course.id'}.'.num'});
1.186 www 254: } else {
255: $reply=&Apache::lonnet::cput
256: ('resourcedata',\%storecontent,
1.190 albertel 257: $env{'course.'.$env{'request.course.id'}.'.domain'},
258: $env{'course.'.$env{'request.course.id'}.'.num'});
1.186 www 259: }
260: } else {
261: # ------------------------------------------------------------------ Store User
262: #
263: # Expire sheets
264: &Apache::lonnet::expirespread($uname,$udom,'studentcalc');
265: if ($snum==1) {
266: &Apache::lonnet::expirespread
267: ($uname,$udom,'assesscalc',$symbp{$sresid});
268: } elsif ($snum==2) {
269: &Apache::lonnet::expirespread
270: ($uname,$udom,'assesscalc',$mapp{$sresid});
271: } else {
272: &Apache::lonnet::expirespread($uname,$udom,'assesscalc');
273: }
274: # Store parameter
275: if ($delete) {
276: $reply=&Apache::lonnet::del
277: ('resourcedata',[keys(%storecontent)],$udom,$uname);
278: } else {
279: $reply=&Apache::lonnet::cput
280: ('resourcedata',\%storecontent,$udom,$uname);
281: }
1.191 albertel 282: &Apache::lonnet::devalidateuserresdata($uname,$udom);
1.186 www 283: }
284:
285: if ($reply=~/^error\:(.*)/) {
286: return "<font color=red>Write Error: $1</font>";
287: }
288: return '';
289: }
290:
1.59 matthew 291: ##################################################
292: ##################################################
293:
294: =pod
295:
296: =item valout
297:
298: Format a value for output.
299:
300: Inputs: $value, $type
301:
302: Returns: $value, formatted for output. If $type indicates it is a date,
303: localtime($value) is returned.
1.9 www 304:
1.59 matthew 305: =cut
306:
307: ##################################################
308: ##################################################
1.9 www 309: sub valout {
310: my ($value,$type)=@_;
1.59 matthew 311: my $result = '';
312: # Values of zero are valid.
313: if (! $value && $value ne '0') {
1.71 albertel 314: $result = ' ';
1.59 matthew 315: } else {
1.66 www 316: if ($type eq 'date_interval') {
317: my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($value);
318: $year=$year-70;
319: $mday--;
320: if ($year) {
321: $result.=$year.' yrs ';
322: }
323: if ($mon) {
324: $result.=$mon.' mths ';
325: }
326: if ($mday) {
327: $result.=$mday.' days ';
328: }
329: if ($hour) {
330: $result.=$hour.' hrs ';
331: }
332: if ($min) {
333: $result.=$min.' mins ';
334: }
335: if ($sec) {
336: $result.=$sec.' secs ';
337: }
338: $result=~s/\s+$//;
339: } elsif ($type=~/^date/) {
1.59 matthew 340: $result = localtime($value);
341: } else {
342: $result = $value;
343: }
344: }
345: return $result;
1.9 www 346: }
347:
1.59 matthew 348: ##################################################
349: ##################################################
350:
351: =pod
1.5 www 352:
1.59 matthew 353: =item plink
354:
355: Produces a link anchor.
356:
357: Inputs: $type,$dis,$value,$marker,$return,$call
358:
359: Returns: scalar with html code for a link which will envoke the
360: javascript function 'pjump'.
361:
362: =cut
363:
364: ##################################################
365: ##################################################
1.5 www 366: sub plink {
367: my ($type,$dis,$value,$marker,$return,$call)=@_;
1.23 www 368: my $winvalue=$value;
369: unless ($winvalue) {
370: if ($type=~/^date/) {
1.190 albertel 371: $winvalue=$env{'form.recent_'.$type};
1.23 www 372: } else {
1.190 albertel 373: $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
1.23 www 374: }
375: }
376: return
1.43 albertel 377: '<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
378: .$marker."','".$return."','".$call."'".');">'.
379: &valout($value,$type).'</a><a name="'.$marker.'"></a>';
1.5 www 380: }
381:
1.44 albertel 382:
383: sub startpage {
1.137 albertel 384: my ($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader)=@_;
1.99 albertel 385:
1.120 www 386: my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
1.98 www 387: 'onUnload="pclose()"');
1.194 ! albertel 388: my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Table');
1.81 www 389: my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
390: &Apache::loncommon::selectstudent_link('parmform','uname','udom');
391: my $selscript=&Apache::loncommon::studentbrowser_javascript();
1.88 matthew 392: my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
1.133 www 393: my %lt=&Apache::lonlocal::texthash(
394: 'cep' => "Course Environment Parameters",
395: 'scep' => "Set Course Environment Parameters",
396: 'smcap' => "Set/Modify Course Assessment Parameter",
397: 'mcap' => "Modify Course Assessment Parameters",
398: 'caphm' => "Course Assessment Parameter - Helper Mode",
399: 'capom' => "Course Assessment Parameters - Overview Mode",
400: 'captm' => "Course Assessments Parameters - Table Mode",
401: 'sg' => "Section/Group",
402: 'fu' => "For User",
403: 'oi' => "or ID",
404: 'ad' => "at Domain"
405: );
1.148 www 406: my $overallhelp=
1.166 albertel 407: &Apache::loncommon::help_open_menu('','Setting Parameters','Course_Setting_Parameters','',10,'Instructor Interface');
1.146 www 408: my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters");
1.183 albertel 409: my $html=&Apache::lonxml::xmlbegin();
1.44 albertel 410: $r->print(<<ENDHEAD);
1.183 albertel 411: $html
1.44 albertel 412: <head>
413: <title>LON-CAPA Course Parameters</title>
414: <script>
415:
416: function pclose() {
417: parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
418: "height=350,width=350,scrollbars=no,menubar=no");
419: parmwin.close();
420: }
421:
1.88 matthew 422: $pjump_def
1.44 albertel 423:
424: function psub() {
425: pclose();
426: if (document.parmform.pres_marker.value!='') {
427: document.parmform.action+='#'+document.parmform.pres_marker.value;
428: var typedef=new Array();
429: typedef=document.parmform.pres_type.value.split('_');
430: if (document.parmform.pres_type.value!='') {
431: if (typedef[0]=='date') {
432: eval('document.parmform.recent_'+
433: document.parmform.pres_type.value+
434: '.value=document.parmform.pres_value.value;');
435: } else {
436: eval('document.parmform.recent_'+typedef[0]+
437: '.value=document.parmform.pres_value.value;');
438: }
439: }
440: document.parmform.submit();
441: } else {
442: document.parmform.pres_value.value='';
443: document.parmform.pres_marker.value='';
444: }
445: }
446:
1.57 albertel 447: function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
448: var options = "width=" + w + ",height=" + h + ",";
449: options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
450: options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
451: var newWin = window.open(url, wdwName, options);
452: newWin.focus();
453: }
1.44 albertel 454: </script>
1.81 www 455: $selscript
1.44 albertel 456: </head>
1.64 www 457: $bodytag
1.193 albertel 458: $breadcrumbs
1.166 albertel 459: $overallhelp
1.137 albertel 460: ENDHEAD
1.91 bowersj2 461:
1.137 albertel 462: unless ($trimheader) {$r->print(<<ENDHEAD2);
1.44 albertel 463: <form method="post" action="/adm/parmset" name="envform">
1.133 www 464: <h4>$lt{'cep'}</h4>
465: <input type="submit" name="crsenv" value="$lt{'scep'}" />
1.120 www 466: </form>
467: <hr />
1.146 www 468: $assessparmhelp
1.120 www 469: <form method="post" action="/adm/helper/parameter.helper" name="helpform">
1.133 www 470: <h4>$lt{'caphm'}</h4>
471: <input type="submit" value="$lt{'smcap'}" />
1.120 www 472: </form>
473: <hr />
474: <form method="post" action="/adm/parmset" name="overview">
1.133 www 475: <h4>$lt{'capom'}</h4>
476: <input type="submit" name="overview" value="$lt{'mcap'}" />
1.44 albertel 477: </form>
1.101 www 478: <hr />
1.137 albertel 479: ENDHEAD2
1.189 www 480: }
481: my %sectionhash=();
482: my $sections='';
483: if (&Apache::loncommon::get_sections(
1.190 albertel 484: $env{'course.'.$env{'request.course.id'}.'.domain'},
485: $env{'course.'.$env{'request.course.id'}.'.num'},
1.189 www 486: \%sectionhash)) {
487: $sections=$lt{'sg'}.': <select name="csec">';
488: foreach ('',sort keys %sectionhash) {
489: $sections.='<option value="'.$_.'"'.
490: ($_ eq $csec?'selected="selected"':'').'>'.$_.'</option>';
491: }
492: $sections.='</select>';
493: }
494: $r->print(<<ENDHEAD3);
1.193 albertel 495: <form method="post" action="/adm/parmset?action=settable" name="parmform">
1.133 www 496: <h4>$lt{'captm'}</h4>
1.137 albertel 497: ENDHEAD3
1.99 albertel 498:
499: if (!$have_assesments) {
1.133 www 500: $r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');
1.99 albertel 501: } else {
502: $r->print(<<ENDHEAD);
1.44 albertel 503: <b>
1.189 www 504: $sections
1.188 www 505: <br />
1.133 www 506: $lt{'fu'}
1.188 www 507: <input type="text" value="$uname" size="12" name="uname" />
1.133 www 508: $lt{'oi'}
1.188 www 509: <input type="text" value="$id" size="12" name="id" />
1.133 www 510: $lt{'ad'}
1.81 www 511: $chooseopt
1.44 albertel 512: </b>
513: <input type="hidden" value='' name="pres_value">
514: <input type="hidden" value='' name="pres_type">
515: <input type="hidden" value='' name="pres_marker">
516: ENDHEAD
1.99 albertel 517: }
1.44 albertel 518: }
519:
520: sub print_row {
1.66 www 521: my ($r,$which,$part,$name,$rid,$default,$defaulttype,$display,$defbgone,
1.187 www 522: $defbgtwo,$parmlev,$uname,$udom,$csec)=@_;
1.66 www 523: # get the values for the parameter in cascading order
524: # empty levels will remain empty
1.44 albertel 525: my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},
1.187 www 526: $rid,$$default{$which},$uname,$udom,$csec);
1.66 www 527: # get the type for the parameters
528: # problem: these may not be set for all levels
529: my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.
530: $$name{$which}.'.type',
1.187 www 531: $rid,$$defaulttype{$which},$uname,$udom,$csec);
1.66 www 532: # cascade down manually
1.182 albertel 533: my $cascadetype=$$defaulttype{$which};
534: for (my $i=11;$i>0;$i--) {
1.66 www 535: if ($typeoutpar[$i]) {
536: $cascadetype=$typeoutpar[$i];
537: } else {
538: $typeoutpar[$i]=$cascadetype;
539: }
540: }
1.57 albertel 541: my $parm=$$display{$which};
542:
543: if ($parmlev eq 'full' || $parmlev eq 'brief') {
544: $r->print('<td bgcolor='.$defbgtwo.' align="center">'
545: .$$part{$which}.'</td>');
546: } else {
547: $parm=~s|\[.*\]\s||g;
548: }
549:
1.159 albertel 550: $r->print('<td bgcolor='.$defbgone.'>'.$parm.'</td>');
1.57 albertel 551:
1.44 albertel 552: my $thismarker=$which;
553: $thismarker=~s/^parameter\_//;
554: my $mprefix=$rid.'&'.$thismarker.'&';
555:
1.57 albertel 556: if ($parmlev eq 'general') {
557:
558: if ($uname) {
1.66 www 559: &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 560: } elsif ($csec) {
1.66 www 561: &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 562: } else {
1.182 albertel 563: &print_td($r,11,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 564: }
565: } elsif ($parmlev eq 'map') {
566:
567: if ($uname) {
1.66 www 568: &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 569: } elsif ($csec) {
1.66 www 570: &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 571: } else {
1.182 albertel 572: &print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 573: }
574: } else {
575:
1.182 albertel 576: &print_td($r,11,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 577:
578: if ($parmlev eq 'brief') {
579:
1.66 www 580: &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 581:
582: if ($csec) {
1.66 www 583: &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 584: }
585: if ($uname) {
1.66 www 586: &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 587: }
588: } else {
589:
1.182 albertel 590: &print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
591: &print_td($r,9,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
592: &print_td($r,8,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.66 www 593: &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 594:
595: if ($csec) {
1.66 www 596: &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
597: &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
598: &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 599: }
600: if ($uname) {
1.66 www 601: &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
602: &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
603: &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57 albertel 604: }
605: } # end of $brief if/else
606: } # end of $parmlev if/else
607:
1.136 albertel 608: $r->print('<td bgcolor=#CCCCFF align="center">'.
609: &valout($outpar[$result],$typeoutpar[$result]).'</td>');
610:
1.57 albertel 611: if ($parmlev eq 'full' || $parmlev eq 'brief') {
1.136 albertel 612: my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
1.57 albertel 613: '.'.$$name{$which},$symbp{$rid});
1.136 albertel 614:
1.70 albertel 615: # this doesn't seem to work, and I don't think is correct
616: # my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
617: # '.'.$$name{$which}.'.type',$symbp{$rid});
618: # this seems to work
1.136 albertel 619: my $sessionvaltype=$typeoutpar[$result];
620: if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
621: $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
1.66 www 622: &valout($sessionval,$sessionvaltype).' '.
1.57 albertel 623: '</font></td>');
1.136 albertel 624: }
1.44 albertel 625: $r->print('</tr>');
1.57 albertel 626: $r->print("\n");
1.44 albertel 627: }
1.59 matthew 628:
1.44 albertel 629: sub print_td {
1.66 www 630: my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
1.57 albertel 631: $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
1.114 www 632: ' align="center">');
1.182 albertel 633: if ($which<8 || $which > 9) {
1.114 www 634: $r->print(&plink($$typeoutpar[$which],
635: $$display{$value},$$outpar[$which],
636: $mprefix."$which",'parmform.pres','psub'));
637: } else {
638: $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
639: }
640: $r->print('</td>'."\n");
1.57 albertel 641: }
642:
1.63 bowersj2 643: =pod
644:
645: =item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.
646:
647: Input: See list below:
648:
649: =over 4
650:
651: =item B<ids>: An array that will contain all of the ids in the course.
652:
653: =item B<typep>: hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.
654:
1.171 www 655: =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 656:
657: =item B<allparms>: hash, name of parameter->display value (what is the display value?)
658:
659: =item B<allparts>: hash, part identification->text representation of part, where the text representation is "[Part $part]"
660:
661: =item B<allkeys>: hash, full key to part->display value (what's display value?)
662:
663: =item B<allmaps>: hash, ???
664:
665: =item B<fcat>: ???
666:
667: =item B<defp>: hash, ???
668:
669: =item B<mapp>: ??
670:
671: =item B<symbp>: hash, id->full sym?
672:
673: =back
674:
675: =cut
676:
677: sub extractResourceInformation {
678: my $bighash = shift;
679: my $ids = shift;
680: my $typep = shift;
681: my $keyp = shift;
682: my $allparms = shift;
683: my $allparts = shift;
684: my $allkeys = shift;
685: my $allmaps = shift;
686: my $fcat = shift;
687: my $defp = shift;
688: my $mapp = shift;
689: my $symbp = shift;
1.82 www 690: my $maptitles=shift;
1.63 bowersj2 691:
692: foreach (keys %$bighash) {
693: if ($_=~/^src\_(\d+)\.(\d+)$/) {
1.175 albertel 694: # there are no resources in the 0 level
695: if ($1 eq '0') { next; }
1.63 bowersj2 696: my $mapid=$1;
697: my $resid=$2;
698: my $id=$mapid.'.'.$resid;
699: my $srcf=$$bighash{$_};
1.152 albertel 700: if (1) {
1.173 albertel 701: $srcf=~/\.(\w+)$/;
1.63 bowersj2 702: $$ids[$#$ids+1]=$id;
703: $$typep{$id}=$1;
704: $$keyp{$id}='';
1.65 albertel 705: foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
1.63 bowersj2 706: if ($_=~/^parameter\_(.*)/) {
707: my $key=$_;
708: my $allkey=$1;
709: $allkey=~s/\_/\./g;
1.173 albertel 710: if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq
711: 'parm') {
712: next; #hide hidden things
713: }
1.63 bowersj2 714: my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
715: my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
716: my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
717: my $parmdis = $display;
1.192 albertel 718: $parmdis =~ s|(\[Part.*)$||g;
1.63 bowersj2 719: my $partkey = $part;
720: $partkey =~ tr|_|.|;
721: $$allparms{$name} = $parmdis;
722: $$allparts{$part} = "[Part $part]";
723: $$allkeys{$allkey}=$display;
724: if ($allkey eq $fcat) {
725: $$defp{$id}= &Apache::lonnet::metadata($srcf,$key);
726: }
727: if ($$keyp{$id}) {
728: $$keyp{$id}.=','.$key;
729: } else {
730: $$keyp{$id}=$key;
731: }
732: }
733: }
734: $$mapp{$id}=
735: &Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});
736: $$mapp{$mapid}=$$mapp{$id};
737: $$allmaps{$mapid}=$$mapp{$id};
1.175 albertel 738: if ($mapid eq '1') {
739: $$maptitles{$mapid}='Main Course Documents';
740: } else {
1.180 albertel 741: $$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id}));
1.175 albertel 742: }
1.82 www 743: $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
1.181 albertel 744: $$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
1.63 bowersj2 745: $$symbp{$mapid}=$$mapp{$id}.'___(all)';
746: }
747: }
748: }
749: }
750:
1.59 matthew 751: ##################################################
752: ##################################################
753:
754: =pod
755:
756: =item assessparms
757:
758: Show assessment data and parameters. This is a large routine that should
759: be simplified and shortened... someday.
760:
761: Inputs: $r
762:
763: Returns: nothing
764:
1.63 bowersj2 765: Variables used (guessed by Jeremy):
766:
767: =over 4
768:
769: =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.
770:
771: =item B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?
772:
773: =item B<allmaps>:
774:
775: =back
776:
1.59 matthew 777: =cut
778:
779: ##################################################
780: ##################################################
1.30 www 781: sub assessparms {
1.1 www 782:
1.43 albertel 783: my $r=shift;
1.2 www 784: # -------------------------------------------------------- Variable declaration
1.129 www 785: my %allkeys=();
786: my %allmaps=();
787: my %alllevs=();
1.57 albertel 788:
1.187 www 789: my $uname;
790: my $udom;
791: my $uhome;
792: my $csec;
793:
1.190 albertel 794: my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
1.187 www 795:
1.57 albertel 796: $alllevs{'Resource Level'}='full';
797: $alllevs{'Map Level'}='map';
798: $alllevs{'Course Level'}='general';
799:
800: my %allparms;
801: my %allparts;
802:
1.43 albertel 803: my %defp;
804: %courseopt=();
805: %useropt=();
1.44 albertel 806: my %bighash=();
1.43 albertel 807:
808: @ids=();
809: %symbp=();
810: %typep=();
811:
812: my $message='';
813:
1.190 albertel 814: $csec=$env{'form.csec'};
1.188 www 815:
1.190 albertel 816: if ($udom=$env{'form.udom'}) {
817: } elsif ($udom=$env{'request.role.domain'}) {
818: } elsif ($udom=$env{'user.domain'}) {
1.172 albertel 819: } else {
820: $udom=$r->dir_config('lonDefDomain');
821: }
1.43 albertel 822:
1.134 albertel 823: my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
1.190 albertel 824: my $pschp=$env{'form.pschp'};
1.134 albertel 825: my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
1.76 www 826: if (!@psprt) { $psprt[0]='0'; }
1.190 albertel 827: my $showoptions=$env{'form.showoptions'};
1.57 albertel 828:
1.43 albertel 829: my $pssymb='';
1.57 albertel 830: my $parmlev='';
1.137 albertel 831: my $trimheader='';
1.190 albertel 832: my $prevvisit=$env{'form.prevvisit'};
1.57 albertel 833:
1.190 albertel 834: unless ($env{'form.parmlev'}) {
1.57 albertel 835: $parmlev = 'map';
836: } else {
1.190 albertel 837: $parmlev = $env{'form.parmlev'};
1.57 albertel 838: }
1.26 www 839:
1.29 www 840: # ----------------------------------------------- Was this started from grades?
841:
1.190 albertel 842: if (($env{'form.command'} eq 'set') && ($env{'form.url'})
843: && (!$env{'form.dis'})) {
844: my $url=$env{'form.url'};
1.194 ! albertel 845: $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
1.43 albertel 846: $pssymb=&Apache::lonnet::symbread($url);
1.92 albertel 847: if (!@pscat) { @pscat=('all'); }
1.43 albertel 848: $pschp='';
1.57 albertel 849: $parmlev = 'full';
1.137 albertel 850: $trimheader='yes';
1.190 albertel 851: } elsif ($env{'form.symb'}) {
852: $pssymb=$env{'form.symb'};
1.92 albertel 853: if (!@pscat) { @pscat=('all'); }
1.43 albertel 854: $pschp='';
1.57 albertel 855: $parmlev = 'full';
1.137 albertel 856: $trimheader='yes';
1.43 albertel 857: } else {
1.190 albertel 858: $env{'form.url'}='';
1.43 albertel 859: }
860:
1.190 albertel 861: my $id=$env{'form.id'};
1.43 albertel 862: if (($id) && ($udom)) {
863: $uname=(&Apache::lonnet::idget($udom,$id))[1];
864: if ($uname) {
865: $id='';
866: } else {
867: $message=
1.133 www 868: "<font color=red>".&mt("Unknown ID")." '$id' ".
869: &mt('at domain')." '$udom'</font>";
1.43 albertel 870: }
871: } else {
1.190 albertel 872: $uname=$env{'form.uname'};
1.43 albertel 873: }
874: unless ($udom) { $uname=''; }
875: $uhome='';
876: if ($uname) {
877: $uhome=&Apache::lonnet::homeserver($uname,$udom);
878: if ($uhome eq 'no_host') {
879: $message=
1.133 www 880: "<font color=red>".&mt("Unknown user")." '$uname' ".
881: &mt("at domain")." '$udom'</font>";
1.43 albertel 882: $uname='';
1.12 www 883: } else {
1.103 albertel 884: $csec=&Apache::lonnet::getsection($udom,$uname,
1.190 albertel 885: $env{'request.course.id'});
1.43 albertel 886: if ($csec eq '-1') {
887: $message="<font color=red>".
1.133 www 888: &mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
889: &mt("not in this course")."</font>";
1.43 albertel 890: $uname='';
1.190 albertel 891: $csec=$env{'form.csec'};
1.43 albertel 892: } else {
893: my %name=&Apache::lonnet::userenvironment($udom,$uname,
894: ('firstname','middlename','lastname','generation','id'));
1.133 www 895: $message="\n<p>\n".&mt("Full Name").": ".
1.43 albertel 896: $name{'firstname'}.' '.$name{'middlename'}.' '
897: .$name{'lastname'}.' '.$name{'generation'}.
1.133 www 898: "<br>\n".&mt('ID').": ".$name{'id'}.'<p>';
1.43 albertel 899: }
1.12 www 900: }
1.43 albertel 901: }
1.2 www 902:
1.43 albertel 903: unless ($csec) { $csec=''; }
1.12 www 904:
1.190 albertel 905: my $fcat=$env{'form.fcat'};
1.43 albertel 906: unless ($fcat) { $fcat=''; }
1.2 www 907:
908: # ------------------------------------------------------------------- Tie hashs
1.190 albertel 909: if (!(tie(%bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
1.58 albertel 910: &GDBM_READER(),0640))) {
1.190 albertel 911: $r->print("Unable to access course data. (File $env{'request.course.fn'}.db not tieable)");
1.44 albertel 912: return ;
913: }
914: if (!(tie(%parmhash,'GDBM_File',
1.190 albertel 915: $env{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640))) {
916: $r->print("Unable to access parameter data. (File $env{'request.course.fn'}_parms.db not tieable)");
1.44 albertel 917: return ;
918: }
1.63 bowersj2 919:
1.14 www 920: # --------------------------------------------------------- Get all assessments
1.188 www 921: &extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles);
1.63 bowersj2 922:
1.57 albertel 923: $mapp{'0.0'} = '';
924: $symbp{'0.0'} = '';
1.99 albertel 925:
1.14 www 926: # ---------------------------------------------------------- Anything to store?
1.190 albertel 927: if ($env{'form.pres_marker'}) {
928: $message.=&storeparm(split(/\&/,$env{'form.pres_marker'}),
929: $env{'form.pres_value'},
930: $env{'form.pres_type'},
1.187 www 931: $uname,$udom,$csec);
1.68 www 932: # ---------------------------------------------------------------- Done storing
1.130 www 933: $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 934: }
1.67 www 935: # --------------------------------------------- Devalidate cache for this child
1.109 albertel 936: &Apache::lonnet::devalidatecourseresdata(
1.190 albertel 937: $env{'course.'.$env{'request.course.id'}.'.num'},
938: $env{'course.'.$env{'request.course.id'}.'.domain'});
1.191 albertel 939: #&Apache::lonnet::clear_EXT_cache_status();
1.2 www 940: # -------------------------------------------------------------- Get coursedata
1.45 matthew 941: %courseopt = &Apache::lonnet::dump
942: ('resourcedata',
1.190 albertel 943: $env{'course.'.$env{'request.course.id'}.'.domain'},
944: $env{'course.'.$env{'request.course.id'}.'.num'});
1.44 albertel 945: # --------------------------------------------------- Get userdata (if present)
946: if ($uname) {
1.45 matthew 947: %useropt=&Apache::lonnet::dump('resourcedata',$udom,$uname);
1.44 albertel 948: }
1.14 www 949:
1.2 www 950: # ------------------------------------------------------------------- Sort this
1.17 www 951:
1.44 albertel 952: @ids=sort {
953: if ($fcat eq '') {
954: $a<=>$b;
955: } else {
1.187 www 956: my ($result,@outpar)=&parmval($fcat,$a,$defp{$a},$uname,$udom,$csec);
1.44 albertel 957: my $aparm=$outpar[$result];
1.187 www 958: ($result,@outpar)=&parmval($fcat,$b,$defp{$b},$uname,$udom,$csec);
1.44 albertel 959: my $bparm=$outpar[$result];
960: 1*$aparm<=>1*$bparm;
961: }
962: } @ids;
1.57 albertel 963: #----------------------------------------------- if all selected, fill in array
964: if ($pscat[0] eq "all" || !@pscat) {@pscat = (keys %allparms);}
965: if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}
1.2 www 966: # ------------------------------------------------------------------ Start page
1.63 bowersj2 967:
1.99 albertel 968: my $have_assesments=1;
969: if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
970:
1.193 albertel 971: $trimheader = 'yes';
1.137 albertel 972: &startpage($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader);
1.99 albertel 973:
1.112 albertel 974: if (!$have_assesments) {
975: untie(%bighash);
976: untie(%parmhash);
977: return '';
978: }
1.190 albertel 979: # if ($env{'form.url'}) {
980: # $r->print('<input type="hidden" value="'.$env{'form.url'}.
1.44 albertel 981: # '" name="url"><input type="hidden" name="command" value="set">');
982: # }
1.57 albertel 983: $r->print('<input type="hidden" value="true" name="prevvisit">');
984:
1.44 albertel 985: foreach ('tolerance','date_default','date_start','date_end',
986: 'date_interval','int','float','string') {
987: $r->print('<input type="hidden" value="'.
1.190 albertel 988: $env{'form.recent_'.$_}.'" name="recent_'.$_.'">');
1.44 albertel 989: }
990:
1.57 albertel 991: $r->print('<h2>'.$message.'</h2><table>');
992:
1.130 www 993: my $submitmessage = &mt('Update Section or Specific User');
1.44 albertel 994: if (!$pssymb) {
1.160 www 995: $r->print('<tr><td>'.&mt('Select Parameter Level').
996: &Apache::loncommon::help_open_topic('Course_Parameter_Levels').
997: '</td><td colspan="2">');
1.57 albertel 998: $r->print('<select name="parmlev">');
999: foreach (reverse sort keys %alllevs) {
1000: $r->print('<option value="'.$alllevs{$_}.'"');
1001: if ($parmlev eq $alllevs{$_}) {
1002: $r->print(' selected');
1003: }
1004: $r->print('>'.$_.'</option>');
1005: }
1006: $r->print("</select></td>\n");
1007:
1.101 www 1008: $r->print('</tr>');
1.128 albertel 1009: if ($parmlev ne 'general') {
1.130 www 1010: $r->print('<tr><td>'.&mt('Select Enclosing Map or Folder').'</td>');
1.128 albertel 1011: $r->print('<td colspan="2"><select name="pschp">');
1.130 www 1012: $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
1.128 albertel 1013: foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {
1014: $r->print('<option value="'.$_.'"');
1015: if (($pschp eq $_)) { $r->print(' selected'); }
1016: $r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?' ['.$allmaps{$_}.']':'').'</option>');
1017: }
1018: $r->print("</select></td></tr>\n");
1019: }
1.44 albertel 1020: } else {
1.125 www 1021: my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
1.130 www 1022: $r->print("<tr><td>".&mt('Specific Resource')."</td><td>$resource</td>");
1.57 albertel 1023: $r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');
1024: $r->print('</tr>');
1025: $r->print('<input type="hidden" value="'.$pssymb.'" name="symb">');
1026: }
1027:
1.185 albertel 1028: $r->print('<tr><td colspan="3"><hr /><label><input type="checkbox"');
1.57 albertel 1029: if ($showoptions eq 'show') {$r->print(" checked ");}
1.185 albertel 1030: $r->print(' name="showoptions" value="show" />'.&mt('Show More Options').'</label><hr /></td></tr>');
1.57 albertel 1031: # $r->print("<tr><td>Show: $showoptions</td></tr>");
1032: # $r->print("<tr><td>pscat: @pscat</td></tr>");
1033: # $r->print("<tr><td>psprt: @psprt</td></tr>");
1034: # $r->print("<tr><td>fcat: $fcat</td></tr>");
1035:
1036: if ($showoptions eq 'show') {
1037: my $tempkey;
1038:
1.130 www 1039: $r->print('<tr><td colspan="3" align="center">'.&mt('Select Parameters to View').'</td></tr>');
1.57 albertel 1040:
1.176 albertel 1041: $r->print('<tr><td colspan="2"><table><tr>');
1.57 albertel 1042: my $cnt=0;
1043: foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }
1044: keys %allparms ) {
1045: ++$cnt;
1.176 albertel 1046: $r->print('</tr><tr>') if ($cnt%2);
1.57 albertel 1047: $r->print('<td><input type="checkbox" name="pscat" ');
1048: $r->print('value="'.$tempkey.'"');
1049: if ($pscat[0] eq "all" || grep $_ eq $tempkey, @pscat) {
1050: $r->print(' checked');
1051: }
1.176 albertel 1052: $r->print('>'.$allparms{$tempkey}.'</td>');
1053: }
1054: $r->print('
1055: </tr><tr><td>
1056: <script type="text/javascript">
1057: function checkall(value, checkName) {
1058: for (i=0; i<document.forms.parmform.elements.length; i++) {
1059: ele = document.forms.parmform.elements[i];
1060: if (ele.name == checkName) {
1061: document.forms.parmform.elements[i].checked=value;
1062: }
1.57 albertel 1063: }
1.176 albertel 1064: }
1065: </script>
1066: <input type="button" onclick="checkall(true, \'pscat\')" value="Select All" />
1067: </td><td>
1068: <input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" />
1069: </td>
1070: ');
1.57 albertel 1071: $r->print('</tr></table>');
1072:
1073: # $r->print('<tr><td>Select Parts</td><td>');
1074: $r->print('<td><select multiple name="psprt" size="5">');
1075: $r->print('<option value="all"');
1076: $r->print(' selected') unless (@psprt);
1.130 www 1077: $r->print('>'.&mt('All Parts').'</option>');
1.76 www 1078: my %temphash=();
1079: foreach (@psprt) { $temphash{$_}=1; }
1.57 albertel 1080: foreach $tempkey (sort keys %allparts) {
1081: unless ($tempkey =~ /\./) {
1082: $r->print('<option value="'.$tempkey.'"');
1.76 www 1083: if ($psprt[0] eq "all" || $temphash{$tempkey}) {
1.57 albertel 1084: $r->print(' selected');
1085: }
1086: $r->print('>'.$allparts{$tempkey}.'</option>');
1087: }
1088: }
1089: $r->print('</select></td></tr><tr><td colspan="3"><hr /></td></tr>');
1090:
1.130 www 1091: $r->print('<tr><td>'.&mt('Sort list by').'</td><td>');
1.57 albertel 1092: $r->print('<select name="fcat">');
1.130 www 1093: $r->print('<option value="">'.&mt('Enclosing Map or Folder').'</option>');
1.57 albertel 1094: foreach (sort keys %allkeys) {
1095: $r->print('<option value="'.$_.'"');
1096: if ($fcat eq $_) { $r->print(' selected'); }
1097: $r->print('>'.$allkeys{$_}.'</option>');
1098: }
1099: $r->print('</select></td>');
1100:
1101: $r->print('</tr><tr><td colspan="3"><hr /></td></tr>');
1102:
1103: } else { # hide options - include any necessary extras here
1104:
1105: $r->print('<input type="hidden" name="fcat" value="'.$fcat.'">'."\n");
1106:
1107: unless (@pscat) {
1108: foreach (keys %allparms ) {
1109: $r->print('<input type="hidden" name="pscat" value="'.$_.'">'."\n");
1110: }
1111: } else {
1112: foreach (@pscat) {
1113: $r->print('<input type="hidden" name="pscat" value="'.$_.'">'."\n");
1114: }
1115: }
1116:
1117: unless (@psprt) {
1118: foreach (keys %allparts ) {
1119: $r->print('<input type="hidden" name="psprt" value="'.$_.'">'."\n");
1120: }
1121: } else {
1122: foreach (@psprt) {
1123: $r->print('<input type="hidden" name="psprt" value="'.$_.'">'."\n");
1124: }
1125: }
1126:
1.44 albertel 1127: }
1.101 www 1128: $r->print('</table><br />');
1129: if (($prevvisit) || ($pschp) || ($pssymb)) {
1.130 www 1130: $submitmessage = &mt("Update Course Assessment Parameter Display");
1.101 www 1131: } else {
1.130 www 1132: $submitmessage = &mt("Set/Modify Course Assessment Parameters");
1.101 www 1133: }
1134: $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');
1.57 albertel 1135:
1.76 www 1136: # my @temp_psprt;
1137: # foreach my $t (@psprt) {
1138: # push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
1139: # }
1.57 albertel 1140:
1.76 www 1141: # @psprt = @temp_psprt;
1.57 albertel 1142:
1143: my @temp_pscat;
1144: map {
1145: my $cat = $_;
1146: push(@temp_pscat, map { $_.'.'.$cat } @psprt);
1147: } @pscat;
1148:
1149: @pscat = @temp_pscat;
1150:
1151: if (($prevvisit) || ($pschp) || ($pssymb)) {
1.10 www 1152: # ----------------------------------------------------------------- Start Table
1.57 albertel 1153: my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;
1.190 albertel 1154: my $csuname=$env{'user.name'};
1155: my $csudom=$env{'user.domain'};
1.57 albertel 1156:
1157: if ($parmlev eq 'full' || $parmlev eq 'brief') {
1158: my $coursespan=$csec?8:5;
1159: $r->print('<p><table border=2>');
1160: $r->print('<tr><td colspan=5></td>');
1.130 www 1161: $r->print('<th colspan='.($coursespan).'>'.&mt('Any User').'</th>');
1.57 albertel 1162: if ($uname) {
1163: $r->print("<th colspan=3 rowspan=2>");
1.130 www 1164: $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom</th>");
1.57 albertel 1165: }
1.133 www 1166: my %lt=&Apache::lonlocal::texthash(
1167: 'pie' => "Parameter in Effect",
1168: 'csv' => "Current Session Value",
1169: 'at' => 'at',
1170: 'rl' => "Resource Level",
1171: 'ic' => 'in Course',
1172: 'aut' => "Assessment URL and Title",
1.143 albertel 1173: 'type' => 'Type',
1.133 www 1174: 'emof' => "Enclosing Map or Folder",
1.143 albertel 1175: 'part' => 'Part',
1.133 www 1176: 'pn' => 'Parameter Name',
1177: 'def' => 'default',
1178: 'femof' => 'from Enclosing Map or Folder',
1179: 'gen' => 'general',
1180: 'foremf' => 'for Enclosing Map or Folder',
1181: 'fr' => 'for Resource'
1182: );
1.57 albertel 1183: $r->print(<<ENDTABLETWO);
1.133 www 1184: <th rowspan=3>$lt{'pie'}</th>
1185: <th rowspan=3>$lt{'csv'}<br>($csuname $lt{'at'} $csudom)</th>
1.182 albertel 1186: </tr><tr><td colspan=5></td><th colspan=2>$lt{'ic'}</th><th colspan=2>$lt{'rl'}</th>
1187: <th colspan=1>$lt{'ic'}</th>
1188:
1.10 www 1189: ENDTABLETWO
1.57 albertel 1190: if ($csec) {
1.133 www 1191: $r->print("<th colspan=3>".
1192: &mt("in Section/Group")." $csec</th>");
1.57 albertel 1193: }
1194: $r->print(<<ENDTABLEHEADFOUR);
1.133 www 1195: </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
1196: <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
1.192 albertel 1197: <th>$lt{'gen'}</th><th>$lt{'foremf'}</th>
1198: <th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>
1.10 www 1199: ENDTABLEHEADFOUR
1.57 albertel 1200:
1201: if ($csec) {
1.130 www 1202: $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
1.57 albertel 1203: }
1204:
1205: if ($uname) {
1.130 www 1206: $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
1.57 albertel 1207: }
1208:
1209: $r->print('</tr>');
1210:
1211: my $defbgone='';
1212: my $defbgtwo='';
1213:
1214: foreach (@ids) {
1215:
1216: my $rid=$_;
1217: my ($inmapid)=($rid=~/\.(\d+)$/);
1218:
1.152 albertel 1219: if ((!$pssymb &&
1220: (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))
1221: ||
1222: ($pssymb && $pssymb eq $symbp{$rid})) {
1.4 www 1223: # ------------------------------------------------------ Entry for one resource
1.184 albertel 1224: if ($defbgone eq '"#E0E099"') {
1225: $defbgone='"#E0E0DD"';
1.57 albertel 1226: } else {
1.184 albertel 1227: $defbgone='"#E0E099"';
1.57 albertel 1228: }
1.184 albertel 1229: if ($defbgtwo eq '"#FFFF99"') {
1230: $defbgtwo='"#FFFFDD"';
1.57 albertel 1231: } else {
1.184 albertel 1232: $defbgtwo='"#FFFF99"';
1.57 albertel 1233: }
1234: my $thistitle='';
1235: my %name= ();
1236: undef %name;
1237: my %part= ();
1238: my %display=();
1239: my %type= ();
1240: my %default=();
1241: my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
1242:
1243: foreach (split(/\,/,$keyp{$rid})) {
1244: my $tempkeyp = $_;
1245: if (grep $_ eq $tempkeyp, @catmarker) {
1246: $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
1247: $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
1248: $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
1249: unless ($display{$_}) { $display{$_}=''; }
1250: $display{$_}.=' ('.$name{$_}.')';
1251: $default{$_}=&Apache::lonnet::metadata($uri,$_);
1252: $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
1253: $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
1254: }
1255: }
1256: my $totalparms=scalar keys %name;
1257: if ($totalparms>0) {
1258: my $firstrow=1;
1.180 albertel 1259: my $title=&Apache::lonnet::gettitle($uri);
1.57 albertel 1260: $r->print('<tr><td bgcolor='.$defbgone.
1261: ' rowspan='.$totalparms.
1262: '><tt><font size=-1>'.
1263: join(' / ',split(/\//,$uri)).
1264: '</font></tt><p><b>'.
1.154 albertel 1265: "<a href=\"javascript:openWindow('".
1266: &Apache::lonnet::clutter($uri).
1.57 albertel 1267: "', 'metadatafile', '450', '500', 'no', 'yes')\";".
1.127 albertel 1268: " TARGET=_self>$title");
1.57 albertel 1269:
1270: if ($thistitle) {
1271: $r->print(' ('.$thistitle.')');
1272: }
1273: $r->print('</a></b></td>');
1274: $r->print('<td bgcolor='.$defbgtwo.
1275: ' rowspan='.$totalparms.'>'.$typep{$rid}.
1276: '</td>');
1277:
1278: $r->print('<td bgcolor='.$defbgone.
1279: ' rowspan='.$totalparms.
1280: '><tt><font size=-1>');
1281:
1282: $r->print(' / res / ');
1283: $r->print(join(' / ', split(/\//,$mapp{$rid})));
1284:
1285: $r->print('</font></tt></td>');
1286:
1287: foreach (sort keys %name) {
1288: unless ($firstrow) {
1289: $r->print('<tr>');
1290: } else {
1291: undef $firstrow;
1292: }
1293:
1294: &print_row($r,$_,\%part,\%name,$rid,\%default,
1295: \%type,\%display,$defbgone,$defbgtwo,
1.187 www 1296: $parmlev,$uname,$udom,$csec);
1.57 albertel 1297: }
1298: }
1299: }
1300: } # end foreach ids
1.43 albertel 1301: # -------------------------------------------------- End entry for one resource
1.57 albertel 1302: $r->print('</table>');
1303: } # end of brief/full
1304: #--------------------------------------------------- Entry for parm level map
1305: if ($parmlev eq 'map') {
1306: my $defbgone = '"E0E099"';
1307: my $defbgtwo = '"FFFF99"';
1308:
1309: my %maplist;
1310:
1311: if ($pschp eq 'all') {
1312: %maplist = %allmaps;
1313: } else {
1314: %maplist = ($pschp => $mapp{$pschp});
1315: }
1316:
1317: #-------------------------------------------- for each map, gather information
1318: my $mapid;
1.60 albertel 1319: foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
1320: my $maptitle = $maplist{$mapid};
1.57 albertel 1321:
1322: #----------------------- loop through ids and get all parameter types for map
1323: #----------------------------------------- and associated information
1324: my %name = ();
1325: my %part = ();
1326: my %display = ();
1327: my %type = ();
1328: my %default = ();
1329: my $map = 0;
1330:
1331: # $r->print("Catmarker: @catmarker<br />\n");
1332:
1333: foreach (@ids) {
1334: ($map)=(/([\d]*?)\./);
1335: my $rid = $_;
1336:
1337: # $r->print("$mapid:$map: $rid <br /> \n");
1338:
1339: if ($map eq $mapid) {
1340: my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
1341: # $r->print("Keys: $keyp{$rid} <br />\n");
1342:
1343: #--------------------------------------------------------------------
1344: # @catmarker contains list of all possible parameters including part #s
1345: # $fullkeyp contains the full part/id # for the extraction of proper parameters
1346: # $tempkeyp contains part 0 only (no ids - ie, subparts)
1347: # When storing information, store as part 0
1348: # When requesting information, request from full part
1349: #-------------------------------------------------------------------
1350: foreach (split(/\,/,$keyp{$rid})) {
1351: my $tempkeyp = $_;
1352: my $fullkeyp = $tempkeyp;
1.73 albertel 1353: $tempkeyp =~ s/_\w+_/_0_/;
1.57 albertel 1354:
1355: if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
1356: $part{$tempkeyp}="0";
1357: $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
1358: $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
1359: unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
1360: $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
1.73 albertel 1361: $display{$tempkeyp} =~ s/_\w+_/_0_/;
1.57 albertel 1362: $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
1363: $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
1364: }
1365: } # end loop through keys
1366: }
1367: } # end loop through ids
1368:
1369: #---------------------------------------------------- print header information
1.133 www 1370: my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
1.82 www 1371: my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
1.57 albertel 1372: $r->print(<<ENDMAPONE);
1373: <center><h4>
1.135 albertel 1374: Set Defaults for All Resources in $foldermap<br />
1375: <font color="red"><i>$showtitle</i></font><br />
1.57 albertel 1376: Specifically for
1377: ENDMAPONE
1378: if ($uname) {
1379: my %name=&Apache::lonnet::userenvironment($udom,$uname,
1380: ('firstname','middlename','lastname','generation', 'id'));
1381: my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
1382: .$name{'lastname'}.' '.$name{'generation'};
1.135 albertel 1383: $r->print(&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".
1.130 www 1384: &mt('in')." \n");
1.57 albertel 1385: } else {
1.135 albertel 1386: $r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n");
1.57 albertel 1387: }
1388:
1.135 albertel 1389: if ($csec) {$r->print(&mt("Section")." <font color=\"red\"><i>$csec</i></font> ".
1.130 www 1390: &mt('of')." \n")};
1.57 albertel 1391:
1.135 albertel 1392: $r->print("<font color=\"red\"><i>$coursename</i></font><br />");
1393: $r->print("</h4>\n");
1.57 albertel 1394: #---------------------------------------------------------------- print table
1395: $r->print('<p><table border="2">');
1.130 www 1396: $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
1397: $r->print('<th>'.&mt('Default Value').'</th>');
1398: $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
1.57 albertel 1399:
1400: foreach (sort keys %name) {
1.168 matthew 1401: $r->print('<tr>');
1.57 albertel 1402: &print_row($r,$_,\%part,\%name,$mapid,\%default,
1403: \%type,\%display,$defbgone,$defbgtwo,
1.187 www 1404: $parmlev,$uname,$udom,$csec);
1.57 albertel 1405: # $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");
1406: }
1407: $r->print("</table></center>");
1408: } # end each map
1409: } # end of $parmlev eq map
1410: #--------------------------------- Entry for parm level general (Course level)
1411: if ($parmlev eq 'general') {
1412: my $defbgone = '"E0E099"';
1413: my $defbgtwo = '"FFFF99"';
1414:
1415: #-------------------------------------------- for each map, gather information
1416: my $mapid="0.0";
1417: #----------------------- loop through ids and get all parameter types for map
1418: #----------------------------------------- and associated information
1419: my %name = ();
1420: my %part = ();
1421: my %display = ();
1422: my %type = ();
1423: my %default = ();
1424:
1425: foreach (@ids) {
1426: my $rid = $_;
1427:
1428: my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
1429:
1430: #--------------------------------------------------------------------
1431: # @catmarker contains list of all possible parameters including part #s
1432: # $fullkeyp contains the full part/id # for the extraction of proper parameters
1433: # $tempkeyp contains part 0 only (no ids - ie, subparts)
1434: # When storing information, store as part 0
1435: # When requesting information, request from full part
1436: #-------------------------------------------------------------------
1437: foreach (split(/\,/,$keyp{$rid})) {
1438: my $tempkeyp = $_;
1439: my $fullkeyp = $tempkeyp;
1.73 albertel 1440: $tempkeyp =~ s/_\w+_/_0_/;
1.57 albertel 1441: if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
1442: $part{$tempkeyp}="0";
1443: $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
1444: $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
1445: unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
1446: $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
1.73 albertel 1447: $display{$tempkeyp} =~ s/_\w+_/_0_/;
1.57 albertel 1448: $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
1449: $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
1450: }
1451: } # end loop through keys
1452: } # end loop through ids
1453:
1454: #---------------------------------------------------- print header information
1.133 www 1455: my $setdef=&mt("Set Defaults for All Resources in Course");
1.57 albertel 1456: $r->print(<<ENDMAPONE);
1.133 www 1457: <center><h4>$setdef
1.135 albertel 1458: <font color="red"><i>$coursename</i></font><br />
1.57 albertel 1459: ENDMAPONE
1460: if ($uname) {
1461: my %name=&Apache::lonnet::userenvironment($udom,$uname,
1462: ('firstname','middlename','lastname','generation', 'id'));
1463: my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
1464: .$name{'lastname'}.' '.$name{'generation'};
1.135 albertel 1465: $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");
1.57 albertel 1466: } else {
1.135 albertel 1467: $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
1.57 albertel 1468: }
1469:
1.135 albertel 1470: if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
1471: $r->print("</h4>\n");
1.57 albertel 1472: #---------------------------------------------------------------- print table
1473: $r->print('<p><table border="2">');
1.130 www 1474: $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
1475: $r->print('<th>'.&mt('Default Value').'</th>');
1476: $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
1.57 albertel 1477:
1478: foreach (sort keys %name) {
1.168 matthew 1479: $r->print('<tr>');
1.57 albertel 1480: &print_row($r,$_,\%part,\%name,$mapid,\%default,
1.187 www 1481: \%type,\%display,$defbgone,$defbgtwo,$parmlev,$uname,$udom,$csec);
1.57 albertel 1482: # $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");
1483: }
1484: $r->print("</table></center>");
1485: } # end of $parmlev eq general
1.43 albertel 1486: }
1.44 albertel 1487: $r->print('</form></body></html>');
1488: untie(%bighash);
1489: untie(%parmhash);
1.57 albertel 1490: } # end sub assessparms
1.30 www 1491:
1.59 matthew 1492:
1493: ##################################################
1494: ##################################################
1495:
1496: =pod
1497:
1498: =item crsenv
1499:
1.105 matthew 1500: Show and set course data and parameters. This is a large routine that should
1.59 matthew 1501: be simplified and shortened... someday.
1502:
1503: Inputs: $r
1504:
1505: Returns: nothing
1506:
1507: =cut
1508:
1509: ##################################################
1510: ##################################################
1.30 www 1511: sub crsenv {
1512: my $r=shift;
1513: my $setoutput='';
1.64 www 1514: my $bodytag=&Apache::loncommon::bodytag(
1515: 'Set Course Environment Parameters');
1.194 ! albertel 1516: my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,
! 1517: 'Edit Course Environment');
1.190 albertel 1518: my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1519: my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.105 matthew 1520:
1521: #
1522: # Go through list of changes
1.190 albertel 1523: foreach (keys %env) {
1.105 matthew 1524: next if ($_!~/^form\.(.+)\_setparmval$/);
1525: my $name = $1;
1.190 albertel 1526: my $value = $env{'form.'.$name.'_value'};
1.105 matthew 1527: if ($name eq 'newp') {
1.190 albertel 1528: $name = $env{'form.newp_name'};
1.105 matthew 1529: }
1530: if ($name eq 'url') {
1531: $value=~s/^\/res\///;
1532: my $bkuptime=time;
1533: my @tmp = &Apache::lonnet::get
1534: ('environment',['url'],$dom,$crs);
1.130 www 1535: $setoutput.=&mt('Backing up previous URL').': '.
1.105 matthew 1536: &Apache::lonnet::put
1537: ('environment',
1538: {'top level map backup '.$bkuptime => $tmp[1] },
1539: $dom,$crs).
1540: '<br>';
1541: }
1542: #
1543: # Deal with modified default spreadsheets
1544: if ($name =~ /^spreadsheet_default_(classcalc|
1545: studentcalc|
1546: assesscalc)$/x) {
1547: my $sheettype = $1;
1548: if ($sheettype eq 'classcalc') {
1549: # no need to do anything since viewing the sheet will
1550: # cause it to be updated.
1551: } elsif ($sheettype eq 'studentcalc') {
1552: # expire all the student spreadsheets
1553: &Apache::lonnet::expirespread('','','studentcalc');
1554: } else {
1555: # expire all the assessment spreadsheets
1556: # this includes non-default spreadsheets, but better to
1557: # be safe than sorry.
1558: &Apache::lonnet::expirespread('','','assesscalc');
1559: # expire all the student spreadsheets
1560: &Apache::lonnet::expirespread('','','studentcalc');
1.30 www 1561: }
1.105 matthew 1562: }
1563: #
1.107 matthew 1564: # Deal with the enrollment dates
1565: if ($name =~ /^default_enrollment_(start|end)_date$/) {
1566: $value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
1567: }
1.178 raeburn 1568: # Get existing cloners
1569: my @oldcloner = ();
1570: if ($name eq 'cloners') {
1571: my %clonenames=&Apache::lonnet::dump('environment',$dom,$crs,'cloners');
1572: if ($clonenames{'cloners'} =~ /,/) {
1573: @oldcloner = split/,/,$clonenames{'cloners'};
1574: } else {
1575: $oldcloner[0] = $clonenames{'cloners'};
1576: }
1577: }
1.107 matthew 1578: #
1.105 matthew 1579: # Let the user know we made the changes
1.153 albertel 1580: if ($name && defined($value)) {
1.178 raeburn 1581: if ($name eq 'cloners') {
1582: $value =~ s/^,//;
1583: $value =~ s/,$//;
1584: }
1.105 matthew 1585: my $put_result = &Apache::lonnet::put('environment',
1586: {$name=>$value},$dom,$crs);
1587: if ($put_result eq 'ok') {
1.130 www 1588: $setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'.$value.'</b>.<br />';
1.178 raeburn 1589: if ($name eq 'cloners') {
1590: &change_clone($value,\@oldcloner);
1591: }
1.179 raeburn 1592: # Flush the course logs so course description is immediately updated
1593: if ($name eq 'description' && defined($value)) {
1594: &Apache::lonnet::flushcourselogs();
1595: }
1.105 matthew 1596: } else {
1.130 www 1597: $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
1598: ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
1.30 www 1599: }
1600: }
1.38 harris41 1601: }
1.108 www 1602: # ------------------------- Re-init course environment entries for this session
1603:
1.190 albertel 1604: &Apache::lonnet::coursedescription($env{'request.course.id'});
1.105 matthew 1605:
1.30 www 1606: # -------------------------------------------------------- Get parameters again
1.45 matthew 1607:
1608: my %values=&Apache::lonnet::dump('environment',$dom,$crs);
1.140 sakharuk 1609: my $SelectStyleFile=&mt('Select Style File');
1.141 sakharuk 1610: my $SelectSpreadsheetFile=&mt('Select Spreadsheet File');
1.30 www 1611: my $output='';
1.45 matthew 1612: if (! exists($values{'con_lost'})) {
1.30 www 1613: my %descriptions=
1.140 sakharuk 1614: ('url' => '<b>'.&mt('Top Level Map').'</b> '.
1.46 matthew 1615: '<a href="javascript:openbrowser'.
1.47 matthew 1616: "('envform','url','sequence')\">".
1.140 sakharuk 1617: &mt('Select Map').'</a><br /><font color=red> '.
1618: &mt('Modification may make assessment data inaccessible').
1619: '</font>',
1620: 'description' => '<b>'.&mt('Course Description').'</b>',
1.158 sakharuk 1621: 'courseid' => '<b>'.&mt('Course ID or number').
1.140 sakharuk 1622: '</b><br />'.
1623: '('.&mt('internal').', '.&mt('optional').')',
1.177 raeburn 1624: 'cloners' => '<b>'.&mt('Users allowed to clone course').'</b><br /><tt>(user:domain,user:domain)</tt><br />'.&mt('Users with active Course Coordinator role in the course automatically have the right to clone it, and can be omitted from list.'),
1.150 www 1625: 'grading' => '<b>'.&mt('Grading').'</b><br />'.
1626: '<tt>"standard", "external", or "spreadsheet"</tt> '.&Apache::loncommon::help_open_topic('GradingOptions'),
1.140 sakharuk 1627: 'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b> '.
1.52 www 1628: '<a href="javascript:openbrowser'.
1629: "('envform','default_xml_style'".
1.140 sakharuk 1630: ",'sty')\">$SelectStyleFile</a><br>",
1.141 sakharuk 1631: 'question.email' => '<b>'.&mt('Feedback Addresses for Resource Content Question').
1632: '</b><br />(<tt>user:domain,'.
1.74 www 1633: 'user:domain(section;section;...;*;...),...</tt>)',
1.141 sakharuk 1634: 'comment.email' => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'.
1.74 www 1635: '(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
1.141 sakharuk 1636: 'policy.email' => '<b>'.&mt('Feedback Addresses for Course Policy').'</b>'.
1.75 albertel 1637: '<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
1.141 sakharuk 1638: 'hideemptyrows' => '<b>'.&mt('Hide Empty Rows in Spreadsheets').'</b><br />'.
1.158 sakharuk 1639: '('.&mt('"[_1]" for default hiding','<tt>yes</tt>').')',
1.141 sakharuk 1640: 'pageseparators' => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'.
1.158 sakharuk 1641: '('.&mt('"[_1]" for visible separation','<tt>yes</tt>').', '.
1.141 sakharuk 1642: &mt('changes will not show until next login').')',
1.169 matthew 1643: 'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b>'.&mt('("all":students can view all sections,"section":students can only view their own section.blank or "disabled" prevents student view.'),
1.118 matthew 1644:
1.141 sakharuk 1645: 'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').
1646: '</b><br />"<tt>st</tt>": '.
1.158 sakharuk 1647: &mt('student').', "<tt>ta</tt>": '.
1.118 matthew 1648: 'TA, "<tt>in</tt>": '.
1.158 sakharuk 1649: &mt('instructor').';<br /><tt>'.&mt('role,role,...').'</tt>) '.
1.118 matthew 1650: Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
1651: 'plc.users.denied' =>
1.141 sakharuk 1652: '<b>'.&mt('Disallow live chatroom use for Users').'</b><br />'.
1.118 matthew 1653: '(<tt>user:domain,user:domain,...</tt>)',
1654:
1.141 sakharuk 1655: 'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').
1656: '</b><br />"<tt>st</tt>": '.
1.61 albertel 1657: 'student, "<tt>ta</tt>": '.
1658: 'TA, "<tt>in</tt>": '.
1.75 albertel 1659: 'instructor;<br /><tt>role,role,...</tt>) '.
1.61 albertel 1660: Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
1.53 www 1661: 'pch.users.denied' =>
1.141 sakharuk 1662: '<b>'.&mt('Disallow Resource Discussion for Users').'</b><br />'.
1.53 www 1663: '(<tt>user:domain,user:domain,...</tt>)',
1.49 matthew 1664: 'spreadsheet_default_classcalc'
1.141 sakharuk 1665: => '<b>'.&mt('Default Course Spreadsheet').'</b> '.
1.50 matthew 1666: '<a href="javascript:openbrowser'.
1667: "('envform','spreadsheet_default_classcalc'".
1.141 sakharuk 1668: ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.49 matthew 1669: 'spreadsheet_default_studentcalc'
1.141 sakharuk 1670: => '<b>'.&mt('Default Student Spreadsheet').'</b> '.
1.50 matthew 1671: '<a href="javascript:openbrowser'.
1672: "('envform','spreadsheet_default_calc'".
1.141 sakharuk 1673: ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.49 matthew 1674: 'spreadsheet_default_assesscalc'
1.141 sakharuk 1675: => '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.
1.50 matthew 1676: '<a href="javascript:openbrowser'.
1677: "('envform','spreadsheet_default_assesscalc'".
1.141 sakharuk 1678: ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.75 albertel 1679: 'allow_limited_html_in_feedback'
1.141 sakharuk 1680: => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
1.158 sakharuk 1681: '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
1.170 raeburn 1682: 'allow_discussion_post_editing'
1683: => '<b>'.&mt('Allow users to edit/delete their own discussion posts').'</b><br />'.
1684: '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
1.89 albertel 1685: 'rndseed'
1.140 sakharuk 1686: => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
1687: '<font color="red">'.&mt('Modifying this will make problems').' '.
1688: &mt('have different numbers and answers').'</font>',
1.151 albertel 1689: 'receiptalg'
1690: => '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
1691: &mt('This controls how receipt numbers are generated.'),
1.164 sakharuk 1692: 'suppress_tries'
1693: => '<b>'.&mt('Suppress number of tries in printing').'</b>('.
1694: &mt('yes if supress').')',
1.113 sakharuk 1695: 'problem_stream_switch'
1.141 sakharuk 1696: => '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
1.158 sakharuk 1697: ' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',
1.161 sakharuk 1698: 'default_paper_size'
1699: => '<b>'.&mt('Default paper type').'</b><br />'.
1700: ' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'.
1701: ' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'.
1702: ' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
1.111 sakharuk 1703: 'anonymous_quiz'
1.150 www 1704: => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
1.141 sakharuk 1705: ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
1706: 'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',
1707: 'default_enrollment_end_date' => '<b>'.&mt('Default ending date when enrolling students').'</b>',
1.150 www 1708: 'nothideprivileged' => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
1709: '<br />(<tt>user:domain,user:domain,...</tt>)',
1.140 sakharuk 1710: 'languages' => '<b>'.&mt('Languages used').'</b>',
1.115 www 1711: 'disable_receipt_display'
1.141 sakharuk 1712: => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
1.158 sakharuk 1713: ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
1.163 albertel 1714: 'disablesigfigs'
1715: => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
1716: ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
1.149 albertel 1717: 'tthoptions'
1718: => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
1.107 matthew 1719: );
1.177 raeburn 1720: my @Display_Order = ('url','description','courseid','cloners','grading',
1.107 matthew 1721: 'default_xml_style','pageseparators',
1722: 'question.email','comment.email','policy.email',
1.169 matthew 1723: 'student_classlist_view',
1.118 matthew 1724: 'plc.roles.denied','plc.users.denied',
1.107 matthew 1725: 'pch.roles.denied','pch.users.denied',
1726: 'allow_limited_html_in_feedback',
1.170 raeburn 1727: 'allow_discussion_post_editing',
1.108 www 1728: 'languages',
1.150 www 1729: 'nothideprivileged',
1.107 matthew 1730: 'rndseed',
1.151 albertel 1731: 'receiptalg',
1.107 matthew 1732: 'problem_stream_switch',
1.164 sakharuk 1733: 'suppress_tries',
1.161 sakharuk 1734: 'default_paper_size',
1.115 www 1735: 'disable_receipt_display',
1.107 matthew 1736: 'spreadsheet_default_classcalc',
1737: 'spreadsheet_default_studentcalc',
1738: 'spreadsheet_default_assesscalc',
1739: 'hideemptyrows',
1740: 'default_enrollment_start_date',
1741: 'default_enrollment_end_date',
1.163 albertel 1742: 'tthoptions',
1743: 'disablesigfigs'
1.107 matthew 1744: );
1745: foreach my $parameter (sort(keys(%values))) {
1.142 raeburn 1746: unless ($parameter =~ m/^internal\./) {
1747: if (! $descriptions{$parameter}) {
1748: $descriptions{$parameter}=$parameter;
1749: push(@Display_Order,$parameter);
1750: }
1751: }
1.43 albertel 1752: }
1.107 matthew 1753: foreach my $parameter (@Display_Order) {
1754: my $description = $descriptions{$parameter};
1.51 matthew 1755: # onchange is javascript to automatically check the 'Set' button.
1.69 www 1756: my $onchange = 'onFocus="javascript:window.document.forms'.
1.107 matthew 1757: "['envform'].elements['".$parameter."_setparmval']".
1.51 matthew 1758: '.checked=true;"';
1.107 matthew 1759: $output .= '<tr><td>'.$description.'</td>';
1760: if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
1761: $output .= '<td>'.
1762: &Apache::lonhtmlcommon::date_setter('envform',
1763: $parameter.'_value',
1764: $values{$parameter},
1765: $onchange).
1766: '</td>';
1767: } else {
1768: $output .= '<td>'.
1769: &Apache::lonhtmlcommon::textbox($parameter.'_value',
1770: $values{$parameter},
1771: 40,$onchange).'</td>';
1772: }
1773: $output .= '<td>'.
1774: &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
1775: '</td>';
1776: $output .= "</tr>\n";
1.51 matthew 1777: }
1.69 www 1778: my $onchange = 'onFocus="javascript:window.document.forms'.
1.51 matthew 1779: '[\'envform\'].elements[\'newp_setparmval\']'.
1780: '.checked=true;"';
1.130 www 1781: $output.='<tr><td><i>'.&mt('Create New Environment Variable').'</i><br />'.
1.51 matthew 1782: '<input type="text" size=40 name="newp_name" '.
1783: $onchange.' /></td><td>'.
1784: '<input type="text" size=40 name="newp_value" '.
1785: $onchange.' /></td><td>'.
1786: '<input type="checkbox" name="newp_setparmval" /></td></tr>';
1.43 albertel 1787: }
1.157 sakharuk 1788: my %lt=&Apache::lonlocal::texthash(
1789: 'par' => 'Parameter',
1790: 'val' => 'Value',
1791: 'set' => 'Set',
1792: 'sce' => 'Set Course Environment'
1793: );
1794:
1.140 sakharuk 1795: my $Parameter=&mt('Parameter');
1796: my $Value=&mt('Value');
1.141 sakharuk 1797: my $Set=&mt('Set');
1.167 albertel 1798: my $browse_js=&Apache::loncommon::browser_and_searcher_javascript('parmset');
1.183 albertel 1799: my $html=&Apache::lonxml::xmlbegin();
1.190 albertel 1800: $r->print(<<ENDenv);
1.183 albertel 1801: $html
1802: <head>
1.46 matthew 1803: <script type="text/javascript" language="Javascript" >
1.155 albertel 1804: $browse_js
1.46 matthew 1805: </script>
1.30 www 1806: <title>LON-CAPA Course Environment</title>
1807: </head>
1.64 www 1808: $bodytag
1.193 albertel 1809: $breadcrumbs
1810: <form method="post" action="/adm/parmset?action=crsenv" name="envform">
1.30 www 1811: $setoutput
1812: <p>
1813: <table border=2>
1.157 sakharuk 1814: <tr><th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th></tr>
1.30 www 1815: $output
1816: </table>
1.157 sakharuk 1817: <input type="submit" name="crsenv" value="$lt{'sce'}">
1.30 www 1818: </form>
1819: </body>
1820: </html>
1.190 albertel 1821: ENDenv
1.30 www 1822: }
1.120 www 1823: ##################################################
1.30 www 1824:
1.124 www 1825: my $tableopen;
1826:
1827: sub tablestart {
1828: if ($tableopen) {
1829: return '';
1830: } else {
1831: $tableopen=1;
1.130 www 1832: return '<table border="2"><tr><th>'.&mt('Parameter').'</th><th>'.
1833: &mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
1.124 www 1834: }
1835: }
1836:
1837: sub tableend {
1838: if ($tableopen) {
1839: $tableopen=0;
1840: return '</table>';
1841: } else {
1842: return'';
1843: }
1844: }
1845:
1.120 www 1846: sub overview {
1847: my $r=shift;
1848: my $bodytag=&Apache::loncommon::bodytag(
1849: 'Set/Modify Course Assessment Parameters');
1.190 albertel 1850: my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1851: my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
1.194 ! albertel 1852: my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
1.183 albertel 1853: my $html=&Apache::lonxml::xmlbegin();
1.120 www 1854: $r->print(<<ENDOVER);
1.183 albertel 1855: $html
1.120 www 1856: <head>
1857: <title>LON-CAPA Course Environment</title>
1858: </head>
1859: $bodytag
1.193 albertel 1860: $breadcrumbs
1861: <form method="post" action="/adm/parmset?action=setoverview" name="overviewform">
1.120 www 1862: <input type="hidden" name="overview" value="1" />
1863: ENDOVER
1.124 www 1864: # Setting
1865: my %olddata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
1866: my %newdata=();
1867: undef %newdata;
1868: my @deldata=();
1869: undef @deldata;
1.190 albertel 1870: foreach (keys %env) {
1.124 www 1871: if ($_=~/^form\.([a-z]+)\_(.+)$/) {
1872: my $cmd=$1;
1873: my $thiskey=$2;
1874: if ($cmd eq 'set') {
1.190 albertel 1875: my $data=$env{$_};
1.124 www 1876: if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
1877: } elsif ($cmd eq 'del') {
1878: push (@deldata,$thiskey);
1879: } elsif ($cmd eq 'datepointer') {
1.190 albertel 1880: my $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});
1.153 albertel 1881: if (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
1.124 www 1882: }
1883: }
1884: }
1885: # Store
1.144 www 1886: my $delentries=$#deldata+1;
1887: my @newdatakeys=keys %newdata;
1888: my $putentries=$#newdatakeys+1;
1889: if ($delentries) {
1890: if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
1891: $r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));
1892: } else {
1893: $r->print('<h2><font color="red">'.
1894: &mt('Error deleting parameters').'</font></h2>');
1895: }
1896: }
1897: if ($putentries) {
1898: if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
1899: $r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries));
1900: } else {
1901: $r->print('<h2><font color="red">'.
1902: &mt('Error storing parameters').'</font></h2>');
1903: }
1904: }
1.122 www 1905: # Read and display
1906: my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
1907: my $oldsection='';
1908: my $oldrealm='';
1909: my $oldpart='';
1.123 www 1910: my $pointer=0;
1.124 www 1911: $tableopen=0;
1.145 www 1912: my $foundkeys=0;
1.122 www 1913: foreach my $thiskey (sort keys %resourcedata) {
1.123 www 1914: if ($resourcedata{$thiskey.'.type'}) {
1915: my ($course,$middle,$part,$name)=
1916: ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
1.130 www 1917: my $section=&mt('All Students');
1.122 www 1918: if ($middle=~/^\[(.*)\]\./) {
1.130 www 1919: $section=&mt('Group/Section').': '.$1;
1.122 www 1920: $middle=~s/^\[(.*)\]\.//;
1921: }
1.123 www 1922: $middle=~s/\.$//;
1.130 www 1923: my $realm='<font color="red">'.&mt('All Resources').'</font>';
1.122 www 1924: if ($middle=~/^(.+)\_\_\_\(all\)$/) {
1.174 albertel 1925: $realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
1.122 www 1926: } elsif ($middle) {
1.174 albertel 1927: my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
1928: $realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
1.122 www 1929: }
1930: if ($section ne $oldsection) {
1.124 www 1931: $r->print(&tableend()."\n<hr /><h1>$section</h1>");
1.122 www 1932: $oldsection=$section;
1933: $oldrealm='';
1934: }
1935: if ($realm ne $oldrealm) {
1.124 www 1936: $r->print(&tableend()."\n<h2>$realm</h2>");
1.122 www 1937: $oldrealm=$realm;
1938: $oldpart='';
1939: }
1940: if ($part ne $oldpart) {
1.124 www 1941: $r->print(&tableend().
1.130 www 1942: "\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");
1.122 www 1943: $oldpart=$part;
1944: }
1.123 www 1945: #
1946: # Ready to print
1947: #
1.124 www 1948: $r->print(&tablestart().'<tr><td><b>'.$name.
1949: ':</b></td><td><input type="checkbox" name="del_'.
1950: $thiskey.'" /></td><td>');
1.145 www 1951: $foundkeys++;
1.123 www 1952: if ($resourcedata{$thiskey.'.type'}=~/^date/) {
1953: my $jskey='key_'.$pointer;
1954: $pointer++;
1955: $r->print(
1956: &Apache::lonhtmlcommon::date_setter('overviewform',
1957: $jskey,
1958: $resourcedata{$thiskey}).
1959: '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
1960: );
1961: } else {
1962: $r->print(
1963: '<input type="text" name="set_'.$thiskey.'" value="'.
1964: $resourcedata{$thiskey}.'">');
1965: }
1.124 www 1966: $r->print('</td></tr>');
1.122 www 1967: }
1.121 www 1968: }
1.124 www 1969:
1.145 www 1970: $r->print(&tableend().'<p>'.
1971: ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>');
1.120 www 1972: }
1.121 www 1973:
1.59 matthew 1974: ##################################################
1975: ##################################################
1.178 raeburn 1976:
1977: =pod
1978:
1979: =item change clone
1980:
1981: Modifies the list of courses a user can clone (stored
1982: in the user's environemnt.db file), called when a
1983: change is made to the list of users allowed to clone
1984: a course.
1985:
1986: Inputs: $action,$cloner
1987: where $action is add or drop, and $cloner is identity of
1988: user for whom cloning ability is to be changed in course.
1989:
1990: Returns:
1991:
1992: =cut
1993:
1994: ##################################################
1995: ##################################################
1996:
1997:
1998: sub change_clone {
1999: my ($clonelist,$oldcloner) = @_;
2000: my ($uname,$udom);
1.190 albertel 2001: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
2002: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1.178 raeburn 2003: my $clone_crs = $cnum.':'.$cdom;
2004:
2005: if ($cnum && $cdom) {
2006: my @allowclone = ();
2007: if ($clonelist =~ /,/) {
2008: @allowclone = split/,/,$clonelist;
2009: } else {
2010: $allowclone[0] = $clonelist;
2011: }
2012: foreach my $currclone (@allowclone) {
2013: if (!grep/^$currclone$/,@$oldcloner) {
2014: ($uname,$udom) = split/:/,$currclone;
2015: if ($uname && $udom) {
2016: unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
2017: my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');
2018: if ($currclonecrs{'cloneable'} !~ /\Q$clone_crs\E/) {
2019: if ($currclonecrs{'cloneable'} eq '') {
2020: $currclonecrs{'cloneable'} = $clone_crs;
2021: } else {
2022: $currclonecrs{'cloneable'} .= ','.$clone_crs;
2023: }
2024: &Apache::lonnet::put('environment',\%currclonecrs,$udom,$uname);
2025: }
2026: }
2027: }
2028: }
2029: }
2030: foreach my $oldclone (@$oldcloner) {
2031: if (!grep/^$oldclone$/,@allowclone) {
2032: ($uname,$udom) = split/:/,$oldclone;
2033: if ($uname && $udom) {
2034: unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
2035: my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');
2036: my %newclonecrs = ();
2037: if ($currclonecrs{'cloneable'} =~ /\Q$clone_crs\E/) {
2038: if ($currclonecrs{'cloneable'} =~ /,/) {
2039: my @currclonecrs = split/,/,$currclonecrs{'cloneable'};
2040: foreach (@currclonecrs) {
2041: unless ($_ eq $clone_crs) {
2042: $newclonecrs{'cloneable'} .= $_.',';
2043: }
2044: }
2045: $newclonecrs{'cloneable'} =~ s/,$//;
2046: } else {
2047: $newclonecrs{'cloneable'} = '';
2048: }
2049: &Apache::lonnet::put('environment',\%newclonecrs,$udom,$uname);
2050: }
2051: }
2052: }
2053: }
2054: }
2055: }
2056: }
2057:
1.193 albertel 2058:
2059: ##################################################
2060: ##################################################
2061:
2062: =pod
2063:
2064: =item * header
2065:
2066: Output html header for page
2067:
2068: =cut
2069:
2070: ##################################################
2071: ##################################################
2072: sub header {
2073: my $html=&Apache::lonxml::xmlbegin();
2074: my $bodytag=&Apache::loncommon::bodytag('Parameter Manager');
2075: my $title = &mt('LON-CAPA Parameter Manager');
2076: return(<<ENDHEAD);
2077: $html
2078: <head>
2079: <title>$title</title>
2080: </head>
2081: $bodytag
2082: ENDHEAD
2083: }
2084: ##################################################
2085: ##################################################
2086: sub print_main_menu {
2087: my ($r,$parm_permission)=@_;
2088: #
2089: $r->print(<<ENDMAINFORMHEAD);
2090: <form method="post" enctype="multipart/form-data"
2091: action="/adm/parmset" name="studentform">
2092: ENDMAINFORMHEAD
2093: #
2094: my ($cdom,$cnum) = split/_/,$env{'request.course.id'};
2095: my @menu =
2096: (
2097: { text => 'Set Course Environment Parameters',
2098: help => 'Course_Setting_Parameters',
2099: action => 'crsenv',
2100: permission => $parm_permission,
2101: },
2102: { text => 'Set/Modify Course Assessment Parameters - Helper Mode',
2103: url => '/adm/helper/parameter.helper',
2104: permission => $parm_permission,
2105: },
2106: { text => 'Modify Course Assessment Parameters - Overview Mode',
2107: action => 'setoverview',
2108: permission => $parm_permission,
2109: },
2110: { text => 'Set/Modify Course Assessment Parameters - Table Mode',
2111: action => 'settable',
2112: permission => $parm_permission,
2113: },
2114: # { text => 'Set Parameter Default Preferences',
2115: # help => 'Course_View_Class_List',
2116: # action => 'setdefaults',
2117: # permission => $parm_permission,
2118: # },
2119: );
2120: my $menu_html = '';
2121: foreach my $menu_item (@menu) {
2122: next if (! $menu_item->{'permission'});
2123: $menu_html.='<p>';
2124: $menu_html.='<font size="+1">';
2125: if (exists($menu_item->{'url'})) {
2126: $menu_html.=qq{<a href="$menu_item->{'url'}">};
2127: } else {
2128: $menu_html.=
2129: qq{<a href="/adm/parmset?action=$menu_item->{'action'}">};
2130: }
2131: $menu_html.= &mt($menu_item->{'text'}).'</a></font>';
2132: if (exists($menu_item->{'help'})) {
2133: $menu_html.=
2134: &Apache::loncommon::help_open_topic($menu_item->{'help'});
2135: }
2136: $menu_html.='</p>'.$/;
2137: }
2138: $r->print($menu_html);
2139: return;
2140: }
2141:
2142:
2143:
2144:
1.178 raeburn 2145: ##################################################
2146: ##################################################
1.30 www 2147:
1.59 matthew 2148: =pod
2149:
1.83 bowersj2 2150: =item * handler
1.59 matthew 2151:
2152: Main handler. Calls &assessparms and &crsenv subroutines.
2153:
2154: =cut
2155: ##################################################
2156: ##################################################
1.85 bowersj2 2157: use Data::Dumper;
1.30 www 2158: sub handler {
1.43 albertel 2159: my $r=shift;
1.30 www 2160:
1.43 albertel 2161: if ($r->header_only) {
1.126 www 2162: &Apache::loncommon::content_type($r,'text/html');
1.43 albertel 2163: $r->send_http_header;
2164: return OK;
2165: }
1.193 albertel 2166: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.194 ! albertel 2167: ['action','state']);
1.131 www 2168:
2169: # ----------------------------------------------------------- Clear out garbage
2170:
1.132 albertel 2171: %courseopt=();
2172: %useropt=();
2173: %parmhash=();
1.131 www 2174:
1.132 albertel 2175: @ids=();
2176: %symbp=();
2177: %mapp=();
2178: %typep=();
2179: %keyp=();
1.131 www 2180:
1.132 albertel 2181: %maptitles=();
1.83 bowersj2 2182:
1.193 albertel 2183: &Apache::lonhtmlcommon::clear_breadcrumbs();
1.194 ! albertel 2184: &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
! 2185: text=>"Parameter Manager",
! 2186: faq=>9,
! 2187: bug=>'Instructor Interface'});
1.30 www 2188: # ----------------------------------------------------- Needs to be in a course
1.194 ! albertel 2189: my $parm_permission =
! 2190: (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) ||
1.190 albertel 2191: &Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.
1.193 albertel 2192: $env{'request.course.sec'}));
1.194 ! albertel 2193: if ($env{'request.course.id'} && $parm_permission) {
1.193 albertel 2194:
2195: # Start Page
1.126 www 2196: &Apache::loncommon::content_type($r,'text/html');
1.106 www 2197: $r->send_http_header;
1.30 www 2198:
1.193 albertel 2199: #
2200: # Main switch on form.action and form.state, as appropriate
2201: #
2202: # Check first if coming from someone else headed directly for
2203: # the table mode
2204: if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
2205: && (!$env{'form.dis'})) || ($env{'form.symb'})) {
2206: &assessparms($r);
2207:
2208: } elsif (! exists($env{'form.action'})) {
2209: $r->print(&header());
1.194 ! albertel 2210: $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
! 2211: 'Parameter Manager'));
1.193 albertel 2212: &print_main_menu($r,$parm_permission);
2213: } elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {
1.194 ! albertel 2214: &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
! 2215: text=>"Course Environment"});
! 2216: $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
! 2217: 'Edit Course Environment'));
1.193 albertel 2218: &crsenv($r);
2219: } elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {
1.194 ! albertel 2220: &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
! 2221: text=>"Overview Mode"});
1.121 www 2222: &overview($r);
1.193 albertel 2223: } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
1.194 ! albertel 2224: &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
! 2225: text=>"Table Mode"});
1.121 www 2226: &assessparms($r);
1.193 albertel 2227: }
2228:
1.43 albertel 2229: } else {
1.1 www 2230: # ----------------------------- Not in a course, or not allowed to modify parms
1.190 albertel 2231: $env{'user.error.msg'}=
1.43 albertel 2232: "/adm/parmset:opa:0:0:Cannot modify assessment parameters";
2233: return HTTP_NOT_ACCEPTABLE;
2234: }
2235: return OK;
1.1 www 2236: }
2237:
2238: 1;
2239: __END__
2240:
1.59 matthew 2241: =pod
1.38 harris41 2242:
2243: =back
2244:
2245: =cut
1.1 www 2246:
2247:
2248:
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