1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
<% 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>
- 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: ',
'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>
|
