use Digest::MD5 qw/md5_hex/;
use OpenSRF::Utils qw/:daemon/;
use OpenILS::Utils::OfflineStore;
+use OpenSRF::Utils::SettingsClient;
use DBI;
$DBI::trace = 1;
#_ol_debug_params();
$DB->DBFile($config{db});
OpenSRF::System->bootstrap_client(config_file => $bootstrap );
+ Fieldmapper->import(IDL =>
+ OpenSRF::Utils::SettingsClient->new->config_value("IDL"));
}
my $obj = shift;
my $json = JSON->perl2JSON($obj);
+ # Clear this so it's not remembered
+ $evt = undef;
+
if( $cgi->param('html')) {
my $html = "<html><body onload='xulG.handle_event($json)'></body></html>";
print "content-type: text/html\n\n";