Lines 890-896
sub handle_login {
Link Here
|
890 |
# and we're going to believe it. |
890 |
# and we're going to believe it. |
891 |
# |
891 |
# |
892 |
sub summary_info { |
892 |
sub summary_info { |
893 |
my ($ils, $patron, $summary, $start, $end) = @_; |
893 |
my ($ils, $patron, $summary, $start, $end, $server) = @_; |
894 |
my $resp = ''; |
894 |
my $resp = ''; |
895 |
my $summary_type; |
895 |
my $summary_type; |
896 |
# |
896 |
# |
Lines 898-908
sub summary_info {
Link Here
|
898 |
# message to the corresponding field and handler |
898 |
# message to the corresponding field and handler |
899 |
# |
899 |
# |
900 |
my @summary_map = ( |
900 |
my @summary_map = ( |
901 |
{ func => $patron->can( "hold_items"), fid => FID_HOLD_ITEMS }, |
901 |
{ func => $patron->can("hold_items"), fid => FID_HOLD_ITEMS }, |
902 |
{ func => $patron->can("overdue_items"), fid => FID_OVERDUE_ITEMS }, |
902 |
{ func => $patron->can("overdue_items"), fid => FID_OVERDUE_ITEMS }, |
903 |
{ func => $patron->can("charged_items"), fid => FID_CHARGED_ITEMS }, |
903 |
{ func => $patron->can("charged_items"), fid => FID_CHARGED_ITEMS }, |
904 |
{ func => $patron->can( "fine_items"), fid => FID_FINE_ITEMS }, |
904 |
{ func => $patron->can("fine_items"), fid => FID_FINE_ITEMS }, |
905 |
{ func => $patron->can( "recall_items"), fid => FID_RECALL_ITEMS }, |
905 |
{ func => $patron->can("recall_items"), fid => FID_RECALL_ITEMS }, |
906 |
{ func => $patron->can("unavail_holds"), fid => FID_UNAVAILABLE_HOLD_ITEMS }, |
906 |
{ func => $patron->can("unavail_holds"), fid => FID_UNAVAILABLE_HOLD_ITEMS }, |
907 |
); |
907 |
); |
908 |
|
908 |
|
Lines 915-921
sub summary_info {
Link Here
|
915 |
|
915 |
|
916 |
my $func = $summary_map[$summary_type]->{func}; |
916 |
my $func = $summary_map[$summary_type]->{func}; |
917 |
my $fid = $summary_map[$summary_type]->{fid}; |
917 |
my $fid = $summary_map[$summary_type]->{fid}; |
918 |
my $itemlist = &$func($patron, $start, $end); |
918 |
my $itemlist = &$func($patron, $start, $end, $server); |
919 |
|
919 |
|
920 |
syslog("LOG_DEBUG", "summary_info: list = (%s)", join(", ", @{$itemlist})); |
920 |
syslog("LOG_DEBUG", "summary_info: list = (%s)", join(", ", @{$itemlist})); |
921 |
foreach my $i (@{$itemlist}) { |
921 |
foreach my $i (@{$itemlist}) { |
Lines 991-997
sub handle_patron_info {
Link Here
|
991 |
# fine_items |
991 |
# fine_items |
992 |
# recall_items |
992 |
# recall_items |
993 |
|
993 |
|
994 |
$resp .= summary_info($ils, $patron, $summary, $start, $end); |
994 |
$resp .= summary_info($ils, $patron, $summary, $start, $end, $server); |
995 |
|
995 |
|
996 |
$resp .= maybe_add(FID_HOME_ADDR, $patron->address); |
996 |
$resp .= maybe_add(FID_HOME_ADDR, $patron->address); |
997 |
$resp .= maybe_add(FID_EMAIL, $patron->email_addr); |
997 |
$resp .= maybe_add(FID_EMAIL, $patron->email_addr); |