use CGI;
use JSON qw(to_json);
-use C4::Auth qw(check_cookie_auth haspermission get_session);
+use C4::Auth qw(check_cookie_auth haspermission);
use C4::Circulation qw(GetIssuingCharges CanBookBeRenewed GetRenewCount GetSoonestRenewDate);
use C4::Overdues qw(GetFine);
use C4::Context;
use Koha::AuthorisedValues;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::ItemTypes;
my $input = CGI->new;
-my ( $auth_status, $sessionID ) =
+my ( $auth_status, $session ) =
check_cookie_auth( $input->cookie('CGISESSID'));
-my $session = get_session($sessionID);
my $userid = $session->param('id');
unless (haspermission($userid, { circulate => 'circulate_remaining_permissions' })
)
: undef;
- my ( $renewals_count, $renewals_allowed, $renewals_remaining ) =
+ my (
+ $renewals_count,
+ $renewals_allowed,
+ $renewals_remaining,
+ $unseen_count,
+ $unseen_allowed,
+ $unseen_remaining
+ ) =
GetRenewCount( $c->{borrowernumber}, $c->{itemnumber} );
my ( $itemtype, $recordtype, $type_for_stat );
onsite_checkout => $c->{onsite_checkout},
enumchron => $c->{enumchron},
renewals_count => $renewals_count,
- renewals_allowed => $renewals_allowed,
+ renewals_allowed => $renewals_allowed || 0,
renewals_remaining => $renewals_remaining,
+ unseen_count => $unseen_count,
+ unseen_allowed => $unseen_allowed,
+ unseen_remaining => $unseen_remaining,
return_claim_id => $c->{return_claim_id},
return_claim_notes => $c->{return_claim_notes},