httemplate/edit/elements/rate_detail.html

   1 <%doc>
   2 <% include('/edit/elements/rate_detail.html',
   3     # required
   4     'ratenum'     => '1',
   5
   6     # optional
   7     'regionnum'   => '25',
   8     # or
   9     'countrycode' => '237',
  10 ) %>
  11
  12 If regionnum is specified, this produces column headers plus
  13 one row of rate details for that region (in all time periods).
  14 Otherwise, there's one row for each region in the specified
  15 countrycode (or each region anywhere, if there is no countrycode),
  16 with row headers showing the region name and prefixes.
  17
  18 </%doc>
  19 <% include('/elements/table-grid.html') %>
  20 <TR>
  21 % my $col = 0;
  22 % foreach (@header) {
  23 %   my $hlink = $hlinks[$col];
  24   <TH CLASS   = "grid",
  25       BGCOLOR = "#cccccc">
  26   <% $hlink ? qq!<A HREF="$hlink">$_</A>! : $_ %>
  27   </TH>
  28 %   $col++;
  29 % } #foreach @header
  30 </TR><TR>
  31 % my $row = 0;
  32 % foreach my $r (@rows) {
  33 %   $col = 0;
  34 %   if ( !$opt{'regionnum'} ) {
  35 %     $region = $r;
  36 %     foreach ($r->regionname, $r->prefixes_short) {
  37   <TD>
  38     <A HREF="<% $p.'edit/rate_region.cgi?regionnum='.$r->regionnum %>"><% $_ %></A>
  39   </TD>
  40 %     }
  41 %   }
  42 %   elsif ( !$opt{'ratenum'} ) {
  43 %     $rate = $r;
  44   <TD>
  45     <A HREF="<% $p.'edit/rate.cgi?ratenum='.$r->ratenum %>"><% $r->ratename %></A>
  46   </TD>
  47 %   }
  48 %   foreach my $rate_time (@rate_time, '') {
  49   <TD>
  50     <& .detail_box,
  51       detail      => $details[$row][$col],
  52       ratetimenum => ($rate_time ? $rate_time->ratetimenum : ''),
  53       cdrtypenum  => $cdrtypenum,
  54       regionnum   => $region->regionnum,
  55       ratenum     => $rate->ratenum
  56     &>
  57 %     $col++;
  58   </TD>
  59 %   } # foreach @rate_time
  60 </TR>
  61 %   $row++;
  62 % }# foreach @rate_region
  63 % if ( !$opt{regionnum} ) {
  64 %   # global default for this cdrtypenum
  65 <TR>
  66   <TD COLSPAN=2 STYLE="padding-top: 10px">
  67     <B>Global default</B> (for calls not matching any prefix)
  68   </TD>
  69   <TD STYLE="padding-top: 10px">
  70 %   # default rate: set a null region for this cdr type
  71     <B>
  72     <& .detail_box,
  73       detail      => $rate->default_detail($cdrtypenum),
  74       ratetimenum => '',
  75       cdrtypenum  => $cdrtypenum,
  76       regionnum   => '',
  77       ratenum     => $rate->ratenum
  78     &>
  79     </B>
  80   </TD>
  81 % }
  82 </TABLE>
  83 <%def .detail_box>
  84 <%args>
  85 $detail => undef,
  86 $ratetimenum
  87 $cdrtypenum
  88 $regionnum
  89 $ratenum
  90 </%args>
  91 % if ($detail) {
  92       <TABLE CLASS="inv" STYLE="border:none">
  93       <TR><TD><% edit_link($detail) %>
  94 %   if ( $detail->min_charge > 0 or $detail->conn_charge > 0) {
  95               <% $money_char.$detail->min_charge %>
  96               <% $detail->sec_granularity ? ' / minute':' / call' %>
  97 %             if ( $detail->min_cost ) {
  98                 (<% $money_char.$detail->min_cost %> cost)
  99 %             }
 100 %     if ( $detail->upstream_mult_charge > 0
 101 %          or $detail->upstream_mult_cost > 0) {
 102               <BR>+
 103 %     }
 104 %   }
 105 %   if ( $detail->upstream_mult_charge > 0
 106 %        or $detail->upstream_mult_cost > 0) {
 107               <% $detail->upstream_mult_charge %> &times; upstream price
 108 %             if ( $detail->upstream_mult_cost > 0 ) {
 109               (<% $detail->upstream_mult_cost %> cost)
 110 %             }
 111 %   }
 112 %   if ( $detail->upstream_mult_charge == 0
 113 %        and $detail->min_charge == 0
 114 %        and $detail->conn_charge == 0 ) {
 115               Free
 116 %   }
 117       <% $edit_hint %></A>
 118       </TD></TR>
 119       <% granularity_detail($detail) %>
 120       <% min_included_detail($detail) %>
 121       <% conn_charge_detail($detail) %>
 122       <TR><TD><% ( $ratetimenum || $cdrtypenum ) ? delete_link($detail) : '' %>
 123       </TD></TR>
 124     </TABLE>
 125 % } else {
 126     <% add_link($ratenum, $regionnum, $ratetimenum, $cdrtypenum) %>
 127 % }
 128 </%def>
 129 <%once>
 130
 131 tie my %granularity, 'Tie::IxHash', FS::rate_detail::granularities();
 132 tie my %conn_secs,   'Tie::IxHash', FS::rate_detail::conn_secs();
 133
 134 my $conf = new FS::Conf;
 135 my $money_char = $conf->config('money_char') || '$';
 136
 137 sub small {
 138   '<FONT SIZE="-1">'.shift.'</FONT>'
 139 }
 140 my $edit_hint = small('(edit)');
 141
 142 sub edit_link {
 143   my $rate_detail = shift;
 144   my $ratedetailnum = $rate_detail->ratedetailnum;
 145   '<A HREF="javascript:void(0);" onclick="'.
 146   include( '/elements/popup_link_onclick.html',
 147              'action'      => "${p}edit/rate_detail.html?$ratedetailnum",
 148              'actionlabel' => 'Edit rate',
 149              'height'      => 550,
 150              'width'       => 580,
 151              #default# 'width'       => 540,
 152              #default# 'color'       => '#333399',
 153          ) . '">'
 154 }
 155
 156 sub add_link {
 157   my ($ratenum, $regionnum, $ratetimenum, $cdrtypenum) = @_;
 158   '<A HREF="javascript:void(0);" onclick="'.
 159   include( '/elements/popup_link_onclick.html',
 160              'action'      => "${p}edit/rate_detail.html?ratenum=".
 161                                   $ratenum.
 162                                ';dest_regionnum='.
 163                                   $regionnum.
 164                                ';ratetimenum='.
 165                                  ($ratetimenum || '').
 166                                ";cdrtypenum=$cdrtypenum",
 167              'actionlabel' => 'Add rate',
 168              'width'       => 580,
 169              'height'      => 550,
 170              ).'">'.small('(add)').'</A>'
 171 }
 172
 173 sub delete_link {
 174   my $rate_detail = shift;
 175   my $ratedetailnum = $rate_detail->ratedetailnum;
 176   my $onclick = include( '/elements/popup_link_onclick.html',
 177              'action'      => "${p}misc/delete-rate_detail.html?$ratedetailnum",
 178              'actionlabel' => 'Delete rate',
 179              'width'       => 510,
 180              'height'      => 315,
 181              'frame'       => 'top',
 182              );
 183   $onclick = "if(confirm('Delete this rate?')) { $onclick }";
 184   qq!<A HREF="javascript:void(0);" onclick="$onclick">!.small('(delete)').'</A>'
 185 }
 186
 187 sub granularity_detail {
 188   my $rate_detail = shift;
 189   if(
 190       $rate_detail->sec_granularity != 60
 191       && $rate_detail->sec_granularity > 0
 192       && $rate_detail->min_charge > 0) {
 193     '<TR><TD>'.
 194     small('in '.$granularity{$rate_detail->sec_granularity}.' increments').
 195     '</TD></TR>';
 196   }
 197   else { '' }
 198 }
 199
 200 sub min_included_detail {
 201   my $rate_detail = shift;
 202   if($rate_detail->min_included) {
 203     '<TR><TD>'.
 204     small( $rate_detail->min_included .
 205             ($rate_detail->sec_granularity ?
 206              ' minutes included' :
 207              ' calls included') ).
 208     '</TD></TR>'
 209   }
 210   else { '' }
 211 }
 212
 213 sub conn_charge_detail {
 214   my $rate_detail = shift;
 215   if($rate_detail->conn_charge > 0) {
 216   #return '' unless $rate_detail->conn_charge > 0 || $rate_detail->conn_sec;
 217     '<TR><TD>'.
 218     small( $money_char. $rate_detail->conn_charge.
 219              ( $rate_detail->conn_cost
 220                  ? ' ('. $money_char.$rate_detail->conn_cost. ' cost)'
 221                  : ''
 222              ).
 223            ' for '. $conn_secs{$rate_detail->conn_sec}
 224     ).
 225     '</TD></TR>'
 226   }
 227   else { '' }
 228 }
 229
 230 </%once>
 231 <%init>
 232
 233 die "access denied"
 234   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 235
 236 my %opt = @_;
 237 my $ratenum = $opt{'ratenum'} || '';
 238 my $regionnum = $opt{'regionnum'} || '';
 239 my $cdrtypenum = $opt{'cdrtypenum'} || '';
 240
 241 # either of these, if the $opt isn't passed, will be set to the
 242 # correct object when generating each row.
 243 my $rate = qsearchs('rate', { 'ratenum' => $ratenum } ) if $ratenum;
 244 my $region = qsearchs('rate_region', { 'regionnum' => $regionnum }) if $regionnum;
 245
 246 my @rate_time = qsearch('rate_time', {});
 247 my @header = (
 248   map( { $_->ratetimename } @rate_time ),
 249   'Default rate');
 250 my @hlinks = map( {$p.'edit/rate_time.cgi?'.$_->ratetimenum} @rate_time ), '';
 251 my @rtns = ( map( { $_->ratetimenum } @rate_time ), '' );
 252
 253 my @details;
 254 my @rows;
 255 if ( $ratenum ) {
 256   if ( $regionnum ) {
 257     @rows = qsearch('rate_region',
 258                       { ratenum => $ratenum, regionnum => $regionnum });
 259   }
 260   else {
 261     my $where = '';
 262     if ( $opt{'countrycode'} ) {
 263       $where = "WHERE 0 < (
 264                     SELECT COUNT(*) FROM rate_prefix
 265                     WHERE rate_prefix.regionnum = rate_region.regionnum
 266                     AND countrycode = '$opt{countrycode}'
 267                 )";
 268     }
 269     @rows = qsearch({ table     => 'rate_region',
 270                       hashref   => {},
 271                       extra_sql => $where,
 272                     });
 273     #die "no region found" if !@rows;
 274
 275     unshift @header, 'Region', 'Prefix(es)';
 276     unshift @hlinks, '', '';
 277   }
 278   foreach my $region (@rows) {
 279      push @details, [ map { qsearchs('rate_detail',
 280                                       { 'ratenum'        => $ratenum,
 281                                         'dest_regionnum' => $region->regionnum,
 282                                         'cdrtypenum'     => $cdrtypenum,
 283                                         'ratetimenum'    => $_ } ) or ''
 284                           } @rtns
 285                     ];
 286   }
 287 }
 288 elsif ( $regionnum ) {
 289   @rows = qsearch('rate', {}) or die "no rate plans found";
 290   unshift @header, 'Rate plan';
 291   unshift @hlinks, '';
 292   foreach my $rate (@rows) {
 293     push @details, [ map { qsearchs('rate_detail',
 294                                      { 'ratenum'        => $rate->ratenum,
 295                                        'dest_regionnum' => $regionnum,
 296                                        'cdrtypenum'     => $cdrtypenum,
 297                                        'ratetimenum'    => $_ } ) or ''
 298                          } @rtns
 299                    ];
 300   }
 301 }
 302 else {
 303   die "no ratenum or regionnum specified";
 304 }
 305
 306 </%init>