version 1.4, 2001/12/13 00:30:22
|
version 1.5, 2001/12/21 20:42:11
|
Line 33
|
Line 33
|
# |
# |
# 3/1/1 Gerd Kortemeyer) |
# 3/1/1 Gerd Kortemeyer) |
# |
# |
# 3/1,12/6,12/12 Gerd Kortemeyer |
# 3/1,12/6,12/12,12/21 Gerd Kortemeyer |
# |
# |
package Apache::lonevaluate; |
package Apache::lonevaluate; |
|
|
Line 110 ENDHEADER
|
Line 110 ENDHEADER
|
|
|
# ---------------------------------------------------------- Dial in old values |
# ---------------------------------------------------------- Dial in old values |
my $dialold=''; |
my $dialold=''; |
|
my $oldcomments=''; |
|
|
|
foreach my $item (@items) { |
|
unless ($item eq 'comments') { |
|
unless ($item eq 'timestamp') { |
|
$dialold.= |
|
'document.evaluation.'.$item.'.selectedIndex='. |
|
$currenteval{$prefix.$item}.";\n"; |
|
} |
|
} else { |
|
$oldcomments=$currenteval{$prefix.$item}; |
|
} |
|
} |
|
|
# ------------------------------------------------------- Print out eval screen |
# ------------------------------------------------------- Print out eval screen |
my $standardoptions=(<<ENDOPTIONS); |
my $standardoptions=(<<ENDOPTIONS); |
Line 121 ENDHEADER
|
Line 134 ENDHEADER
|
<option value=5>Strongly Agree</option> |
<option value=5>Strongly Agree</option> |
ENDOPTIONS |
ENDOPTIONS |
|
|
my $oldcomments=''; |
|
|
|
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<head> |
<head> |
Line 133 ENDOPTIONS
|
Line 144 ENDOPTIONS
|
<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: |
<form method=post> |
<form method=post name=evaluation> |
<input type=hidden name=submiteval value=true> |
<input type=hidden name=submiteval value=true> |
<input type=hidden name=postdata value="$feedurl"> |
<input type=hidden name=postdata value="$feedurl"> |
The material appears to be correct |
The material appears to be correct |
Line 164 $standardoptions
|
Line 175 $standardoptions
|
<hr> |
<hr> |
Any comments? |
Any comments? |
<br><textarea name=comments cols=40 rows=5>$oldcomments</textarea> |
<br><textarea name=comments cols=40 rows=5>$oldcomments</textarea> |
$dialold |
<script>$dialold</script> |
<br><input type=submit value="Submit Evaluation"> |
<br><input type=submit value="Submit Evaluation"> |
</form> |
</form> |
</body> |
</body> |