allow exports to add links to customer view (#1407)

[freeside.git] / FS / FS / UI / Web.pm

diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm
index 6a97f96..e4a9ac1 100644 (file)
--- a/FS/FS/UI/Web.pm
+++ b/FS/FS/UI/Web.pm
@@ -149,6 +149,14 @@ sub svc_X_link {
   "$ahref$x</A>";
 }
 
   "$ahref$x</A>";
 }
 

+sub svc_export_links {
+  my ($m, $part_svc, $cust_svc) = @_ or return '';
+
+  my $ahref = $cust_svc->export_links;
+
+  join('', @$ahref);
+}
+

 sub parse_lt_gt {
   my($cgi, $field) = @_;
 
 sub parse_lt_gt {
   my($cgi, $field) = @_;