<% include('/elements/header.html', 'Edit rates with Excel' ) %>

% if ( $have_conn ) { 
  <FONT COLOR="#FF0000">WARNING: This functionality does not yet preserve connection charges.</FONT><BR><BR>
% }

<& /elements/form-file_upload.html,
     'name'      => 'RateImportForm',
     'action'    => 'process/rate_edit_excel.html',
     'num_files' => 1,
     'fields'    => [ 'format' ],
     'message'   => 'Rate edit successful',
     'url'       => $p."browse/rate_region.html",
     'onsubmit'  => "document.RateImportForm.submitButton.disabled=true;"
&>

<% &ntable("#cccccc", 2) %>

  <TR>
    <TH ALIGN="left">1. Download current rates:</TH>
    <TD>
      <A HREF="<%$p%>/browse/rate_region.html?show_rates=1;_type=regions.xls">Download rate spreadsheet</A>
    </TD>
  </TR>

  <TR>
    <TH ALIGN="left" COLSPAN=2>2. Edit rates with Excel (or other .XLS-compatible application)</TH>
  </TR>

  <TR>
    <TD ALIGN="left" COLSPAN=2>
      &nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;To add rates, add four columns like an existing rate, with headers starting with "NEW: Rate Name" or "Rate Name".<BR>
     &nbsp;&nbsp;&nbsp;&nbsp;-&nbsp;<FONT SIZE="-2"><I>For rate addition, protection can be turned off in Excel via the Tools-&gt;Protection-&gt;Unprotect Sheet menu command.  Note that only new rates can be added; modified grayed out cells will not be imported.</I></FONT>
    </TD>
  </TR>

  <% include( '/elements/file-upload.html',
                'field' => 'file',
                'label' => '3. Upload edited rate file: ',
                'label_align' => 'left',
            )
  %>

  <INPUT TYPE="hidden" NAME="format" VALUE="default">

  <TR>
    <TD COLSPAN=2 ALIGN="center" STYLE="padding-top:6px">
      <INPUT TYPE    = "submit"
             ID      = "submitButton"
             NAME    = "submitButton"
             VALUE   = "Upload"
      >
    </TD>
  </TR>


</TABLE>

<% include('/elements/footer.html') %>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');

my $sth = dbh->prepare('SELECT COUNT(*) FROM rate_detail WHERE conn_charge > 0 OR conn_sec > 0 LIMIT 1')
  or die dbh->errstr;
$sth->execute or die $sth->errstr;
my $have_conn = $sth->fetchrow_arrayref->[0];

</%init>