print "<H2>Hello $fullname!</H2><P>";
print start_form (-name=>'makequiz', -method=>'POST', -action=>"http://ist221.nsm.tridenttech.edu/perl/gradequiz.cgi");

chdir("/perl/web");
open FILE, "$file" || die "Cannot open $file: $!";

while (<FILE>) {        # ** READS EACH LINE OF TEXT FROM FILE
chomp;                                # ** BY DEFAULT, CHOMPS OFF $/ FROM EACH LINE
($type, $value) = split (/:#\s*/, $_);         # ***** SPLITS EACH LINE BY TYPE AND CONTENT

if ($type =~ m/i/i) {        # ** CHECKS FOR IMAGE
print "<IMG SRC=http://ist221.tridenttech.edu/images/$courselocation/$value>";
print "<P>";
}elsif ($type =~ m/q/i) {        # ** CHECKS FOR QUESTION LINE & PRINTS QUESTION
   $questionno++;
   print "<B>$questionno. $value</B><BR>";
   push(@allquestions, $value);
}elsif ($type =~ m/a/i) {        # ** CHECKS FOR ANSWER LINE
        @answers = split (/`\s*/, $value);
        $anslength = @answers;                # ** LENGTH OF @ANSWERS
        push(@allanswers, $value);
        }elsif ($type =~ m/s/i) {                # ** CHECKS FOR SELECTION LINE
           $buttonname = $type . $questionno;
                push(@allselections, $value);
                         %selections = split (/`\s*/, $value);
                 @options = keys (%selections);
                           if ($anslength > 1) {        # ** DETERMINES TO USE RADIO OR CHECKBOX
                         print "<BR>";
                           print checkbox_group(-name=>$buttonname, -values=>\@options, -linebreak=>'true', -labels=>\%selections);
                           }else {
                         print "<BR>";
                         print radio_group(-name=>$buttonname, -values=>\@options, -linebreak=>'true', -labels=>\%selections, -default=>'-');
                              }
                print "<BR><HR><BR>";
                }elsif ($type =~ m/e/i) {# ** CHECKS FOR EXPLAINATION LINE
                        push (@explain, $questionno, $value);
                } # END ELSIF STATEMENTS
}   # ** END WHILE STATEMENT
close (FILE);

print "<CENTER>";

# ** THIS SECTION SENDS THREE ARRAYS TO THE GRADEQUIZ.CGI
print hidden(-name=>"answers", -default=>\@allanswers);
print hidden(-name=>"questions", -default=>\@allquestions);
print hidden(-name=>"selections", -default=>\@allselections);
print hidden(-name=>"explain", -default=>\@explain);
print hidden(-name=>'fname', -value=>$fname);
print hidden(-name=>'lname', -value=>$lname);
print hidden(-name=>'reviewtime', -value=>$reviewtime);
print hidden(-name=>'file', -value=>$file);
print hidden(-name=>'id', -value=>$idinput);

print submit (-value=>'Grade');
print "</CENTER>";
print end_form;
}

print "The last element in the questions array is $#allquestions<p>";
# ************************* END SUBROUTINE MAKEEXAM
print end_html;