summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark Wells <mark@freeside.biz>2015-11-28 18:28:22 -0800
committerMark Wells <mark@freeside.biz>2015-11-30 15:45:29 -0800
commitf3133ea0a9f2d017dbf8f5a156946db504a63e72 (patch)
treef7499b415ce2a569a06f20ea6123a4f591966ac9
parent318f5f84e954d09f7dea2ab98793e812820bef48 (diff)
debug
-rwxr-xr-xhttemplate/misc/process/unhold_pkg.html2
-rw-r--r--rt/share/html/Elements/ServiceFields4
2 files changed, 0 insertions, 6 deletions
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' ) {