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

1.1       www         1: # The LearningOnline Network with CAPA
                      2: # Handler to set parameters for assessments
                      3: #
                      4: # (Handler to resolve ambiguous file locations
                      5: #
                      6: # (TeX Content Handler
                      7: #
                      8: # 05/29/00,05/30,10/11 Gerd Kortemeyer)
                      9: #
                     10: # 10/11,10/12,10/16 Gerd Kortemeyer)
                     11: #
1.17      www        12: # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28 Gerd Kortemeyer
1.1       www        13: 
                     14: package Apache::lonparmset;
                     15: 
                     16: use strict;
                     17: use Apache::lonnet;
                     18: use Apache::Constants qw(:common :http REDIRECT);
                     19: use GDBM_File;
1.4       www        20: 
1.1       www        21: 
1.2       www        22: my %courseopt;
                     23: my %useropt;
                     24: my %bighash;
                     25: my %parmhash;
                     26: 
1.8       www        27: my @outpar;
                     28: 
1.3       www        29: my @ids;
                     30: my %symbp;
1.10      www        31: my %mapp;
1.3       www        32: my %typep;
1.16      www        33: my %keyp;
1.17      www        34: my %defp;
1.16      www        35: 
                     36: my %allkeys;
1.2       www        37: 
                     38: my $uname;
                     39: my $udom;
                     40: my $uhome;
                     41: 
                     42: my $csec;
                     43: 
1.3       www        44: my $fcat;
                     45: 
1.2       www        46: # -------------------------------------------- Figure out a cascading parameter
                     47: 
                     48: sub parmval {
1.11      www        49:     my ($what,$id,$def)=@_;
1.8       www        50:     my $result='';
1.11      www        51:     @outpar=();
1.2       www        52: # ----------------------------------------------------- Cascading lookup scheme
1.10      www        53: 
1.3       www        54:        my $symbparm=$symbp{$id}.'.'.$what;
1.10      www        55:        my $mapparm=$mapp{$id}.'___(all).'.$what;
                     56: 
1.2       www        57:        my $seclevel=
1.10      www        58:             $ENV{'request.course.id'}.'.['.
1.14      www        59: 		$csec.'].'.$what;
1.10      www        60:        my $seclevelr=
                     61:             $ENV{'request.course.id'}.'.['.
1.14      www        62: 		$csec.'].'.$symbparm;
1.10      www        63:        my $seclevelm=
                     64:             $ENV{'request.course.id'}.'.['.
1.14      www        65: 		$csec.'].'.$mapparm;
1.10      www        66: 
1.2       www        67:        my $courselevel=
                     68:             $ENV{'request.course.id'}.'.'.$what;
1.10      www        69:        my $courselevelr=
                     70:             $ENV{'request.course.id'}.'.'.$symbparm;
                     71:        my $courselevelm=
                     72:             $ENV{'request.course.id'}.'.'.$mapparm;
1.2       www        73: 
1.11      www        74: # -------------------------------------------------------- first, check default
                     75: 
                     76:        if ($def) { $outpar[11]=$def;
                     77:                    $result=11; }
                     78: 
                     79: # ----------------------------------------------------- second, check map parms
                     80: 
                     81:        my $thisparm=$parmhash{$symbparm};
                     82:        if ($thisparm) { $outpar[10]=$thisparm;  
                     83:                         $result=10; }
                     84: 
                     85: # --------------------------------------------------------- third, check course
                     86: 
                     87:        if ($courseopt{$courselevel}) { $outpar[9]=$courseopt{$courselevel};  
                     88:                                        $result=9; }
                     89: 
                     90:        if ($courseopt{$courselevelm}) { $outpar[8]=$courseopt{$courselevelm}; 
                     91:                                         $result=8; }
                     92: 
                     93:        if ($courseopt{$courselevelr}) { $outpar[7]=$courseopt{$courselevelr}; 
                     94:                                         $result=7; }
                     95: 
                     96:        if ($csec) {
                     97: 
                     98:         if ($courseopt{$seclevel}) { $outpar[6]=$courseopt{$seclevel};  
                     99:                                     $result=6; }
                    100: 
                    101:         if ($courseopt{$seclevelm}) { $outpar[5]=$courseopt{$seclevelm};  
                    102:                                      $result=5; }  
                    103:  
                    104:         if ($courseopt{$seclevelr}) { $outpar[4]=$courseopt{$seclevelr};  
                    105:                                      $result=4; }
                    106:   
                    107:       }
                    108: 
                    109: # ---------------------------------------------------------- fourth, check user
1.8       www       110:       
                    111:       if ($uname) { 
1.11      www       112: 
1.10      www       113:        if ($useropt{$courselevel}) { $outpar[3]=$useropt{$courselevel};  
                    114:                                      $result=3; }
                    115: 
1.11      www       116:        if ($useropt{$courselevelm}) { $outpar[2]=$useropt{$courselevelm}; 
                    117:                                       $result=2; }
1.2       www       118: 
1.11      www       119:        if ($useropt{$courselevelr}) { $outpar[1]=$useropt{$courselevelr}; 
                    120:                                       $result=1; }
1.10      www       121: 
1.11      www       122:       }
1.2       www       123:      
1.8       www       124:     return $result;
1.2       www       125: }
                    126: 
