#!/usr/local/bin/perl -w

# fallcourses.cgi
# Program to display fall course information for Community Education
# After you publish a revised page you have to adjust the properties to 755

use strict;

# ********************  configuration variables
# **********************************************************************
my ($debugit)           = 0;                # 1 prints variable values at
                                            # specific points for debugging

my ($runline)   = "http://alamo.nmsu.edu/comed/fallcourses.cgi";

my ($datafile)  = "/web/site/comed/tbl-FallCourse.txt";

my ($yearFallfile) = "/web/site/comed/yearFall.txt";
my ($webpath) = "http://alamo.nmsu.edu/community";

#********************   variable declarations
# **********************************************************************

my ($yearFall) = "";


print "Content-type: text/html\n\n";


# ******************  Main Routine **************************
# ***********************************************************
 
if ($debugit) { print "Beginning of Main Program<br />"; }
print_header();
if ($debugit) { print "Determine user input<br />"; }
if ($debugit) { print "ARGV = $ARGV[0]<br />"; }
if ($debugit) { print "Display data based on user input<br />"; }
read_yearFall();
if ($ARGV[0] ne "") {
    if ($debugit) { print "ARGV = $ARGV[0]<br />"; }
    if ($debugit) { print "go to print course info routine<br />"; }
    print_courseinfo(); }
else {
    print_courselist(); }
print_footer();


# ****************  Begin subroutines ***********************
# ***********************************************************


