This commit was manufactured by cvs2svn to create tag 'freeside_2_1_1'.

[freeside.git] / FS / FS / access_right.pm

diff --git a/FS/FS/access_right.pm b/FS/FS/access_right.pm
index ef8cc6c..bc6dd5d 100644 (file)
--- a/FS/FS/access_right.pm
+++ b/FS/FS/access_right.pm
@@ -145,41 +145,6 @@ sub _upgrade_data { # class method
       if $error;
   }
 
-  my %migrate = (
-    'Post payment'    => [ 'Post check payment', 'Post cash payment' ],
-    'Process payment' => [ 'Process credit card payment', 'Process Echeck payment' ],
-    'Post refund'     => [ 'Post check refund', 'Post cash refund' ],
-    'Refund payment'  => [ 'Refund credit card payment', 'Refund Echeck payment' ],
-  );
-
-  foreach my $oldright (keys %migrate) {
-    my @old = qsearch('access_right', { 'righttype'=>'FS::access_group',
-                                        'rightname'=>$oldright,
-                                      }
-                     );
-
-    foreach my $old ( @old ) {
-
-      foreach my $newright ( @{ $migrate{$oldright} } ) {
-        my %hash = (
-          'righttype'   => 'FS::access_group',
-          'rightobjnum' => $old->rightobjnum,
-          'rightname'   => $newright,
-        );
-        next if qsearchs('access_right', \%hash);
-        my $access_right = new FS::access_right \%hash;
-        my $error = $access_right->insert;
-        die $error if $error;
-      }
-
-      #after the WEST stuff is sorted, etc.
-      #my $error = $old->delete;
-      #die $error if $error;
-
-    }
-
-  }
-
   '';
 
 }