From: Mark Wells <mark@freeside.biz>
Date: Sun, 29 Nov 2015 02:28:22 +0000 (-0800)
Subject: debug
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=cb28905b4bc28f3d7a1a67d14cf9c8b44fafe2d5

debug
---

diff --git a/httemplate/misc/process/unhold_pkg.html b/httemplate/misc/process/unhold_pkg.html
index 6eec7ee8a..694048023 100755
--- a/httemplate/misc/process/unhold_pkg.html
+++ b/httemplate/misc/process/unhold_pkg.html
@@ -6,8 +6,6 @@
 </HTML>
 <%init>
 
-warn Dumper +{$cgi->Vars}; # XXX
-
 my $curuser = $FS::CurrentUser::CurrentUser;
 die "access denied"
   unless $curuser->access_right('Unsuspend customer package');
diff --git a/rt/share/html/Elements/ServiceFields b/rt/share/html/Elements/ServiceFields
index 70eea232f..0fe52041c 100644
--- a/rt/share/html/Elements/ServiceFields
+++ b/rt/share/html/Elements/ServiceFields
@@ -137,12 +137,10 @@ sub svc_location_attribute {
         my $Ticket = shift;
         my @svc_resolvers = ticket_svc_resolvers($Ticket);
         if (@svc_resolvers) {
-          warn '#' . $Ticket->id . ", service attribute $attribute\n";
             foreach my $s (@svc_resolvers) {
                 push @return, $s->ServiceInfo->{$attribute}, '<BR>';
             }
         } else {
-          warn '#' . $Ticket->id . ", customer attribute ship_$attribute\n";
             my @cust_resolvers = map $_->TargetURI->Resolver,
                                  @{ $Ticket->Customers->ItemsArrayRef };
             foreach my $c (@cust_resolvers) {
@@ -156,8 +154,6 @@ sub svc_location_attribute {
 
 </%once>
 <%init>
-use Data::Dumper;
-#warn Dumper(\@service_fields);
 
 my $arg = shift;
 if ( $arg eq 'Names' ) {