- package FS::XMLRPC;
+package FS::XMLRPC;
use strict;
-use vars qw( $DEBUG );
+use vars qw( @ISA $DEBUG );
use Frontier::RPC2;
# Instead of 'use'ing freeside modules on the fly below, just preload them now.
use FS::Record;
use FS::cust_main;
-use FS::Maestro;
-
use Data::Dumper;
+@ISA = qw( );
+
$DEBUG = 0;
=head1 NAME
}
- if ( scalar(@result) == 1 && ref($result[0]) eq 'HASH' ) {
- return $result[0];
- } elsif (grep { UNIVERSAL::can($_, 'hashref') ? 0 : 1 } @result) {
+ warn Dumper(@result) if $DEBUG;
+
+ if (grep { UNIVERSAL::can($_, 'hashref') ? 0 : 1 } @result) {
#warn "FS::XMLRPC: One or more objects returned from '${fssub}' doesn't " .
# "support the 'hashref' method.";
return [ $FS::VERSION ];
} # else...
- warn "Unhandled XMLRPC request '${method_name}'";
- return {};
+ warn "Unhandle XMLRPC request '${method_name}'";
+ return [];
}