debug

diff --git a/httemplate/misc/process/unhold_pkg.html b/httemplate/misc/process/unhold_pkg.html
index 6eec7ee..6940480 100755 (executable)
--- 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 70eea23..0fe5204 100644 (file)
--- 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' ) {