my $days = Delta_Days($1,$2,$3,$4,$5,$6);
my $firstday = Date::Calc->new($1,$2,$3);
my $lastday = Date::Calc->new($4,$5,$6);
- my $today = Date::Calc->today;
+ my $today = Date::Calc->new(Date::Calc->localtime(time+3600*6)->date);
my @days=();
foreach(split(" ",$class{'days'})) {
push @days, Decode_Day_of_Week($_);
next if(grep($_ == $today, @off));
return $today;
}
- $today = Date::Calc->today;
+ $today = Date::Calc->new(Date::Calc->gmtime->date);
for($today = ($today < $lastday ? $today : $lastday); $today > $firstday; $today--) {
next unless(grep($_ == Day_of_Week($today->date), @days));
next if(grep($_ == $today, @off));
while($_ = <INS>) {
chomp;
m/"([^"]*)",([^,]*),([^,]*)/;
- ($name, $school, $email) = ($1, $2, $3);
+ ($name, $email, $school) = ($1, $2, $3);
$name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
$name =~ s/ [A-Z]\.//g;
$name = lc $name;
map { s/[\r\n]//g; $_} @$row;
$row->[0] = capitalize($row->[0]);
$row->[0] =~ s/([A-Z]r?)$/$1./;
- print '"'.$row->[0].'",',$row->[1].',', $row->[2], "\n";
+ print '"'.$row->[0].'",',$row->[2].',', $row->[1], "\n";
}
}
}