X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Frate_edit_excel.html;h=e55c676a82bfaabe2ac51753dc6ace920f0b259f;hp=e73133c05fd859897f51474b43a992a75bdf09b8;hb=HEAD;hpb=40a7b3dc653e099f7bd0bd762b649b04c4432db2

diff --git a/httemplate/misc/rate_edit_excel.html b/httemplate/misc/rate_edit_excel.html
index e73133c05..e55c676a8 100644
--- a/httemplate/misc/rate_edit_excel.html
+++ b/httemplate/misc/rate_edit_excel.html
@@ -1,14 +1,18 @@
 <% 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) %>
 
@@ -42,9 +46,9 @@
   <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>
@@ -58,4 +62,9 @@
 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>