X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Frate.cgi;h=0c425a5d1e685d02ae5943a9b7f4b9565e00dc3f;hb=0a256d5758b5826aeaf7b59ac2e0f8c97ba8b86b;hp=b20c45c0c606792cf3d8b8bbf53cca941d3ec5a9;hpb=c371f6e225cfffa667815a51571203b034e4f75c;p=freeside.git

diff --git a/httemplate/browse/rate.cgi b/httemplate/browse/rate.cgi
index b20c45c0c..0c425a5d1 100644
--- a/httemplate/browse/rate.cgi
+++ b/httemplate/browse/rate.cgi
@@ -2,34 +2,35 @@
               'title'       => 'Rate plans',
               'menubar'     => [ 'Regions and Prefixes' =>
                                    $p.'browse/rate_region.html',
+                                 'Time Periods' =>
+                                   $p.'browse/rate_time.html',
+                                 'CDR Types' =>
+                                   $p.'edit/cdr_type.cgi',
                                ],
               'html_init'   => $html_init,
               'name'        => 'rate plans',
               'query'       => { 'table'     => 'rate',
                                  'hashref'   => {},
-                                 'extra_sql' => 'ORDER BY ratenum',
+                                 'order_by' => 'ORDER BY ratenum',
                                },
               'count_query' => $count_query,
               'header'      => [ '#',       'Rate plan', 'Rates'    ],
               'fields'      => [ 'ratenum', 'ratename',  $rates_sub ],
               'links'       => [ $link,     $link,       ''         ],
+              'really_disable_download' => 1
           )
 %>
 <%once>
 
-my $sth = dbh->prepare("SELECT DISTINCT(countrycode) FROM rate_prefix")
-  or die dbh->errstr;
-$sth->execute or die $sth->errstr;
-my @all_countrycodes = map $_->[0], @{ $sth->fetchall_arrayref };
 my $all_countrycodes = join("\n", map qq(<OPTION VALUE="$_">$_),
-                                      @all_countrycodes
+                                      FS::rate_prefix->all_countrycodes
                            );
 
 my $rates_sub = sub {
   my $rate = shift;
   my $ratenum = $rate->ratenum;
 
-  qq( <FORM METHOD="GET" ACTION="${p}browse/rate_detail.html">
+  qq( <FORM METHOD="GET" ACTION="${p}edit/rate.cgi">
         <INPUT TYPE="hidden" NAME="ratenum" VALUE="$ratenum">
         <SELECT NAME="countrycode" onChange="this.form.submit();">
           <OPTION SELECTED>Select Country Code
@@ -42,15 +43,10 @@ my $rates_sub = sub {
 
 };
 
-</%once>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-
 my $html_init = 
   'Rate plans for VoIP and call billing.<BR><BR>'.
   qq!<A HREF="${p}edit/rate.cgi"><I>Add a rate plan</I></A>!.
+  qq! | <A HREF="${p}misc/copy-rate_detail.html"><I>Copy rates between plans</I></A>!.
   '<BR><BR>
    <SCRIPT>
    function rate_areyousure(href) {
@@ -62,6 +58,12 @@ my $html_init =
 
 my $count_query = 'SELECT COUNT(*) FROM rate';
 
-my $link = [ $p.'edit/rate.cgi?', 'ratenum' ];
+my $link = [ $p.'edit/rate.cgi?ratenum=', 'ratenum' ];
+
+</%once>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 
 </%init>