<% 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) %>
<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>