%# <& /elements/form-create_ticket.html, object => $object &>
<A NAME="appointments"><FONT CLASS="fsinnerbox-title">Appointments</FONT></A>

% if ( $FS::CurrentUser::CurrentUser->access_right('Make appointment') ) { 
  <& /elements/popup_link-make_appointment.html, custnum=>$cust_main->custnum &>
% }

%#  |
%# View
%# <A HREF="<% $open_link %>"><% mt($openlabel) |h %></A> |
%# <A HREF="<% $res_link  %>"><% mt('resolved') |h %></A>
 <BR>

%if ( @tickets ) {
<& /elements/table-grid.html &>
% my $bgcolor1 = '#eeeeee';
%   my $bgcolor2 = '#ffffff';
%   my $bgcolor = '';

<THEAD>
<TR>
  <TH CLASS="grid" BGCOLOR="#cccccc"><% mt('Type') |h %></TH>
  <TH CLASS="grid" BGCOLOR="#cccccc"><% mt('Date') |h %></TH>
  <TH CLASS="grid" BGCOLOR="#cccccc"><% mt('Status') |h %></TH>
  <TH CLASS="grid" BGCOLOR="#cccccc"><% mt('Owner') |h %></TH>
</TR>
</THEAD>

% foreach my $ticket ( @tickets ) {
%     my $href = FS::TicketSystem->href_ticket($ticket->{id});
%     if ( $bgcolor eq $bgcolor1 ) {
%       $bgcolor = $bgcolor2;
%     } else {
%       $bgcolor = $bgcolor1;
%     }
%
%     use Date::Parse qw( str2time );
%     my $starts = str2time( $ticket->{starts} ); #default format here sucks
%     my $starts_pretty = '';
%     $starts_pretty = time2str('%a %h %o %Y %l:%M%P', $starts)
%       if $starts > 86400;

  <TR>
  
    <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
      <A HREF=<%$href%>><% 'custom field magic type' %></A>
    </TD>
  
    <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
      <A HREF=<%$href%>><% $starts_pretty %></A>
    </TD>
  
    <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
      <% $ticket->{status} %>
    </TD>
  
    <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
      <% $ticket->{owner} %>
    </TD>

  </TR>

% } 

</TABLE>
%}
<%init>

my $cust_main = shift;
my $object = $cust_main;

#total false laziness & just copied from elements/table-tickets.html

my %opt = @_;
my $conf = new FS::Conf;

return '' unless $conf->config('ticket_system');

#my $object = $opt{'object'};
#$object = $object->cust_svc if $object->isa('FS::svc_Common');
my( @tickets )  = $object->tickets; #XXX but actually appointments... filter by presense of the necessary CF?  RT::Appointment instead of RT::Ticket ?

my ($openlabel, $open_link, $res_link, $thing);
$openlabel = join('/', FS::TicketSystem->statuses );

# not the nicest way to do this--FS::has_tickets_Common?
#if ( $object->isa('FS::cust_main') ) {
  $thing  = 'customer';
  $open_link = FS::TicketSystem->href_customer_tickets($object->custnum);

  $res_link  = FS::TicketSystem->href_customer_tickets(
                    $object->custnum,
                    { 'statuses' => [ 'resolved' ] }
                  );
#} elsif ( $object->isa('FS::cust_svc') ) {
#
#  return '' unless $object->pkgnum;
#
#  $thing = 'service';
#  $open_link = FS::TicketSystem->href_service_tickets($object->svcnum);
#
#  $res_link  = FS::TicketSystem->href_service_tickets(
#                    $object->svcnum,
#                    { 'statuses' => [ 'resolved' ] }
#                  );
#}

#not actually used, appointments are all about what day this week and the time,
# so formatting them with that in mind
#my $format = $conf->config('date_format') || '%Y-%m-%d';
#
#my $date_formatter = sub {
#  my $time = parse_datetime($_[0], 'GMT');
#  # exclude times within 24 hours of zero
#  ($time > 86400) ? time2str($format, $time) : '';
#};

</%init>