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   jsrsExecute( 'process/rate.cgi', myCallback, 'start_job', Hash );
  60
  61 }
  62
  63 function myCallback( jobnum ) {
  64   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');
  65   progressWindow.opener = self;
  66   //progressWindow.opener = document;
  67 }
  68
  69 </SCRIPT>
  70
  71 <FORM NAME="OneTrueForm">
  72 <INPUT TYPE="hidden" NAME="ratenum" VALUE="<%= $rate->ratenum %>">
  73
  74 Rate plan
  75 <INPUT TYPE="text" NAME="ratename" SIZE=32 VALUE="<%= $rate->ratename %>">
  76 <BR><BR>
  77
  78 <%= table() %>
  79 <TR>
  80   <TH>Region</TH>
  81   <TH>Prefix(es)</TH>
  82   <TH><FONT SIZE=-1>Included<BR>minutes</FONT></TH>
  83   <TH><FONT SIZE=-1>Charge per<BR>minute</FONT></TH>
  84   <TH><FONT SIZE=-1>Granularity</FONT></TH>
  85 </TR>
  86
  87 <% foreach my $rate_region (
  88      qsearch( 'rate_region',
  89               {},
  90               '',
  91               "$nous ORDER BY regionname",
  92             )
  93    ) {
  94      my $n = $rate_region->regionnum;
  95      my $rate_detail =
  96        $rate->dest_detail($rate_region)
  97        || new FS::rate_detail { 'min_included'    => 0,
  98                                 'min_charge'      => 0,
  99                                 'sec_granularity' => '60'
 100                               };
 101 %>
 102   <TR>
 103     <TD><A HREF="<%=$p%>edit/rate_region.cgi?<%= $rate_region->regionnum %>"><%= $rate_region->regionname %></A></TD>
 104     <TD><%= $rate_region->prefixes_short %></TD>
 105     <TD><INPUT TYPE="text" SIZE=5 NAME="min_included<%=$n%>" VALUE="<%= $cgi->param("min_included$n") || $rate_detail->min_included %>"></TD>
 106     <TD>$<INPUT TYPE="text" SIZE=4 NAME="min_charge<%=$n%>" VALUE="<%= sprintf('%.2f', $cgi->param("min_charge$n") || $rate_detail->min_charge ) %>"></TD>
 107     <TD>
 108       <SELECT NAME="sec_granularity<%=$n%>">
 109         <% foreach my $granularity ( keys %granularity ) { %>
 110           <OPTION VALUE="<%=$granularity%>"<%= $granularity == ( $cgi->param("sec_granularity$n") || $rate_detail->sec_granularity ) ? ' SELECTED' : '' %>><%=$granularity{$granularity}%>
 111         <% } %>
 112       </SELECT>
 113   </TR>
 114 <% } %>
 115
 116 <TR>
 117   <TD COLSPAN=5 ALIGN="center">
 118     <A HREF="<%=$p%>edit/rate_region.cgi"><I>Add a region</I></A>
 119   </TD>
 120 </TR>
 121
 122 </TABLE>
 123
 124 <BR><INPUT NAME="submit" TYPE="button" VALUE="<%=
 125   $rate->ratenum ? "Apply changes" : "Add rate plan"
 126 %>" onClick="document.OneTrueForm.submit.disabled=true; process();">
 127 Please make sure to allow popups from this site in order to view the progress window.
 128 <!-- Please be patient, <%= $rate->ratenum ? 'editing' : 'adding' %>
 129 a rate plan can take a few minutes... -->
 130
 131     </FORM>
 132   </BODY>
 133 </HTML>
 134