From 0ef375d61858198a781fbbc9479662b040c6de4f Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 12 Aug 2016 12:46:34 +0200
Subject: [PATCH] save some data for marc extracting script

---
 html.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/html.pl b/html.pl
index 9873d9c..28da23f 100755
--- a/html.pl
+++ b/html.pl
@@ -14,6 +14,7 @@ use Carp qw(confess);
 use utf8;
 use JSON;
 use POSIX qw(strftime);
+use Storable;
 
 use lib '/srv/koha_ffzg';
 use C4::Context;
@@ -103,6 +104,7 @@ foreach my $department ( keys %$department_in_sum ) {
 }
 
 debug 'auth_department' => $auth_department;
+store $auth_department, '/dev/shm/auth_department.storable';
 debug 'auth_group' => $auth_group;
 debug 'department_in_sum' => $department_in_sum;
 
@@ -336,6 +338,7 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) {
 }
 
 debug 'authors' => $authors;
+store $authors, '/dev/shm/authors.storable';
 debug 'type_stats' => $type_stats;
 debug 'skip' => $skip;
 debug 'biblio_year' => $biblio_year;
-- 
2.20.1