From dc89d3d583bff237f56dac6dcda57412ba0584a8 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 18 Jan 2015 12:25:50 -0800
Subject: [PATCH] fix compile bug in jayce's commit adding cust_bill->cancel
 method, RT#23357

---
 FS/FS/cust_bill.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 0b8cb0254..07c33204e 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -678,21 +678,22 @@ sub cancel {
        join(', ', map { "$_: $opt{$_}" } keys %opt ). "\n"
     if $DEBUG;
 
-  return ( 'access denied' )
+  return ( 'Access denied' )
     unless $FS::CurrentUser::CurrentUser->access_right('Cancel customer');
 
   my @pkgs = $self->cust_pkg;
 
-  if ( !$opt{nobill} && $conf->exists('bill_usage_on_cancel') ) {
+  if ( !$opt{nobill} && $self->conf->exists('bill_usage_on_cancel') ) {
     $opt{nobill} = 1;
     my $error = $self->cust_main->bill( pkg_list => [ @pkgs ], cancel => 1 );
     warn "Error billing during cancel, custnum ". $self->custnum. ": $error"
       if $error;
   }
 
-  grep { $_ } map { $_->cancel(%opt) }
-  grep {! $_->getfield('cancel') } 
-  @pkgs;
+  grep { $_ }
+    map { $_->cancel(%opt) }
+      grep { ! $_->getfield('cancel') } 
+        @pkgs;
 }
 
 =item cust_bill_pay
-- 
2.11.0