show costs when ordering, RT#30462

diff --git a/FS/FS/AccessRight.pm b/FS/FS/AccessRight.pm
index 8d4d67b..4e57032 100644 (file)
--- a/FS/FS/AccessRight.pm
+++ b/FS/FS/AccessRight.pm
@@ -153,6 +153,7 @@ tie my %rights, 'Tie::IxHash',
     'Waive setup fee', #NEW
     'View appointments', #NEWNEW
     'Make appointment',
+    'View package definition costs', #NEWNEW
   ],
   
   ###

diff --git a/FS/FS/access_right.pm b/FS/FS/access_right.pm
index e6dadfa..87b052f 100644 (file)
--- a/FS/FS/access_right.pm
+++ b/FS/FS/access_right.pm
@@ -246,6 +246,7 @@ sub _upgrade_data { # class method
     'Edit global package definitions' => 'Edit package definition costs',
     'Add on-the-fly credit reason' => 'Add on-the-fly refund reason',
     'Configuration' => 'Edit global fee definitions',
+    'Edit package definition costs' => 'View package definition costs',
   );
 
 #  foreach my $old_acl ( keys %onetime ) {