version 1.386, 2007/01/04 14:59:57
|
version 1.389, 2007/02/12 23:09:14
|
Line 2125 sub processHandGrade {
|
Line 2125 sub processHandGrade {
|
if ($encrypturl =~ /^yes$/i) { |
if ($encrypturl =~ /^yes$/i) { |
$baseurl = &Apache::lonenc::encrypted($feedurl,1); |
$baseurl = &Apache::lonenc::encrypted($feedurl,1); |
$showsymb = &Apache::lonenc::encrypted($symb,1); |
$showsymb = &Apache::lonenc::encrypted($symb,1); |
|
} else { |
|
$baseurl = $feedurl; |
|
$showsymb = $symb; |
} |
} |
if ($includemsg =~ /savemsg|newmsg\Q$ctr\E/) { |
if ($includemsg =~ /savemsg|newmsg\Q$ctr\E/) { |
$subject = $env{'form.msgsub'} if ($includemsg =~ /msgsub/); |
$subject = $env{'form.msgsub'} if ($includemsg =~ /msgsub/); |
Line 2534 sub handback_files {
|
Line 2537 sub handback_files {
|
$message .= ' The returned file(s) are named: '. $file_msg; |
$message .= ' The returned file(s) are named: '. $file_msg; |
$message .= " and can be found in your portfolio space."; |
$message .= " and can be found in your portfolio space."; |
my $url = (&Apache::lonnet::decode_symb($symb))[2]; |
my $url = (&Apache::lonnet::decode_symb($symb))[2]; |
my $feedurl = &Apache::lonnet::declutter($url); |
my $feedurl = &Apache::lonnet::clutter($url); |
my $encrypturl=&Apache::lonnet::EXT('resource.0.encrypturl', |
my $encrypturl=&Apache::lonnet::EXT('resource.0.encrypturl', |
$symb,$domain,$stuname); |
$symb,$domain,$stuname); |
my ($baseurl,$showsymb); |
my ($baseurl,$showsymb); |
Line 4635 sub scantron_fixup_scanline {
|
Line 4638 sub scantron_fixup_scanline {
|
$answer=$alphabet[$args->{'response'}]; |
$answer=$alphabet[$args->{'response'}]; |
} elsif ($on eq 'number') { |
} elsif ($on eq 'number') { |
$answer=$args->{'response'}+1; |
$answer=$args->{'response'}+1; |
|
if ($answer == 10) { $answer = '0'; } |
} else { |
} else { |
substr($answer,$args->{'response'},1)=$on; |
substr($answer,$args->{'response'},1)=$on; |
} |
} |
Line 4705 sub scantron_parse_scanline {
|
Line 4709 sub scantron_parse_scanline {
|
|| $currentquest eq '*') { |
|| $currentquest eq '*') { |
push(@{$record{'scantron.doubleerror'}},$questnum); |
push(@{$record{'scantron.doubleerror'}},$questnum); |
$record{"scantron.$questnum.answer"}=''; |
$record{"scantron.$questnum.answer"}=''; |
} elsif (!$currentquest |
} elsif (!defined($currentquest) |
|| $currentquest eq $$scantron_config{'Qoff'} |
|| $currentquest eq $$scantron_config{'Qoff'} |
|| $currentquest !~ /^[A-Z]$/) { |
|| $currentquest !~ /^[A-Z]$/) { |
$record{"scantron.$questnum.answer"}=''; |
$record{"scantron.$questnum.answer"}=''; |
Line 4720 sub scantron_parse_scanline {
|
Line 4724 sub scantron_parse_scanline {
|
|| $currentquest eq '*') { |
|| $currentquest eq '*') { |
push(@{$record{'scantron.doubleerror'}},$questnum); |
push(@{$record{'scantron.doubleerror'}},$questnum); |
$record{"scantron.$questnum.answer"}=''; |
$record{"scantron.$questnum.answer"}=''; |
} elsif (!$currentquest |
} elsif (!defined($currentquest) |
|| $currentquest eq $$scantron_config{'Qoff'} |
|| $currentquest eq $$scantron_config{'Qoff'} |
|| $currentquest !~ /^\d$/) { |
|| $currentquest !~ /^\d$/) { |
$record{"scantron.$questnum.answer"}=''; |
$record{"scantron.$questnum.answer"}=''; |
if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) { |
if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) { |
push(@{$record{"scantron.missingerror"}},$questnum); |
push(@{$record{"scantron.missingerror"}},$questnum); |