[open-ils-commits] r16058 - trunk/Open-ILS/src/extras (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-03-30 12:16:31 -0400 (Tue, 30 Mar 2010)
New Revision: 16058

Added:
   trunk/Open-ILS/src/extras/facet_types_js.pl
Log:
add initial cut of slim facet structure autogen script

Added: trunk/Open-ILS/src/extras/facet_types_js.pl
===================================================================
--- trunk/Open-ILS/src/extras/facet_types_js.pl	                        (rev 0)
+++ trunk/Open-ILS/src/extras/facet_types_js.pl	2010-03-30 16:16:31 UTC (rev 16058)
@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+use strict; use warnings;
+
+# ------------------------------------------------------------
+# turns the facet fields defined on config.metabib_field into JS
+# ------------------------------------------------------------
+
+use OpenSRF::System;
+use OpenILS::Utils::Fieldmapper;
+use OpenSRF::Utils::SettingsClient;
+use OpenSRF::Utils::Cache;
+use File::Spec;
+
+die "usage: $0 <bootstrap_config> <path> <filename>" unless $ARGV[2];
+OpenSRF::System->bootstrap_client(config_file => $ARGV[0]);
+
+my $path = $ARGV[1];
+my $filename = $ARGV[2];
+
+Fieldmapper->import(IDL => OpenSRF::Utils::SettingsClient->new->config_value("IDL"));
+
+# must be loaded after the IDL is parsed
+require OpenILS::Utils::CStoreEditor;
+
+# Get our list of locales
+my $session = OpenSRF::AppSession->create("open-ils.cstore");
+my $locales = $session->request("open-ils.cstore.direct.config.i18n_locale.search.atomic", {"code" => {"!=" => undef}}, {"order_by" => {"i18n_l" => "name"}})->gather();
+$session->disconnect();
+
+foreach my $locale (@$locales) {
+    warn "removing facet list from the cache for locale " . $locale->code . "...\n";
+    my $cache = OpenSRF::Utils::Cache->new;
+    $cache->delete_cache("facet_definition.".$locale->code);
+
+    # fetch the org_unit's and org_unit_type's
+    my $e = OpenILS::Utils::CStoreEditor->new;
+    $e->session->session_locale($locale->code) if ($locale->code);
+
+    my $types = $e->retrieve_all_actor_org_unit_type;
+    my $tree = $e->request(
+        'open-ils.cstore.direct.config.metabib_field.search.atomic',
+        {   facet_field     => 't' },
+        {   no_i18n         => $locale->code ? 0 : 1,
+            flesh           => 1,
+            flesh_fields    => { cmf => [ 'field_class' ] }
+        }
+    );
+    my $dir = File::Spec->catdir($path, $locale->code);
+    if (!-d $dir) {
+        mkdir($dir);
+    }
+    build_tree_js($tree, File::Spec->catfile($dir, $filename));
+}
+
+
+sub val {
+    my $v = shift;
+    return 'null' unless defined $v;
+
+    # required for JS code this is checking truthness 
+    # without using isTrue() (1/0 vs. t/f)
+    return 1 if $v eq 't';
+    return 0 if $v eq 'f';
+
+    $v =~ s/([\x{0080}-\x{fffd}])/sprintf('\u%04x',ord($1))/sgoe;
+
+    return "\"$v\"";
+}
+
+sub build_tree_js {
+    my $tree = shift;
+    my $outfile = shift;
+
+    my $pile = "var globalFacets = {";
+    my @array;
+    for my $o (@$tree) {
+        my %hash = (
+            id          => $o->id,
+            name        => val($o->name),
+            label       => $o->val($o->label),
+            classname   => val($o->field_class->name),
+            classlabel  => val($o->field_class->label)
+        );
+
+        $pile .= $id.':{'.join(',' map { "$_:$hash{$_}" } keys %hash).'",';
+    }
+
+    $pile =~ s/,$//; # remove trailing comma
+    $pile .= "}; /* Facets */";
+
+    open(OUTFH, '>', $outfile) or die "Could not open $outfile : $!";
+    print OUTFH "$pile\n";
+    close(OUTFH);
+}
+
+
+