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

1.1       www         1: # The LearningOnline Network with CAPA
                      2: # Handler to set parameters for assessments
                      3: #
1.165   ! albertel    4: # $Id: lonparmset.pm,v 1.164 2004/06/28 15:02:31 sakharuk 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=
                    310: 	&Apache::loncommon::help_open_topic("Course_Setting_Parameters").
                    311: 	&Apache::loncommon::help_open_faq(10).
                    312: 	&Apache::loncommon::help_open_bug('Instructor Interface');
1.146     www       313:     my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters");
1.44      albertel  314:     $r->print(<<ENDHEAD);
                    315: <html>
                    316: <head>
                    317: <title>LON-CAPA Course Parameters</title>
                    318: <script>
                    319: 
                    320:     function pclose() {
                    321:         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                    322:                  "height=350,width=350,scrollbars=no,menubar=no");
                    323:         parmwin.close();
                    324:     }
                    325: 
1.88      matthew   326:     $pjump_def
1.44      albertel  327: 
                    328:     function psub() {
                    329:         pclose();
                    330:         if (document.parmform.pres_marker.value!='') {
                    331:             document.parmform.action+='#'+document.parmform.pres_marker.value;
                    332:             var typedef=new Array();
                    333:             typedef=document.parmform.pres_type.value.split('_');
                    334:            if (document.parmform.pres_type.value!='') {
                    335:             if (typedef[0]=='date') {
                    336:                 eval('document.parmform.recent_'+
                    337:                      document.parmform.pres_type.value+
                    338: 		     '.value=document.parmform.pres_value.value;');
                    339:             } else {
                    340:                 eval('document.parmform.recent_'+typedef[0]+
                    341: 		     '.value=document.parmform.pres_value.value;');
                    342:             }
                    343: 	   }
                    344:             document.parmform.submit();
                    345:         } else {
                    346:             document.parmform.pres_value.value='';
                    347:             document.parmform.pres_marker.value='';
                    348:         }
                    349:     }
                    350: 
1.57      albertel  351:     function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
                    352:         var options = "width=" + w + ",height=" + h + ",";
                    353:         options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
                    354:         options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
                    355:         var newWin = window.open(url, wdwName, options);
                    356:         newWin.focus();
                    357:     }
1.44      albertel  358: </script>
1.81      www       359: $selscript
1.44      albertel  360: </head>
1.64      www       361: $bodytag
1.156     sakharuk  362: 
1.137     albertel  363: ENDHEAD
1.91      bowersj2  364: 
1.137     albertel  365:     unless ($trimheader) {$r->print(<<ENDHEAD2);
1.44      albertel  366: <form method="post" action="/adm/parmset" name="envform">
1.133     www       367: <h4>$lt{'cep'}</h4>
                    368: <input type="submit" name="crsenv" value="$lt{'scep'}" />
1.120     www       369: </form>
                    370: <hr />
1.146     www       371: $assessparmhelp
1.120     www       372: <form method="post" action="/adm/helper/parameter.helper" name="helpform">
1.133     www       373: <h4>$lt{'caphm'}</h4>
                    374: <input type="submit" value="$lt{'smcap'}" />
1.120     www       375: </form>
                    376: <hr />
                    377: <form method="post" action="/adm/parmset" name="overview">
1.133     www       378: <h4>$lt{'capom'}</h4>
                    379: <input type="submit" name="overview" value="$lt{'mcap'}" />
1.44      albertel  380: </form>
1.101     www       381: <hr />
1.137     albertel  382: ENDHEAD2
                    383: }
                    384:     $r->print(<<ENDHEAD3);
1.44      albertel  385: <form method="post" action="/adm/parmset" name="parmform">
1.133     www       386: <h4>$lt{'captm'}</h4>
1.137     albertel  387: ENDHEAD3
1.99      albertel  388: 
                    389:     if (!$have_assesments) {
1.133     www       390: 	$r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');	
1.99      albertel  391:     } else {
                    392: 	$r->print(<<ENDHEAD);
1.44      albertel  393: <b>
1.133     www       394: $lt{'sg'}:
1.44      albertel  395: <input type="text" value="$csec" size="6" name="csec">
                    396: <br>
1.133     www       397: $lt{'fu'} 
1.44      albertel  398: <input type="text" value="$uname" size="12" name="uname">
1.133     www       399: $lt{'oi'}
1.44      albertel  400: <input type="text" value="$id" size="12" name="id"> 
1.133     www       401: $lt{'ad'}
1.81      www       402: $chooseopt
1.44      albertel  403: </b>
                    404: <input type="hidden" value='' name="pres_value">
                    405: <input type="hidden" value='' name="pres_type">
                    406: <input type="hidden" value='' name="pres_marker">
                    407: ENDHEAD
1.99      albertel  408:     }
1.44      albertel  409: }
                    410: 
                    411: sub print_row {
1.66      www       412:     my ($r,$which,$part,$name,$rid,$default,$defaulttype,$display,$defbgone,
1.57      albertel  413: 	$defbgtwo,$parmlev)=@_;
1.66      www       414: # get the values for the parameter in cascading order
                    415: # empty levels will remain empty
1.44      albertel  416:     my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},
                    417: 				  $rid,$$default{$which});
1.66      www       418: # get the type for the parameters
                    419: # problem: these may not be set for all levels
                    420:     my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.
                    421:                                           $$name{$which}.'.type',
                    422: 				  $rid,$$defaulttype{$which});
                    423: # cascade down manually
                    424:     my $cascadetype=$defaulttype;
                    425:     for (my $i=$#typeoutpar;$i>0;$i--) {
                    426: 	 if ($typeoutpar[$i]) { 
                    427:             $cascadetype=$typeoutpar[$i];
                    428: 	} else {
                    429:             $typeoutpar[$i]=$cascadetype;
                    430:         }
                    431:     }
                    432:  
1.57      albertel  433:     my $parm=$$display{$which};
                    434: 
                    435:     if ($parmlev eq 'full' || $parmlev eq 'brief') {
                    436:         $r->print('<td bgcolor='.$defbgtwo.' align="center">'
                    437:                   .$$part{$which}.'</td>');
                    438:     } else {    
                    439:         $parm=~s|\[.*\]\s||g;
                    440:     }
                    441: 
1.159     albertel  442:     $r->print('<td bgcolor='.$defbgone.'>'.$parm.'</td>');
1.57      albertel  443:    
1.44      albertel  444:     my $thismarker=$which;
                    445:     $thismarker=~s/^parameter\_//;
                    446:     my $mprefix=$rid.'&'.$thismarker.'&';
                    447: 
1.57      albertel  448:     if ($parmlev eq 'general') {
                    449: 
                    450:         if ($uname) {
1.66      www       451:             &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  452:         } elsif ($csec) {
1.66      www       453:             &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display); 
1.57      albertel  454:         } else {
1.66      www       455:             &print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display); 
1.57      albertel  456:         }
                    457:     } elsif ($parmlev eq 'map') {
                    458: 
                    459:         if ($uname) {
1.66      www       460:             &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  461:         } elsif ($csec) {
1.66      www       462:             &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  463:         } else {
1.66      www       464:             &print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  465:         }
                    466:     } else {
                    467: 
1.66      www       468:         &print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  469: 
                    470:         if ($parmlev eq 'brief') {
                    471: 
1.66      www       472:            &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  473: 
                    474:            if ($csec) {
1.66      www       475:                &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  476:            }
                    477:            if ($uname) {
1.66      www       478:                &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  479:            }
                    480:         } else {
                    481: 
1.66      www       482:            &print_td($r,10,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    483:            &print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    484:            &print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    485:            &print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  486: 
                    487:            if ($csec) {
1.66      www       488:                &print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    489:                &print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    490:                &print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  491:            }
                    492:            if ($uname) {
1.66      www       493:                &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    494:                &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
                    495:                &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
1.57      albertel  496:            }
                    497:         } # end of $brief if/else
                    498:     } # end of $parmlev if/else
                    499: 
1.136     albertel  500:     $r->print('<td bgcolor=#CCCCFF align="center">'.
                    501:                   &valout($outpar[$result],$typeoutpar[$result]).'</td>');
                    502: 
1.57      albertel  503:     if ($parmlev eq 'full' || $parmlev eq 'brief') {
1.136     albertel  504:         my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
1.57      albertel  505:                                         '.'.$$name{$which},$symbp{$rid});
1.136     albertel  506: 
1.70      albertel  507: # this doesn't seem to work, and I don't think is correct
                    508: #    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
                    509: #                                      '.'.$$name{$which}.'.type',$symbp{$rid});
                    510: # this seems to work
1.136     albertel  511:         my $sessionvaltype=$typeoutpar[$result];
                    512:         if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
                    513:         $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
1.66      www       514:                   &valout($sessionval,$sessionvaltype).'&nbsp;'.
1.57      albertel  515:                   '</font></td>');
1.136     albertel  516:     }
1.44      albertel  517:     $r->print('</tr>');
1.57      albertel  518:     $r->print("\n");
1.44      albertel  519: }
1.59      matthew   520: 
1.44      albertel  521: sub print_td {
1.66      www       522:     my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
1.57      albertel  523:     $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
1.114     www       524:               ' align="center">');
                    525:     if ($which<10) {
                    526: 	$r->print(&plink($$typeoutpar[$which],
                    527: 			 $$display{$value},$$outpar[$which],
                    528: 			 $mprefix."$which",'parmform.pres','psub'));
                    529:     } else {
                    530: 	$r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
                    531:     }
                    532:     $r->print('</td>'."\n");
