Calendar Preferences and Help
| % ($PMonth, $PYear) = ($Month - 1, $Year); % if ($PMonth < 0) { % $PYear--; % $PMonth = 11; % } «<%$rtdate->GetMonth($PMonth)%> | <% $rtdate->GetMonth($Month). " $Year" %> | % ($NMonth, $NYear) = ($Month + 1, $Year); % if ($NMonth > 11) { % $NYear++; % $NMonth = 0; % } <%$rtdate->GetMonth($NMonth)%>» |
|---|
| > | % for ( @{$week{$weekstart}} ) {><%$rtdate->GetWeekday($_)%> | % }|
|---|---|---|
| % my $date = $start; % my $sday = 0; % while ($date <= $end) { % % my $is_today = (DateTime->compare($today, $date) == 0); % my $is_yesterday = (DateTime->compare($yesterday, $date) == 0); % my $is_aweekago = (DateTime->compare($aweekago, $date) == 0); |
class="labels"
%# <% $is_today ? 'today'
%# : $is_yesterday ? 'yesterday'
%# : $is_aweekago ? 'aweekago'
%# : ''
%# %>"
%# <% $rtdate->GetWeekday( $week{$weekstart}->[$sday++] ). ' '.
$rtdate->GetMonth($date->month-1). ' '.
$date->day
%>
|
% $date = $set->next($date);
% if ( $date->day_of_week == $startday_of_week ) {
|
| valign="middle"> <& week_collapse, date=>$date, Month=>$OrigMonth, Year=>$OrigYear, QueryString=>$QueryString, Embed=>$Embed, &> | % } % } % } #while ($date <= $end)||
| valign="middle"> <& week_collapse, date=>$start, Month=>$OrigMonth, Year=>$OrigYear, QueryString=>$QueryString, Embed=>$Embed, &> | % #slot header callback % if ( defined($Display) && $Display =~ /^(\w+)$/ ) { % % my $el = "/Elements/CalendarSlotHeader$1";% for (0..6) { <& $el, Date => $date, DateTypes => \%DateTypes, slots => $slots, @DisplayArgs, &> % } % } | |
|
% for my $Ticket ( @{ $Tickets{$date->strftime("%F")} } ) {
% my %dt =
% map { $_=>1 }
% grep {
% my $meth = $_.'Obj';
%
% my($m, $h) = ($Ticket->$meth->Localtime('user'))[1,2];
% my $tod = $h*60 + $m;
%
% LocalDate($Ticket->$meth->Unix) eq $date->strftime('%F') #today
% && $tod >= $row && $tod < ($row+$timestep); #and in timeslot
% } keys %DateTypes;
% next unless keys %dt;
<& /Elements/CalendarEvent,
Object => $Ticket,
Date => $date,
DateTypes => \%dt
&>
% unless ( $Ticket eq ${ $Tickets{$date->strftime("%F")} }[-1] ) { #hmm, no.. not with "next unless $dt" :/
% } % } |
% }
% $date = $set->next($date);
% if ( $date->day_of_week == $startday_of_week ) {
||
| valign="middle"> <& week_collapse, date=>$date, Month=>$OrigMonth, Year=>$OrigYear, QueryString=>$QueryString, Embed=>$Embed, &> | % } % } % % $sday++; % } #while ($date <= $end)
<% $date->day %>
% if ( defined($Display) && $Display =~ /^(\w+)$/ ) {
%
% my $el = "/Elements/CalendarDay$1";
<& $el, CurrentUser => $session{CurrentUser},
Tickets => $Tickets{$date->strftime("%F")},
Date => $date,
today => $today,
DateTypes => \%DateTypes,
@DisplayArgs,
&>
%
% } else {
%
% my $sp = 3;
% for my $t ( @{ $Tickets{$date->strftime("%F")} } ) {
% $sp--;
<& /Elements/CalendarEvent, Object => $t, Date => $date, DateTypes => \%DateTypes &>
% }
<% ($sp>0) ? ''x$sp : '' |n %> % % } |
% $date = $set->next($date);
% if ( $date->day_of_week == $startday_of_week ) {
% if ( $date <= $end ) {
|
| «<%$rtdate->GetMonth($PMonth)%> | <%$rtdate->GetMonth($NMonth)%>» |
|
Calendar Preferences and Help |
% foreach my $legend (keys %legend) {
|
|
|
% my $more = 0; % foreach ( @{$legend{$legend}} ) { <% $more++ ? ', ' : '' %> <&|/l&><% $_ %> % } |
<%def td_time>
% my( $min ) = shift;