httemplate/edit/rate.cgi

   1 <%
   2
   3 my $rate;
   4 if ( $cgi->keywords ) {
   5   my($query) = $cgi->keywords;
   6   $query =~ /^(\d+)$/;
   7   $rate = qsearchs( 'rate', { 'ratenum' => $1 } );
   8 } else { #adding
   9   $rate = new FS::rate {};
  10 }
  11 my $action = $rate->ratenum ? 'Edit' : 'Add';
  12
  13 my $p1 = popurl(1);
  14
  15 my %granularity = (
  16   '6'  => '6 second',
  17   '60' => 'minute',
  18 );
  19
  20 #my $nous = <<END;
  21 #  WHERE 0 < ( SELECT COUNT(*) FROM rate_prefix
  22 #               WHERE rate_region.regionnum = rate_prefix.regionnum
  23 #                 AND countrycode != '1'
  24 #            )
  25 #END
  26
  27 %>
  28
  29 <%= include("/elements/header.html","$action Rate plan", menubar(
  30       'Main Menu' => $p,
  31       'View all rate plans' => "${p}browse/rate.cgi",
  32     ))
  33 %>
  34
  35 <%= include('/elements/progress-init.html',
  36               'OneTrueForm',
  37               [ 'rate', 'min_', 'sec_' ],
  38               'process/rate.cgi',
  39               $p.'browse/rate.cgi',
  40            )
  41 %>
  42 <FORM NAME="OneTrueForm">
  43 <INPUT TYPE="hidden" NAME="ratenum" VALUE="<%= $rate->ratenum %>">
  44
  45 Rate plan
  46 <INPUT TYPE="text" NAME="ratename" SIZE=32 VALUE="<%= $rate->ratename %>">
  47 <BR><BR>
  48
  49 <%= table() %>
  50 <TR>
  51   <TH>Region</TH>
  52   <TH>Prefix(es)</TH>
  53   <TH><FONT SIZE=-1>Included<BR>minutes</FONT></TH>
  54   <TH><FONT SIZE=-1>Charge per<BR>minute</FONT></TH>
  55   <TH><FONT SIZE=-1>Granularity</FONT></TH>
  56 </TR>
  57
  58 <% foreach my $rate_region (
  59      sort { lc($a->regionname) cmp lc($b->regionname) }
  60      qsearch({
  61                'select'    => 'DISTINCT ON ( regionnum ) rate_region.*',
  62                'table'     => 'rate_region',
  63                'addl_from' => 'INNER JOIN rate_prefix USING ( regionnum )',
  64                'hashref'   => {},
  65                'extra_sql' => "WHERE countrycode != '1'",
  66                               # 'ORDER BY regionname'
  67                               # ERROR: SELECT DISTINCT ON expressions must
  68                               #        match initial ORDER BY expressions
  69             })
  70    ) {
  71      my $n = $rate_region->regionnum;
  72      my $rate_detail =
  73        $rate->dest_detail($rate_region)
  74        || new FS::rate_detail { 'min_included'    => 0,
  75                                 'min_charge'      => 0,
  76                                 'sec_granularity' => '60'
  77                               };
  78 %>
  79
  80   <TR>
  81     <TD><A HREF="<%=$p%>edit/rate_region.cgi?<%= $rate_region->regionnum %>"><%= $rate_region->regionname %></A></TD>
  82     <TD><%= $rate_region->prefixes_short %></TD>
  83     <TD><INPUT TYPE="text" SIZE=5 NAME="min_included<%=$n%>" VALUE="<%= $cgi->param("min_included$n") || $rate_detail->min_included %>"></TD>
  84     <TD>$<INPUT TYPE="text" SIZE=4 NAME="min_charge<%=$n%>" VALUE="<%= sprintf('%.2f', $cgi->param("min_charge$n") || $rate_detail->min_charge ) %>"></TD>
  85     <TD>
  86       <SELECT NAME="sec_granularity<%=$n%>">
  87         <% foreach my $granularity ( keys %granularity ) { %>
  88           <OPTION VALUE="<%=$granularity%>"<%= $granularity == ( $cgi->param("sec_granularity$n") || $rate_detail->sec_granularity ) ? ' SELECTED' : '' %>><%=$granularity{$granularity}%>
  89         <% } %>
  90       </SELECT>
  91   </TR>
  92
  93 <% } %>
  94
  95 <TR>
  96   <TD COLSPAN=5 ALIGN="center">
  97     <A HREF="<%=$p%>edit/rate_region.cgi"><I>Add a region</I></A>
  98   </TD>
  99 </TR>
 100
 101 </TABLE>
 102
 103 <BR><INPUT NAME="submit" TYPE="button" VALUE="<%=
 104   $rate->ratenum ? "Apply changes" : "Add rate plan"
 105 %>" onClick="document.OneTrueForm.submit.disabled=true; process();">
 106
 107     </FORM>
 108   </BODY>
 109 </HTML>
 110