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