error message on transfer service, RT#27194

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index 1e4cc9b..8aea17d 100644 (file)
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -3578,7 +3578,7 @@ sub transfer {
     }
     if ( $error ) {
       my @label = $cust_svc->label;
-      return "service $label[1]: $error";
+      return "$label[0] $label[1]: $error";
     }
   }
   return $remaining;