1.57      albertel  533: }
                    534: 
1.63      bowersj2  535: =pod
                    536: 
                    537: =item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.
                    538: 
                    539: Input: See list below:
                    540: 
                    541: =over 4
                    542: 
                    543: =item B<ids>: An array that will contain all of the ids in the course.
                    544: 
                    545: =item B<typep>: hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.
                    546: 
                    547: =item B<keyp>: hash, id->key list, will contain a comma seperated list of the meta-data keys available for the given id
                    548: 
                    549: =item B<allparms>: hash, name of parameter->display value (what is the display value?)
                    550: 
                    551: =item B<allparts>: hash, part identification->text representation of part, where the text representation is "[Part $part]"
                    552: 
                    553: =item B<allkeys>: hash, full key to part->display value (what's display value?)
                    554: 
                    555: =item B<allmaps>: hash, ???
                    556: 
                    557: =item B<fcat>: ???
                    558: 
                    559: =item B<defp>: hash, ???
                    560: 
                    561: =item B<mapp>: ??
                    562: 
                    563: =item B<symbp>: hash, id->full sym?
                    564: 
                    565: =back
                    566: 
                    567: =cut
                    568: 
                    569: sub extractResourceInformation {
                    570:     my $bighash = shift;
                    571:     my $ids = shift;
                    572:     my $typep = shift;
                    573:     my $keyp = shift;
                    574:     my $allparms = shift;
                    575:     my $allparts = shift;
                    576:     my $allkeys = shift;
                    577:     my $allmaps = shift;
                    578:     my $fcat = shift;
                    579:     my $defp = shift;
                    580:     my $mapp = shift;
                    581:     my $symbp = shift;
1.82      www       582:     my $maptitles=shift;
1.63      bowersj2  583: 
                    584:     foreach (keys %$bighash) {
                    585: 	if ($_=~/^src\_(\d+)\.(\d+)$/) {
                    586: 	    my $mapid=$1;
                    587: 	    my $resid=$2;
                    588: 	    my $id=$mapid.'.'.$resid;
                    589: 	    my $srcf=$$bighash{$_};
1.152     albertel  590: #	    if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
                    591: 	    if (1) {
1.63      bowersj2  592: 		$$ids[$#$ids+1]=$id;
                    593: 		$$typep{$id}=$1;
                    594: 		$$keyp{$id}='';
1.65      albertel  595: 		foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
1.63      bowersj2  596: 		  if ($_=~/^parameter\_(.*)/) {
                    597:                     my $key=$_;
                    598:                     my $allkey=$1;
                    599:                     $allkey=~s/\_/\./g;
                    600:                     my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
                    601:                     my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
                    602:                     my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
                    603:                     my $parmdis = $display;
                    604:                     $parmdis =~ s|(\[Part.*$)||g;
                    605:                     my $partkey = $part;
                    606:                     $partkey =~ tr|_|.|;
                    607:                     $$allparms{$name} = $parmdis;
                    608:                     $$allparts{$part} = "[Part $part]";
                    609:                     $$allkeys{$allkey}=$display;
                    610:                     if ($allkey eq $fcat) {
                    611: 		        $$defp{$id}= &Apache::lonnet::metadata($srcf,$key);
                    612: 		    }
                    613: 		    if ($$keyp{$id}) {
                    614: 		        $$keyp{$id}.=','.$key;
                    615: 		    } else {
                    616: 		        $$keyp{$id}=$key;
                    617: 		    }
                    618: 		  }
                    619: 		}
                    620: 		$$mapp{$id}=
                    621: 		    &Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});
                    622:                 $$mapp{$mapid}=$$mapp{$id};
                    623: 		$$allmaps{$mapid}=$$mapp{$id};
1.82      www       624: 		$$maptitles{$mapid}=
                    625:  $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};
                    626: 		$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
1.63      bowersj2  627: 		$$symbp{$id}=$$mapp{$id}.
                    628: 			'___'.$resid.'___'.
                    629: 			    &Apache::lonnet::declutter($srcf);
                    630:                 $$symbp{$mapid}=$$mapp{$id}.'___(all)';
                    631: 	    }
                    632: 	}
                    633:     }
                    634: }
                    635: 
1.59      matthew   636: ##################################################
                    637: ##################################################
                    638: 
                    639: =pod
                    640: 
                    641: =item assessparms
                    642: 
                    643: Show assessment data and parameters.  This is a large routine that should
                    644: be simplified and shortened... someday.
                    645: 
                    646: Inputs: $r
                    647: 
                    648: Returns: nothing
                    649: 
1.63      bowersj2  650: Variables used (guessed by Jeremy):
                    651: 
                    652: =over 4
                    653: 
                    654: =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.
                    655: 
                    656: =item B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?
                    657: 
                    658: =item B<allmaps>:
                    659: 
                    660: =back
                    661: 
1.59      matthew   662: =cut
                    663: 
                    664: ##################################################
                    665: ##################################################
1.30      www       666: sub assessparms {
1.1       www       667: 
1.43      albertel  668:     my $r=shift;
1.2       www       669: # -------------------------------------------------------- Variable declaration
1.129     www       670:     my %allkeys=();
                    671:     my %allmaps=();
                    672:     my %alllevs=();
1.57      albertel  673: 
                    674:     $alllevs{'Resource Level'}='full';
                    675: #    $alllevs{'Resource Level [BRIEF]'}='brief';
                    676:     $alllevs{'Map Level'}='map';
                    677:     $alllevs{'Course Level'}='general';
                    678: 
                    679:     my %allparms;
                    680:     my %allparts;
                    681: 
1.43      albertel  682:     my %defp;
                    683:     %courseopt=();
                    684:     %useropt=();
1.44      albertel  685:     my %bighash=();
1.43      albertel  686: 
                    687:     @ids=();
                    688:     %symbp=();
                    689:     %typep=();
                    690: 
                    691:     my $message='';
                    692: 
                    693:     $csec=$ENV{'form.csec'};
                    694:     $udom=$ENV{'form.udom'};
                    695:     unless ($udom) { $udom=$r->dir_config('lonDefDomain'); }
                    696: 
1.134     albertel  697:     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
1.43      albertel  698:     my $pschp=$ENV{'form.pschp'};
1.134     albertel  699:     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
1.76      www       700:     if (!@psprt) { $psprt[0]='0'; }
1.57      albertel  701:     my $showoptions=$ENV{'form.showoptions'};
                    702: 
1.43      albertel  703:     my $pssymb='';
1.57      albertel  704:     my $parmlev='';
1.137     albertel  705:     my $trimheader='';
1.57      albertel  706:     my $prevvisit=$ENV{'form.prevvisit'};
                    707: 
                    708: #    unless ($parmlev==$ENV{'form.parmlev'}) {
                    709: #        $parmlev = 'full';
                    710: #    }
                    711:  
                    712:     unless ($ENV{'form.parmlev'}) {
                    713:         $parmlev = 'map';
                    714:     } else {
                    715:         $parmlev = $ENV{'form.parmlev'};
                    716:     }
1.26      www       717: 
1.29      www       718: # ----------------------------------------------- Was this started from grades?
                    719: 
1.43      albertel  720:     if (($ENV{'form.command'} eq 'set') && ($ENV{'form.url'})
                    721: 	&& (!$ENV{'form.dis'})) {
                    722: 	my $url=$ENV{'form.url'};
                    723: 	$url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
                    724: 	$pssymb=&Apache::lonnet::symbread($url);
1.92      albertel  725: 	if (!@pscat) { @pscat=('all'); }
1.43      albertel  726: 	$pschp='';
1.57      albertel  727:         $parmlev = 'full';
1.137     albertel  728:         $trimheader='yes';
1.43      albertel  729:     } elsif ($ENV{'form.symb'}) {
                    730: 	$pssymb=$ENV{'form.symb'};
1.92      albertel  731: 	if (!@pscat) { @pscat=('all'); }
1.43      albertel  732: 	$pschp='';
1.57      albertel  733:         $parmlev = 'full';
1.137     albertel  734:         $trimheader='yes';
1.43      albertel  735:     } else {
                    736: 	$ENV{'form.url'}='';
                    737:     }
                    738: 
                    739:     my $id=$ENV{'form.id'};
                    740:     if (($id) && ($udom)) {
                    741: 	$uname=(&Apache::lonnet::idget($udom,$id))[1];
                    742: 	if ($uname) {
                    743: 	    $id='';
                    744: 	} else {
                    745: 	    $message=
1.133     www       746: 		"<font color=red>".&mt("Unknown ID")." '$id' ".
                    747: 		&mt('at domain')." '$udom'</font>";
1.43      albertel  748: 	}
                    749:     } else {
                    750: 	$uname=$ENV{'form.uname'};
                    751:     }
                    752:     unless ($udom) { $uname=''; }
                    753:     $uhome='';
                    754:     if ($uname) {
                    755: 	$uhome=&Apache::lonnet::homeserver($uname,$udom);
                    756:         if ($uhome eq 'no_host') {
                    757: 	    $message=
1.133     www       758: 		"<font color=red>".&mt("Unknown user")." '$uname' ".
                    759: 		&mt("at domain")." '$udom'</font>";
1.43      albertel  760: 	    $uname='';
1.12      www       761:         } else {
1.103     albertel  762: 	    $csec=&Apache::lonnet::getsection($udom,$uname,
                    763: 					      $ENV{'request.course.id'});
1.43      albertel  764: 	    if ($csec eq '-1') {
                    765: 		$message="<font color=red>".
1.133     www       766: 		    &mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
                    767: 		    &mt("not in this course")."</font>";
1.43      albertel  768: 		$uname='';
                    769: 		$csec=$ENV{'form.csec'};
                    770: 	    } else {
                    771: 		my %name=&Apache::lonnet::userenvironment($udom,$uname,
                    772: 		      ('firstname','middlename','lastname','generation','id'));
1.133     www       773: 		$message="\n<p>\n".&mt("Full Name").": ".
1.43      albertel  774: 		    $name{'firstname'}.' '.$name{'middlename'}.' '
                    775: 			.$name{'lastname'}.' '.$name{'generation'}.
1.133     www       776: 			    "<br>\n".&mt('ID').": ".$name{'id'}.'<p>';
1.43      albertel  777: 	    }
1.12      www       778:         }
1.43      albertel  779:     }
1.2       www       780: 
1.43      albertel  781:     unless ($csec) { $csec=''; }
1.12      www       782: 
1.44      albertel  783:     my $fcat=$ENV{'form.fcat'};
1.43      albertel  784:     unless ($fcat) { $fcat=''; }
1.2       www       785: 
                    786: # ------------------------------------------------------------------- Tie hashs
1.44      albertel  787:     if (!(tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
1.58      albertel  788: 	      &GDBM_READER(),0640))) {
1.44      albertel  789: 	$r->print("Unable to access course data. (File $ENV{'request.course.fn'}.db not tieable)");
                    790: 	return ;
                    791:     }
                    792:     if (!(tie(%parmhash,'GDBM_File',
1.58      albertel  793: 	      $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640))) {
1.44      albertel  794: 	$r->print("Unable to access parameter data. (File $ENV{'request.course.fn'}_parms.db not tieable)");
                    795: 	return ;
                    796:     }