1.9       www       127: # ------------------------------------------------------------ Output for value
                    128: 
                    129: sub valout {
                    130:     my ($value,$type)=@_;
                    131:     return
                    132: 	($value?(($type=~/^date/)?localtime($value):$value):'  ');
                    133: }
                    134: 
1.5       www       135: # -------------------------------------------------------- Produces link anchor
                    136: 
                    137: sub plink {
                    138:     my ($type,$dis,$value,$marker,$return,$call)=@_;
                    139:     return '<a href="javascript:pjump('."'".$type."','".$dis."','".$value."','"
1.8       www       140:       .$marker."','".$return."','".$call."'".');">'.
1.9       www       141:       &valout($value,$type).'</a>';
1.5       www       142: }
                    143: 
1.1       www       144: # ================================================================ Main Handler
                    145: 
                    146: sub handler {
                    147:    my $r=shift;
                    148: 
                    149:    if ($r->header_only) {
                    150:       $r->content_type('text/html');
                    151:       $r->send_http_header;
                    152:       return OK;
                    153:    }
                    154: 
                    155: # ----------------------------------------------------- Needs to be in a course
                    156: 
                    157:    if (($ENV{'request.course.fn'}) && 
                    158:        (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {
1.2       www       159: # -------------------------------------------------------- Variable declaration
                    160: 
                    161:       %courseopt=();
                    162:       %useropt=();
                    163:       %bighash=();
                    164: 
1.3       www       165:       @ids=();
                    166:       %symbp=();
                    167:       %typep=();
1.2       www       168: 
1.12      www       169:       my $message='';
                    170: 
                    171:       $csec=$ENV{'form.csec'};
1.2       www       172:       $udom=$ENV{'form.udom'};
1.17      www       173:       unless ($udom) { $udom=$r->dir_config('lonDefDomain'); }
                    174: 
1.12      www       175:       my $id=$ENV{'form.id'};
                    176:       if (($id) && ($udom)) {
                    177:           $uname=(&Apache::lonnet::idget($udom,$id))[1];
                    178:           if ($uname) {
                    179: 	      $id='';
                    180:           } else {
                    181:               $message=
1.17      www       182:      "<font color=red>Unknown ID '$id' at domain '$udom'</font>";
1.12      www       183:           }
                    184:       } else {
                    185:           $uname=$ENV{'form.uname'};
                    186:       }
1.2       www       187:       unless ($udom) { $uname=''; }
                    188:       $uhome='';
                    189:       if ($uname) {
                    190: 	  $uhome=&Apache::lonnet::homeserver($uname,$udom);
1.12      www       191:       
                    192:         if ($uhome eq 'no_host') { 
1.3       www       193:           $message=
1.17      www       194:      "<font color=red>Unknown user '$uname' at domain '$udom'</font>";
1.3       www       195:           $uname=''; 
1.12      www       196:         } else {
                    197:           $csec=&Apache::lonnet::usection(
                    198: 				       $udom,$uname,$ENV{'request.course.id'});
                    199:           if ($csec eq '-1') {
1.17      www       200:              $message="<font color=red>".
                    201:               "User '$uname' at domain '$udom' not in this course</font>";
1.12      www       202:               $uname='';
                    203:               $csec=$ENV{'form.csec'};
                    204: 	 } else {
                    205:               my %name=&Apache::lonnet::userenvironment($udom,$uname,
                    206: 		('firstname','middlename','lastname','generation','id'));
                    207:               $message="\n<p>\nFull Name: ".
                    208:                           $name{'firstname'}.' '.$name{'middlename'}
                    209: 	                 .$name{'lastname'}.' '.$name{'generation'}.
                    210:                        "<br>\nID: ".$name{'id'}.'<p>';
                    211:          }
                    212:         }
1.3       www       213:       }
1.2       www       214: 
1.3       www       215:       unless ($csec) { $csec=''; }
1.12      www       216: 
1.3       www       217:       $fcat=$ENV{'form.fcat'};
                    218:       unless ($fcat) { $fcat=''; }
1.2       www       219: 
                    220: # ------------------------------------------------------------------- Tie hashs
                    221:       if ((tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
                    222:                        &GDBM_READER,0640)) &&
                    223:           (tie(%parmhash,'GDBM_File',
                    224:            $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) {
                    225: 
1.14      www       226: # --------------------------------------------------------- Get all assessments
1.16      www       227: 	%allkeys=();
1.17      www       228:         %defp=();
1.14      www       229:         map {
                    230: 	    if ($_=~/^src\_(\d+)\.(\d+)$/) {
                    231: 	       my $mapid=$1;
                    232:                my $resid=$2;
                    233:                my $id=$mapid.'.'.$resid;
1.16      www       234:                my $srcf=$bighash{$_};
                    235:                if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
1.14      www       236: 		   $ids[$#ids+1]=$id;
                    237:                    $typep{$id}=$1;
1.16      www       238:                    $keyp{$id}='';
                    239:                    map {
                    240:                        if ($_=~/^parameter\_(.*)/) {
                    241: 			  my $key=$_;
                    242:                           my $allkey=$1;
1.17      www       243:                           $allkey=~s/\_/\./;
1.16      www       244:                           my $display=
                    245: 			      &Apache::lonnet::metadata($srcf,$key.'.display');
                    246:                           unless ($display) {
                    247:                               $display=
                    248: 			         &Apache::lonnet::metadata($srcf,$key.'.name');
                    249:                           }
                    250:                           $allkeys{$allkey}=$display;
1.17      www       251:                           if ($allkey eq $fcat) {
                    252:                              $defp{$id}=
                    253:                               &Apache::lonnet::metadata($srcf,$key.'.default');
                    254: 			  }
1.16      www       255:                           if ($keyp{$id}) {
                    256: 			      $keyp{$id}.=','.$key;
                    257:                           } else {
                    258:                               $keyp{$id}=$key;
                    259: 		          }
                    260: 		       }
                    261:                    } split(/\,/,
                    262:                       &Apache::lonnet::metadata($srcf,'keys'));
1.14      www       263:                    $mapp{$id}=
                    264: 		       &Apache::lonnet::declutter($bighash{'map_id_'.$mapid});
                    265:                    $symbp{$id}=$mapp{$id}.
                    266: 			'___'.$resid.'___'.
1.16      www       267: 			    &Apache::lonnet::declutter($srcf);
1.14      www       268: 	       }
                    269:             }
                    270:         } keys %bighash;
                    271: # ---------------------------------------------------------- Anything to store?
                    272:         if ($ENV{'form.pres_marker'}) {
                    273:        my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
1.15      www       274:        $spnam=~s/\_/\./;
                    275: # ---------------------------------------------------------- Construct prefixes
1.14      www       276: 
                    277:        my $symbparm=$symbp{$sresid}.'.'.$spnam;
                    278:        my $mapparm=$mapp{$sresid}.'___(all).'.$spnam;
                    279: 
                    280:        my $seclevel=
                    281:             $ENV{'request.course.id'}.'.['.
                    282: 		$csec.'].'.$spnam;
                    283:        my $seclevelr=
                    284:             $ENV{'request.course.id'}.'.['.
                    285: 		$csec.'].'.$symbparm;
                    286:        my $seclevelm=
                    287:             $ENV{'request.course.id'}.'.['.
                    288: 		$csec.'].'.$mapparm;
                    289: 
                    290:        my $courselevel=
                    291:             $ENV{'request.course.id'}.'.'.$spnam;
                    292:        my $courselevelr=
                    293:             $ENV{'request.course.id'}.'.'.$symbparm;
                    294:        my $courselevelm=
                    295:             $ENV{'request.course.id'}.'.'.$mapparm;
                    296: 
                    297:        my $storeunder='';
                    298:        if (($snum==9) || ($snum==3)) { $storeunder=$courselevel; }
                    299:        if (($snum==8) || ($snum==2)) { $storeunder=$courselevelm; }
                    300:        if (($snum==7) || ($snum==1)) { $storeunder=$courselevelr; }
                    301:        if ($snum==6) { $storeunder=$seclevel; }
                    302:        if ($snum==5) { $storeunder=$seclevelm; }
                    303:        if ($snum==4) { $storeunder=$seclevelr; }
1.15      www       304:        $storeunder=&Apache::lonnet::escape($storeunder);
                    305:  
                    306:        my $storecontent=
                    307:     $storeunder.'='.&Apache::lonnet::escape($ENV{'form.pres_value'}).'&'.
                    308:     $storeunder.'.type='.&Apache::lonnet::escape($ENV{'form.pres_type'});
1.14      www       309: 
1.15      www       310:        my $reply='';
1.14      www       311:            if ($snum>3) {
                    312: # ---------------------------------------------------------------- Store Course
1.15      www       313:             $reply=&Apache::lonnet::critical('put:'.
                    314:              $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
                    315:              $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata:'.
                    316:              $storecontent,
                    317:              $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
1.14      www       318:            } else {
                    319: # ------------------------------------------------------------------ Store User
1.15      www       320:             $reply=
                    321:             &Apache::lonnet::critical('put:'.$udom.':'.$uname.':resourcedata:'.
                    322:              $storecontent,$uhome);
                    323:            }
                    324: 
                    325:          if ($reply=~/^error\:(.*)/) {
1.17      www       326: 	     $message.="<font color=red>Write Error: $1</font>";
1.15      www       327: 	 }
                    328: # ---------------------------------------------------------------- Done storing
                    329:    }
1.2       www       330: # -------------------------------------------------------------- Get coursedata
                    331:         my $reply=&Apache::lonnet::reply('dump:'.
                    332:               $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
                    333:               $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',
                    334:               $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
                    335:         if ($reply!~/^error\:/) {
                    336:            map {
                    337:              my ($name,$value)=split(/\=/,$_);
1.15      www       338:              $courseopt{&Apache::lonnet::unescape($name)}=
                    339:                         &Apache::lonnet::unescape($value);  
1.2       www       340:            } split(/\&/,$reply);
                    341:         }
                    342: # --------------------------------------------------- Get userdata (if present)
                    343:         if ($uname) {
                    344:            my $reply=
                    345:        &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);
                    346:            if ($reply!~/^error\:/) {
                    347:               map {
                    348:                 my ($name,$value)=split(/\=/,$_);
1.15      www       349:                 $useropt{&Apache::lonnet::unescape($name)}=
                    350:                          &Apache::lonnet::unescape($value);
1.2       www       351:               } split(/\&/,$reply);
                    352:            }
                    353:         }
1.14      www       354: 
1.2       www       355: # ------------------------------------------------------------------- Sort this
1.17      www       356: 
                    357:         @ids=sort  {  
                    358:            if ($fcat eq '') {
                    359:               $a<=>$b;
                    360:            } else {
                    361:               $outpar[&parmval($fcat,$a,$defp{$a})]<=>
                    362:               $outpar[&parmval($fcat,$b,$defp{$b})];
                    363:            } 
                    364:         } @ids;
1.2       www       365: # ------------------------------------------------------------------ Start page
1.1       www       366:          $r->content_type('text/html');
                    367:          $r->send_http_header;
1.5       www       368: 	$r->print(<<ENDHEAD);
                    369: <html>
                    370: <head>
                    371: <title>LON-CAPA Assessment Parameters</title>
                    372: <script>
1.13      www       373: 
1.5       www       374:     function pclose() {
                    375:         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                    376:                  "height=350,width=350,scrollbars=no,menubar=no");
                    377:         parmwin.close();
                    378:     }
                    379: 
                    380:     function pjump(type,dis,value,marker,ret,call) {
1.13      www       381:         document.parmform.pres_marker.value='';
1.6       www       382:         parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)
                    383:                  +"&value="+escape(value)+"&marker="+escape(marker)
                    384:                  +"&return="+escape(ret)
                    385:                  +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",
1.5       www       386:                  "height=350,width=350,scrollbars=no,menubar=no");
                    387: 
                    388:     }
1.13      www       389: 
                    390:     function psub() {
                    391:         pclose();
1.18    ! www       392:         if (document.parmform.pres_marker.value!='') {
1.13      www       393:             document.parmform.submit();
                    394:         } else {
                    395:             document.parmform.pres_value.value='';
                    396:             document.parmform.pres_marker.value='';
                    397:         }
                    398:     }
                    399: 
1.5       www       400: </script>
                    401: </head>
                    402: <body bgcolor="#FFFFFF" onUnload="pclose()">
                    403: <h1>Set Assessment Parameters</h1>
1.8       www       404: <form method="post" action="/adm/parmset" name="parmform">
                    405: <h2>Course: $ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h2>
                    406: <b>
                    407: Section/Group: 
1.12      www       408: <input type="text" value="$csec" size="6" name="csec">
1.8       www       409: <br>
                    410: For User 
1.12      www       411: <input type="text" value="$uname" size="12" name="uname">
                    412: or ID
                    413: <input type="text" value="$id" size="12" name="id"> 
1.8       www       414: at Domain 
1.12      www       415: <input type="text" value="$udom" size="6" name="udom">
1.8       www       416: </b>
1.12      www       417: <input type="submit" value="Display">
1.13      www       418: <input type="hidden" value='' name="pres_value">
                    419: <input type="hidden" value='' name="pres_type">
                    420: <input type="hidden" value='' name="pres_marker">
1.5       www       421: ENDHEAD
1.17      www       422: 
                    423:         $r->print('<h2>'.$message.'</h2><p>Sort list by ');
1.8       www       424: 	$r->print('<select name="fcat" onChange="this.form.submit();">');
1.16      www       425:         $r->print('<option value="">Enclosing Map</option>');
                    426:         map {
                    427: 	    $r->print('<option value="'.$_.'"');
                    428:             if ($fcat eq $_) { $r->print(' selected'); }
                    429:             $r->print('>'.$allkeys{$_}.'</option>');
                    430:         } keys %allkeys;
1.8       www       431:         $r->print('</select>');
1.10      www       432: # ----------------------------------------------------------------- Start Table
                    433:         my $coursespan=$csec?8:5;
1.9       www       434: 	 $r->print(<<ENDTABLEHEAD);
                    435: <p><table border=2>
1.11      www       436: <tr><td colspan=5></td>
1.10      www       437: <th colspan=$coursespan>Any User</th>
1.9       www       438: ENDTABLEHEAD
1.10      www       439:     if ($uname) {
                    440: 	$r->print("<th colspan=3 rowspan=2>User $uname at Domain $udom</th>");
                    441:     }
                    442:     $r->print(<<ENDTABLETWO);
1.11      www       443: <th rowspan=3>Parameter in Effect</th></tr><tr><td colspan=5></td>
1.10      www       444: <th colspan=2>Resource Level</th>
                    445: <th colspan=3>in Course</th>
                    446: ENDTABLETWO
1.9       www       447:     if ($csec) {
1.10      www       448: 	$r->print("<th colspan=3>in Section/Group $csec</th>");
1.9       www       449:     }
1.10      www       450:     $r->print(<<ENDTABLEHEADFOUR);
1.11      www       451: </tr><tr><th>Assessment URL and Title</th><th>Type</th>
1.10      www       452: <th>Enclosing Map</th><th>Part No.</th><th>Parameter Name</th>
1.11      www       453: <th>default</th><th>from Enclosing Map</th>
1.10      www       454: <th>general</th><th>for Enclosing Map</th><th>for Resource</th>
                    455: ENDTABLEHEADFOUR
                    456:     if ($csec) {
                    457:   $r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>');
                    458:     }
                    459:     if ($uname) {
                    460:   $r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>');
                    461:     }
                    462: 	$r->print('</tr><tr>');
1.3       www       463:  	 map {
1.4       www       464: # ------------------------------------------------------ Entry for one resource
1.8       www       465: 	    @outpar=();
1.5       www       466:             my $rid=$_;
                    467:             my $thistitle='';
1.16      www       468:             my %name=   ();
                    469:             my %part=   ();
                    470: 	    my %display=();
                    471: 	    my %type=   ();
                    472:             my %default=();
                    473:             my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
                    474: 
1.4       www       475:             map {
1.16      www       476: 		$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
                    477:                 $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
                    478:                 $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
                    479:                 unless ($display{$_}) { $display{$_}=''; }
                    480:                 $display{$_}.=' ('.$name{$_}.')';
                    481:                 $default{$_}=&Apache::lonnet::metadata($uri,$_.'.default');
                    482:                 $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
                    483:                 $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
                    484:             } split(/\,/,$keyp{$rid});
                    485: 
1.11      www       486: 	    my $totalparms=scalar keys %name;
1.5       www       487:             $r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'.
1.16      www       488:                 join(' / ',split(/\//,$uri)).
                    489:                 '</font></tt><p><b>'.
1.5       www       490:                       $bighash{'title_'.$rid});
                    491:             if ($thistitle) {
                    492: 		$r->print(' ('.$thistitle.')');
                    493:             }
1.11      www       494:             $r->print('</b></td>');
                    495:             $r->print('<td rowspan='.$totalparms.'>'.$typep{$rid}.'</td>');
                    496:             $r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'.
1.10      www       497: 		      join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>');
1.11      www       498:             map {
                    499: 
                    500: 	       my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
                    501: 
1.16      www       502:                $r->print("<td>$part{$_}</td><td>$display{$_}</td>");
                    503:                my $thismarker=$_;
                    504:                $thismarker=~s/^parameter\_//; 
                    505:                my $mprefix=$rid.'&'.$thismarker.'&';
1.13      www       506: 
1.12      www       507:                $r->print('<td'.(($result==11)?' bgcolor="#AAFFAA"':'').'>'.
                    508:              &valout($outpar[11],$type{$_}).'</td>');
                    509:                $r->print('<td'.(($result==10)?' bgcolor="#AAFFAA"':'').'>'.
                    510:              &valout($outpar[10],$type{$_}).'</td>');
1.13      www       511: 
1.12      www       512:                $r->print('<td'.(($result==9)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       513:              &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9',
                    514:                     'parmform.pres','psub').'</td>');
1.12      www       515:                $r->print('<td'.(($result==8)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       516:              &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8',
                    517:                     'parmform.pres','psub').'</td>');
1.12      www       518:                $r->print('<td'.(($result==7)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       519:              &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7',
                    520:                     'parmform.pres','psub').'</td>');
                    521: 
1.9       www       522:                if ($csec) {
1.12      www       523:                  $r->print('<td'.(($result==6)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       524:              &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6',
                    525:                     'parmform.pres','psub').'</td>');
1.12      www       526:                  $r->print('<td'.(($result==5)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       527:              &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5',
                    528:                     'parmform.pres','psub').'</td>');
1.12      www       529:                  $r->print('<td'.(($result==4)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       530:              &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4',
                    531:                     'parmform.pres','psub').'</td>');
1.9       www       532:                }
1.13      www       533: 
1.9       www       534:                if ($uname) {
1.12      www       535:                  $r->print('<td'.(($result==3)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       536:              &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3',
                    537:                     'parmform.pres','psub').'</td>');
1.12      www       538:                  $r->print('<td'.(($result==2)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       539:              &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2',
                    540:                     'parmform.pres','psub').'</td>');
1.12      www       541:                  $r->print('<td'.(($result==1)?' bgcolor="#AAFFAA"':'').'>'.
1.13      www       542:              &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1',
                    543:                     'parmform.pres','psub').'</td>');
1.9       www       544:                }
1.13      www       545: 
1.11      www       546:                $r->print('<td>'.&valout($outpar[$result],$type{$_}).'</td>');
1.5       www       547:                $r->print("</tr>\n<tr>");
1.11      www       548: 	   } sort keys %name;
1.4       www       549: # -------------------------------------------------- End entry for one resource
1.3       www       550: 	 } @ids;
1.8       www       551:          $r->print('</table></form></body></html>');
1.1       www       552:          untie(%bighash);
1.2       www       553: 	 untie(%parmhash);
1.1       www       554:       }
                    555:    } else {
                    556: # ----------------------------- Not in a course, or not allowed to modify parms
                    557:       $ENV{'user.error.msg'}=
1.7       www       558:         "/adm/parmset:opa:0:0:Cannot modify assessment parameters";
1.1       www       559:       return HTTP_NOT_ACCEPTABLE; 
                    560:    }
                    561:    return OK;
                    562: }
                    563: 
                    564: 1;
                    565: __END__
                    566: 
                    567: 
                    568: 
                    569: 

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