version 1.9, 2002/08/09 19:49:30
|
version 1.10, 2002/08/26 12:47:28
|
Line 40 package Apache::lonevaluate;
|
Line 40 package Apache::lonevaluate;
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
use Apache::loncommon; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 75 sub handler {
|
Line 76 sub handler {
|
|
|
my $warning=''; |
my $warning=''; |
|
|
|
my $bodytag=&Apache::loncommon::bodytag('Evaluate Resource'); |
|
|
if ($ENV{'form.submiteval'} eq 'true') { |
if ($ENV{'form.submiteval'} eq 'true') { |
# ------------------------------------------------ User is submitting something |
# ------------------------------------------------ User is submitting something |
my $complete=1; |
my $complete=1; |
Line 99 sub handler {
|
Line 102 sub handler {
|
</script> |
</script> |
<meta http-equiv="pragma" content="no-cache"></meta> |
<meta http-equiv="pragma" content="no-cache"></meta> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
$bodytag |
<h1>Thank you for your input!</h1> |
<h1>Thank you for your input!</h1> |
ENDHEADER |
ENDHEADER |
$r->print('Storing feedback: '. |
$r->print('Storing feedback: '. |
Line 147 ENDOPTIONS
|
Line 150 ENDOPTIONS
|
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
$bodytag |
<h1>Evaluate Resource</h1> |
|
<tt>$feedurl</tt><p> |
<tt>$feedurl</tt><p> |
<h3><font color="red">$warning</font></h3> |
<h3><font color="red">$warning</font></h3> |
Please rank the following criteria: |
Please rank the following criteria: |