version 1.8, 2009/05/21 04:58:40
|
version 1.11, 2009/05/23 05:26:15
|
Line 65 sub handler() {
|
Line 65 sub handler() {
|
$env{'request.uri'}=$r->uri; |
$env{'request.uri'}=$r->uri; |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header(); |
$r->send_http_header(); |
$r->print(&Apache::loncommon::start_page(&mt('Upload PDF Form'))); |
$r->print(&Apache::loncommon::start_page('Upload PDF Form')); |
|
|
#load post data into environment |
#load post data into environment |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
Line 254 sub grade_pdf {
|
Line 254 sub grade_pdf {
|
$problems{$symb.$part}{$HWVAL} = $value; |
$problems{$symb.$part}{$HWVAL} = $value; |
} else { |
} else { |
$problems{$symb.$part} = { 'resource' => $resource, |
$problems{$symb.$part} = { 'resource' => $resource, |
'symb' => &Apache::lonenc::encrypted($symb), |
'symb' => $symb, |
'submitted' => $part, |
'submitted' => $part, |
$submit => 'Answer', |
$submit => 'Answer', |
$HWVAL => $value}; |
$HWVAL => $value}; |
Line 310 sub grade_problem {
|
Line 310 sub grade_problem {
|
sub parse_grade_answer { |
sub parse_grade_answer { |
my ($shortcut) = @_; |
my ($shortcut) = @_; |
my %answerhash = ('EXACT_ANS' => &mt('You are correct.'), |
my %answerhash = ('EXACT_ANS' => &mt('You are correct.'), |
'APPROX_ANS' => &mt('You are approximated right'), |
'APPROX_ANS' => &mt('You are correct.'), |
'INCORRECT' => &mt('You are incorrect'), |
'INCORRECT' => &mt('You are incorrect'), |
); |
); |
|
|