version 1.200, 2006/11/09 21:31:11
|
version 1.201, 2006/11/09 21:39:34
|
Line 2666 sub layout_webgrade_Criteria {
|
Line 2666 sub layout_webgrade_Criteria {
|
if ($status eq $which) { $checked{$which} = 'checked="checked"'; } |
if ($status eq $which) { $checked{$which} = 'checked="checked"'; } |
} |
} |
if (!%checked) { $checked{'ungraded'} = 'checked="checked"'; } |
if (!%checked) { $checked{'ungraded'} = 'checked="checked"'; } |
|
my $buttons; |
|
foreach my $which ('ungraded','fail','pass','review') { |
|
$buttons .= <<END_BUTTON; |
|
<label class="LC_GRADING_$which"> |
|
<input type="radio" name="HWVAL_$link" value="$which" $checked{$which} /> |
|
$lt{$which} |
|
</label> |
|
END_BUTTON |
|
} |
my $result = <<END_CRITERIA; |
my $result = <<END_CRITERIA; |
<div class="LC_GRADING_criteria"> |
<div class="LC_GRADING_criteria"> |
<div class="LC_GRADING_criteriatext"> |
<div class="LC_GRADING_criteriatext"> |
$criteria |
$criteria |
</div> |
</div> |
<div class="LC_GRADING_grade"> |
<div class="LC_GRADING_grade"> |
<label class="LC_GRADING_ungraded"> |
$buttons |
<input type="radio" name="HWVAL_$link" value="ungraded" $checked{'ungraded'} /> |
</div> |
$lt{'ungraded'} |
<label class="LC_GRADING_comment"> |
</label> |
$lt{'comment'} |
<label class="LC_GRADING_fail"> |
<textarea class="LC_GRADING_comment_area" name="HWVAL_comment_$link">$comment</textarea> |
<input type="radio" name="HWVAL_$link" value="fail" $checked{'fail'} /> |
</label> |
$lt{'fail'} |
</div> |
</label> |
|
<label class="LC_GRADING_pass"> |
|
<input type="radio" name="HWVAL_$link" value="pass" $checked{'pass'} /> |
|
$lt{'pass'} |
|
</label> |
|
<label class="LC_GRADING_review"> |
|
<input type="radio" name="HWVAL_$link" value="review" $checked{'review'} /> |
|
$lt{'review'} |
|
</label> |
|
</div> |
|
<label class="LC_GRADING_comment"> |
|
$lt{'comment'} |
|
<textarea class="LC_GRADING_comment_area" name="HWVAL_comment_$link">$comment</textarea> |
|
</label> |
|
</div> |
|
END_CRITERIA |
END_CRITERIA |
$result .= &grading_history($version,$dim,$id); |
$result .= &grading_history($version,$dim,$id); |
return $result; |
return $result; |