X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Frate.cgi;h=02d670fbd50b0f1435f9fde96a62bddcf4efe58e;hp=b20c45c0c606792cf3d8b8bbf53cca941d3ec5a9;hb=52b311cb03ee6714c2ea8d108efdfef86c2c3e1d;hpb=5e05724a635a22776f1b973f5d7e77989da4e048

diff --git a/httemplate/browse/rate.cgi b/httemplate/browse/rate.cgi
index b20c45c0c..02d670fbd 100644
--- a/httemplate/browse/rate.cgi
+++ b/httemplate/browse/rate.cgi
@@ -17,12 +17,8 @@
 %>
 <%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 {
@@ -42,15 +38,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) {
@@ -64,4 +55,10 @@ my $count_query = 'SELECT COUNT(*) FROM rate';
 
 my $link = [ $p.'edit/rate.cgi?', 'ratenum' ];
 
+</%once>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
 </%init>