From 38539853d9b05106e0c9995aec95829b73fd2bf4 Mon Sep 17 00:00:00 2001
From: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Date: Wed, 24 Apr 2013 13:45:45 -0400
Subject: [PATCH] more in progress

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
---
 .../src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm    |  5 ++-
 .../perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm | 26 ++++++++++++++
 Open-ILS/src/templates/opac/browse.tt2             | 41 +++++++++++++++++++++-
 3 files changed, 68 insertions(+), 4 deletions(-)
 create mode 100644 Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
index f7437a2c78..244afa206b 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
@@ -19,6 +19,7 @@ use Time::HiRes;
 # EGCatLoader sub-modules 
 use OpenILS::WWW::EGCatLoader::Util;
 use OpenILS::WWW::EGCatLoader::Account;
+use OpenILS::WWW::EGCatLoader::Browse;
 use OpenILS::WWW::EGCatLoader::Search;
 use OpenILS::WWW::EGCatLoader::Record;
 use OpenILS::WWW::EGCatLoader::Container;
@@ -119,13 +120,11 @@ sub load {
     return $self->load_simple("advanced") if
         $path =~ m:opac/(advanced|numeric|expert):;
 
-    # XXX TODO make ->load_browse()
-    return $self->load_simple("browse") if $path =~ m|opac/browse|;
-
     return $self->load_rresults if $path =~ m|opac/results|;
     return $self->load_print_record if $path =~ m|opac/record/print|;
     return $self->load_record if $path =~ m|opac/record/\d|;
     return $self->load_cnbrowse if $path =~ m|opac/cnbrowse|;
+    return $self->load_browse if $path =~ m|opac/browse|;
 
     return $self->load_mylist_add if $path =~ m|opac/mylist/add|;
     return $self->load_mylist_delete if $path =~ m|opac/mylist/delete|;
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm
new file mode 100644
index 0000000000..250f449a3b
--- /dev/null
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Browse.pm
@@ -0,0 +1,26 @@
+package OpenILS::WWW::EGCatLoader;  # sic
+
+use strict;
+use warnings;
+
+use OpenSRF::Utils::Logger qw/$logger/;
+use OpenILS::Utils::CStoreEditor qw/:funcs/;
+use OpenILS::Utils::Fieldmapper;
+use OpenILS::Application::AppUtils;
+use OpenSRF::Utils::JSON;
+
+use Apache2::Const -compile => qw(
+    OK DECLINED FORBIDDEN
+    HTTP_INTERNAL_SERVER_ERROR
+    REDIRECT HTTP_BAD_REQUEST
+);
+use Data::Dumper;
+$Data::Dumper::Indent = 0;
+
+my $U = 'OpenILS::Application::AppUtils';
+
+sub load_browse {
+    my ($self) = @_;
+}
+
+1;
diff --git a/Open-ILS/src/templates/opac/browse.tt2 b/Open-ILS/src/templates/opac/browse.tt2
index b66664a6bc..3c9a925d6b 100644
--- a/Open-ILS/src/templates/opac/browse.tt2
+++ b/Open-ILS/src/templates/opac/browse.tt2
@@ -2,6 +2,7 @@
 
     PROCESS "opac/parts/header.tt2";
     PROCESS "opac/parts/misc_util.tt2";
+    PROCESS "opac/parts/org_selector.tt2";
     WRAPPER "opac/parts/base.tt2";
     INCLUDE "opac/parts/topnav.tt2";
     ctx.page_title = l("Browse the Catalog"); %]
@@ -17,8 +18,46 @@
     <div id="content-wrapper">
         <div id="main-content">
             <div id="browse-the-catalog">
-                blah blah blah [%# INCLUDE "opac/parts/browse.tt2" %]
+                <div id="browse-controls">
+                    <label for="browse-axis">[% l('Browse by') %]</label>
+                    <select id="browse-axis" name="baxis" aria-label="[% l('Select browse axis') %]">
+                        <option>XXX TODO</option>
+                    </select>
+
+                    <input type="text" name="bterm" />
+
+                    <label for="browse-context">[% l('held under') %]</label>
+                    [% INCLUDE build_org_selector id='browse-context' show_loc_groups=1 arialabel=l('Select holding library') %]
+
+                    <input type="submit" value="[% l('Go') %]" />
+                </div>
+
+                [% BLOCK browse_pager %]
+                <div class="browse-pager">
+                    <a href="javascript:alert('XXX TODO');">&larr; [%l ('Back') %]</a>
+                    <span class="browse-english-shortcuts">
+                        0-9
+                        A
+                        B
+                        C
+                        [%# XXX TODO. Make off by default in config.tt2 %]
+                    </span>
+
+                    <a href="javascript:alert('XXX TODO');">[%l ('Forward') %] &rarr;</a>
+                </div>
+                [% END %]
+
+                [% PROCESS browse_pager %]
+
+                <div id="browse-results">
+                [% FOR result IN browse_results %]
+                    [% result %]</br><!-- XXX TODO better HTML -->
+                [% END %]
+                </div>
+
+                [% PROCESS browse_pager %]
             </div>
+
             <div class="common-full-pad"></div>	
         </div>
     </div>
-- 
2.11.0