httemplate/edit/rate.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 my $rate;
   5 if ( $cgi->param('error') ) {
   6   $rate = new FS::rate ( {
   7     map { $_, scalar($cgi->param($_)) } fields('rate')
   8   } );
   9 } elsif ( $cgi->keywords ) {
  10   my($query) = $cgi->keywords;
  11   $query =~ /^(\d+)$/;
  12   $rate = qsearchs( 'rate', { 'ratenum' => $1 } );
  13 } else { #adding
  14   $rate = new FS::rate {};
  15 }
  16 my $action = $rate->ratenum ? 'Edit' : 'Add';
  17
  18 my $p1 = popurl(1);
  19
  20 my %granularity = (
  21   '6'  => '6 second',
  22   '60' => 'minute',
  23 );
  24
  25 %>
  26
  27 <%= header("$action Rate plan", menubar(
  28       'Main Menu' => $p,
  29       'View all rate plans' => "${p}browse/rate.cgi",
  30     ))
  31 %>
  32
  33 <% if ( $cgi->param('error') ) { %>
  34 <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT><BR>
  35 <% } %>
  36
  37 <FORM ACTION="<%=$p1%>process/rate.cgi" METHOD=POST>
  38
  39 <INPUT TYPE="hidden" NAME="ratenum" VALUE="<%= $rate->ratenum %>">
  40
  41 Rate plan
  42 <INPUT TYPE="text" NAME="ratename" SIZE=32 VALUE="<%= $rate->ratename %>">
  43 <BR><BR>
  44
  45 <%= table() %>
  46 <TR>
  47   <TH>Region</TH>
  48   <TH>Prefix(es)</TH>
  49   <TH><FONT SIZE=-1>Included<BR>minutes</FONT></TH>
  50   <TH><FONT SIZE=-1>Charge per<BR>minute</FONT></TH>
  51   <TH><FONT SIZE=-1>Granularity</FONT></TH>
  52 </TR>
  53
  54 <% foreach my $rate_region (
  55      qsearch('rate_region', {}, '', 'ORDER BY regionname' )
  56    ) {
  57      my $n = $rate_region->regionnum;
  58      my $rate_detail =
  59        $rate->dest_detail($rate_region)
  60        || new FS::rate_region { 'min_included'    => 0,
  61                                 'min_charge'      => 0,
  62                                 'sec_granularity' => '60'
  63                               };
  64 %>
  65   <TR>
  66     <TD><A HREF="<%=$p%>edit/rate_region.cgi?<%= $rate_region->regionnum %>"><%= $rate_region->regionname %></A></TD>
  67     <TD><%= $rate_region->prefixes_short %></TD>
  68     <TD><INPUT TYPE="text" SIZE=5 NAME="min_included<%=$n%>" VALUE="<%= $cgi->param("min_included$n") || $rate_detail->min_included %>"></TD>
  69     <TD>$<INPUT TYPE="text" SIZE=4 NAME="min_charge<%=$n%>" VALUE="<%= sprintf('%.2f', $cgi->param("min_charge$n") || $rate_detail->min_charge ) %>"></TD>
  70     <TD>
  71       <SELECT NAME="sec_granularity<%=$n%>">
  72         <% foreach my $granularity ( keys %granularity ) { %>
  73           <OPTION VALUE="<%=$granularity%>"<%= $granularity == ( $cgi->param("sec_granularity$n") || $rate_detail->sec_granularity ) ? ' SELECTED' : '' %>><%=$granularity{$granularity}%>
  74         <% } %>
  75       </SELECT>
  76   </TR>
  77 <% } %>
  78
  79 <TR>
  80   <TD COLSPAN=5 ALIGN="center">
  81     <A HREF="<%=$p%>edit/rate_region.cgi"><I>Add a region</I></A>
  82   </TD>
  83 </TR>
  84
  85 </TABLE>
  86
  87 <BR><INPUT TYPE="submit" VALUE="<%=
  88   $rate->ratenum ? "Apply changes" : "Add rate plan"
  89 %>">
  90
  91     </FORM>
  92   </BODY>
  93 </HTML>
  94