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 | |
| parent | 9d5b7fa247a69a0d912eec2486014e689f0694cd (diff) | |
diagnose winding up in svc_X_link without a cust_svc? RT#11331
Diffstat (limited to 'FS')
| -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 2d00d2c14..cb740ee3b 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, |