2 # turns the orgTree and orgTypes into js files
4 use OpenSRF::AppSession;
6 use OpenILS::Utils::Fieldmapper;
7 use OpenSRF::Utils::SettingsClient;
9 die "usage: perl org_tree_html_options.pl <bootstrap_config> <output_file>" unless $ARGV[1];
10 OpenSRF::System->bootstrap_client(config_file => $ARGV[0]);
12 open FILE, ">$ARGV[1]";
14 Fieldmapper->import(IDL => OpenSRF::Utils::SettingsClient->new->config_value("IDL"));
16 my $ses = OpenSRF::AppSession->create("open-ils.storage");
17 my $tree = $ses->request("open-ils.actor.org_tree.retrieve")->gather(1);
28 return unless ($node->opac_visible =~ /^[y1t]+/i);
29 my $depth = $node->ou_type - 1;
30 my $sname = $node->shortname;
31 my $name = $node->name;
32 my $kids = $node->children;
33 print FILE "<option value='$sname'><pre>" . ' 'x$depth . "</pre>$name</option>\n";
34 print_option($_) for (@$kids);