School City of Hobart Employment Opportunities -=|Listings|=-

#!/usr/bin/perl -w use strict; use CGI qw(:standard); sub HTMLstyle($;); print header(-expires=>"now"); print qq~ School City of Hobart Employment Opportunities -=|Listings|=- ~; # also had my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); $year+=1900; $mon++; my @grGr; my $a; my $style; my $SchYear; print "\n\n\n\n"; print h1("

Grade to Graduation Conversion

"), "\n"; print h2("

for $SchYear School Year

"), "\n"; #print h3("

$year-$mon-$mday

"), "\n"; print " \n"; for ($a=12; $a>=0; $a--){ $style=HTMLstyle($a); print " \n"; print " \n"; print " \n"; print " \n"; } print end_html; sub HTMLstyle($;){ my $ret = ' class="SCOH_Color_PurpleGold_FGBG" '; if( ($_[0] % 2) == 1 ){ $ret = ' class="SCOH_Color_GoldPurple_FGBG" '; } return($ret); }

"; if ($a==0){ print " Kindergarten "; }elsif($a==9){ print " Freshman "; }elsif($a==10){ print " Sophomore "; }elsif($a==11){ print " Junior "; }elsif($a==12){ print " Senior "; }else{ print " Grade $a "; } print "

Graduation Year $grGr[$a]