sub print_courseinfo 
{
    my ($fileinfo) = "";
    my (@lines) = "";
    my ($line) = "";
#    my (@fields) = "";
    my (@temp) = "";
    my ($i) = "";
    my $numrecords = "";
    my (@records) = "";
    my ($record) = "";

    my (@CourseID) = "";
    my (@CourseTitle) = "";
    my (@Instructor) = "";
    my (@Fee);
    my (@MaterialsCost) = "";
    my (@Dates) = "";
    my (@Day1stChoice) = "";
    my (@Time) = "";
    my (@Location) = "";
    my (@CourseDescription) = "";
    my (@EvalResults) = "";
    my (@AgeRange) = "";
    my (@MinStudents) = "";
    my (@MaxStudents) = "";
    my (@CurrentCount) = "";
    my (@PreferredFacility) = "";
    my (@Supplies) = "";
    my (@Equipment) = "";
    my (@WaiverNeeded) = "";
    my (@Cancelled) = "";
    my (@HoursPerWeek) = "";
    my (@StartDate) = "";
    my (@EndDate) = "";
    my (@Category) = "";
    my ($CurCategory) = "";

    if ($debugit) { print "Open data file<br />"; }
   
    # print "<center>";
    if (open FH, "$datafile")
    {
        if ($debugit) { print "data file successfully opened<br />"; }
        if ($debugit) { print "Read data file<br />"; }
        read FH, $fileinfo, 65000;
        @lines = split /^/m, $fileinfo;
	$i = 0;
        foreach $line (@lines)
        {
	    if ($debugit) { print "$line<br />"; }
           $temp[$i] = $line;
	   $i++;
        }
	$numrecords = $i;
	if ($debugit) { print "There are $numrecords records.<br />"; }
        @records = sort {
            (split /\|/, uc($a), 24)[23] cmp
            (split /\|/, uc($b), 24)[23] ||
            (split /\|/, uc($a), 24)[1] cmp
            (split /\|/, uc($b), 24)[1] ||
            (split /\|/, uc($a), 24)[0] cmp
            (split /\|/, uc($b), 24)[0]
        } @temp;
	if ($debugit) { print "There are $numrecords records.<br />"; }
	$i = 0;
	foreach $record (@records)
	{
	    $i++;
	    ($CourseID[$i], $CourseTitle[$i], $Instructor[$i], $Fee[$i],
	    $MaterialsCost[$i], $Dates[$i], $Day1stChoice[$i], $Time[$i],
	    $Location[$i], $CourseDescription[$i], $EvalResults[$i],
	    $AgeRange[$i], $MinStudents[$i], $MaxStudents[$i],
	    $CurrentCount[$i], $PreferredFacility[$i], $Supplies[$i],
	    $Equipment[$i], $WaiverNeeded[$i], $Cancelled[$i],
	    $HoursPerWeek[$i], $StartDate[$i], $EndDate[$i], $Category[$i]) =
	    split /\|/, $record;
	    if ($debugit) {
	        print "$Category[$i], $CourseID[$i], $CourseTitle[$i]<br />";
	    }
	    if ($CourseID[$i] eq $ARGV[0]) {
                      # print "<h1>$yearFall Fall Courses &amp; Instructors</h1>";
                        #print "<center><table>";
                        #print "<tr><th><a href='$runline'>Back to Course Listing";
		#print "</a></th></tr></table></center>";
	            print "<br /><h1>$CourseTitle[$i]</h1>";
		print "<p style='margin-left: 25px; margin-right: 25px; margin-bottom: 0; padding-bottom: 0;'>
                                  <b>Instructor:</b> $Instructor[$i]</p>";
		print "<p style='margin-left: 25px; margin-right: 25px; margin-bottom: 0; padding-bottom: 0;'>
                                  <b>Course Description: </b>$CourseDescription[$i]</p><br />";

		print "<table>";

		print "<tr><td align='right' width='20%'><b>Course ID:</b></td>";
		# print "<td>&nbsp;</td>";
		print "<td>$CourseID[$i]</td></tr>";

		print "<tr><td align='right' width='20%'><b>When:</b></td>";
		print "<td>$Dates[$i], $Day1stChoice[$i], $Time[$i]</td></tr>";

		print "<tr><td align='right' width='20%'><b>Where:</b></td>";
		print "<td>$Location[$i]</td></tr>";

		print "<tr><td align='right' width='20%'><b>What Age:</b></td>";
		print "<td>$AgeRange[$i]</td></tr>";

                        print "<tr><td align='right' width='20%'><b>Min. Students:</b></td>";
		print "<td>$MinStudents[$i]</td></tr>";
               
                        print "<tr><td align='right' width='20%'><b>Max. Students:</b></td>";
		print "<td>$MaxStudents[$i]</td></tr>";


		print "<tr><td align='right' width='20%'><b>Tuition:</b></td>";
		print "<td>$Fee[$i]</td></tr>";

	           print "</table>"; }
        }
    }
    else
    {
        print "could not open data file<br>";
    }

    # print "</center>";
}

