2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.4 2005/08/11 14:13:23 jonen |
6 |
|
## + bugfix |
7 |
|
## |
8 |
## Revision 1.3 2003/02/09 16:15:51 joko |
## Revision 1.3 2003/02/09 16:15:51 joko |
9 |
## + minor update regarding module namespace refactoring |
## + minor update regarding module namespace refactoring |
10 |
## |
## |
51 |
|
|
52 |
$date_day_raw =~ s/[^\d|-]//g; |
$date_day_raw =~ s/[^\d|-]//g; |
53 |
my $date_day = ParseDate($date_day_raw); |
my $date_day = ParseDate($date_day_raw); |
54 |
|
|
55 |
# $date_time (just the time!) will get auto-converted to a datetime from today, so .... |
# $date_time (just the time!) will get auto-converted to a datetime from today, so .... |
56 |
my $date_time = ParseDate($date_time_raw); |
my $date_time = ParseDate($date_time_raw); |
57 |
|
|
58 |
# ... we should calculate the delta to get the real time-shift to continue further processing with |
# ... we should calculate the delta to get the real time-shift to continue further processing with |
59 |
my $date_time_delta = DateCalc(ParseDate(today()), '-' . $date_time); |
#my $date_time_delta = DateCalc(ParseDate(today()), '-' . $date_time); |
60 |
|
my $date_time_delta = DateCalc(ParseDate(today()), $date_time); |
61 |
|
|
62 |
# add the delta to the 'date-day' parsed above to calculate the complete event-date ('endtime' in this case) |
# add the delta to the 'date-day' parsed above to calculate the complete event-date ('endtime' in this case) |
63 |
my $date_complete = DateCalc($date_day, $date_time_delta); |
my $date_complete = DateCalc($date_day, $date_time_delta); |