projects
/
koha-bibliografija
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
save some data for marc extracting script
[koha-bibliografija]
/
html.pl
diff --git
a/html.pl
b/html.pl
index
9873d9c
..
28da23f
100755
(executable)
--- a/
html.pl
+++ b/
html.pl
@@
-14,6
+14,7
@@
use Carp qw(confess);
use utf8;
use JSON;
use POSIX qw(strftime);
use utf8;
use JSON;
use POSIX qw(strftime);
+use Storable;
use lib '/srv/koha_ffzg';
use C4::Context;
use lib '/srv/koha_ffzg';
use C4::Context;
@@
-103,6
+104,7
@@
foreach my $department ( keys %$department_in_sum ) {
}
debug 'auth_department' => $auth_department;
}
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;
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;
}
debug 'authors' => $authors;
+store $authors, '/dev/shm/authors.storable';
debug 'type_stats' => $type_stats;
debug 'skip' => $skip;
debug 'biblio_year' => $biblio_year;
debug 'type_stats' => $type_stats;
debug 'skip' => $skip;
debug 'biblio_year' => $biblio_year;