!;
# Print up the table header (Weekdays). For every day (foreach $day) in
# our list of days (@day_names), print out the day as a table header.
# Then plop in the table row delimiters...
foreach $day (@day_names)
{
print "| $day | \n";
}
print " \n\n";
# Create the variable $count_till_last_day which we will use to make sure
# that we do not add on too many s. Also clear out a new variable
# called $weekday which we will use to keep track of the two dimensional
# aspect of the calendar...that is, we need to break the calendar rows
# after every seventh cell representing as week. (We'll talk more about
# this in just a bit).
$count_till_last_day = "0";
$weekday = 0;
# For every day in the mymonth array we are going to need to create a
# cell for the calendar. @mymonth, if you recall, is an array we got from
# &make_month_array
#######################################################################
# Create a Table Cell for Each Day #
#######################################################################
foreach $day_number (@mymonth)
{
# Begin incrementing our two counter variables.
$count_till_last_day++;
$weekday++;
# Make sure that we add a break for every week to make the calendar 2
# dimensional. Thus, when we have gone through sets of seven days in this
# foreach loop, we will reset $weekday to zero. Below, we'll use these
# values to determine where we drop the , making a new calendar
# room. When weekday is greater than 6, we'll know that we need a
# so by setting the $weekday flag to zero, we will notify the
# script just a few lines down from here to insert the row break.
$weekday = 0 if ($weekday > 6);
# Print a table cell for each day. However, since we want to make each
# of the numbers in each of the cells clickable so that someone can click
# on the number to see a day view, we are going to need to manage a lot of
# information here. Firstly, we will build a variable called
# $variable_list which will be used to create a long URL appendix which
# will be used to transfer information using URL encoding. As we will
# learn more specifically later, the routine which generates the day views
# needs to have the day, year, and month values if it is to bring up a day
# view. It must also have the session_file value (as all the routines in
# this script must) and the special tag view_day=on. So we'll gather all
# of that information and appending it to the $variable_list variable.
$variable_list = "";
$variable_list = "day=$day_number&year=$currentyear";
$variable_list .= "&month=$currentmonth";
$variable_list .= "&session_file=$session_file";
$variable_list .= "&calendar=$form_data{'calendar'}";
$variable_list .= "&view_day=on";
# Now create the actual cell. Notice, the number in each cell is made
# clickable by using URL encoding to tag the URL with all of the variables
# we want passed.
print qq!\n!;
print qq!$day_number\n!;
# Grab the subject listings for all the entries on that day. Make sure
# also that if we are unable to open the database file, that we send a
# useful message back to us for debugging. We'll do this using the
# open_error subroutine in cgi-lib.sol passing the routine the location of
# the database file.
open (DATABASE, "$database_file") || &CgiDie ("Λυπάμαι αλλά δεν
μπόρεσα να ανοίξω το αρχείο δεδομένων του Ημερολογίου μέσα από τη
ρουτίνα Create a Table
Cell for Each Day. Το αρχείο που χρησιμοποίησα είναι $database_file.
Παρακαλώ ελέγξτε τις ιδιότητες πρόσβασης του αρχείου και του μονοπατιού
προς αυτό στην τοποθεσία σας.");
while ()
{
($day, $month, $year, $username, $first_name, $last_name, $email,
$subject, $time, $body, $database_id_number) = split (/\|/,$_);
# We are going to need to run through all of the database items and look
# for database rows whose subject belong on the day cell we are building.
# Thus, for every row, we must determine if the day, month, and year of
# the item on that row equal the day, month and year of the cell we are
# building.
if ($day eq "$day_number" && $month eq "$currentmonth" &&
$year eq "$currentyear")
{
# If we were able to answer true to all of those conditions, then we have
# found a match and we should print out the subject in that cell.
print qq!
$subject\n!;
} # End of if ($day eq "$day_number" && $month eq ...
} # End of while ()
# Once we have checked all the way through the database, we should close
# that cell and move on to the next.
print " | \n";
# If, however, we have reached the end of a week row, we are going to need
# to begin a new table row for the next week. If $weekday is equal to
# zero, then we know that it is time. If not, continue with the row.
# (BTW, here we use == instead of just = because if we used =, perl would
# interpret the part inside the if () to be assigning the value of zero to
# $weekday...which it would do...and evaluate the whole process as true.
# That of course would undercut the whole point of counting with
# $weekday.)
if ($weekday == 0)
{
print " \n";
# But before we just blindly print up another table row, we better be sure
# that we haven't actually reached the end of the month...Thus, if
# $count_till_last_day equals @mymonth we know that there are no more days
# left and we should not begin a new row. (Notice that when we reference
# @mymonth without quotes we receive the numerical value of the number of
# elements in the array).
unless ($count_till_last_day == @mymonth)
{
print "";
} # End of unless ($count_till_last_day == @mymonth)
} # End of if ($weekday == 0)
} # End of foreach $day_number (@mymonth)
# Finally, once we are done making all of the cells for the calendar,
# print up the HTML footer
print qq!
|
