version 1.789, 2022/06/11 14:20:42
|
version 1.791, 2023/02/09 19:27:18
|
Line 2911 sub get_last_submission {
|
Line 2911 sub get_last_submission {
|
foreach my $key (sort(split(/\:/, |
foreach my $key (sort(split(/\:/, |
$$returnhash{$version.':keys'}))) { |
$$returnhash{$version.':keys'}))) { |
$lasthash{$key}=$$returnhash{$version.':'.$key}; |
$lasthash{$key}=$$returnhash{$version.':'.$key}; |
$timestamp = |
|
&Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'}); |
|
} |
} |
|
$timestamp = |
|
&Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'}); |
} |
} |
my (%typeparts,%randombytry); |
my (%typeparts,%randombytry); |
my $showsurv = |
my $showsurv = |
Line 9611 END
|
Line 9611 END
|
my @lines = &Apache::lonnet::get_scantronformat_file(); |
my @lines = &Apache::lonnet::get_scantronformat_file(); |
my $count = 0; |
my $count = 0; |
foreach my $line (@lines) { |
foreach my $line (@lines) { |
next if ($line =~ /^#/); |
next if (($line =~ /^\#/) || ($line eq '')); |
$singleline = $line; |
$singleline = $line; |
$count ++; |
$count ++; |
} |
} |
Line 9805 sub validate_uploaded_scantron_file {
|
Line 9805 sub validate_uploaded_scantron_file {
|
my %unique_formats; |
my %unique_formats; |
my @formatlines = &Apache::lonnet::get_scantronformat_file(); |
my @formatlines = &Apache::lonnet::get_scantronformat_file(); |
foreach my $line (@formatlines) { |
foreach my $line (@formatlines) { |
|
next if (($line =~ /^\#/) || ($line eq '')); |
my @config = split(/:/,$line); |
my @config = split(/:/,$line); |
my $idstart = $config[5]; |
my $idstart = $config[5]; |
my $idlength = $config[6]; |
my $idlength = $config[6]; |