version 1.22, 2007/11/22 15:12:31
|
version 1.23, 2007/11/28 01:41:49
|
Line 135 ENDHEADER
|
Line 135 ENDHEADER
|
} |
} |
} |
} |
# ------------------------------------------------------- Print out eval screen |
# ------------------------------------------------------- Print out eval screen |
my %lt=&Apache::lonlocal::texthash('a' => 'Strongly Disagree', 'b' => 'Disagree' |
my %lt=&Apache::lonlocal::texthash('a' => 'Strongly Disagree', |
, 'c' => 'Neutral', 'd' => 'Agree', 'e' => 'Strongly Agree'); |
'b' => 'Disagree', |
|
'c' => 'Neutral', |
|
'd' => 'Agree', |
|
'e' => 'Strongly Agree',); |
my $standardoptions=''; |
my $standardoptions=''; |
$standardoptions = (<<ENDOPTIONS); |
$standardoptions = (<<ENDOPTIONS); |
<option value="0">-</option> |
<option value="0">-</option> |
Line 151 ENDOPTIONS
|
Line 154 ENDOPTIONS
|
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
|
%lt=&Apache::lonlocal::texthash( |
%lt=&Apache::lonlocal::texthash( |
'pleaserank' => 'Please rank the following criteria:' |
'pleaserank' => 'Please rank the following criteria:', |
, 'correct' => 'The material appears to be correct' |
'correct' => 'The material appears to be correct', |
, 'helpful' => 'The material is helpful' |
'helpful' => 'The material is helpful', |
, 'depth' => 'The material is covered with sufficient depth' |
'depth' => 'The material is covered with sufficient depth', |
, 'clear' => 'The material is presented in a clear way' |
'clear' => 'The material is presented in a clear way', |
, 'technical' => 'The resource is technically correct (loads fast enough, does not produce errors, links work, etc)' |
'technical' => 'The resource is technically correct (loads fast enough, does not produce errors, links work, etc)', |
, 'comments' => 'Any comments?' |
'comments' => 'Any comments?', |
, 'submit' => 'Submit Evaluation' |
'submit' => 'Submit Evaluation', |
); |
); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
$start_page |
$start_page |