use Date::Calc;

$now_open = &date_to_unix($rec{'Vol_date'});
$now_dow = &get_day_of_week($rec{'Vol_date'});

if (!$next_open) { $next_open = $now_open; }

$next_dow = &get_day_of_week($next_open);
$next_yyyy = substr($next_open,0,4);
$next_mm = substr($next_open,4,2);
$next_dd = substr($next_open,6,2);

unless ($last_category eq $rec{'Vol_date'}) {

#while ( $now_open > $next_open) {
# print statements for testing
# print qq|<td colspan=$numcols><p>now $now_open $now_dow</p></td></tr><tr>|;
# print qq|<td colspan=$numcols><h2>next $next_open $next_dow</h2></td></tr><tr>|;
# print qq|<td colspan=$numcols><p>now $now_yyyy $now_mm $now_dd</p></td></tr><tr>|;
######## here's what i want to happen while $now_open > $next open
# print $next open as a heading
# print a dummy record
# increment next open to the next friday or saturday
#####

if (lc($next_dow) eq 'friday') {
($next_open_yyyy,$next_open_mm,$next_open_dd) = &getTomorrow($next_yyyy,$next_mm,$next_dd);
}
else { ($next_open_yyyy,$next_open_mm,$next_open_dd) = &getNextFri($next_yyyy,$next_mm,$next_dd); }
$next_open = $next_open_yyyy . $next_open_mm . $next_open_dd;
$next_dow = &get_day_of_week($next_open);
#} # end while


print qq|<td colspan=$numcols><h2>$now_dow $rec{'Vol_date'}</h2></td></tr><tr>|;
$last_category = $rec{'Vol_date'};
}
# now it prints the actual record and gets another

#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);

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

use Date::Calc;

my ($year,$month,$day) = Date::Calc::Today();

print qq|$day $month $year <br />|;

my $day_of_week = Date::Calc::Day_of_Week($year,$month,$day);

print qq|Day of week is: $day_of_week \n|; # sunday = 0
# monday = 1
# tuesday = 2
# wednesday = 3
# thursday = 4
# fridayy = 5 - the day we wanna get to
# saturday = 6

my $days_to_add;
if ($day_of_week == 0) {
$days_to_add = 5;
} elsif ($day_of_week == 1) {
$days_to_add = 4;
} elsif ($day_of_week == 2) {
$days_to_add = 3;
} elsif ($day_of_week == 3) {
$days_to_add = 2;
} elsif ($day_of_week == 4) {
$days_to_add = 1;
} elsif ($day_of_week == 5) {
$days_to_add = 0;
} elsif ($day_of_week == 6) {
$days_to_add = 6;
}

# ok, now lets add the number of days to TODAYs date...

my ($year,$month,$day) = Date::Calc::Add_Delta_Days($year,$month,$day, $days_to_add);

print qq|Fridays date is: $day $month $year <br />|;


# ok, now we have fridays date - lets populate a list of the next 51 weeks, and push into an array
my @dates;
push @dates, qq|${day}-${month}-${year}|;
for (my $i = 1; $i <= 52; $i++) {
my $days_to_add = $i * 7; # work out how many days to add to "today"
my ($year2,$month2,$day2) = Date::Calc::Add_Delta_Days($year,$month,$day, $days_to_add);
push @dates, qq|${day2}-${month2}-${year2}|;
}

use Data::Dumper;
print "<PRE>" . Dumper(@dates) . "</PRE>";