version 1.23, 2002/01/01 20:33:15
|
version 1.24, 2002/02/11 18:32:22
|
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}; } |
if ($courseopt{$courselevelr}) { return $courseopt{$courselevelr}; } |
|
if ($courseopt{$courselevelm}) { return $courseopt{$courselevelm}; } |
|
if ($courseopt{$courselevel}) { return $courseopt{$courselevel}; } |
|
|
# ----------------------------------------------------- second, check map parms |
# ----------------------------------------------------- third, check map parms |
|
|
my $thisparm=$parmhash{$symbparm}; |
my $thisparm=$parmhash{$symbparm}; |
if ($thisparm) { return $thisparm; } |
if ($thisparm) { return $thisparm; } |
|
|
# -------------------------------------------------------- first, check default |
# ----------------------------------------------------- fourth , check default |
|
|
return &Apache::lonnet::metadata($fn,$rwhat.'.default'); |
return &Apache::lonnet::metadata($fn,$rwhat.'.default'); |
|
|
} |
} |
|
|
|
|
Line 179 sub astatus {
|
Line 157 sub astatus {
|
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}); |
|
|
my %duedate=(); |
my %duedate=(); |
my %opendate=(); |
my %opendate=(); |
Line 198 sub astatus {
|
Line 176 sub astatus {
|
|
|
my %returnhash=&Apache::lonnet::restore($symb); |
my %returnhash=&Apache::lonnet::restore($symb); |
|
|
map { |
map { |
|
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) { |
if ($now<$duedate) { |
unless ($tcode==4) { $tcode=2; } |
unless ($tcode==4) { $tcode=2; } |
$ctext.=$preface.'Due: '.localtime($duedate); |
$ctext.=$preface.'Due: '.localtime($duedate); |
if ($now<$opendate) { |
if ($now<$opendate) { |
unless ($tcode) { $tcode=1; } |
unless ($tcode) { $tcode=1; } |
$ctext.=$preface.'Open: '.localtime($opendate); |
$ctext.=$preface.'Open: '.localtime($opendate); |
} |
} |
if ($duedate-$now<86400) { |
if ($duedate-$now<86400) { |
$tcode=4; |
$tcode=4; |
$ctext.=$preface.'Due: '.localtime($duedate); |
$ctext.=$preface.'Due: '.localtime($duedate); |
} |
} |
} else { |
} else { |
unless (($tcode==4) || ($tcode eq 2)) { $tcode=3; } |
unless (($tcode==4) || ($tcode eq 2)) { $tcode=3; } |
if ($now<$answerdate) { |
if ($now<$answerdate) { |
$ctext.='Answer: '.localtime($duedate); |
$ctext.='Answer: '.localtime($duedate); |
} |
} |
} |
} |
} else { |
} else { |
unless (($tcode==2) || ($tcode==4)) { $tcode=1; } |
unless (($tcode==2) || ($tcode==4)) { $tcode=1; } |
} |
} |
|
|
my $status=$returnhash{'resource.'.$_.'.solved'}; |
my $status=$returnhash{'resource.'.$_.'.solved'}; |
|
|
if ($status eq 'correct_by_student') { |
if ($status eq 'correct_by_student') { |
unless ($code==2) { $code=3; } |
unless ($code==2) { $code=3; } |
$ctext.=' solved'; |
$ctext.=' solved'; |
} elsif ($status eq 'correct_by_override') { |
} elsif ($status eq 'correct_by_override') { |
unless ($code==2) { $code=3; } |
unless ($code==2) { $code=3; } |
$ctext.=' override'; |
$ctext.=' override'; |
} elsif ($status eq 'incorrect_attempted') { |
} elsif ($status eq 'incorrect_attempted') { |
$code=2; |
$code=2; |
$ctext.=' ('. |
$ctext.=' ('. |
($returnhash{'resource.'.$_.'.tries'}? |
($returnhash{'resource.'.$_.'.tries'}? |
$returnhash{'resource.'.$_.'.tries'}:'0').'/'. |
$returnhash{'resource.'.$_.'.tries'}:'0').'/'. |
|
&parmval($_.'.maxtries',$symb).' tries)'; |
&parmval($_.'.maxtries',$symb).' tries)'; |
} elsif ($status eq 'incorrect_by_override') { |
} elsif ($status eq 'incorrect_by_override') { |
$code=2; |
$code=2; |
$ctext.=' override'; |
$ctext.=' override'; |
} elsif ($status eq 'excused') { |
} elsif ($status eq 'excused') { |
unless ($code==2) { $code=3; } |
unless ($code==2) { $code=3; } |
$ctext.=' excused'; |
$ctext.=' excused'; |
} |
} |
|
|
} sort keys %opendate; |
} sort keys %opendate; |
|
|
return 'p'.$code.$tcode.'"'.$ctext.'"'; |
return 'p'.$code.$tcode.'"'.$ctext.'"'; |
} |
} |