diff options
| author | ivan <ivan> | 2011-01-27 00:30:21 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-01-27 00:30:21 +0000 |
| commit | 4dad3b184d9adbdc7899335206eb1f8c1295f0e0 (patch) | |
| tree | 049498f0ffeb97400535958c351232719c5dfb1c | |
| parent | 356072795f66e41551651dfc282c071da1c69e10 (diff) | |
diagnose winding up in svc_X_link without a cust_svc? RT#11331
| -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, |