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 my $nous = <<END;
  26   WHERE 0 < ( SELECT COUNT(*) FROM rate_prefix
  27                WHERE rate_region.regionnum = rate_prefix.regionnum
  28                  AND countrycode != '1'
  29             )
  30 END
  31
  32 %>
  33
  34 <%= header("$action Rate plan", menubar(
  35       'Main Menu' => $p,
  36       'View all rate plans' => "${p}browse/rate.cgi",
  37     ))
  38 %>
  39
  40 <% if ( $cgi->param('error') ) { %>
  41 <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT><BR>
  42 <% } %>
  43
  44 <FORM ACTION="<%=$p1%>process/rate.cgi" METHOD=POST>
  45
  46 <INPUT TYPE="hidden" NAME="ratenum" VALUE="<%= $rate->ratenum %>">
  47
  48 Rate plan
  49 <INPUT TYPE="text" NAME="ratename" SIZE=32 VALUE="<%= $rate->ratename %>">
  50 <BR><BR>
  51
  52 <%= table() %>
  53 <TR>
  54   <TH>Region</TH>
  55   <TH>Prefix(es)</TH>
  56   <TH><FONT SIZE=-1>Included<BR>minutes</FONT></TH>
  57   <TH><FONT SIZE=-1>Charge per<BR>minute</FONT></TH>
  58   <TH><FONT SIZE=-1>Granularity</FONT></TH>
  59 </TR>
  60
  61 <% foreach my $rate_region (
  62      qsearch( 'rate_region',
  63               {},
  64               '',
  65               "$nous ORDER BY regionname",
  66             )
  67    ) {
  68      my $n = $rate_region->regionnum;
  69      my $rate_detail =
  70        $rate->dest_detail($rate_region)
  71        || new FS::rate_region { 'min_included'    => 0,
  72                                 'min_charge'      => 0,
  73                                 'sec_granularity' => '60'
  74                               };
  75 %>
  76   <TR>
  77     <TD><A HREF="<%=$p%>edit/rate_region.cgi?<%= $rate_region->regionnum %>"><%= $rate_region->regionname %></A></TD>
  78     <TD><%= $rate_region->prefixes_short %></TD>
  79     <TD><INPUT TYPE="text" SIZE=5 NAME="min_included<%=$n%>" VALUE="<%= $cgi->param("min_included$n") || $rate_detail->min_included %>"></TD>
  80     <TD>$<INPUT TYPE="text" SIZE=4 NAME="min_charge<%=$n%>" VALUE="<%= sprintf('%.2f', $cgi->param("min_charge$n") || $rate_detail->min_charge ) %>"></TD>
  81     <TD>
  82       <SELECT NAME="sec_granularity<%=$n%>">
  83         <% foreach my $granularity ( keys %granularity ) { %>
  84           <OPTION VALUE="<%=$granularity%>"<%= $granularity == ( $cgi->param("sec_granularity$n") || $rate_detail->sec_granularity ) ? ' SELECTED' : '' %>><%=$granularity{$granularity}%>
  85         <% } %>
  86       </SELECT>
  87   </TR>
  88 <% } %>
  89
  90 <TR>
  91   <TD COLSPAN=5 ALIGN="center">
  92     <A HREF="<%=$p%>edit/rate_region.cgi"><I>Add a region</I></A>
  93   </TD>
  94 </TR>
  95
  96 </TABLE>
  97
  98 <BR><INPUT TYPE="submit" VALUE="<%=
  99   $rate->ratenum ? "Apply changes" : "Add rate plan"
 100 %>">
 101
 102     </FORM>
 103   </BODY>
 104 </HTML>
 105