diff options
author | ivan <ivan> | 2011-01-27 00:30:20 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-01-27 00:30:20 +0000 |
commit | 09ce724404f16e036cbdfeccb64a0955dafca99a (patch) | |
tree | b64dbba4a37e49e734570ebbefc8776dae01827a /FS/FS/UI | |
parent | 9d5b7fa247a69a0d912eec2486014e689f0694cd (diff) |
diagnose winding up in svc_X_link without a cust_svc? RT#11331
Diffstat (limited to 'FS/FS/UI')
-rw-r--r-- | FS/FS/UI/Web.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm index 2d00d2c..cb740ee 100644 --- a/FS/FS/UI/Web.pm +++ b/FS/FS/UI/Web.pm @@ -3,6 +3,7 @@ package FS::UI::Web; use strict; use vars qw($DEBUG @ISA @EXPORT_OK $me); use Exporter; +use Carp qw( confess );; use FS::Conf; use FS::Misc::DateTime qw( parse_datetime ); use FS::Record qw(dbdef); @@ -143,6 +144,9 @@ sub svc_X_link { return $x unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); + confess "svc_X_link called without a service ($x, $m, $part_svc, $cust_svc)\n" + unless $cust_svc; + my $ahref = svc_url( 'ahref' => 1, 'm' => $m, |