"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "EmailReminder/MonthlyEvent.pm" between
email-reminder-0.8.0.tar.gz and email-reminder-0.8.1.tar.gz

About: Email-Reminder lets define events to be reminded of by email via cronjob (with GUI).

MonthlyEvent.pm  (email-reminder-0.8.0):MonthlyEvent.pm  (email-reminder-0.8.1)
skipping to change at line 87 skipping to change at line 87
sub get_current_occurence_date sub get_current_occurence_date
{ {
my ($self, $modifier) = @_; my ($self, $modifier) = @_;
my $day = $self->get_day(); my $day = $self->get_day();
return unless $day; return unless $day;
# Set the day of the month where the event occurs, make sure the date is val id # Set the day of the month where the event occurs, make sure the date is val id
# (e.g. fix-up for event on the 31st when the month has only 30 days) # (e.g. fix-up for event on the 31st when the month has only 30 days)
my $current_occurence_date = ParseDate("$current_year-$current_month-$day"); my $current_occurence_date = ParseDate("$current_year-$current_month-$day");
while (UnixDate($current_occurence_date, "\%d") != $day) { while ($current_occurence_date eq "" or UnixDate($current_occurence_date, "\ %d") != $day) {
$day -= 1; $day -= 1;
$current_occurence_date = ParseDate("$current_year-$current_month-$day") ; $current_occurence_date = ParseDate("$current_year-$current_month-$day") ;
} }
my $modified_date = $current_occurence_date; my $modified_date = $current_occurence_date;
if ($modifier) { if ($modifier) {
if ($modifier >= $day) { if ($modifier >= $day) {
# We are warning about an event in a few days, past the end of the c urrent month # We are warning about an event in a few days, past the end of the c urrent month
$modified_date = DateCalc($modified_date, " + 1 month"); $modified_date = DateCalc($modified_date, " + 1 month");
} }
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)