1.63      bowersj2  797: 
1.14      www       798: # --------------------------------------------------------- Get all assessments
1.82      www       799:     extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles);
1.63      bowersj2  800: 
1.57      albertel  801:     $mapp{'0.0'} = '';
                    802:     $symbp{'0.0'} = '';
1.99      albertel  803: 
1.14      www       804: # ---------------------------------------------------------- Anything to store?
1.44      albertel  805:     if ($ENV{'form.pres_marker'}) {
                    806: 	my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
                    807: 	$spnam=~s/\_([^\_]+)$/\.$1/;
1.15      www       808: # ---------------------------------------------------------- Construct prefixes
1.14      www       809: 
1.44      albertel  810: 	my $symbparm=$symbp{$sresid}.'.'.$spnam;
                    811: 	my $mapparm=$mapp{$sresid}.'___(all).'.$spnam;
                    812: 	
                    813: 	my $seclevel=$ENV{'request.course.id'}.'.['.$csec.'].'.$spnam;
                    814: 	my $seclevelr=$ENV{'request.course.id'}.'.['.$csec.'].'.$symbparm;
                    815: 	my $seclevelm=$ENV{'request.course.id'}.'.['.$csec.'].'.$mapparm;
                    816: 	
                    817: 	my $courselevel=$ENV{'request.course.id'}.'.'.$spnam;
                    818: 	my $courselevelr=$ENV{'request.course.id'}.'.'.$symbparm;
                    819: 	my $courselevelm=$ENV{'request.course.id'}.'.'.$mapparm;
                    820: 	
                    821: 	my $storeunder='';
                    822: 	if (($snum==9) || ($snum==3)) { $storeunder=$courselevel; }
                    823: 	if (($snum==8) || ($snum==2)) { $storeunder=$courselevelm; }
                    824: 	if (($snum==7) || ($snum==1)) { $storeunder=$courselevelr; }
                    825: 	if ($snum==6) { $storeunder=$seclevel; }
                    826: 	if ($snum==5) { $storeunder=$seclevelm; }
                    827: 	if ($snum==4) { $storeunder=$seclevelr; }
                    828: 	
1.79      albertel  829: 	my $delete;
                    830: 	if ($ENV{'form.pres_value'} eq '') { $delete=1;}
1.66      www       831:         my %storecontent = ($storeunder         => $ENV{'form.pres_value'},
                    832:                             $storeunder.'.type' => $ENV{'form.pres_type'});
1.44      albertel  833: 	my $reply='';
                    834: 	if ($snum>3) {
1.14      www       835: # ---------------------------------------------------------------- Store Course
1.24      www       836: #
                    837: # Expire sheets
1.44      albertel  838: 	    &Apache::lonnet::expirespread('','','studentcalc');
                    839: 	    if (($snum==7) || ($snum==4)) {
                    840: 		&Apache::lonnet::expirespread('','','assesscalc',$symbp{$sresid});
                    841: 	    } elsif (($snum==8) || ($snum==5)) {
                    842: 		&Apache::lonnet::expirespread('','','assesscalc',$mapp{$sresid});
                    843: 	    } else {
                    844: 		&Apache::lonnet::expirespread('','','assesscalc');
                    845: 	    }
1.24      www       846: # Store parameter
1.79      albertel  847: 	    if ($delete) {
                    848: 		$reply=&Apache::lonnet::del
                    849: 		    ('resourcedata',[keys(%storecontent)],
                    850: 		     $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
                    851: 		     $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
                    852: 	    } else {
                    853: 		$reply=&Apache::lonnet::cput
                    854: 		    ('resourcedata',\%storecontent,
                    855: 		     $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
                    856: 		     $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
                    857: 	    }
1.44      albertel  858: 	} else {
1.14      www       859: # ------------------------------------------------------------------ Store User
1.24      www       860: #
                    861: # Expire sheets
1.44      albertel  862: 	    &Apache::lonnet::expirespread($uname,$udom,'studentcalc');
                    863: 	    if ($snum==1) {
                    864: 		&Apache::lonnet::expirespread
                    865: 		    ($uname,$udom,'assesscalc',$symbp{$sresid});
                    866: 	    } elsif ($snum==2) {
                    867: 		&Apache::lonnet::expirespread
                    868: 		    ($uname,$udom,'assesscalc',$mapp{$sresid});
                    869: 	    } else {
                    870: 		&Apache::lonnet::expirespread($uname,$udom,'assesscalc');
                    871: 	    }
1.24      www       872: # Store parameter
1.79      albertel  873: 	    if ($delete) {
                    874: 		$reply=&Apache::lonnet::del
                    875: 		    ('resourcedata',[keys(%storecontent)],$udom,$uname);
                    876: 	    } else {
                    877: 		$reply=&Apache::lonnet::cput
                    878: 		    ('resourcedata',\%storecontent,$udom,$uname);
                    879: 	    }
1.44      albertel  880: 	}
1.15      www       881: 
1.44      albertel  882: 	if ($reply=~/^error\:(.*)/) {
                    883: 	    $message.="<font color=red>Write Error: $1</font>";
                    884: 	}
1.68      www       885: # ---------------------------------------------------------------- Done storing
1.130     www       886: 	$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       887:     }
1.67      www       888: # --------------------------------------------- Devalidate cache for this child
1.109     albertel  889:     &Apache::lonnet::devalidatecourseresdata(
1.67      www       890:                  $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
                    891:                  $ENV{'course.'.$ENV{'request.course.id'}.'.domain'});
1.109     albertel  892:     &Apache::lonnet::clear_EXT_cache_status();
1.2       www       893: # -------------------------------------------------------------- Get coursedata
1.45      matthew   894:     %courseopt = &Apache::lonnet::dump
                    895:         ('resourcedata',
                    896:          $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
                    897:          $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
1.44      albertel  898: # --------------------------------------------------- Get userdata (if present)
                    899:     if ($uname) {
1.45      matthew   900:         %useropt=&Apache::lonnet::dump('resourcedata',$udom,$uname);
1.44      albertel  901:     }
1.14      www       902: 
1.2       www       903: # ------------------------------------------------------------------- Sort this
1.17      www       904: 
1.44      albertel  905:     @ids=sort  {
                    906: 	if ($fcat eq '') {
                    907: 	    $a<=>$b;
                    908: 	} else {
                    909: 	    my ($result,@outpar)=&parmval($fcat,$a,$defp{$a});
                    910: 	    my $aparm=$outpar[$result];
                    911: 	    ($result,@outpar)=&parmval($fcat,$b,$defp{$b});
                    912: 	    my $bparm=$outpar[$result];
                    913: 	    1*$aparm<=>1*$bparm;
                    914: 	}
                    915:     } @ids;
1.57      albertel  916: #----------------------------------------------- if all selected, fill in array
                    917:     if ($pscat[0] eq "all" || !@pscat) {@pscat = (keys %allparms);}
                    918:     if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}
1.2       www       919: # ------------------------------------------------------------------ Start page
1.63      bowersj2  920: 
1.99      albertel  921:     my $have_assesments=1;
                    922:     if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
                    923: 
1.137     albertel  924:     &startpage($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader);
1.99      albertel  925: 
1.112     albertel  926:     if (!$have_assesments) {
                    927: 	untie(%bighash);
                    928: 	untie(%parmhash);
                    929: 	return '';
                    930:     }
1.44      albertel  931: #    if ($ENV{'form.url'}) {
                    932: #	$r->print('<input type="hidden" value="'.$ENV{'form.url'}.
                    933: #		  '" name="url"><input type="hidden" name="command" value="set">');
                    934: #    }
1.57      albertel  935:     $r->print('<input type="hidden" value="true" name="prevvisit">');
                    936: 
1.44      albertel  937:     foreach ('tolerance','date_default','date_start','date_end',
                    938: 	     'date_interval','int','float','string') {
                    939: 	$r->print('<input type="hidden" value="'.
                    940: 		  $ENV{'form.recent_'.$_}.'" name="recent_'.$_.'">');
                    941:     }
                    942: 
1.57      albertel  943:     $r->print('<h2>'.$message.'</h2><table>');
                    944:                         
1.130     www       945:     my $submitmessage = &mt('Update Section or Specific User');
1.44      albertel  946:     if (!$pssymb) {
1.160     www       947:         $r->print('<tr><td>'.&mt('Select Parameter Level').
                    948:        &Apache::loncommon::help_open_topic('Course_Parameter_Levels').
                    949: 		  '</td><td colspan="2">');
1.57      albertel  950:         $r->print('<select name="parmlev">');
                    951:         foreach (reverse sort keys %alllevs) {
                    952:             $r->print('<option value="'.$alllevs{$_}.'"');
                    953:             if ($parmlev eq $alllevs{$_}) {
                    954:                $r->print(' selected'); 
                    955:             }
                    956:             $r->print('>'.$_.'</option>');
                    957:         }
                    958:         $r->print("</select></td>\n");
                    959: 
1.101     www       960:         $r->print('</tr>');
1.128     albertel  961: 	if ($parmlev ne 'general') {
1.130     www       962: 	    $r->print('<tr><td>'.&mt('Select Enclosing Map or Folder').'</td>');
1.128     albertel  963: 	    $r->print('<td colspan="2"><select name="pschp">');
1.130     www       964: 	    $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
1.128     albertel  965: 	    foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {
                    966: 		$r->print('<option value="'.$_.'"');
                    967: 		if (($pschp eq $_)) { $r->print(' selected'); }
                    968: 		$r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?'  ['.$allmaps{$_}.']':'').'</option>');
                    969: 	    }
                    970: 	    $r->print("</select></td></tr>\n");
                    971: 	}
1.44      albertel  972:     } else {
1.125     www       973:         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
1.130     www       974:         $r->print("<tr><td>".&mt('Specific Resource')."</td><td>$resource</td>");
1.57      albertel  975:         $r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');
                    976:         $r->print('</tr>');
                    977:         $r->print('<input type="hidden" value="'.$pssymb.'" name="symb">');
                    978:     }
                    979: 
                    980:     $r->print('<tr><td colspan="3"><hr /><input type="checkbox"');
                    981:     if ($showoptions eq 'show') {$r->print(" checked ");}
