From abf4fc5e10fb747024e0ee6f44f6a03e8383e0db Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Fri, 2 Jun 2017 02:08:26 -0400 Subject: [PATCH] lp1208875 make _get_circ_history_csv work with fetch_user_circ_history braindead adaptation.. _get_circ_history_csv predates fetch_usre_circ_history I haven't scrutinized what the two circ_history subs actually do, but I bet there's room for improvement here. However, as it is now we do get a significant speed boost. Thanks Dyrcona! Signed-off-by: Jason Etheridge Signed-off-by: Galen Charlton Signed-off-by: Jason Stephenson --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm index abdbf5c4f7..947f183081 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm @@ -2719,7 +2719,7 @@ sub load_myopac_circ_history_export { my $circs = $self->fetch_user_circ_history; $self->ctx->{csv}->{rows} = $self->_get_circ_history_csv( - [map {$_->{id}} @$ids] + [map {$_->source_circ} @$circs] ); return $self->set_file_download_headers($filename, 'text/csv; encoding=UTF-8'); -- 2.43.2