version 1.221, 2007/01/19 23:43:50
|
version 1.224.2.1, 2007/02/26 19:37:38
|
Line 868 sub get_key_todo {
|
Line 868 sub get_key_todo {
|
my ($symb,$cid)=&Apache::lonnet::whichuser(); |
my ($symb,$cid)=&Apache::lonnet::whichuser(); |
my $cnum = $env{'course.'.$cid.'.num'}; |
my $cnum = $env{'course.'.$cid.'.num'}; |
my $cdom = $env{'course.'.$cid.'.domain'}; |
my $cdom = $env{'course.'.$cid.'.domain'}; |
my $uname = $env{'form.gradinguser'}; |
my $uname = &LONCAPA::clean_username($env{'form.gradinguser'}); |
my $udom = $env{'form.gradingdomain'}; |
my $udom = &LONCAPA::clean_domain($env{'form.gradingdomain'}); |
|
|
my $gradingkey=&encode_queue_key($symb,$udom,$uname); |
my $gradingkey=&encode_queue_key($symb,$udom,$uname); |
|
|
Line 2289 sub end_Dimension {
|
Line 2289 sub end_Dimension {
|
('sub' x $dimension{$dim}{'depth'}).'question'; |
('sub' x $dimension{$dim}{'depth'}).'question'; |
$ucquestion =~ s/^(.)/uc($1)/e; |
$ucquestion =~ s/^(.)/uc($1)/e; |
if ($dim_status eq 'pass') { |
if ($dim_status eq 'pass') { |
$dim_info.='<h3>'.$ucquestion.' : you passed the above '.$mandatory.' '.$question.'</h3>'; |
$dim_info.='<h3>'.$ucquestion.' : you passed this '.$mandatory.' '.$question.'</h3>'; |
} |
} |
if ($dim_status eq 'fail') { |
if ($dim_status eq 'fail') { |
$dim_info.='<h3>'.$ucquestion.' : you did not pass the above '.$mandatory.' '.$question.'</h3>'; |
$dim_info.='<h3>'.$ucquestion.' : you did not pass this '.$mandatory.' '.$question.'</h3>'; |
} |
} |
my %counts = &get_counts($dim,$instance,$parstack, |
my %counts = &get_counts($dim,$instance,$parstack, |
$safeeval); |
$safeeval); |
Line 2322 sub end_Dimension {
|
Line 2322 sub end_Dimension {
|
} |
} |
} |
} |
# puts the results at the end of the dimension |
# puts the results at the end of the dimension |
$result .= $dim_info; |
if ($result =~m{<QuestionGradeInfo\s*/>}) { |
|
$result=~s{<QuestionGradeInfo\s*/>}{$dim_info}; |
|
} else { |
|
$result .= $dim_info; |
|
} |
# puts the results at the beginning of the dimension |
# puts the results at the beginning of the dimension |
# my $internal_location=&internal_location($dim); |
# my $internal_location=&internal_location($dim); |
# $result=~s/\Q$internal_location\E/$dim_info/; |
# $result=~s/\Q$internal_location\E/$dim_info/; |