diff options
author | Jonas Smedegaard <dr@jones.dk> | 2024-08-31 13:14:06 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2024-09-01 09:18:49 +0200 |
commit | d019a043a95d5b0eef4c2e7ad3a40553a8b0292e (patch) | |
tree | 0b983656e2246451cadd53d59f17ee01abf4c9ec | |
parent | f4feb72d4a9ccb02d4b0e750de47ae5f60e49fc1 (diff) |
rename internal variable $begin -> $start
-rw-r--r-- | lib/Object/Groupware/Event.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/Object/Groupware/Event.pm b/lib/Object/Groupware/Event.pm index c5ccb6e..4e8ed8e 100644 --- a/lib/Object/Groupware/Event.pm +++ b/lib/Object/Groupware/Event.pm @@ -16,7 +16,7 @@ field $log = Log::Any->get_logger; field $entry : param; field $dt_locale; -field $begin : reader = $entry->start; +field $start : reader = $entry->start; field $end : reader = $entry->end; field $datespan : reader; field $timespan : reader; @@ -31,7 +31,7 @@ field @attachments; ADJUST { if ( $self->dt_locale ) { $dt_locale = $self->dt_locale; - $begin->set_locale($dt_locale); + $start->set_locale($dt_locale); $end->set_locale($dt_locale) if defined $end; } else { @@ -40,26 +40,26 @@ ADJUST { $dt_locale = DateTime::Locale->load('en_US'); } - $begin->set_locale( $self->dt_locale ); + $start->set_locale( $self->dt_locale ); for ( $self->dt_time_zone || () ) { - $begin->set_time_zone($_); + $start->set_time_zone($_); $end->set_time_zone($_) if defined $end; } $datespan = ( defined $end and $end->clone->truncate( to => 'day' ) ne - $begin->clone->truncate( to => 'day' ) ) + $start->clone->truncate( to => 'day' ) ) ? ucfirst( sprintf '%s - %s', - $begin->format_cldr( $dt_locale->date_format_medium() ), + $start->format_cldr( $dt_locale->date_format_medium() ), $end->format_cldr( $dt_locale->date_format_medium() ) ) - : ucfirst( $begin->format_cldr( $dt_locale->date_format_medium() ) ); + : ucfirst( $start->format_cldr( $dt_locale->date_format_medium() ) ); $timespan = ( defined $end and not $entry->all_day ) ? ucfirst( sprintf '%s-%s', - $begin->format_cldr( $dt_locale->datetime_format_medium() ), + $start->format_cldr( $dt_locale->datetime_format_medium() ), $end->format_cldr( $dt_locale->time_format_medium() ) ) : undef; @@ -67,7 +67,7 @@ ADJUST { = $entry->all_day ? $datespan : ucfirst( - $begin->format_cldr( $dt_locale->datetime_format_medium() ) ); + $start->format_cldr( $dt_locale->datetime_format_medium() ) ); $description =~ s/\n\n[Pp]ris:\s*((?!\n).+)\s*\z//m; $price = $1; @@ -94,7 +94,7 @@ ADJUST { if ( $log->is_trace ) { use DDP; p $entry; - p $begin; + p $start; p $end; } } |