Calendar won't display day numbers

Foncé has asked for the wisdom of the Perl Monks concerning the following question:

Fellow Monks,
I've written a CGI calendar which is the interface for an online schedule posting programme which I have yet to write. Before I get there, though, I'm stuck on a frustrating problem which I do not understand. Below is the code in its entirety, and yes, I know it's not the most streamlined code, but I'm new at this. My question is this: why won't the individual day numbers (which are links) display?

Note: Yes, I know it won't display them under the proper days...I just haven't written that portion yet. I figure I'd better get the them to just show up somewhere first!

A running version of this script as posted can be found here. Code is as follows:

#!/usr/bin/perl -w

use CGI qw(:cgi);
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";

### Global Variables ###
@month_abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
@month_long = qw( January February March April May June July August Se
+ptember October November December );
@days_abbr = qw( Sun Mon Tue Wed Thu Fri Sat );
#@days_long = qw( Sunday Monday Tuesday Wednesday Thursday Friday Satu
+rday );
$jandays = $mardays = $maydays = $juldays = $augdays = $octdays = $dec
+days = 31;
$sepdays = $aprdays = $jundays = $novdays = 30;
$febdays = 28;
@thismonth = qw( $jandays $febdays $mardays $aprdays $maydays $jundays
+ $augdays $sepdays $octdays $novdays $decdays );

###################
##### Main Routine #####
###################
&head;

$thisyear = 2002;
yeartable($thisyear);
for ($x = 1; $x < 4; $x++) {
    &month_top($x);
    &meat($x, $thisyear);
}
print "</tr><tr><td>\n";

yeartable($thisyear + 1);
for ($x = $x; $x < 7; $x++) {
    &month_top($x);
    &meat($x, $thisyear);
}
print "</tr><tr><td>\n";

for ($x = $x; $x < 10; $x++) {
    &month_top($x);
    &meat($x, $thisyear);
}
print "</tr><tr><td>\n";

for ($x = $x; $x < 13; $x++) {
    &month_top($x);
    &meat($x, $thisyear);
}
print "</tr><tr><td>\n";
######################
##### End Main Routine #####
######################



sub head {
# Opens the master table, too
print "<html>\n";
print "<head>\n";
print "<title>Bettendorf Stanford Inc. [Employee Calendar]</title>\n";
print "<link rel=\"stylesheet\" href=\"../../format.css\" type=\"text/
+css\">\n";
print "</head><body>\n";
print "<!---------- BEGIN ALLWEBMENUS CODE ---------->\n";
print "<SCRIPT>var MenuCreatedBy='AllWebMenus 1.3.324'; awmMenuPath='.
+./../menu'; awmAltUrl='';</SCRIPT>\n";
print "<SCRIPT SRC='../../menu/bsimenu.js' LANGUAGE='JavaScript1.2' TY
+PE='text/javascript'></SCRIPT>\n";
print "<SCRIPT>awmBuildMenu();</SCRIPT>\n";
print "<!----------- END ALLWEBMENUS CODE ----------->\n";
print "</center>\n";

print "<!-- BEGIN THE MAIN TEXT -->\n";

print "<span id=\"logo\">\n";
print "<img src=\"../../images/logo.jpg\">\n";
print "</span>\n";

print "<span id=\"header\">\n";
print "<table><tr><td align=center valign=middle>\n";
print "Employee Calendar\n";
print "</td></tr></table>\n";
print "</span>\n";

print "<span id=\"main\">\n";
print "<table border=1>\n";
print "<tr><td valign=top>\n";
}




sub yeartable {
$year = $_[0];
print "<span id=\"collapse\">\n";
print "<table>\n";
print "<tr>\n";
print "<td width=32 valign=top align=center>", $year, "</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td>\n";
my $count = 0;
foreach (@month_abbr) {
    $count++;
    print "<a href=\"mv";
    print $year;
    print $count;
    print ".html\">";
    print $_;
    print "</a><br>\n";
}
print "</span>\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";
print "</td>\n";
}




sub month_top {
print "<td valign=top>\n";
print "<span id=\"collapse\">\n";
print "<table>\n";
print "<tr>\n";
print "<td valign=top colspan=7 align=center><b>",$month_long[$_[0]-1]
+,"</b></td>\n";
print "</tr>\n";
print "<tr>\n";
for (0..6) {
        print "<td width=32 align=center>",$days_abbr[$_],"</td>\n";
    }
}

sub meat {
    $days = $thismonth[$_[0]];
    for (1..$days) {
        print "<td align=center><a href=\"";
        print $thisyear;
        print $thismonth;
        print $_[0];
        print ".cgi\">";
        print $_[0];
        print "</a>";
        print "</td>\n";
    }
    print "</tr><tr>\n";
    print "</table>\n";
    print "</span>\n";
    print "</td>\n";
}

##### Close off the file #####
print "</span>\n";
print "</td>\n";

print "</tr>\n";
print "</table>\n";
print "</span>\n";
print "</body>\n";
print "</html>\n";
[download]

Thanks! Foncé

Edit by tye

Back to Seekers of Perl Wisdom