#!/usr/bin/perl -w
use CGI qw(:standard -debug);
use CGI::Carp qw(fatalsToBrowser);

########## credits  ##################
# Created by Todd Vandenbark #
######################################

# --------------------------------------
# Takes input from manualStudentLogin.html
# and searches student.txt file for matching
# ID, last name, or organization. Presents
# matching results in a bulleted list.
# Submits input to studentrept.cgi
# to generate report of individual student's 
# record of dates and times spent studying.
# --------------------------------------

#----------- define variables ----------
my $id;                 # student ID#
my $username;           # BSU username
my $last;               # last name
my $first;              # firstname
my $org;                # Greek organization
my $session;            # study session
my $inStudents;         # file of students in system
my $inSessions;         # file of study sessions
my @s1list = "";        # temp input array
my @studentlist = "";   # array of students

$inStudents = '../../student.txt'; # list of students

open (IN, "$inStudents") ||
   die "Can't open $inStudents: $!\n";
@s1list = <IN>;
close IN;
@studentlist = sort @s1list;



# ---- start selection form ----
$method = 'post';
$action = 'studentrept.cgi';
$encoding = 'application/x-www-form-urlencoded';

my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
my $title = 'Report by student';
my $logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';
$subtitle = 'Select from list:';

print header();

print start_html(-title => $title,
                 -head => $css,
                 -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">';
print "\n";
print h1("$logo $title");
print '</div> <!-- end #header -->';
print "\n";
print '<div id="mainContent">';
print h2("$subtitle");
print startform($method,$action,$encoding);
print "\n";
print '<ul class="nearmid">' . "\n";
foreach $key (@studentlist) {   # read in student list
    ($id, $username, $first, $last, $org, $session) = split(/:/, $key);
    print '<li>' . "\n" .
      '<input type="radio" name="student" value="' . $key . '" id="student" />' .
	  $last . ', ' . $first . ', ' . $id . "\n" .
	  '</li>' . "\n";
}
print '</ul>';
print "\n";   
print '<p>';
print reset;
print ' &nbsp; ';
print submit(-name=>'submit', -value=>'Report');
print end_form();

print "\n";
print <<EOF;

      <table>
      <tr>
        <td class="w33l">
           <form action="bugReport.cgi" method="post" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="findstudent.cgi" />
           <a href="javascript:document.bugReport.submit()">
			<img src="../images/problemButton1.gif" alt="Report a problem." /></a>
			</form>
          </td>
        <td class="w33ctr"><a href="sl2.cgi"><img src="../images/mainmenudiamond.gif" alt="Main menu." width="100" height="75" /></a></td>
		<td class="w33rt"><a href="../helpfaq.html"><img src="../images/helpButton1.gif" alt="Help function" /></a></td>
      </tr>
    </table>
    
EOF

&footerprint();

# ------ subroutines used ------------------------------------
sub footerprint {
  print '<!-- end #mainContent --></div>'. "\n" .
    '<div id="footer">'. "\n" .
    '<p>Created by Michael Pierce, Todd Vandenbark, Crystal White'.
    '<br />S517: Web Programming <br />'. "\n" .
     'March 28th, 2009 <br />'. "\n" .
    '<a href="http://studylog.firesidelibrarian.com/contact.htm">'.
    'Contact Us</a></p>'. "\n" .
    '<!-- end #footer --></div>'. "\n" .
    '<!-- end #container --></div>' . "\n";

  print end_html;
}