#!/usr/bin/perl -w

use strict;

use CGI::Carp qw/fatalsToBrowser/;

use CGI qw/:standard/;
my $Query = new CGI;


print $Query->header();

#
#Globals
#
my %Semester = {};
my $TotalCredits = 0;


open( FILE, "grade.dat" ) || die "Can't open grade.dat";

my @SemesterLine = <FILE>;

close FILE;

my $I = 0;

foreach my $ClassLine ( @SemesterLine )
{
	$I++;
	print $I . "<br>";
	chomp( $ClassLine );
	my ( $SemesterName, $ClassName, $Grade, $Credits ) = split( /:/, $ClassLine );
	
	if ( !( exists $Semester{$SemesterName}{'TotalCredits'} ) ) # check to see if hash was already initalized
	{
		$Semester{$SemesterName}{'TotalCredits'} = $Credits;
	}
	else
	{
		$Semester{$SemesterName}{'TotalCredits'} += $Credits;
	}
	
	$Semester{$SemesterName}{$ClassName}{'Grade'} = $Grade;
	$Semester{$SemesterName}{$ClassName}{'Credits'} = $Credits;
	$Semester{$SemesterName}{$ClassName}{'Name'} = $ClassName;
	
	$TotalCredits += $Credits;
}	



#Write a general report


while( my ( $SemesterKey, $SemesterValue ) = each %Semester )
{
	print "SemesterKey: " . $SemesterKey . "<br>";
	
	while ( my ( $ClassKey, $ClassValue ) = each %{ $SemesterValue } )
	{
		print "ClassKey: " . $ClassKey . "<br>";
	}
}