sub print_courselist
{
    my ($fileinfo) = "";
    my (@lines) = "";
    my ($line) = "";
#    my (@fields) = "";
    my (@temp) = "";
    my ($i) = "";
    my $numrecords = "";
    my (@records) = "";
    my ($record) = "";

    my (@CourseID) = "";
    my (@CourseTitle) = "";
    my (@Instructor) = "";
    my (@Fee);
    my (@MaterialsCost) = "";
    my (@Dates) = "";
    my (@Day1stChoice) = "";
    my (@Time) = "";
    my (@Location) = "";
    my (@CourseDescription) = "";
    my (@EvalResults) = "";
    my (@AgeRange) = "";
    my (@MinStudents) = "";
    my (@MaxStudents) = "";
    my (@CurrentCount) = "";
    my (@PreferredFacility) = "";
    my (@Supplies) = "";
    my (@Equipment) = "";
    my (@WaiverNeeded) = "";
    my (@Cancelled) = "";
    my (@HoursPerWeek) = "";
    my (@StartDate) = "";
    my (@EndDate) = "";
    my (@Category) = "";
    my ($CurCategory) = "";

    if ($debugit) { print "Open data file<br>"; }

    print "<h1>$yearFall - Fall Courses, Dates, &amp; Instructors</h1><br />";

    print "";
    if (open FH, "$datafile")
    {
        if ($debugit) { print "data file successfully opened<br />"; }
        if ($debugit) { print "Read data file<br />"; }
        read FH, $fileinfo, 65000;
        @lines = split /^/m, $fileinfo;
	$i = 0;
        foreach $line (@lines)
        {
	    if ($debugit) { print "$line<br />"; }
           $temp[$i] = $line;
	   $i++;
        }
	$numrecords = $i;
	if ($debugit) { print "There are $numrecords records.<br />"; }
        @records = sort {
            (split /\|/, uc($a), 24)[23] cmp
            (split /\|/, uc($b), 24)[23] ||
            (split /\|/, uc($a), 24)[1] cmp
            (split /\|/, uc($b), 24)[1] ||
            (split /\|/, uc($a), 24)[0] cmp
            (split /\|/, uc($b), 24)[0]
        } @temp;
	if ($debugit) { print "There are $numrecords records.<br />"; }
	$i = 0;
	foreach $record (@records)
	{
	    $i++;
	    ($CourseID[$i], $CourseTitle[$i], $Instructor[$i], $Fee[$i],
	    $MaterialsCost[$i], $Dates[$i], $Day1stChoice[$i], $Time[$i],
	    $Location[$i], $CourseDescription[$i], $EvalResults[$i],
	    $AgeRange[$i], $MinStudents[$i], $MaxStudents[$i],
	    $CurrentCount[$i], $PreferredFacility[$i], $Supplies[$i],
	    $Equipment[$i], $WaiverNeeded[$i], $Cancelled[$i],
	    $HoursPerWeek[$i], $StartDate[$i], $EndDate[$i], $Category[$i]) =
	    split /\|/, $record;
	    if ($debugit) {
	        print "$Category[$i], $CourseID[$i], $CourseTitle[$i]<br />";
	    }
        }
	for ($i = 1; $i <= $numrecords; $i++) {
	    if ($debugit) { print "$i is $Category[$i]<br />"; }
	    if ($CurCategory ne $Category[$i]) {
	        $CurCategory = $Category[$i];
		print "</table>";
		print "<center><h2>$CurCategory</h2></center>";
                       #print "<p style='margin-left: 25px; margin-bottom: 0; padding-bottom: 0;'>Course Title</p>";
                      
                        print "<table>"; }
	           #print "<tr><td valign='top' align='right'>Course Title:</td>";
	           #print "<td>&nbsp;</td>";
                        print "<tr><td valign='top' width='55%'><a href='$runline\?$CourseID[$i]'>";
	            print "$CourseTitle[$i]</a></td>";
	           #print "<td valign='top'>Instructor:</td><td>&nbsp;</td>";
	            print "<td valign='top' width='20%'>$Dates[$i]</td>";
                        print "<td valign='top' width='25%'>$Instructor[$i]</td></tr>"; }
	            print "</table>";
    }
    else
    {
        print "could not open data file<br />";
    }

    print "";
}

