$resp .= maybe_add(FID_FEE_AMT, $patron->fee_amount);
}
- $resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg );
- $resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode} )
+ $resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg, $server );
+ $resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode}, $server )
if ( $server->{account}->{send_patron_home_library_in_af} );
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line);
$resp .= add_field(FID_DUE_DATE, q{});
}
- $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
if ($protocol_version >= 2) {
# it's not due, so leave the date blank
$resp .= add_field(FID_DUE_DATE, '');
- $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
if ($protocol_version >= 2) {
}
$resp .= maybe_add(FID_ALERT_TYPE, $status->alert_type) if $status->alert;
- $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
$self->write_msg($resp,undef,$server->{account}->{terminator},$server->{account}->{encoding});
# Custom protocol extension to report patron internet privileges
$resp .= maybe_add(FID_INET_PROFILE, $patron->inet_privileges);
- $resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg );
- $resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode} )
+ $resp .= maybe_add( FID_SCREEN_MSG, $patron->screen_msg, $server );
+ $resp .= maybe_add( FID_SCREEN_MSG, $patron->{branchcode}, $server )
if ( $server->{account}->{send_patron_home_library_in_af} );
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line);
$resp .= add_field(FID_INST_ID, $server->{ils}->institution);
$resp .= add_field(FID_PATRON_ID, $fields->{(FID_PATRON_ID)});
- $resp .= maybe_add(FID_SCREEN_MSG, $screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $print_line);
$self->write_msg($resp,undef,$server->{account}->{terminator},$server->{account}->{encoding});
$resp .= add_field(FID_INST_ID, $inst_id);
$resp .= add_field(FID_PATRON_ID, $patron_id);
$resp .= maybe_add(FID_TRANSACTION_ID, $status->transaction_id);
- $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
$self->write_msg($resp,undef,$server->{account}->{terminator},$server->{account}->{encoding});
$resp .= add_field(FID_HOLD_PICKUP_DATE, Sip::timestamp($i));
}
- $resp .= maybe_add(FID_SCREEN_MSG, $item->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $item->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $item->print_line);
}
$resp .= maybe_add(FID_ITEM_PROPS, $item->sip_item_properties);
}
- $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
$self->write_msg($resp,undef,$server->{account}->{terminator},$server->{account}->{encoding});
sipbool($patron->check_password($patron_pwd)));
}
$resp .= add_field(FID_VALID_PATRON, 'Y');
- $resp .= maybe_add(FID_SCREEN_MSG, $patron->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $patron->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line);
}
}
$resp .= add_field(FID_INST_ID, $ils->institution);
- $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
$self->write_msg($resp,undef,$server->{account}->{terminator},$server->{account}->{encoding});
}
$resp .= add_field(FID_INST_ID, $ils->institution);
- $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
$self->write_msg($resp,undef,$server->{account}->{terminator},$server->{account}->{encoding});
$resp .= join('', map(add_field(FID_RENEWED_ITEMS , $_), @renewed ));
$resp .= join('', map(add_field(FID_UNRENEWED_ITEMS, $_), @unrenewed));
- $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+ $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg, $server);
$resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
$self->write_msg($resp,undef,$server->{account}->{terminator},$server->{account}->{encoding});
$msg .= add_field(FID_SUPPORTED_MSGS, $supported_msgs);
}
- $msg .= maybe_add(FID_SCREEN_MSG, $screen_msg);
+ $msg .= maybe_add(FID_SCREEN_MSG, $screen_msg, $server);
if (defined($account->{print_width}) && defined($print_line)
&& $account->{print_width} < length($print_line)) {