1.130     www       982:     $r->print(' name="showoptions" value="show">'.&mt('Show More Options').'<hr /></td></tr>');
1.57      albertel  983: #    $r->print("<tr><td>Show: $showoptions</td></tr>");
                    984: #    $r->print("<tr><td>pscat: @pscat</td></tr>");
                    985: #    $r->print("<tr><td>psprt: @psprt</td></tr>");
                    986: #    $r->print("<tr><td>fcat:  $fcat</td></tr>");
                    987: 
                    988:     if ($showoptions eq 'show') {
                    989:         my $tempkey;
                    990: 
1.130     www       991:         $r->print('<tr><td colspan="3" align="center">'.&mt('Select Parameters to View').'</td></tr>');
1.57      albertel  992: 
                    993:         $r->print('<tr><td colspan="2"><table>');
                    994:         $r->print('<tr><td><input type="checkbox" name="pscat" value="all"');
                    995:         $r->print(' checked') unless (@pscat);
1.130     www       996:         $r->print('>'.&mt('All Parameters').'</td>');
1.57      albertel  997: 
                    998:         my $cnt=0;
                    999:         foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }
                   1000:                       keys %allparms ) {
                   1001:             ++$cnt;
                   1002:             $r->print('</tr><tr>') unless ($cnt%2);
                   1003:             $r->print('<td><input type="checkbox" name="pscat" ');
                   1004:             $r->print('value="'.$tempkey.'"');
                   1005:             if ($pscat[0] eq "all" || grep $_ eq $tempkey, @pscat) {
                   1006:                 $r->print(' checked');
                   1007:             }
                   1008:             $r->print('>'.$allparms{$tempkey}.'</td>');
                   1009:         }
                   1010:         $r->print('</tr></table>');
                   1011: 
                   1012: #        $r->print('<tr><td>Select Parts</td><td>');
                   1013:         $r->print('<td><select multiple name="psprt" size="5">');
                   1014:         $r->print('<option value="all"');
                   1015:         $r->print(' selected') unless (@psprt);
1.130     www      1016:         $r->print('>'.&mt('All Parts').'</option>');
1.76      www      1017:         my %temphash=();
                   1018:         foreach (@psprt) { $temphash{$_}=1; }
1.57      albertel 1019:         foreach $tempkey (sort keys %allparts) {
                   1020:             unless ($tempkey =~ /\./) {
                   1021:                 $r->print('<option value="'.$tempkey.'"');
1.76      www      1022:                 if ($psprt[0] eq "all" ||  $temphash{$tempkey}) {
1.57      albertel 1023:                     $r->print(' selected');
                   1024:                 }
                   1025:                 $r->print('>'.$allparts{$tempkey}.'</option>');
                   1026:             }
                   1027:         }
                   1028:         $r->print('</select></td></tr><tr><td colspan="3"><hr /></td></tr>');
                   1029: 
1.130     www      1030:         $r->print('<tr><td>'.&mt('Sort list by').'</td><td>');
1.57      albertel 1031:         $r->print('<select name="fcat">');
1.130     www      1032:         $r->print('<option value="">'.&mt('Enclosing Map or Folder').'</option>');
1.57      albertel 1033:         foreach (sort keys %allkeys) {
                   1034:             $r->print('<option value="'.$_.'"');
                   1035:             if ($fcat eq $_) { $r->print(' selected'); }
                   1036:             $r->print('>'.$allkeys{$_}.'</option>');
                   1037:         }
                   1038:         $r->print('</select></td>');
                   1039: 
                   1040:         $r->print('</tr><tr><td colspan="3"><hr /></td></tr>');
                   1041: 
                   1042:     } else { # hide options - include any necessary extras here
                   1043: 
                   1044:         $r->print('<input type="hidden" name="fcat" value="'.$fcat.'">'."\n");
                   1045: 
                   1046:         unless (@pscat) {
                   1047:           foreach (keys %allparms ) {
                   1048:             $r->print('<input type="hidden" name="pscat" value="'.$_.'">'."\n");
                   1049:           }
                   1050:         } else {
                   1051:           foreach (@pscat) {
                   1052:             $r->print('<input type="hidden" name="pscat" value="'.$_.'">'."\n");
                   1053:           }
                   1054:         }
                   1055: 
                   1056:         unless (@psprt) {
                   1057:           foreach (keys %allparts ) {
                   1058:             $r->print('<input type="hidden" name="psprt" value="'.$_.'">'."\n");
                   1059:           }
                   1060:         } else {
                   1061:           foreach (@psprt) {
                   1062:             $r->print('<input type="hidden" name="psprt" value="'.$_.'">'."\n");
                   1063:           }
                   1064:         }
                   1065: 
1.44      albertel 1066:     }
1.101     www      1067:     $r->print('</table><br />');
                   1068:     if (($prevvisit) || ($pschp) || ($pssymb)) {
1.130     www      1069:         $submitmessage = &mt("Update Course Assessment Parameter Display");
1.101     www      1070:     } else {
1.130     www      1071:         $submitmessage = &mt("Set/Modify Course Assessment Parameters");
1.101     www      1072:     }
                   1073:     $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');
