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 <%= header("$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      qsearch( 'rate_region',
  60               {},
  61               '',
  62               "$nous ORDER BY regionname",
  63             )
  64    ) {
  65      my $n = $rate_region->regionnum;
  66      my $rate_detail =
  67        $rate->dest_detail($rate_region)
  68        || new FS::rate_detail { 'min_included'    => 0,
  69                                 'min_charge'      => 0,
  70                                 'sec_granularity' => '60'
  71                               };
  72 %>
  73   <TR>
  74     <TD><A HREF="<%=$p%>edit/rate_region.cgi?<%= $rate_region->regionnum %>"><%= $rate_region->regionname %></A></TD>
  75     <TD><%= $rate_region->prefixes_short %></TD>
  76     <TD><INPUT TYPE="text" SIZE=5 NAME="min_included<%=$n%>" VALUE="<%= $cgi->param("min_included$n") || $rate_detail->min_included %>"></TD>
  77     <TD>$<INPUT TYPE="text" SIZE=4 NAME="min_charge<%=$n%>" VALUE="<%= sprintf('%.2f', $cgi->param("min_charge$n") || $rate_detail->min_charge ) %>"></TD>
  78     <TD>
  79       <SELECT NAME="sec_granularity<%=$n%>">
  80         <% foreach my $granularity ( keys %granularity ) { %>
  81           <OPTION VALUE="<%=$granularity%>"<%= $granularity == ( $cgi->param("sec_granularity$n") || $rate_detail->sec_granularity ) ? ' SELECTED' : '' %>><%=$granularity{$granularity}%>
  82         <% } %>
  83       </SELECT>
  84   </TR>
  85 <% } %>
  86
  87 <TR>
  88   <TD COLSPAN=5 ALIGN="center">
  89     <A HREF="<%=$p%>edit/rate_region.cgi"><I>Add a region</I></A>
  90   </TD>
  91 </TR>
  92
  93 </TABLE>
  94
  95 <BR><INPUT NAME="submit" TYPE="button" VALUE="<%=
  96   $rate->ratenum ? "Apply changes" : "Add rate plan"
  97 %>" onClick="document.OneTrueForm.submit.disabled=true; process();">
  98
  99     </FORM>
 100   </BODY>
 101 </HTML>
 102