version 1.15, 2000/11/27 16:08:55
|
version 1.16, 2000/11/28 02:53:40
|
Line 17 use strict;
|
Line 17 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use GDBM_File; |
use GDBM_File; |
use Apache::lonmeta; |
|
|
|
|
|
my %courseopt; |
my %courseopt; |
Line 31 my @ids;
|
Line 30 my @ids;
|
my %symbp; |
my %symbp; |
my %mapp; |
my %mapp; |
my %typep; |
my %typep; |
|
my %keyp; |
|
|
|
my %allkeys; |
|
|
my $uname; |
my $uname; |
my $udom; |
my $udom; |
Line 127 sub bycat {
|
Line 129 sub bycat {
|
if ($fcat eq '') { |
if ($fcat eq '') { |
$a<=>$b; |
$a<=>$b; |
} else { |
} else { |
&parmval('0.'.$fcat,$a)<=>&parmval('0.'.$fcat,$b); |
&parmval($fcat,$a)<=>&parmval($fcat,$b); |
} |
} |
} |
} |
|
|
Line 229 sub handler {
|
Line 231 sub handler {
|
$ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) { |
$ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) { |
|
|
# --------------------------------------------------------- Get all assessments |
# --------------------------------------------------------- Get all assessments |
|
%allkeys=(); |
|
|
map { |
map { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
my $mapid=$1; |
my $mapid=$1; |
my $resid=$2; |
my $resid=$2; |
my $id=$mapid.'.'.$resid; |
my $id=$mapid.'.'.$resid; |
if ($bighash{$_}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
my $srcf=$bighash{$_}; |
|
if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
$ids[$#ids+1]=$id; |
$ids[$#ids+1]=$id; |
$typep{$id}=$1; |
$typep{$id}=$1; |
|
$keyp{$id}=''; |
|
map { |
|
if ($_=~/^parameter\_(.*)/) { |
|
my $key=$_; |
|
my $allkey=$1; |
|
my $display= |
|
&Apache::lonnet::metadata($srcf,$key.'.display'); |
|
unless ($display) { |
|
$display= |
|
&Apache::lonnet::metadata($srcf,$key.'.name'); |
|
} |
|
$allkeys{$allkey}=$display; |
|
if ($keyp{$id}) { |
|
$keyp{$id}.=','.$key; |
|
} else { |
|
$keyp{$id}=$key; |
|
} |
|
} |
|
} split(/\,/, |
|
&Apache::lonnet::metadata($srcf,'keys')); |
$mapp{$id}= |
$mapp{$id}= |
&Apache::lonnet::declutter($bighash{'map_id_'.$mapid}); |
&Apache::lonnet::declutter($bighash{'map_id_'.$mapid}); |
$symbp{$id}=$mapp{$id}. |
$symbp{$id}=$mapp{$id}. |
'___'.$resid.'___'. |
'___'.$resid.'___'. |
&Apache::lonnet::declutter($bighash{$_}); |
&Apache::lonnet::declutter($srcf); |
} |
} |
} |
} |
} keys %bighash; |
} keys %bighash; |
Line 392 ENDHEAD
|
Line 417 ENDHEAD
|
|
|
$r->print($message.'<p>Sort list by '); |
$r->print($message.'<p>Sort list by '); |
$r->print('<select name="fcat" onChange="this.form.submit();">'); |
$r->print('<select name="fcat" onChange="this.form.submit();">'); |
my $k; |
$r->print('<option value="">Enclosing Map</option>'); |
my @sopt=('map','Map','name','Problem Name','deadline','Deadline'); |
map { |
for ($k=0;$k<$#sopt;$k=$k+2) { |
$r->print('<option value="'.$_.'"'); |
$r->print('<option value="'.$sopt[$k].'"'); |
if ($fcat eq $_) { $r->print(' selected'); } |
if ($fcat eq $sopt[$k]) { $r->print(' selected'); } |
$r->print('>'.$allkeys{$_}.'</option>'); |
$r->print('>'.$sopt[$k+1].'</option>'); |
} keys %allkeys; |
} |
|
$r->print('</select>'); |
$r->print('</select>'); |
# ----------------------------------------------------------------- Start Table |
# ----------------------------------------------------------------- Start Table |
my $coursespan=$csec?8:5; |
my $coursespan=$csec?8:5; |
Line 436 ENDTABLEHEADFOUR
|
Line 460 ENDTABLEHEADFOUR
|
@outpar=(); |
@outpar=(); |
my $rid=$_; |
my $rid=$_; |
my $thistitle=''; |
my $thistitle=''; |
my %name= ('0_deadline' => 'deadline'); |
my %name= (); |
my %part= ('0_deadline' => '0'); |
my %part= (); |
my %display=('0_deadline' => 'Deadline'); |
my %display=(); |
my %type= ('0_deadline' => 'date_end'); |
my %type= (); |
my %default=('0_deadline' => time); |
my %default=(); |
my %metadata=&Apache::lonmeta::unpackagemeta( |
my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid}); |
&Apache::lonnet::getfile('/home/httpd/html/'.$bighash{'src_'.$rid}.'.meta'),1); |
|
map { |
map { |
if ($_=~/^parameter\_(\d+)\_(\w+)$/) { |
$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part'); |
my $hashid=$1.'_'.$2; |
$name{$_}=&Apache::lonnet::metadata($uri,$_.'.name'); |
$part{$hashid}=$1; |
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
$name{$hashid}=$2; |
unless ($display{$_}) { $display{$_}=''; } |
my $tdef; |
$display{$_}.=' ('.$name{$_}.')'; |
($tdef,$display{$hashid})= |
$default{$_}=&Apache::lonnet::metadata($uri,$_.'.default'); |
split(/\_\_dis\_\_/,$metadata{$_}); |
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); |
($type{$hashid},$default{$hashid})=split(/\:/,$tdef); |
$thistitle=&Apache::lonnet::metadata($uri,$_.'.title'); |
unless ($display{$hashid}) { |
} split(/\,/,$keyp{$rid}); |
$display{$hashid}=$name{$hashid}; |
|
} |
|
} |
|
if ($_ eq 'title') { |
|
$thistitle=$metadata{$_}; |
|
} |
|
} keys %metadata; |
|
my $totalparms=scalar keys %name; |
my $totalparms=scalar keys %name; |
$r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'. |
$r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'. |
join(' / ',split(/\//,&Apache::lonnet::declutter($bighash{'src_'.$rid}))). |
join(' / ',split(/\//,$uri)). |
'</font></tt><p><b>'. |
'</font></tt><p><b>'. |
$bighash{'title_'.$rid}); |
$bighash{'title_'.$rid}); |
if ($thistitle) { |
if ($thistitle) { |
$r->print(' ('.$thistitle.')'); |
$r->print(' ('.$thistitle.')'); |
Line 476 ENDTABLEHEADFOUR
|
Line 494 ENDTABLEHEADFOUR
|
|
|
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_}); |
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_}); |
|
|
$r->print("<td>$part{$_}</td><td>$display{$_}</td>"); |
$r->print("<td>$part{$_}</td><td>$display{$_}</td>"); |
my $mprefix=$rid.'&'.$_.'&'; |
my $thismarker=$_; |
|
$thismarker=~s/^parameter\_//; |
|
my $mprefix=$rid.'&'.$thismarker.'&'; |
|
|
$r->print('<td'.(($result==11)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==11)?' bgcolor="#AAFFAA"':'').'>'. |
&valout($outpar[11],$type{$_}).'</td>'); |
&valout($outpar[11],$type{$_}).'</td>'); |