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 <!-- <FORM ACTION="<%=$p1%>rate.cgi" NAME="OneTrueForm" METHOD=POST onSubmit="document.OneTrueForm.submit.disabled=true"> -->
  36
  37 <SCRIPT TYPE="text/javascript" SRC="../elements/jsrsClient.js"></SCRIPT>
  38 <SCRIPT TYPE="text/javascript">
  39 function process () {
  40   document.OneTrueForm.submit.disabled=true;
  41
  42   var Hash = new Array();
  43   var x = 0;
  44   var fieldName;
  45   for (var i = 0; i<document.OneTrueForm.elements.length; i++) {
  46     fieldName = document.OneTrueForm.elements[i].name;
  47     if (    (fieldName.indexOf('rate') > -1)
  48          || (fieldName.indexOf('min_') > -1)
  49          || (fieldName.indexOf('sec_') > -1)
  50        )
  51     {
  52         Hash[x++] = fieldName;
  53         Hash[x++] = document.OneTrueForm.elements[i].value;
  54     }
  55   }
  56
  57   jsrsPOST = true;
  58   jsrsExecute( 'process/rate.cgi', myCallback, 'process_rate', Hash );
  59
  60   function myCallback( jobnum ) {
  61     var progressWindow = window.open('../../misc/progress.html?jobnum=' + jobnum + ';url=<%=$p%>browse/rate.cgi', 'progressWindow', 'toolbar=no,location=no,directories=no,scrollbars=no,menubar=no,status=no,width=420,height=128');
  62     progressWindow.opener = self;
  63     //progressWindow.opener = document;
  64   }
  65
  66 }
  67 </SCRIPT>
  68
  69 <FORM NAME="OneTrueForm">
  70 <INPUT TYPE="hidden" NAME="ratenum" VALUE="<%= $rate->ratenum %>">
  71
  72 Rate plan
  73 <INPUT TYPE="text" NAME="ratename" SIZE=32 VALUE="<%= $rate->ratename %>">
  74 <BR><BR>
  75
  76 <%= table() %>
  77 <TR>
  78   <TH>Region</TH>
  79   <TH>Prefix(es)</TH>
  80   <TH><FONT SIZE=-1>Included<BR>minutes</FONT></TH>
  81   <TH><FONT SIZE=-1>Charge per<BR>minute</FONT></TH>
  82   <TH><FONT SIZE=-1>Granularity</FONT></TH>
  83 </TR>
  84
  85 <% foreach my $rate_region (
  86      qsearch( 'rate_region',
  87               {},
  88               '',
  89               "$nous ORDER BY regionname",
  90             )
  91    ) {
  92      my $n = $rate_region->regionnum;
  93      my $rate_detail =
  94        $rate->dest_detail($rate_region)
  95        || new FS::rate_detail { 'min_included'    => 0,
  96                                 'min_charge'      => 0,
  97                                 'sec_granularity' => '60'
  98                               };
  99 %>
 100   <TR>
 101     <TD><A HREF="<%=$p%>edit/rate_region.cgi?<%= $rate_region->regionnum %>"><%= $rate_region->regionname %></A></TD>
 102     <TD><%= $rate_region->prefixes_short %></TD>
 103     <TD><INPUT TYPE="text" SIZE=5 NAME="min_included<%=$n%>" VALUE="<%= $cgi->param("min_included$n") || $rate_detail->min_included %>"></TD>
 104     <TD>$<INPUT TYPE="text" SIZE=4 NAME="min_charge<%=$n%>" VALUE="<%= sprintf('%.2f', $cgi->param("min_charge$n") || $rate_detail->min_charge ) %>"></TD>
 105     <TD>
 106       <SELECT NAME="sec_granularity<%=$n%>">
 107         <% foreach my $granularity ( keys %granularity ) { %>
 108           <OPTION VALUE="<%=$granularity%>"<%= $granularity == ( $cgi->param("sec_granularity$n") || $rate_detail->sec_granularity ) ? ' SELECTED' : '' %>><%=$granularity{$granularity}%>
 109         <% } %>
 110       </SELECT>
 111   </TR>
 112 <% } %>
 113
 114 <TR>
 115   <TD COLSPAN=5 ALIGN="center">
 116     <A HREF="<%=$p%>edit/rate_region.cgi"><I>Add a region</I></A>
 117   </TD>
 118 </TR>
 119
 120 </TABLE>
 121
 122 <BR><INPUT NAME="submit" TYPE="button" VALUE="<%=
 123   $rate->ratenum ? "Apply changes" : "Add rate plan"
 124 %>" onClick="document.OneTrueForm.submit.disabled=true; process();">
 125 Please make sure to allow popups from this site in order to view the progress window.
 126 <!-- Please be patient, <%= $rate->ratenum ? 'editing' : 'adding' %>
 127 a rate plan can take a few minutes... -->
 128
 129     </FORM>
 130   </BODY>
 131 </HTML>
 132