1.57      albertel 1074: 
1.76      www      1075: #    my @temp_psprt;
                   1076: #    foreach my $t (@psprt) {
                   1077: #	push(@temp_psprt, grep {eval (/^$t\./ || ($_ == $t))} (keys %allparts));
                   1078: #    }
1.57      albertel 1079: 
1.76      www      1080: #    @psprt = @temp_psprt;
1.57      albertel 1081: 
                   1082:     my @temp_pscat;
                   1083:     map {
                   1084:         my $cat = $_;
                   1085:         push(@temp_pscat, map { $_.'.'.$cat } @psprt);
                   1086:     } @pscat;
                   1087: 
                   1088:     @pscat = @temp_pscat;
                   1089: 
                   1090:     if (($prevvisit) || ($pschp) || ($pssymb)) {
1.10      www      1091: # ----------------------------------------------------------------- Start Table
1.57      albertel 1092:         my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;
                   1093:         my $csuname=$ENV{'user.name'};
                   1094:         my $csudom=$ENV{'user.domain'};
                   1095: 
                   1096:         if ($parmlev eq 'full' || $parmlev eq 'brief') {
                   1097:            my $coursespan=$csec?8:5;
                   1098:            $r->print('<p><table border=2>');
                   1099:            $r->print('<tr><td colspan=5></td>');
1.130     www      1100:            $r->print('<th colspan='.($coursespan).'>'.&mt('Any User').'</th>');
1.57      albertel 1101:            if ($uname) {
                   1102:                $r->print("<th colspan=3 rowspan=2>");
1.130     www      1103:                $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom</th>");
1.57      albertel 1104:            }
1.133     www      1105: 	   my %lt=&Apache::lonlocal::texthash(
                   1106: 				  'pie'    => "Parameter in Effect",
                   1107: 				  'csv'    => "Current Session Value",
                   1108:                                   'at'     => 'at',
                   1109:                                   'rl'     => "Resource Level",
                   1110: 				  'ic'     => 'in Course',
                   1111: 				  'aut'    => "Assessment URL and Title",
1.143     albertel 1112: 				  'type'   => 'Type',
1.133     www      1113: 				  'emof'   => "Enclosing Map or Folder",
1.143     albertel 1114: 				  'part'   => 'Part',
1.133     www      1115:                                   'pn'     => 'Parameter Name',
                   1116: 				  'def'    => 'default',
                   1117: 				  'femof'  => 'from Enclosing Map or Folder',
                   1118: 				  'gen'    => 'general',
                   1119: 				  'foremf' => 'for Enclosing Map or Folder',
                   1120: 				  'fr'     => 'for Resource'
                   1121: 					      );
1.57      albertel 1122:            $r->print(<<ENDTABLETWO);
1.133     www      1123: <th rowspan=3>$lt{'pie'}</th>
                   1124: <th rowspan=3>$lt{'csv'}<br>($csuname $lt{'at'} $csudom)</th>
                   1125: </tr><tr><td colspan=5></td><th colspan=2>$lt{'rl'}</th>
                   1126: <th colspan=3>$lt{'ic'}</th>
1.10      www      1127: ENDTABLETWO
1.57      albertel 1128:            if ($csec) {
1.133     www      1129:                 $r->print("<th colspan=3>".
                   1130: 			  &mt("in Section/Group")." $csec</th>");
1.57      albertel 1131:            }
                   1132:            $r->print(<<ENDTABLEHEADFOUR);
1.133     www      1133: </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
                   1134: <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
                   1135: <th>$lt{'def'}</th><th>$lt{'femof'}</th>
                   1136: <th>$lt{'gen'}</th><th>$lt{'foremf'}</th><th>$lt{'fr'}</th>
1.10      www      1137: ENDTABLEHEADFOUR
1.57      albertel 1138: 
                   1139:            if ($csec) {
1.130     www      1140:                $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
1.57      albertel 1141:            }
                   1142: 
                   1143:            if ($uname) {
1.130     www      1144:                $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
1.57      albertel 1145:            }
                   1146: 
                   1147:            $r->print('</tr>');
                   1148: 
                   1149:            my $defbgone='';
                   1150:            my $defbgtwo='';
                   1151: 
                   1152:            foreach (@ids) {
                   1153: 
                   1154:                 my $rid=$_;
                   1155:                 my ($inmapid)=($rid=~/\.(\d+)$/);
                   1156: 
1.152     albertel 1157:                 if ((!$pssymb && 
                   1158: 		     (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))
                   1159: 		    ||
                   1160: 		    ($pssymb && $pssymb eq $symbp{$rid})) {
1.4       www      1161: # ------------------------------------------------------ Entry for one resource
1.57      albertel 1162:                     if ($defbgone eq '"E0E099"') {
                   1163:                         $defbgone='"E0E0DD"';
                   1164:                     } else {
                   1165:                         $defbgone='"E0E099"';
                   1166:                     }
                   1167:                     if ($defbgtwo eq '"FFFF99"') {
                   1168:                         $defbgtwo='"FFFFDD"';
                   1169:                     } else {
                   1170:                         $defbgtwo='"FFFF99"';
                   1171:                     }
                   1172:                     my $thistitle='';
                   1173:                     my %name=   ();
                   1174:                     undef %name;
                   1175:                     my %part=   ();
                   1176:                     my %display=();
                   1177:                     my %type=   ();
                   1178:                     my %default=();
                   1179:                     my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
                   1180: 
                   1181:                     foreach (split(/\,/,$keyp{$rid})) {
                   1182:                         my $tempkeyp = $_;
                   1183:                         if (grep $_ eq $tempkeyp, @catmarker) {
                   1184:                           $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
                   1185:                           $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
                   1186:                           $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
                   1187:                           unless ($display{$_}) { $display{$_}=''; }
                   1188:                           $display{$_}.=' ('.$name{$_}.')';
                   1189:                           $default{$_}=&Apache::lonnet::metadata($uri,$_);
                   1190:                           $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
                   1191:                           $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
                   1192:                         }
                   1193:                     }
                   1194:                     my $totalparms=scalar keys %name;
                   1195:                     if ($totalparms>0) {
                   1196:                         my $firstrow=1;
1.127     albertel 1197: 			my $title=$bighash{'title_'.$rid};
                   1198: 			$title=~s/\&colon;/:/g;
1.57      albertel 1199:                         $r->print('<tr><td bgcolor='.$defbgone.
                   1200:                              ' rowspan='.$totalparms.
                   1201:                              '><tt><font size=-1>'.
                   1202:                              join(' / ',split(/\//,$uri)).
                   1203:                              '</font></tt><p><b>'.
1.154     albertel 1204:                              "<a href=\"javascript:openWindow('".
                   1205: 				  &Apache::lonnet::clutter($uri).
1.57      albertel 1206:                              "', 'metadatafile', '450', '500', 'no', 'yes')\";".
1.127     albertel 1207:                              " TARGET=_self>$title");
1.57      albertel 1208: 
                   1209:                         if ($thistitle) {
                   1210:                             $r->print(' ('.$thistitle.')');
                   1211:                         }
                   1212:                         $r->print('</a></b></td>');
                   1213:                         $r->print('<td bgcolor='.$defbgtwo.
                   1214:                                       ' rowspan='.$totalparms.'>'.$typep{$rid}.
                   1215:                                       '</td>');
                   1216: 
                   1217:                         $r->print('<td bgcolor='.$defbgone.
                   1218:                                       ' rowspan='.$totalparms.
                   1219:                                       '><tt><font size=-1>');
                   1220: 
                   1221:                         $r->print(' / res / ');
                   1222:                         $r->print(join(' / ', split(/\//,$mapp{$rid})));
                   1223: 
                   1224:                         $r->print('</font></tt></td>');
                   1225: 
                   1226:                         foreach (sort keys %name) {
                   1227:                             unless ($firstrow) {
                   1228:                                 $r->print('<tr>');
                   1229:                             } else {
                   1230:                                 undef $firstrow;
                   1231:                             }
                   1232: 
                   1233:                             &print_row($r,$_,\%part,\%name,$rid,\%default,
                   1234:                                        \%type,\%display,$defbgone,$defbgtwo,
                   1235:                                        $parmlev);
                   1236:                         }
                   1237:                     }
                   1238:                 }
                   1239:             } # end foreach ids
1.43      albertel 1240: # -------------------------------------------------- End entry for one resource
1.57      albertel 1241:             $r->print('</table>');
                   1242:         } # end of  brief/full
                   1243: #--------------------------------------------------- Entry for parm level map
                   1244:         if ($parmlev eq 'map') {
                   1245:             my $defbgone = '"E0E099"';
                   1246:             my $defbgtwo = '"FFFF99"';
                   1247: 
                   1248:             my %maplist;
                   1249: 
                   1250:             if ($pschp eq 'all') {
                   1251:                 %maplist = %allmaps; 
                   1252:             } else {
                   1253:                 %maplist = ($pschp => $mapp{$pschp});
                   1254:             }
                   1255: 
                   1256: #-------------------------------------------- for each map, gather information
                   1257:             my $mapid;
1.60      albertel 1258: 	    foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
                   1259:                 my $maptitle = $maplist{$mapid};
1.57      albertel 1260: 
                   1261: #-----------------------  loop through ids and get all parameter types for map
                   1262: #-----------------------------------------          and associated information
                   1263:                 my %name = ();
                   1264:                 my %part = ();
                   1265:                 my %display = ();
                   1266:                 my %type = ();
                   1267:                 my %default = ();
                   1268:                 my $map = 0;
                   1269: 
                   1270: #		$r->print("Catmarker: @catmarker<br />\n");
                   1271:                
                   1272:                 foreach (@ids) {
                   1273:                   ($map)=(/([\d]*?)\./);
                   1274:                   my $rid = $_;
                   1275:         
                   1276: #                  $r->print("$mapid:$map:   $rid <br /> \n");
                   1277: 
                   1278:                   if ($map eq $mapid) {
                   1279:                     my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
                   1280: #                    $r->print("Keys: $keyp{$rid} <br />\n");
                   1281: 
                   1282: #--------------------------------------------------------------------
                   1283: # @catmarker contains list of all possible parameters including part #s
                   1284: # $fullkeyp contains the full part/id # for the extraction of proper parameters
                   1285: # $tempkeyp contains part 0 only (no ids - ie, subparts)
                   1286: # When storing information, store as part 0
                   1287: # When requesting information, request from full part
                   1288: #-------------------------------------------------------------------
                   1289:                     foreach (split(/\,/,$keyp{$rid})) {
                   1290:                       my $tempkeyp = $_;
                   1291:                       my $fullkeyp = $tempkeyp;
1.73      albertel 1292:                       $tempkeyp =~ s/_\w+_/_0_/;
1.57      albertel 1293:                       
                   1294:                       if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
                   1295:                         $part{$tempkeyp}="0";
                   1296:                         $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
                   1297:                         $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
                   1298:                         unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                   1299:                         $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
1.73      albertel 1300:                         $display{$tempkeyp} =~ s/_\w+_/_0_/;
1.57      albertel 1301:                         $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
                   1302:                         $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
                   1303:                       }
                   1304:                     } # end loop through keys
                   1305:                   }
                   1306:                 } # end loop through ids
                   1307:                                  
                   1308: #---------------------------------------------------- print header information
1.133     www      1309:                 my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
1.82      www      1310:                 my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
1.57      albertel 1311:                 $r->print(<<ENDMAPONE);
                   1312: <center><h4>
1.135     albertel 1313: Set Defaults for All Resources in $foldermap<br />
                   1314: <font color="red"><i>$showtitle</i></font><br />
1.57      albertel 1315: Specifically for
                   1316: ENDMAPONE
                   1317:                 if ($uname) {
                   1318:                     my %name=&Apache::lonnet::userenvironment($udom,$uname,
                   1319:                       ('firstname','middlename','lastname','generation', 'id'));
                   1320:                     my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
                   1321:                            .$name{'lastname'}.' '.$name{'generation'};
1.135     albertel 1322:                     $r->print(&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".
1.130     www      1323:                         &mt('in')." \n");
1.57      albertel 1324:                 } else {
1.135     albertel 1325:                     $r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n");
1.57      albertel 1326:                 }
                   1327:             
1.135     albertel 1328:                 if ($csec) {$r->print(&mt("Section")." <font color=\"red\"><i>$csec</i></font> ".
1.130     www      1329: 				      &mt('of')." \n")};
1.57      albertel 1330: 
1.135     albertel 1331:                 $r->print("<font color=\"red\"><i>$coursename</i></font><br />");
                   1332:                 $r->print("</h4>\n");
1.57      albertel 1333: #---------------------------------------------------------------- print table
                   1334:                 $r->print('<p><table border="2">');
1.130     www      1335:                 $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
                   1336:                 $r->print('<th>'.&mt('Default Value').'</th>');
                   1337:                 $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
1.57      albertel 1338: 
                   1339: 	        foreach (sort keys %name) {
                   1340:                     &print_row($r,$_,\%part,\%name,$mapid,\%default,
                   1341:                            \%type,\%display,$defbgone,$defbgtwo,
                   1342:                            $parmlev);
                   1343: #                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");
                   1344:                 }
                   1345:                 $r->print("</table></center>");
                   1346:             } # end each map
                   1347:         } # end of $parmlev eq map
                   1348: #--------------------------------- Entry for parm level general (Course level)
                   1349:         if ($parmlev eq 'general') {
                   1350:             my $defbgone = '"E0E099"';
                   1351:             my $defbgtwo = '"FFFF99"';
                   1352: 
                   1353: #-------------------------------------------- for each map, gather information
                   1354:             my $mapid="0.0";
                   1355: #-----------------------  loop through ids and get all parameter types for map
                   1356: #-----------------------------------------          and associated information
                   1357:             my %name = ();
                   1358:             my %part = ();
                   1359:             my %display = ();
                   1360:             my %type = ();
                   1361:             my %default = ();
                   1362:                
                   1363:             foreach (@ids) {
                   1364:                 my $rid = $_;
                   1365:         
                   1366:                 my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
                   1367: 
                   1368: #--------------------------------------------------------------------
                   1369: # @catmarker contains list of all possible parameters including part #s
                   1370: # $fullkeyp contains the full part/id # for the extraction of proper parameters
                   1371: # $tempkeyp contains part 0 only (no ids - ie, subparts)
                   1372: # When storing information, store as part 0
                   1373: # When requesting information, request from full part
                   1374: #-------------------------------------------------------------------
                   1375:                 foreach (split(/\,/,$keyp{$rid})) {
                   1376:                   my $tempkeyp = $_;
                   1377:                   my $fullkeyp = $tempkeyp;
1.73      albertel 1378:                   $tempkeyp =~ s/_\w+_/_0_/;
1.57      albertel 1379:                   if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
                   1380:                     $part{$tempkeyp}="0";
                   1381:                     $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
                   1382:                     $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
                   1383:                     unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                   1384:                     $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
1.73      albertel 1385:                     $display{$tempkeyp} =~ s/_\w+_/_0_/;
1.57      albertel 1386:                     $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
                   1387:                     $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
                   1388:                   }
                   1389:                 } # end loop through keys
                   1390:             } # end loop through ids
                   1391:                                  
                   1392: #---------------------------------------------------- print header information
1.133     www      1393: 	    my $setdef=&mt("Set Defaults for All Resources in Course");
1.57      albertel 1394:             $r->print(<<ENDMAPONE);
1.133     www      1395: <center><h4>$setdef
1.135     albertel 1396: <font color="red"><i>$coursename</i></font><br />
1.57      albertel 1397: ENDMAPONE
                   1398:             if ($uname) {
                   1399:                 my %name=&Apache::lonnet::userenvironment($udom,$uname,
                   1400:                   ('firstname','middlename','lastname','generation', 'id'));
                   1401:                 my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
                   1402:                        .$name{'lastname'}.' '.$name{'generation'};
1.135     albertel 1403:                 $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");
1.57      albertel 1404:             } else {
1.135     albertel 1405:                 $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
1.57      albertel 1406:             }
                   1407:             
1.135     albertel 1408:             if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
                   1409:             $r->print("</h4>\n");
1.57      albertel 1410: #---------------------------------------------------------------- print table
                   1411:             $r->print('<p><table border="2">');
1.130     www      1412:             $r->print('<tr><th>'.&mt('Parameter Name').'</th>');
                   1413:             $r->print('<th>'.&mt('Default Value').'</th>');
                   1414:             $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
1.57      albertel 1415: 
                   1416: 	    foreach (sort keys %name) {
                   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.118     matthew  1556: 
1.141     sakharuk 1557:              'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').
                   1558:                                   '</b><br />"<tt>st</tt>": '.
1.158     sakharuk 1559:                                   &mt('student').', "<tt>ta</tt>": '.
1.118     matthew  1560:                                   'TA, "<tt>in</tt>": '.
1.158     sakharuk 1561:                                   &mt('instructor').';<br /><tt>'.&mt('role,role,...').'</tt>) '.
1.118     matthew  1562: 	       Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
                   1563:              'plc.users.denied' => 
1.141     sakharuk 1564:                           '<b>'.&mt('Disallow live chatroom use for Users').'</b><br />'.
1.118     matthew  1565:                                  '(<tt>user:domain,user:domain,...</tt>)',
                   1566: 
1.141     sakharuk 1567:              'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').
                   1568:                                   '</b><br />"<tt>st</tt>": '.
1.61      albertel 1569:                                   'student, "<tt>ta</tt>": '.
                   1570:                                   'TA, "<tt>in</tt>": '.
1.75      albertel 1571:                                   'instructor;<br /><tt>role,role,...</tt>) '.
1.61      albertel 1572: 	       Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
1.53      www      1573:              'pch.users.denied' => 
1.141     sakharuk 1574:                           '<b>'.&mt('Disallow Resource Discussion for Users').'</b><br />'.
1.53      www      1575:                                  '(<tt>user:domain,user:domain,...</tt>)',
1.49      matthew  1576:              'spreadsheet_default_classcalc' 
1.141     sakharuk 1577:                  => '<b>'.&mt('Default Course Spreadsheet').'</b> '.
1.50      matthew  1578:                     '<a href="javascript:openbrowser'.
                   1579:                     "('envform','spreadsheet_default_classcalc'".
1.141     sakharuk 1580:                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.49      matthew  1581:              'spreadsheet_default_studentcalc' 
1.141     sakharuk 1582:                  => '<b>'.&mt('Default Student Spreadsheet').'</b> '.
1.50      matthew  1583:                     '<a href="javascript:openbrowser'.
                   1584:                     "('envform','spreadsheet_default_calc'".
1.141     sakharuk 1585:                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.49      matthew  1586:              'spreadsheet_default_assesscalc' 
1.141     sakharuk 1587:                  => '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.
1.50      matthew  1588:                     '<a href="javascript:openbrowser'.
                   1589:                     "('envform','spreadsheet_default_assesscalc'".
1.141     sakharuk 1590:                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
1.75      albertel 1591: 	     'allow_limited_html_in_feedback'
1.141     sakharuk 1592: 	         => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
1.158     sakharuk 1593: 	            '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
1.89      albertel 1594: 	     'rndseed'
1.140     sakharuk 1595: 	         => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
                   1596:                     '<font color="red">'.&mt('Modifying this will make problems').' '.
                   1597:                     &mt('have different numbers and answers').'</font>',
1.151     albertel 1598: 	     'receiptalg'
                   1599: 	         => '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
                   1600:                     &mt('This controls how receipt numbers are generated.'),
1.164     sakharuk 1601:              'suppress_tries'
                   1602:                  => '<b>'.&mt('Suppress number of tries in printing').'</b>('.
                   1603:                     &mt('yes if supress').')',
1.113     sakharuk 1604:              'problem_stream_switch'
1.141     sakharuk 1605:                  => '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
1.158     sakharuk 1606:                     ' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',
1.161     sakharuk 1607:              'default_paper_size' 
                   1608:                  => '<b>'.&mt('Default paper type').'</b><br />'.
                   1609:                     ' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'. 
                   1610:                     ' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'. 
                   1611:                     ' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
1.111     sakharuk 1612:              'anonymous_quiz'
1.150     www      1613:                  => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
1.141     sakharuk 1614:                     ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
                   1615:              'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',
                   1616:              'default_enrollment_end_date'   => '<b>'.&mt('Default ending date when enrolling students').'</b>',
1.150     www      1617:              'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
                   1618:                                  '<br />(<tt>user:domain,user:domain,...</tt>)',
1.140     sakharuk 1619:              'languages' => '<b>'.&mt('Languages used').'</b>',
1.115     www      1620:              'disable_receipt_display'
1.141     sakharuk 1621:                  => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
1.158     sakharuk 1622:                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
1.163     albertel 1623: 	     'disablesigfigs'
                   1624: 	         => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
                   1625:                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
1.149     albertel 1626: 	     'tthoptions'
                   1627: 	         => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
1.107     matthew  1628:              ); 
1.117     matthew  1629:         my @Display_Order = ('url','description','courseid','grading',
1.107     matthew  1630:                              'default_xml_style','pageseparators',
                   1631:                              'question.email','comment.email','policy.email',
1.118     matthew  1632:                              'plc.roles.denied','plc.users.denied',
1.107     matthew  1633:                              'pch.roles.denied','pch.users.denied',
                   1634:                              'allow_limited_html_in_feedback',
1.108     www      1635:                              'languages',
1.150     www      1636: 			     'nothideprivileged',
1.107     matthew  1637:                              'rndseed',
1.151     albertel 1638:                              'receiptalg',
1.107     matthew  1639:                              'problem_stream_switch',
1.164     sakharuk 1640: 			     'suppress_tries',
1.161     sakharuk 1641:                              'default_paper_size',
1.115     www      1642:                              'disable_receipt_display',
1.107     matthew  1643:                              'spreadsheet_default_classcalc',
                   1644:                              'spreadsheet_default_studentcalc',
                   1645:                              'spreadsheet_default_assesscalc', 
                   1646:                              'hideemptyrows',
                   1647:                              'default_enrollment_start_date',
                   1648:                              'default_enrollment_end_date',
1.163     albertel 1649: 			     'tthoptions',
                   1650: 			     'disablesigfigs'
1.107     matthew  1651:                              );
                   1652: 	foreach my $parameter (sort(keys(%values))) {
1.142     raeburn  1653:             unless ($parameter =~ m/^internal\./) {
                   1654:                 if (! $descriptions{$parameter}) {
                   1655:                     $descriptions{$parameter}=$parameter;
                   1656:                     push(@Display_Order,$parameter);
                   1657:                 }
                   1658:             }
1.43      albertel 1659: 	}
1.107     matthew  1660:         foreach my $parameter (@Display_Order) {
                   1661:             my $description = $descriptions{$parameter};
1.51      matthew  1662:             # onchange is javascript to automatically check the 'Set' button.
1.69      www      1663:             my $onchange = 'onFocus="javascript:window.document.forms'.
1.107     matthew  1664:                 "['envform'].elements['".$parameter."_setparmval']".
1.51      matthew  1665:                 '.checked=true;"';
1.107     matthew  1666:             $output .= '<tr><td>'.$description.'</td>';
                   1667:             if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
                   1668:                 $output .= '<td>'.
                   1669:                     &Apache::lonhtmlcommon::date_setter('envform',
                   1670:                                                         $parameter.'_value',
                   1671:                                                         $values{$parameter},
                   1672:                                                         $onchange).
                   1673:                                                         '</td>';
                   1674:             } else {
                   1675:                 $output .= '<td>'.
                   1676:                     &Apache::lonhtmlcommon::textbox($parameter.'_value',
                   1677:                                                     $values{$parameter},
                   1678:                                                     40,$onchange).'</td>';
                   1679:             }
                   1680:             $output .= '<td>'.
                   1681:                 &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
                   1682:                 '</td>';
                   1683:             $output .= "</tr>\n";
1.51      matthew  1684: 	}
1.69      www      1685:         my $onchange = 'onFocus="javascript:window.document.forms'.
1.51      matthew  1686:             '[\'envform\'].elements[\'newp_setparmval\']'.
                   1687:             '.checked=true;"';
1.130     www      1688: 	$output.='<tr><td><i>'.&mt('Create New Environment Variable').'</i><br />'.
1.51      matthew  1689: 	    '<input type="text" size=40 name="newp_name" '.
                   1690:                 $onchange.' /></td><td>'.
                   1691:             '<input type="text" size=40 name="newp_value" '.
                   1692:                 $onchange.' /></td><td>'.
                   1693: 	    '<input type="checkbox" name="newp_setparmval" /></td></tr>';
1.43      albertel 1694:     }
1.157     sakharuk 1695:     my %lt=&Apache::lonlocal::texthash(
                   1696: 		    'par'   => 'Parameter',
                   1697: 		    'val'   => 'Value',
                   1698: 		    'set'   => 'Set',
                   1699: 		    'sce'   => 'Set Course Environment'
                   1700: 				       );
                   1701: 
