[Opensrf-commits] r1751 - trunk/src/perl/lib/OpenSRF/DomainObject (sboyette)

svn at svn.open-ils.org svn at svn.open-ils.org
Tue Aug 25 11:04:45 EDT 2009


Author: sboyette
Date: 2009-08-25 11:04:43 -0400 (Tue, 25 Aug 2009)
New Revision: 1751

Modified:
   trunk/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm
   trunk/src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm
   trunk/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
Log:
method prettyJSON doesnt exist anymore

Modified: trunk/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm	2009-08-25 15:04:42 UTC (rev 1750)
+++ trunk/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm	2009-08-25 15:04:43 UTC (rev 1751)
@@ -10,8 +10,6 @@
 
 sub toString {
 	my $self = shift;
-	my $pretty = shift;
-	return OpenSRF::Utils::JSON->perl2prettyJSON($self) if ($pretty);
 	return OpenSRF::Utils::JSON->perl2JSON($self);
 }
 

Modified: trunk/src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm	2009-08-25 15:04:42 UTC (rev 1750)
+++ trunk/src/perl/lib/OpenSRF/DomainObject/oilsMethod.pm	2009-08-25 15:04:43 UTC (rev 1751)
@@ -5,8 +5,6 @@
 
 sub toString {
 	my $self = shift;
-	my $pretty = shift;
-	return OpenSRF::Utils::JSON->perl2prettyJSON($self) if ($pretty);
 	return OpenSRF::Utils::JSON->perl2JSON($self);
 }
 

Modified: trunk/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm	2009-08-25 15:04:42 UTC (rev 1750)
+++ trunk/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm	2009-08-25 15:04:43 UTC (rev 1751)
@@ -73,8 +73,6 @@
 
 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 @@
 	my %args = (	status => $default_status,
 			statusCode => $default_statusCode,
 			@_ );
-	
+
 	return bless( \%args => $class );
 }
 



More information about the opensrf-commits mailing list