projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3fbf6dc
)
Bug fix
author
Tim Pope
<code@tpope.net>
Tue, 16 Aug 2005 21:23:47 +0000
(21:23 +0000)
committer
Tim Pope
<code@tpope.net>
Tue, 16 Aug 2005 21:23:47 +0000
(21:23 +0000)
perl/schedproc
patch
|
blob
|
history
diff --git
a/perl/schedproc
b/perl/schedproc
index 0dd2941026d074d1ed144fbbae243bae7743b5dd..3c34f3ac1b4805d8d73a653d69a76fced65745e7 100755
(executable)
--- a/
perl/schedproc
+++ b/
perl/schedproc
@@
-105,13
+105,14
@@
sub next_class {
@off = @{$class{'off'}} if ($class{'off'});
for($today = ($today > $firstday ? $today : $firstday); $today < $lastday; $today++) {
next unless(grep($_ == Day_of_Week($today->date), @days));
@off = @{$class{'off'}} if ($class{'off'});
for($today = ($today > $firstday ? $today : $firstday); $today < $lastday; $today++) {
next unless(grep($_ == Day_of_Week($today->date), @days));
- next if(grep($_ == $today, @off));
+ print "$today\n";
+ next if(grep($_ == "$today", @off));
return $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));
return $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));
+ next if(grep($_ ==
"$today"
, @off));
return $today;
}
return undef;
return $today;
}
return undef;