oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use to_json and from_json in more places instead of encode_json and decode_json

Browse source
This commit is contained in:
Graham Knop 2009-01-22 01:14:14 +00:00
parent b249b98a86
commit 315ce0941f
5 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/File/GalleryFile/Photo.pm
View file

@ -19,7 +19,7 @@ use base 'WebGUI::Asset::File::GalleryFile';
use Carp qw( carp croak );
use Image::ExifTool qw( :Public );
use JSON qw/ encode_json decode_json /;
use JSON qw/ to_json from_json /;
use URI::Escape;
use Tie::IxHash;
use List::MoreUtils;
@ -221,7 +221,7 @@ sub getExifData {
# Our processing and eliminating of bad / unparsable keys
# isn't perfect, so handle errors gracefully
my $exif = eval { decode_json( $self->get('exifData') ) };
my $exif = eval { from_json( $self->get('exifData') ) };
if ( $@ ) {
$self->session->errorHandler->warn(
"Could not parse JSON data for EXIF in Photo '" . $self->get('title')
@ -461,7 +461,7 @@ sub updateExifDataFromFile {
}
$self->update({
exifData => encode_json( $info ),
exifData => to_json( $info ),
});
}

4
lib/WebGUI/Asset/Wobject/Poll.pm
View file

@ -192,7 +192,7 @@ sub freezeGraphConfig {
my $self = shift;
my $obj = shift;
return JSON::encode_json($obj);
return JSON::to_json($obj);
}
@ -404,7 +404,7 @@ sub thawGraphConfig {
my $string = shift;
return unless $string;
return JSON::decode_json($string);
return JSON::from_json($string);
}
#-------------------------------------------------------------------