From 22277bbd6a7d53d4dec2ac90e141e6329f490d32 Mon Sep 17 00:00:00 2001
From: senator <lebbeous@esilibrary.com>
Date: Thu, 27 Jan 2011 11:45:55 -0500
Subject: [PATCH] some fines display. tweak eg_vhost (IfModule ...)

---
 Open-ILS/examples/apache/eg_vhost.conf             |  8 +-
 Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm   |  9 ++-
 .../web/templates/default/opac/myopac/fines.tt2    | 85 ++++++++++++++++++++++
 3 files changed, 97 insertions(+), 5 deletions(-)

diff --git a/Open-ILS/examples/apache/eg_vhost.conf b/Open-ILS/examples/apache/eg_vhost.conf
index e250723f01..46dfebc4ad 100644
--- a/Open-ILS/examples/apache/eg_vhost.conf
+++ b/Open-ILS/examples/apache/eg_vhost.conf
@@ -568,9 +568,11 @@ RewriteRule ^/openurl$ ${openurl:%1} [NE,PT]
 <Location /eg/opac>
     PerlSetVar OILSWebContextLoader "OpenILS::WWW::EGCatLoader"
 #    Disable caching for development..
-#    Header set Expires "Thu, 19 Nov 1981 08:52:00 GM"
-#    Header set Cache-Control "no-store, no-cache, must-revalidate, post-check=0, pre-check=0"
-#    Header set Pragma "no-cache"
+    <IfModule mod_headers.c>
+#        Header set Expires "Thu, 19 Nov 1981 08:52:00 GM"
+#        Header set Cache-Control "no-store, no-cache, must-revalidate, post-check=0, pre-check=0"
+#        Header set Pragma "no-cache"
+    </IfModule>
 </Location>
 
 # Note: the template processor will decline handling anything it does not
diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
index 785cd11204..fe1e0e547f 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
@@ -680,7 +680,10 @@ sub load_myopac_fines {
     my $self = shift;
     my $e = $self->editor;
     my $ctx = $self->ctx;
-    $ctx->{transactions} = [];
+    $ctx->{"fines"} = {
+        "circulation" => [],
+        "grocery" => []
+    };
 
     my $limit = $self->cgi->param('limit') || 0;
     my $offset = $self->cgi->param('offset') || 0;
@@ -713,6 +716,7 @@ sub load_myopac_fines {
         }
     );
 
+    $ctx->{"responses"} = 0;
     while(my $resp = $req->recv) {
         my $mobts = $resp->content;
         my $circ = $mobts->circulation;
@@ -723,8 +727,9 @@ sub load_myopac_fines {
             $last_billing = pop(@billings);
         }
 
+        $ctx->{"responses"}++;
         push(
-            @{$ctx->{transactions}},
+            @{$ctx->{"fines"}->{$mobts->grocery ? "grocery" : "circulation"}},
             {
                 xact => $mobts,
                 last_grocery_billing => $last_billing,
diff --git a/Open-ILS/web/templates/default/opac/myopac/fines.tt2 b/Open-ILS/web/templates/default/opac/myopac/fines.tt2
index cf9d23c5c1..49ecf3071b 100644
--- a/Open-ILS/web/templates/default/opac/myopac/fines.tt2
+++ b/Open-ILS/web/templates/default/opac/myopac/fines.tt2
@@ -4,11 +4,16 @@
     table { border-collapse: collapse; }
     table { padding: 3px; border-bottom: 1px solid #ddd; text-align: left;}
     table tr:nth-child(odd) { background-color:#ded; }
+    h2 { margin-bottom: 0; }
 </style>
 [% END %]
 
+[% USE date %]
+[% USE money = format('$%.2f') %]
+[% PROCESS "default/opac/common.tt2" %]
 [% WRAPPER "default/opac/base.tt2" %]
 [% INCLUDE "default/opac/myopac/_links.tt2" myopac_page = "fines" %]
+<h2>Summary</h2>
 <table>
     <thead>
         <tr>
@@ -17,6 +22,86 @@
             <th>Balance Owed</th>
         </tr>
     </thead>
+    <tbody>
+        <tr>
+            <td colspan="3"><em>XXX TODO</em></td>
+        </tr>
+    </tbody>
+</table>
+
+[% IF ctx.fines.circulation.size > 0 %]
+<h2>Overdue materials</h2>
+<table>
+    <thead>
+        <tr>
+            <th>Title</th>
+            <th>Author</th>
+            <th>Checkout Date</th>
+            <th>Due Date</th>
+            <th>Date Returned</th>
+            <th>Balance Owed</th>
+        </tr>
+    </thead>
+    <tbody>
+    [% FOR f IN ctx.fines.circulation %]
+        [% attrs = {marc_xml => f.marc_xml}; %]
+        [% PROCESS get_marc_attrs args=attrs; %]
+        <tr>
+            <td>[% attrs.title %]</td>
+            <td>[% attrs.author %]</td>
+            <td>[% date.format(
+                ctx.parse_datetime(f.xact.circulation.xact_start), "%Y-%m-%d"
+            ) %]</td>
+            <td>[% date.format(
+                ctx.parse_datetime(f.xact.circulation.due_date), "%Y-%m-%d"
+            ) %]</td>
+            <td>[%
+                IF f.xact.circulation.checkin_time;
+                    date.format(
+                        ctx.parse_datetime(f.xact.circulation.checkin_time),
+                        "%Y-%m-%d"
+                    );
+                END %]</td><!-- XXX TODO display stop_fines_time if set? Display something instead of blank like "fines accruing" ? -->
+            <td>[% money(f.xact.balance_owed) %]</td>
+        </tr>
+    [% END %]
+    </tbody>
 </table>
+[% END %]
+
+[% IF ctx.fines.grocery.size > 0 %]
+<h2>Other Fees</h2>
+<table>
+    <thead>
+        <tr>
+            <th>Transaction Start Time</th>
+            <th>Last Payment Time</th>
+            <th>Initial Amount Owed</th>
+            <th>Total Amount Paid</th>
+            <th>Balance Owed</th>
+            <th>Billing Type</th>
+        </tr>
+    </thead>
+    <tbody>
+    [% FOR f IN ctx.fines.grocery %]
+        <tr>
+            <td>[%
+                date.format(
+                    ctx.parse_datetime(f.xact.xact_start), "%Y-%m-%d"
+                ) %]</td>
+            <td>[% IF f.xact.last_payment_ts;
+                    date.format(
+                        ctx.parse_datetime(f.xact.last_payment_ts), "%Y-%m-%d"
+                        );
+                    END %]</td>
+            <td>[% money(f.xact.total_owed) %]</td>
+            <td>[% money(f.xact.total_paid) %]</td>
+            <td>[% money(f.xact.balance_owed) %]</td>
+            <td>[% f.xact.last_billing_type %]</td>
+        </tr>
+    [% END %]
+    </tbody>
+</table>
+[% END %]
 
 [% END %]
-- 
2.11.0