sub print_header
{
print << "ENDOFHEADER";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<meta name="description" content="New Mexico State University at Alamogordo, NMSU-A, NMSUA, NMSU" />
<meta name="keywords" content="Community Resources, New Mexico State University at Alamogordo, NMSU-A, NMSUA, Alamogordo, Otero County" />
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="Shortcut Icon" type="image/x-icon" href="http://www.nmsu.edu/style/favicon.ico" />
<style type="text/css" media="screen"> \@import url(layoutCat.css); </style>

<title>Alamogordo Community Education - NMSU at Alamogordo</title>
</head>
<body>
<div id="wrapper">
  <div id="header">
    <a href="http://alamo.nmsu.edu"><img src="http://alamo.nmsu.edu/images/AlamoLogo.gif" alt="NMSU-A Homepage" width="390" height="80" /></a>
  </div>
<div id="mainNav">
    <ul>
	  <li><a href="http://alamo.nmsu.edu/about/">About NMSU-A</a></li>
	  <li><a href="http://alamo.nmsu.edu/admissions/">Apply Now!</a></li>
	  <li><a href="http://alamo.nmsu.edu/academics/">Academics</a></li>	  
	  <li><a href="http://alamo.nmsu.edu/schedule/online.html">Online Learning</a></li>
	  <li><a href="http://alamo.nmsu.edu/schedule/">Class Schedule</a></li>
	  <li><a href="http://alamo.nmsu.edu/news/">News &amp; Events</a></li>
	</ul>
  </div>
  
  <div id="content">
    <div id="breadcrumbs">
		<ul>
			<li class="first"><a href="http://alamo.nmsu.edu/index.html">NMSU-A Home</a></li>
			<li class="first"><a href="http://alamo.nmsu.edu/community/ace.html">Commmunity Education</a></li>
                                    <li>Fall Courses</li>
		</ul>
	</div>
  
         <div id="sitesearch">
	    <form method="get" action="http://www.picosearch.com/cgi-bin/ts.pl">
	    <h3>Search NMSU-A:<br />
                <input type="hidden" name="index" value="429202" />
	    <input type="text" name="query" size="21" maxlength="80" />
	    <input type="submit" name="SEARCH" value="Go" /></h3>
	    </form>
          </div>
    <br />
  
ENDOFHEADER
}

sub print_footer
{
print << "ENDOFFOOTER";
<table id="table2ad">
<tr>
<td id="td2" valign="top" width="45%">
<p style="margin-left: 50px; margin-bottom: 0; padding-bottom: 0;"><b>Community Education Links</b></p>
<ul style="margin-top: 0; padding-top: 0; padding-bottom: 0;">
<li><a href="http://alamo.nmsu.edu/community/Policy.html">Registration/Policy</a></li>
<li><a href="http://alamo.nmsu.edu/community/Forms.html">Forms</a></li>
<li><a href="http://alamo.nmsu.edu/community/">Community Resources</a></li>
</ul>
</td>

<td id="td2" valign="top">
<p style="margin-left: 50px; margin-bottom: 0; padding-bottom: 0;"><b>Contact Information</b></p>
<ul style="margin-top: 0; padding-top: 0; padding-bottom: 0;">
<li>Personnel: Janis McWilliams or Joan Griggs</li>
<li>Location: NMSU-A, 2400 North Scenic Drive, CB 401</li>
<li>Phone: 575.439.3842/3626</li>
<li> FAX: 575.439.3805</li>
<li>Email: <a href="mailto:janis\@nmsua.nmsu.edu, jgriggs\@nmsua.nmsu.edu?subject=Alamogordo Community Education">
Community Education</a></li>
</ul>
</td>
</tr> 
</table>

 </div>

<div id="footer">
	<ul>
	  <li>Questions, Problems, or Comments? <a href="http://alamo.nmsu.edu/forms/contact.html">Let Us Know!</a></li> 
	  <li>NMSU-A, 2400 N. Scenic Drive, Alamogordo, NM  88310 (<a href="http://alamo.nmsu.edu/campusmap/">map</a>)</li>
	  <li>(575) 439-3600</li>
	</ul>
	<p>© 2007, Regents of New Mexico State University</p>
	<p><a href="http://www.nmsu.edu/web_legal/">Legal Information</a></p>
  </div>
</div>  <!-- end wrapper -->

<script src="http://www.google-analytics.com/urchin.js"
type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-1728052-1";
urchinTracker();
</script>

</body>
</html>
ENDOFFOOTER
}

sub read_yearFall
{
    if ($debugit) { print "Open data file<br>"; }
    if (open FH, "$yearFallfile")
    {
        if ($debugit) { print "data file successfully opened<br>"; }
        if ($debugit) { print "Read data file<br>"; }
        read FH, $yearFall, 20;
        close FH;
    }
}