projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9d5b7fa
)
diagnose winding up in svc_X_link without a cust_svc? RT#11331
author
ivan
<ivan>
Thu, 27 Jan 2011 00:30:20 +0000
(
00:30
+0000)
committer
ivan
<ivan>
Thu, 27 Jan 2011 00:30:20 +0000
(
00:30
+0000)
FS/FS/UI/Web.pm
patch
|
blob
|
history
diff --git
a/FS/FS/UI/Web.pm
b/FS/FS/UI/Web.pm
index
2d00d2c
..
cb740ee
100644
(file)
--- 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 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);
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');
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,
my $ahref = svc_url(
'ahref' => 1,
'm' => $m,