version 1.528.2.4, 2008/12/24 07:06:08
|
version 1.528.2.7, 2008/12/31 21:10:29
|
Line 2135 KEYWORDS
|
Line 2135 KEYWORDS
|
' )</span> '; |
' )</span> '; |
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record); |
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record); |
if (@$files) { |
if (@$files) { |
$lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain virusses').'</span><br />'; |
$lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain viruses').'</span><br />'; |
my $file_counter = 0; |
my $file_counter = 0; |
foreach my $file (@$files) { |
foreach my $file (@$files) { |
$file_counter++; |
$file_counter++; |
Line 2358 sub get_last_submission {
|
Line 2358 sub get_last_submission {
|
$$returnhash{$version.':keys'}))) { |
$$returnhash{$version.':keys'}))) { |
$lasthash{$key}=$$returnhash{$version.':'.$key}; |
$lasthash{$key}=$$returnhash{$version.':'.$key}; |
$timestamp = |
$timestamp = |
scalar(localtime($$returnhash{$version.':timestamp'})); |
&Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'}); |
} |
} |
} |
} |
foreach my $key (keys(%lasthash)) { |
foreach my $key (keys(%lasthash)) { |
Line 7349 sub scantron_get_maxbubble {
|
Line 7349 sub scantron_get_maxbubble {
|
my ($numbub,$numshown); |
my ($numbub,$numshown); |
if ($analysis->{$part_id.'.type'} eq 'optionresponse') { |
if ($analysis->{$part_id.'.type'} eq 'optionresponse') { |
if (ref($analysis->{$part_id.'.options'}) eq 'ARRAY') { |
if (ref($analysis->{$part_id.'.options'}) eq 'ARRAY') { |
$numbub = scalar(@{$analysis{$part_id.'.options'}}); |
$numbub = scalar(@{$analysis->{$part_id.'.options'}}); |
} |
} |
} elsif ($analysis->{$part_id.'.type'} eq 'matchresponse') { |
} elsif ($analysis->{$part_id.'.type'} eq 'matchresponse') { |
if (ref($analysis{$part_id.'.items'}) eq 'ARRAY') { |
if (ref($analysis->{$part_id.'.items'}) eq 'ARRAY') { |
$numbub = scalar(@{$analysis{$part_id.'.items'}}); |
$numbub = scalar(@{$analysis->{$part_id.'.items'}}); |
} |
} |
} elsif ($analysis->{$part_id.'.type'} eq 'rankresponse') { |
} elsif ($analysis->{$part_id.'.type'} eq 'rankresponse') { |
if (ref($analysis->{$part_id.'.foils'}) eq 'ARRAY') { |
if (ref($analysis->{$part_id.'.foils'}) eq 'ARRAY') { |