1.140     sakharuk 1702:     my $Parameter=&mt('Parameter');
                   1703:     my $Value=&mt('Value');
1.141     sakharuk 1704:     my $Set=&mt('Set');
1.155     albertel 1705:     my $browse_js=&Apache::loncommon::browser_and_searcher_javascript();
1.30      www      1706:     $r->print(<<ENDENV);
                   1707: <html>
1.46      matthew  1708: <script type="text/javascript" language="Javascript" >
1.155     albertel 1709: $browse_js
1.46      matthew  1710: </script>
1.30      www      1711: <head>
                   1712: <title>LON-CAPA Course Environment</title>
                   1713: </head>
1.64      www      1714: $bodytag
1.30      www      1715: <form method="post" action="/adm/parmset" name="envform">
                   1716: $setoutput
                   1717: <p>
                   1718: <table border=2>
1.157     sakharuk 1719: <tr><th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th></tr>
1.30      www      1720: $output
                   1721: </table>
1.157     sakharuk 1722: <input type="submit" name="crsenv" value="$lt{'sce'}">
1.30      www      1723: </form>
                   1724: </body>
                   1725: </html>    
                   1726: ENDENV
                   1727: }
1.120     www      1728: ##################################################
1.30      www      1729: 
1.124     www      1730: my $tableopen;
                   1731: 
                   1732: sub tablestart {
                   1733:     if ($tableopen) {
                   1734: 	return '';
                   1735:     } else {
                   1736: 	$tableopen=1;
1.130     www      1737: 	return '<table border="2"><tr><th>'.&mt('Parameter').'</th><th>'.
                   1738: 	    &mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
1.124     www      1739:     }
                   1740: }
                   1741: 
                   1742: sub tableend {
                   1743:     if ($tableopen) {
                   1744: 	$tableopen=0;
                   1745: 	return '</table>';
                   1746:     } else {
                   1747: 	return'';
                   1748:     }
                   1749: }
                   1750: 
