httemplate/browse/rate_time.html

   1 <% include( 'elements/browse.html',
   2      'title'          => 'Rating Time Periods',
   3      'name_singular'  => 'period',
   4      'menubar'        => [ 'Rate plans' => $p.'browse/rate.cgi' ],
   5      'html_init'      => $html_init,
   6      'query'          => {
   7                            'table'     => 'rate_time',
   8                            'order_by'  => 'ratetimenum', # lacking anything else
   9                            'hashref'   => {},
  10                          },
  11      'count_query'    => 'SELECT COUNT(*) FROM rate_time',
  12      'header'         => \@header,
  13      'fields'         => \@fields,
  14      'links'          => \@links,
  15      'align'          => \@align,
  16    )
  17 %>
  18 <%init>
  19
  20 die "access denied"
  21   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  22
  23 my $edit_url = $p.'edit/rate_time.cgi';
  24
  25 my $link = [ "$edit_url?", 'ratetimenum' ];
  26
  27 my $html_init =
  28   'Time periods for VoIP and call billing.<BR><BR>'.
  29   qq(<A HREF="$edit_url"><I>Add a new period</I></A><BR><BR>);
  30
  31 sub interval {
  32   my $i = shift;
  33   '<TABLE>'
  34   .join('', map { '<TR><TD>'.($_->description)[$i].'</TR></TD>' }
  35       shift->intervals
  36   ) . '</TABLE>';
  37 }
  38
  39 # inefficient but readable
  40 my $stime_sub = sub { interval(0,shift) };
  41 my $etime_sub = sub { interval(1,shift) };
  42
  43 my @header     = ( '#',           'Period',       'Start', 'End' );
  44 my @fields     = ( 'ratetimenum', 'ratetimename', $stime_sub, $etime_sub );
  45 my @links      = ( ($link) x 2 );
  46 my @align      = ( 'right', 'left', 'left' );
  47
  48 </%init>