From: ivan <ivan>
Date: Thu, 27 Jan 2011 00:37:52 +0000 (+0000)
Subject: fix svc_label_link...? how did this ever work?  RT#11331
X-Git-Tag: freeside_2_1_2~102
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=3fafb034f6b3f6fbd6b81edf6337b29b9e8be86e;p=freeside.git

fix svc_label_link...? how did this ever work?  RT#11331
---

diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm
index cb740ee3b..029b02c6c 100644
--- a/FS/FS/UI/Web.pm
+++ b/FS/FS/UI/Web.pm
@@ -135,7 +135,8 @@ sub svc_link {
 
 sub svc_label_link {
   my($m, $part_svc, $cust_svc) = @_ or return '';
-  svc_X_link( ($cust_svc->label)[1], @_ );
+  my($svc, $label, $svcdb) = $cust_svc->label;
+  svc_X_link( $label, @_ );
 }
 
 sub svc_X_link {