1.120     www      1751: sub overview {
                   1752:     my $r=shift;
                   1753:     my $bodytag=&Apache::loncommon::bodytag(
                   1754:                              'Set/Modify Course Assessment Parameters');
                   1755:     my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
                   1756:     my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
                   1757:     $r->print(<<ENDOVER);
                   1758: <html>
                   1759: <head>
                   1760: <title>LON-CAPA Course Environment</title>
                   1761: </head>
                   1762: $bodytag
1.123     www      1763: <form method="post" action="/adm/parmset" name="overviewform">
1.120     www      1764: <input type="hidden" name="overview" value="1" />
                   1765: ENDOVER
1.124     www      1766: # Setting
                   1767:     my %olddata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
                   1768:     my %newdata=();
                   1769:     undef %newdata;
                   1770:     my @deldata=();
                   1771:     undef @deldata;
                   1772:     foreach (keys %ENV) {
                   1773: 	if ($_=~/^form\.([a-z]+)\_(.+)$/) {
                   1774: 	    my $cmd=$1;
                   1775: 	    my $thiskey=$2;
                   1776: 	    if ($cmd eq 'set') {
                   1777: 		my $data=$ENV{$_};
                   1778: 		if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
                   1779: 	    } elsif ($cmd eq 'del') {
                   1780: 		push (@deldata,$thiskey);
                   1781: 	    } elsif ($cmd eq 'datepointer') {
                   1782: 		my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});
1.153     albertel 1783: 		if (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
1.124     www      1784: 	    }
                   1785: 	}
                   1786:     }
                   1787: # Store
