<% include('/elements/header.html', 'Edit rates with Excel' ) %>
-<% include( '/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",
- )
-%>
+% 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) %>
<TH ALIGN="left" COLSPAN=2>2. Edit rates with Excel (or other .XLS-compatible application)</TH>
</TR>
+ <TR>
+ <TD ALIGN="left" COLSPAN=2>
+ - To add rates, add four columns like an existing rate, with headers starting with "NEW: Rate Name" or "Rate Name".<BR>
+ - <FONT SIZE="-2"><I>For rate addition, protection can be turned off in Excel via the Tools->Protection->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: '. ( ' 'x4 ), #yuck
+ '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 = "submit"
+ ID = "submitButton"
+ NAME = "submitButton"
VALUE = "Upload"
- onClick = "document.RateImportForm.submit.disabled=true;"
>
</TD>
</TR>
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>