[freeside-commits] freeside/FS/FS/UI Web.pm,1.45,1.45.4.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/UI
In directory wavetail.420.am:/tmp/cvs-serv2451

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	Web.pm 
Log Message:
diagnose winding up in svc_X_link without a cust_svc?  RT#11331

Index: Web.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/UI/Web.pm,v
retrieving revision 1.45
retrieving revision 1.45.4.1
diff -u -w -d -r1.45 -r1.45.4.1
--- Web.pm	1 Jun 2010 19:58:27 -0000	1.45
+++ Web.pm	27 Jan 2011 00:30:21 -0000	1.45.4.1
@@ -3,6 +3,7 @@
 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 @@
   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,