1.144     www      1788:     my $delentries=$#deldata+1;
                   1789:     my @newdatakeys=keys %newdata;
                   1790:     my $putentries=$#newdatakeys+1;
                   1791:     if ($delentries) {
                   1792: 	if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
                   1793: 	    $r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));
                   1794: 	} else {
                   1795: 	    $r->print('<h2><font color="red">'.
                   1796: 		      &mt('Error deleting parameters').'</font></h2>');
                   1797: 	}
                   1798:     }
                   1799:     if ($putentries) {
                   1800: 	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
                   1801: 	    $r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries));
                   1802: 	} else {
                   1803: 	    $r->print('<h2><font color="red">'.
                   1804: 		      &mt('Error storing parameters').'</font></h2>');
                   1805: 	}
                   1806:     }
1.122     www      1807: # Read and display
                   1808:     my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
                   1809:     my $oldsection='';
                   1810:     my $oldrealm='';
                   1811:     my $oldpart='';
1.123     www      1812:     my $pointer=0;
1.124     www      1813:     $tableopen=0;
1.145     www      1814:     my $foundkeys=0;
1.122     www      1815:     foreach my $thiskey (sort keys %resourcedata) {
1.123     www      1816: 	if ($resourcedata{$thiskey.'.type'}) {
                   1817: 	    my ($course,$middle,$part,$name)=
                   1818: 		($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
1.130     www      1819: 	    my $section=&mt('All Students');
1.122     www      1820: 	    if ($middle=~/^\[(.*)\]\./) {
1.130     www      1821: 		$section=&mt('Group/Section').': '.$1;
1.122     www      1822: 		$middle=~s/^\[(.*)\]\.//;
                   1823: 	    }
1.123     www      1824: 	    $middle=~s/\.$//;
1.130     www      1825: 	    my $realm='<font color="red">'.&mt('All Resources').'</font>';
1.122     www      1826: 	    if ($middle=~/^(.+)\_\_\_\(all\)$/) {
1.130     www      1827: 		$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'</font>';
1.122     www      1828: 	    } elsif ($middle) {
1.130     www      1829: 		$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'</font>';
1.122     www      1830: 	    }
                   1831: 	    if ($section ne $oldsection) {
1.124     www      1832: 		$r->print(&tableend()."\n<hr /><h1>$section</h1>");
1.122     www      1833: 		$oldsection=$section;
                   1834: 		$oldrealm='';
                   1835: 	    }
                   1836: 	    if ($realm ne $oldrealm) {
1.124     www      1837: 		$r->print(&tableend()."\n<h2>$realm</h2>");
1.122     www      1838: 		$oldrealm=$realm;
                   1839: 		$oldpart='';
                   1840: 	    }
                   1841: 	    if ($part ne $oldpart) {
1.124     www      1842: 		$r->print(&tableend().
1.130     www      1843: 			  "\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");
1.122     www      1844: 		$oldpart=$part;
                   1845: 	    }
1.123     www      1846: #
                   1847: # Ready to print
                   1848: #
1.124     www      1849: 	    $r->print(&tablestart().'<tr><td><b>'.$name.
                   1850: 		      ':</b></td><td><input type="checkbox" name="del_'.
                   1851: 		      $thiskey.'" /></td><td>');
1.145     www      1852: 	    $foundkeys++;
1.123     www      1853: 	    if ($resourcedata{$thiskey.'.type'}=~/^date/) {
                   1854: 		my $jskey='key_'.$pointer;
                   1855: 		$pointer++;
                   1856: 		$r->print(
                   1857: 			  &Apache::lonhtmlcommon::date_setter('overviewform',
                   1858: 							      $jskey,
                   1859: 						      $resourcedata{$thiskey}).
                   1860: '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
                   1861: 			  );
                   1862: 	    } else {
                   1863: 		$r->print(
                   1864: 			  '<input type="text" name="set_'.$thiskey.'" value="'.
                   1865: 			  $resourcedata{$thiskey}.'">');
                   1866: 	    }
1.124     www      1867: 	    $r->print('</td></tr>');
1.122     www      1868: 	}
1.121     www      1869:     }
1.124     www      1870:     
1.145     www      1871:     $r->print(&tableend().'<p>'.
                   1872: 	($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>');
1.120     www      1873: }
1.121     www      1874: 
1.59      matthew  1875: ##################################################
                   1876: ##################################################
1.30      www      1877: 
1.59      matthew  1878: =pod
                   1879: 
1.83      bowersj2 1880: =item * handler
1.59      matthew  1881: 
                   1882: Main handler.  Calls &assessparms and &crsenv subroutines.
                   1883: 
                   1884: =cut
                   1885: 
                   1886: ##################################################
                   1887: ##################################################
1.85      bowersj2 1888:     use Data::Dumper;
1.30      www      1889: sub handler {
1.43      albertel 1890:     my $r=shift;
1.30      www      1891: 
1.43      albertel 1892:     if ($r->header_only) {
1.126     www      1893: 	&Apache::loncommon::content_type($r,'text/html');
1.43      albertel 1894: 	$r->send_http_header;
                   1895: 	return OK;
                   1896:     }
                   1897:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
1.131     www      1898: 
                   1899: # ----------------------------------------------------------- Clear out garbage
                   1900: 
1.132     albertel 1901:     %courseopt=();
                   1902:     %useropt=();
                   1903:     %parmhash=();
1.131     www      1904: 
1.132     albertel 1905:     @ids=();
                   1906:     %symbp=();
                   1907:     %mapp=();
                   1908:     %typep=();
                   1909:     %keyp=();
1.131     www      1910: 
1.132     albertel 1911:     %maptitles=();
1.83      bowersj2 1912: 
1.30      www      1913: # ----------------------------------------------------- Needs to be in a course
                   1914: 
1.43      albertel 1915:     if (($ENV{'request.course.id'}) && 
1.165   ! albertel 1916: 	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}) || 
        !          1917: 	 &Apache::lonnet::allowed('opa',$ENV{'request.course.id'}.'/'.
        !          1918: 				  $ENV{'request.course.sec'})
        !          1919: 	 )) {
1.106     www      1920: 
1.126     www      1921:         &Apache::loncommon::content_type($r,'text/html');
1.106     www      1922:         $r->send_http_header;
1.57      albertel 1923:  
                   1924:         $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
1.30      www      1925: 
1.121     www      1926: 	if (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) {
1.30      www      1927: # ---------------------------------------------- This is for course environment
1.121     www      1928: # -------------------------- also call if toplevel map coudl not be initialized
                   1929: 	    &crsenv($r);
1.120     www      1930: 	} elsif ($ENV{'form.overview'}) {
1.121     www      1931: # --------------------------------------------------------------- Overview mode
                   1932: 	    &overview($r);
1.43      albertel 1933: 	} else {
1.121     www      1934: # --------------------------------------------------------- Bring up assessment
                   1935: 	    &assessparms($r);
1.43      albertel 1936: 	}
                   1937:     } else {
1.1       www      1938: # ----------------------------- Not in a course, or not allowed to modify parms
1.43      albertel 1939: 	$ENV{'user.error.msg'}=
                   1940: 	    "/adm/parmset:opa:0:0:Cannot modify assessment parameters";
                   1941: 	return HTTP_NOT_ACCEPTABLE;
                   1942:     }
                   1943:     return OK;
1.1       www      1944: }
                   1945: 
                   1946: 1;
                   1947: __END__
                   1948: 
1.59      matthew  1949: =pod
1.38      harris41 1950: 
                   1951: =back
                   1952: 
                   1953: =cut
1.1       www      1954: 
                   1955: 
                   1956: 

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