From 9bb663adc22a8b66c1901f0868af4e49aba1f330 Mon Sep 17 00:00:00 2001
From: sboyette <sboyette@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 25 Aug 2009 15:04:43 +0000
Subject: [PATCH] method prettyJSON doesnt exist anymore

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1751 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm  | 2 --
 src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm   | 2 --
 src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm | 4 +---
 3 files changed, 1 insertion(+), 7 deletions(-)

diff --git a/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm b/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm
index ad7ed3b..44eafc2 100644
--- a/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm
+++ b/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm
@@ -10,8 +10,6 @@ OpenSRF::Utils::JSON->register_class_hint(hint => 'osrfMessage', name => 'OpenSR
 
 sub toString {
 	my $self = shift;
-	my $pretty = shift;
-	return OpenSRF::Utils::JSON->perl2prettyJSON($self) if ($pretty);
 	return OpenSRF::Utils::JSON->perl2JSON($self);
 }
 
diff --git a/src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm b/src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm
index f83727b..a5a674f 100644
--- a/src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm
+++ b/src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm
@@ -5,8 +5,6 @@ OpenSRF::Utils::JSON->register_class_hint(hint => 'osrfMethod', name => 'OpenSRF
 
 sub toString {
 	my $self = shift;
-	my $pretty = shift;
-	return OpenSRF::Utils::JSON->perl2prettyJSON($self) if ($pretty);
 	return OpenSRF::Utils::JSON->perl2JSON($self);
 }
 
diff --git a/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm b/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
index aeaee77..18e2e3c 100644
--- a/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
+++ b/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
@@ -73,8 +73,6 @@ my $log = 'OpenSRF::Utils::Logger';
 
 sub toString {
 	my $self = shift;
-	my $pretty = shift;
-	return OpenSRF::Utils::JSON->perl2prettyJSON($self) if ($pretty);
 	return OpenSRF::Utils::JSON->perl2JSON($self);
 }
 
@@ -88,7 +86,7 @@ sub new {
 	my %args = (	status => $default_status,
 			statusCode => $default_statusCode,
 			@_ );
-	
+
 	return bless( \%args => $class );
 }
 
-- 
2.43.2