diff options
author | Dave Lawrence <dlawrence@mozilla.com> | 2012-02-17 00:48:51 +0100 |
---|---|---|
committer | Dave Lawrence <dlawrence@mozilla.com> | 2012-02-17 00:48:51 +0100 |
commit | a636e89b6851367fa4e59e1bb646d1ad8d3456a6 (patch) | |
tree | 9b8f57862b0cadba10494a98036e902cd7d7c5f9 /Bugzilla/WebService/Server/XMLRPC.pm | |
parent | 1dcfd9872fe4d43785e76030a89122424ffd4a7d (diff) | |
parent | 4622fc071220abaf0defbbde7be6c0c9ecba8aa8 (diff) | |
download | bugzilla-a636e89b6851367fa4e59e1bb646d1ad8d3456a6.tar.gz bugzilla-a636e89b6851367fa4e59e1bb646d1ad8d3456a6.tar.xz |
merged with bugzilla/4.2
Diffstat (limited to 'Bugzilla/WebService/Server/XMLRPC.pm')
-rw-r--r-- | Bugzilla/WebService/Server/XMLRPC.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Bugzilla/WebService/Server/XMLRPC.pm b/Bugzilla/WebService/Server/XMLRPC.pm index b74d0eebd..5c3677993 100644 --- a/Bugzilla/WebService/Server/XMLRPC.pm +++ b/Bugzilla/WebService/Server/XMLRPC.pm @@ -31,6 +31,20 @@ if ($ENV{MOD_PERL}) { use Bugzilla::WebService::Constants; +# Allow WebService methods to call XMLRPC::Lite's type method directly +BEGIN { + *Bugzilla::WebService::type = sub { + my ($self, $type, $value) = @_; + if ($type eq 'dateTime') { + # This is the XML-RPC implementation, see the README in Bugzilla/WebService/. + # Our "base" implementation is in Bugzilla::WebService::Server. + $value = Bugzilla::WebService::Server->datetime_format_outbound($value); + $value =~ s/-//g; + } + return XMLRPC::Data->type($type)->value($value); + }; +} + sub initialize { my $self = shift; my %retval = $self->SUPER::initialize(@_); |