|
version 1.596, 2010/02/28 23:31:42
|
version 1.596.2.1, 2010/08/13 01:23:59
|
|
Line 382 sub cleanRecord {
|
Line 382 sub cleanRecord {
|
| return '<blockquote><table border="1">'. |
return '<blockquote><table border="1">'. |
| '<tr valign="top"><td>'.&mt('Answer').'</td>'.$toprow.'</tr>'. |
'<tr valign="top"><td>'.&mt('Answer').'</td>'.$toprow.'</tr>'. |
| '<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'. |
'<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'. |
| $grayFont.$bottomrow.'</tr>'.'</table></blockquote>'; |
$bottomrow.'</tr></table></blockquote>'; |
| } elsif ($response eq 'match') { |
} elsif ($response eq 'match') { |
| my %answer=&Apache::lonnet::str2hash($answer); |
my %answer=&Apache::lonnet::str2hash($answer); |
| my %grading=&Apache::lonnet::str2hash($record->{$version."resource.$partid.$respid.submissiongrading"}); |
my %grading=&Apache::lonnet::str2hash($record->{$version."resource.$partid.$respid.submissiongrading"}); |
|
Line 8948 sub process_clicker {
|
Line 8948 sub process_clicker {
|
| my $pcorrect=&mt("Percentage points for correct solution"); |
my $pcorrect=&mt("Percentage points for correct solution"); |
| my $pincorrect=&mt("Percentage points for incorrect solution"); |
my $pincorrect=&mt("Percentage points for incorrect solution"); |
| my $selectform=&Apache::loncommon::select_form($env{'form.upfiletype'},'upfiletype', |
my $selectform=&Apache::loncommon::select_form($env{'form.upfiletype'},'upfiletype', |
| ('iclicker' => 'i>clicker', |
{'iclicker' => 'i>clicker', |
| 'interwrite' => 'interwrite PRS')); |
'interwrite' => 'interwrite PRS'}); |
| $symb = &Apache::lonenc::check_encrypt($symb); |
$symb = &Apache::lonenc::check_encrypt($symb); |
| $result.=<<ENDUPFORM; |
$result.=<<ENDUPFORM; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework