Annotation of loncom/interface/lonparmset.pm, revision 1.171

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>