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

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

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