version 1.596.2.12.2.41.2.3, 2019/02/03 20:47:11
|
version 1.596.2.12.2.41.2.5, 2019/02/06 05:55:25
|
Line 5815 sub scantron_selectphase {
|
Line 5815 sub scantron_selectphase {
|
|
|
$r->print(' |
$r->print(' |
<br />'); |
<br />'); |
my $default_form_data=&defaultFormData($symb); |
|
my $cdom= $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom= $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cnum= $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum= $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $alertmsg = &mt('Please use the browse button to select a file from your local directory.'); |
my $alertmsg = &mt('Please use the browse button to select a file from your local directory.'); |
Line 5864 sub scantron_selectphase {
|
Line 5863 sub scantron_selectphase {
|
</form>' |
</form>' |
); |
); |
|
|
|
} |
|
|
# Chunk of form to prompt for a file to grade and how: |
# Chunk of form to prompt for a file to grade and how: |
|
|
$result.= ' |
$result.= ' |
Line 9180 sub validate_uploaded_scantron_file {
|
Line 9181 sub validate_uploaded_scantron_file {
|
$idmap{$lckey} = $idmap{$key}; |
$idmap{$lckey} = $idmap{$key}; |
} |
} |
my %unique_formats; |
my %unique_formats; |
my @formatlines = &get_scantronformat_file(); |
my @formatlines = &Apache::lonnet::get_scantronformat_file(); |
foreach my $line (@formatlines) { |
foreach my $line (@formatlines) { |
chomp($line); |
chomp($line); |
my @config = split(/:/,$line); |
my @config = split(/:/,$line); |