From fa187228c6a3ef38751f6a1d9c7cd20b34020a8c Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 12 Mar 2007 13:27:07 +0000 Subject: [PATCH] forcing removal of org tree from the cache before fetching the (potentially) updated org tree git-svn-id: svn://svn.open-ils.org/ILS/trunk@7061 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/extras/org_tree_js.pl | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Open-ILS/src/extras/org_tree_js.pl b/Open-ILS/src/extras/org_tree_js.pl index f7f74aa88f..1a532f9ef4 100644 --- a/Open-ILS/src/extras/org_tree_js.pl +++ b/Open-ILS/src/extras/org_tree_js.pl @@ -6,12 +6,18 @@ use OpenSRF::System; use JSON; use OpenILS::Utils::Fieldmapper; use OpenSRF::Utils::SettingsClient; +use OpenSRF::Utils::Cache; die "usage: perl org_tree_js.pl " unless $ARGV[0]; OpenSRF::System->bootstrap_client(config_file => $ARGV[0]); Fieldmapper->import(IDL => OpenSRF::Utils::SettingsClient->new->config_value("IDL")); +warn "removing OrgTree from the cache...\n"; +my $cache = OpenSRF::Utils::Cache->new; +$cache->delete_cache('orgtree'); + + my $ses = OpenSRF::AppSession->create("open-ils.storage"); my $tree = $ses->request("open-ils.storage.direct.actor.org_unit.retrieve.all.atomic")->gather(1); my $types = $ses->request("open-ils.storage.direct.actor.org_unit_type.retrieve.all.atomic")->gather(1); -- 2.11.0