version 1.23, 2002/01/01 20:33:15
|
version 1.25, 2002/02/11 18:59:36
|
Line 103 sub parmval {
|
Line 103 sub parmval {
|
my ($mapname,$id,$fn)=split(/\_\_\_/,$symb); |
my ($mapname,$id,$fn)=split(/\_\_\_/,$symb); |
|
|
# ----------------------------------------------------- Cascading lookup scheme |
# ----------------------------------------------------- Cascading lookup scheme |
my $rwhat=$what; |
my $rwhat=$what; |
$what=~s/^parameter\_//; |
$what=~s/^parameter\_//; |
$what=~s/\_/\./; |
$what=~s/\_/\./; |
|
|
my $symbparm=$symb.'.'.$what; |
my $symbparm=$symb.'.'.$what; |
my $mapparm=$mapname.'___(all).'.$what; |
my $mapparm=$mapname.'___(all).'.$what; |
my $usercourseprefix=$uname.'_'.$udom.'_'.$cid; |
my $usercourseprefix=$uname.'_'.$udom.'_'.$cid; |
|
|
my $seclevel= |
my $seclevel= $usercourseprefix.'.['.$csec.'].'.$what; |
$usercourseprefix.'.['. |
my $seclevelr=$usercourseprefix.'.['.$csec.'].'.$symbparm; |
$csec.'].'.$what; |
my $seclevelm=$usercourseprefix.'.['.$csec.'].'.$mapparm; |
my $seclevelr= |
|
$usercourseprefix.'.['. |
my $courselevel= $usercourseprefix.'.'.$what; |
$csec.'].'.$symbparm; |
my $courselevelr=$usercourseprefix.'.'.$symbparm; |
my $seclevelm= |
my $courselevelm=$usercourseprefix.'.'.$mapparm; |
$usercourseprefix.'.['. |
|
$csec.'].'.$mapparm; |
# ---------------------------------------------------------- first, check user |
|
if ($uname) { |
my $courselevel= |
if ($useropt{$courselevelr}) { return $useropt{$courselevelr}; } |
$usercourseprefix.'.'.$what; |
if ($useropt{$courselevelm}) { return $useropt{$courselevelm}; } |
my $courselevelr= |
if ($useropt{$courselevel}) { return $useropt{$courselevel}; } |
$usercourseprefix.'.'.$symbparm; |
} |
my $courselevelm= |
|
$usercourseprefix.'.'.$mapparm; |
|
|
|
# ---------------------------------------------------------- fourth, check user |
|
|
|
if ($uname) { |
|
|
|
if ($useropt{$courselevelr}) { return $useropt{$courselevelr}; } |
|
|
|
if ($useropt{$courselevelm}) { return $useropt{$courselevelm}; } |
|
|
|
if ($useropt{$courselevel}) { return $useropt{$courselevel}; } |
|
|
|
} |
|
|
|
# --------------------------------------------------------- third, check course |
|
|
|
if ($csec) { |
|
|
|
if ($courseopt{$seclevelr}) { return $courseopt{$seclevelr}; } |
|
|
|
if ($courseopt{$seclevelm}) { return $courseopt{$seclevelm}; } |
|
|
|
|
# ------------------------------------------------------- second, check course |
|
if ($csec) { |
|
if ($courseopt{$seclevelr}) { return $courseopt{$seclevelr}; } |
|
if ($courseopt{$seclevelm}) { return $courseopt{$seclevelm}; } |
if ($courseopt{$seclevel}) { return $courseopt{$seclevel}; } |
if ($courseopt{$seclevel}) { return $courseopt{$seclevel}; } |
|
} |
} |
|
|
|
if ($courseopt{$courselevelr}) { return $courseopt{$courselevelr}; } |
|
|
|
if ($courseopt{$courselevelm}) { return $courseopt{$courselevelm}; } |
|
|
|
if ($courseopt{$courselevel}) { return $courseopt{$courselevel}; } |
|
|
|
# ----------------------------------------------------- second, check map parms |
|
|
|
my $thisparm=$parmhash{$symbparm}; |
|
if ($thisparm) { return $thisparm; } |
|
|
|
# -------------------------------------------------------- first, check default |
|
|
|
return &Apache::lonnet::metadata($fn,$rwhat.'.default'); |
if ($courseopt{$courselevelr}) { return $courseopt{$courselevelr}; } |
|
if ($courseopt{$courselevelm}) { return $courseopt{$courselevelm}; } |
|
if ($courseopt{$courselevel}) { return $courseopt{$courselevel}; } |
|
|
|
# ----------------------------------------------------- third, check map parms |
|
|
|
my $thisparm=$parmhash{$symbparm}; |
|
if ($thisparm) { return $thisparm; } |
|
|
|
# ----------------------------------------------------- fourth , check default |
|
|
|
my $default=&Apache::lonnet::metadata($fn,$rwhat.'.default'); |
|
if ($default) { return $default} |
|
|
|
# --------------------------------------------------- fifth , cascade up parts |
|
|
|
my ($space,@qualifier)=split(/\./,$rwhat); |
|
my $qualifier=join('.',@qualifier); |
|
unless ($space eq '0') { |
|
my ($part,$id)=split(/\_/,$space); |
|
if ($id) { |
|
my $partgeneral=&parmval($part.".$qualifier",$symb); |
|
if ($partgeneral) { return $partgeneral; } |
|
} else { |
|
my $resourcegeneral=&parmval("0.$qualifier",$symb); |
|
if ($resourcegeneral) { return $resourcegeneral; } |
|
} |
|
} |
|
return ''; |
} |
} |
|
|
|
|
|
|
# ------------------------------------------------------------- Find out status |
# ------------------------------------------------------------- Find out status |
|
# return codes |
|
# tcode (timecode) |
|
# 1: will open later |
|
# 2: is open and not past due yet |
|
# 3: is past due date |
|
# 4: due in the next 24 hours |
|
# |
|
# code (curent solved status) |
|
# 1: not attempted |
|
# 2: attempted but wrong, or incorrect by instructor |
|
# 3: solved or correct by instructor |
|
# "excused" needs to be supported, but is not yet. Could be code=4. |
sub astatus { |
sub astatus { |
my $rid=shift; |
my $rid=shift; |
my $code=1; |
my $code=1; |
my $ctext=''; |
my $ctext=''; |
$rid=~/(\d+)\.(\d+)/; |
$rid=~/(\d+)\.(\d+)/; |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
|
$Apache::lonxml::debug=1; |
my %duedate=(); |
my %duedate=(); |
my %opendate=(); |
my %opendate=(); |
my %answerdate=(); |
my %answerdate=(); |
map { |
# need to always check part 0's open/due/answer status |
|
foreach (sort(split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'keys')))) { |
if ($_=~/^parameter\_(.*)\_opendate$/) { |
if ($_=~/^parameter\_(.*)\_opendate$/) { |
my $part=$1; |
my $part=$1; |
$duedate{$part}=&parmval($part.'.duedate',$symb); |
$duedate{$part}=&parmval($part.'.duedate',$symb); |
$opendate{$part}=&parmval($part.'.opendate',$symb); |
$opendate{$part}=&parmval($part.'.opendate',$symb); |
$answerdate{$part}=&parmval($part.'.answerdate',$symb); |
$answerdate{$part}=&parmval($part.'.answerdate',$symb); |
} |
} |
} sort split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'keys')); |
} |
|
|
my $now=time; |
my $now=time; |
my $tcode=0; |
my $tcode=0; |
|
|
my %returnhash=&Apache::lonnet::restore($symb); |
my %returnhash=&Apache::lonnet::restore($symb); |
|
|
map { |
foreach (sort(keys(%opendate))) { |
|
my $duedate=$duedate{$_}; |
my $duedate=$duedate{$_}; |
my $opendate=$opendate{$_}; |
my $opendate=$opendate{$_}; |
my $answerdate=$answerdate{$_}; |
my $answerdate=$answerdate{$_}; |
my $preface=''; |
my $preface=''; |
unless ($_ eq '0') { $preface=' Part: '.$_.' '; } |
unless ($_ eq '0') { $preface=' Part: '.$_.' '; } |
if ($opendate) { |
if ($opendate) { |
if ($now<$duedate || (!$duedate)) { |
if ($now<$duedate) { |
unless ($tcode==4) { $tcode=2; } |
unless ($tcode==4) { $tcode=2; } |
if ($duedate) { |
$ctext.=$preface.'Due: '.localtime($duedate); |
$ctext.=$preface.'Due: '.localtime($duedate); |
if ($now<$opendate) { |
} else { |
unless ($tcode) { $tcode=1; } |
$ctext.=$preface.'No Due Date'; |
$ctext.=$preface.'Open: '.localtime($opendate); |
} |
} |
if ($now<$opendate) { |
if ($duedate-$now<86400) { |
unless ($tcode) { $tcode=1; } |
$tcode=4; |
$ctext.=$preface.'Open: '.localtime($opendate); |
$ctext.=$preface.'Due: '.localtime($duedate); |
} |
} |
if ($duedate && $duedate-$now<86400) { |
} else { |
$tcode=4; |
unless (($tcode==4) || ($tcode eq 2)) { $tcode=3; } |
$ctext.=$preface.'Due: '.localtime($duedate); |
if ($now<$answerdate) { |
} |
$ctext.='Answer: '.localtime($duedate); |
} else { |
} |
unless (($tcode==4) || ($tcode eq 2)) { $tcode=3; } |
|
if ($now<$answerdate) { |
|
$ctext.='Answer: '.localtime($duedate); |
|
} |
|
} |
|
} else { |
|
unless (($tcode==2) || ($tcode==4)) { $tcode=1; } |
|
} |
|
|
|
my $status=$returnhash{'resource.'.$_.'.solved'}; |
|
|
|
if ($status eq 'correct_by_student') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.=' solved'; |
|
} elsif ($status eq 'correct_by_override') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.=' override'; |
|
} elsif ($status eq 'incorrect_attempted') { |
|
$code=2; |
|
$ctext.=' ('. |
|
($returnhash{'resource.'.$_.'.tries'}? |
|
$returnhash{'resource.'.$_.'.tries'}:'0'); |
|
my $numtries = &parmval($_.'.maxtries',$symb); |
|
if ($numtries) { $ctext.='/'.$numtries.' tries'; } |
|
$ctext.=')'; |
|
} elsif ($status eq 'incorrect_by_override') { |
|
$code=2; |
|
$ctext.=' override'; |
|
} elsif ($status eq 'excused') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.=' excused'; |
|
} |
} |
} |
} else { |
|
unless (($tcode==2) || ($tcode==4)) { $tcode=1; } |
|
} |
|
|
|
my $status=$returnhash{'resource.'.$_.'.solved'}; |
|
|
|
if ($status eq 'correct_by_student') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.=' solved'; |
|
} elsif ($status eq 'correct_by_override') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.=' override'; |
|
} elsif ($status eq 'incorrect_attempted') { |
|
$code=2; |
|
$ctext.=' ('. |
|
($returnhash{'resource.'.$_.'.tries'}? |
|
$returnhash{'resource.'.$_.'.tries'}:'0').'/'. |
|
&parmval($_.'.maxtries',$symb).' tries)'; |
|
} elsif ($status eq 'incorrect_by_override') { |
|
$code=2; |
|
$ctext.=' override'; |
|
} elsif ($status eq 'excused') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.=' excused'; |
|
} |
|
|
|
} sort keys %opendate; |
|
|
|
return 'p'.$code.$tcode.'"'.$ctext.'"'; |
return 'p'.$code.$tcode.'"'.$ctext.'"'; |
} |
} |
Line 363 sub handler {
|
Line 373 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
|
|
my $requrl=$r->uri; |
my $requrl=$r->uri; |
# ----------------------------------------------------------------- Tie db file |
# ----------------------------------------------------------------- Tie db file |
if ($ENV{'request.course.fn'}) { |
if ($ENV{'request.course.fn'}) { |
Line 574 sub handler {
|
Line 583 sub handler {
|
$adde='</th>'; |
$adde='</th>'; |
} |
} |
if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
|
# sub astatus describes what code/tcode mean |
my $code=$1; |
my $code=$1; |
my $tcode=$2; |
my $tcode=$2; |
my $ctext=$3; |
my $ctext=$3; |
Line 589 sub handler {
|
Line 599 sub handler {
|
$add='<td bgcolor="#FFFFAA">'; |
$add='<td bgcolor="#FFFFAA">'; |
} |
} |
if ($tcode eq '4') { |
if ($tcode eq '4') { |
$add='<td bgcolor="#FFFF33"><blink>'; |
$add='<td bgcolor="#FFFF33">'; |
$adde='</blink></td>'; |
$adde='</td>'; |
} |
} |
} |
} |
$hwk='<font color="#888811"><b>'; |
$hwk='<font color="#888811"><b>'; |