# and we're going to believe it.
#
sub summary_info {
- my ($ils, $patron, $summary, $start, $end) = @_;
+ my ($ils, $patron, $summary, $start, $end, $server) = @_;
my $resp = '';
my $itemlist;
my $summary_type;
$func = $summary_map[$summary_type]->{func};
$fid = $summary_map[$summary_type]->{fid};
- $itemlist = &$func($patron, $start, $end);
+ $itemlist = &$func($patron, $start, $end, 0, $server);
syslog("LOG_DEBUG", "summary_info: list = (%s)", join(", ", @{$itemlist}));
foreach my $i (@{$itemlist}) {
# Apparently TLC systems do this.
$resp .= maybe_add(FID_HOME_LIBRARY, $patron->home_library);
- $resp .= summary_info($ils, $patron, $summary, $start, $end);
+ $resp .= summary_info($ils, $patron, $summary, $start, $end, $server);
$resp .= add_field(FID_VALID_PATRON, 'Y');
if (defined($patron_pwd)) {