#!/usr/bin/perl
require 'parse.pl';
&parse_form;
$mainf="evalresult.txt";
print "Content-type: text/html\n\n";
print "<html><body bgcolor=#fffffd>";
print "แบบประเมิน : รหัส $v{'id'} วิชา ",substr($v{'subj'},0,6);
print " ตอนที่ ",substr($v{'subj'},6,2),"<br>";
if ($v{'q11'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 1<br>"; }
if ($v{'q12'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 2<br>"; }
if ($v{'q13'} eq "0") { $ok="Error"; print "ท่านไม่ได้ตอบคำถามที่ 3<br>"; }
if ($ok ne "Error") {
open(STDIN,$mainf);
@ar = <STDIN>;
close(STDIN);
foreach $r(@ar) {
@rg = split (',',$r);
if ($rg[0] eq $v{'id'} and $rg[1] eq $v{'subj'}) { $ok='found'; }
}
}
if ($ok eq "found") {
print "<hr>วิชานี้ถูกประเมินไปแล้ว";
} else {
$v{'qopen'} =~ s/,/./g;
open (keepf,">>$mainf");
print keepf "$v{'id'},$v{'subj'},$v{'q11'},$v{'q12'},$v{'q13'},$v{'qopen'}\n";
close(keepf);
print "<hr>การประเมินวิชานี้ เสร็จสิ้นสมบูรณ์";
}
print "</body></html>";
