e}={};
}
}
}
### use JSON;
### dprint ''.(JSON->new->allow_unknown->allow_blessed->pretty->encode($result));
retur
"force=",$args->{'force'};
...
}
# Data only method, will output JSON
# (will also set content-type to application/json!)
#
# <%Fubar mode='api'%>
#
# Data prepared as above, but displaye
is to call display_data() -- which outputs the data in a format
given by 'format' argument (only JSON and XML is supported currently).
If there are both data_* and display_* methods then the output
2 JSON Encoding Configuration
The JSON encoding can be controlled with two site configuration
values:
/xao/action/json_pretty - insert line breaks to make JSON easier to read
/xao/action/json_c
use Digest::SHA qw(sha1_hex);
use Encode;
use Time::HiRes qw(gettimeofday tv_interval);
use JSON qw(to_json);
use XAO::Cache;
use XAO::Objects;
use XAO::PageSupport;
use XAO::Projects qw(:all);
use X
ms_json=to_json([$path,$template,$params,$cgis,$cookies,$protocol],{ utf8 => 1, canonical => 1 });
my $params_digest=sha1_hex($params_json);
return wantarray ? ($params_digest,$params_json)
-cache-add')) {
my ($args_digest,$args_json)=$self->params_digest($args);
dprint "RENDER_CACHE_ADD: $args_digest / $args_json";
}
}
# Parsing template or getti