Attachment #152502 for bug #15504

View | Details | Raw Unified | Return to bug 15504
Collapse All | Expand All

Lines 1306-1312 sub checkauth { Link Here

(-)a/C4/Auth.pm (-1 / +1 lines)
1306	));	1306	));
1307	}	1307	}
1308		1308
1309	track_login_daily( $userid );	1309	track_login_daily( $userid, 'login' );
1310		1310
1311	# In case, that this request was a login attempt, we want to prevent that users can repost the opac login	1311	# In case, that this request was a login attempt, we want to prevent that users can repost the opac login
1312	# request. We therefore redirect the user to the requested page again without the login parameters.	1312	# request. We therefore redirect the user to the requested page again without the login parameters.

Lines 1676-1682 sub AddIssue { Link Here

(-)a/C4/Circulation.pm (-2 / +7 lines)
1676	)->store;	1676	)->store;
1677	}	1677	}
1678	$issue->discard_changes;	1678	$issue->discard_changes;
1679	C4::Auth::track_login_daily( $borrower->{userid} );	1679	C4::Auth::track_login_daily( $borrower->{userid}, 'check_out' );
1680	if ( $item_object->location && $item_object->location eq 'CART'	1680	if ( $item_object->location && $item_object->location eq 'CART'
1681	&& ( !$item_object->permanent_location \|\| $item_object->permanent_location ne 'CART' ) ) {	1681	&& ( !$item_object->permanent_location \|\| $item_object->permanent_location ne 'CART' ) ) {
1682	## Item was moved to cart via UpdateItemLocationOnCheckin, anything issued should be taken off the cart.	1682	## Item was moved to cart via UpdateItemLocationOnCheckin, anything issued should be taken off the cart.
Lines 2469-2475 sub AddReturn { Link Here
2469		2469
2470	logaction("CIRCULATION", "RETURN", $borrowernumber, $item->itemnumber)	2470	logaction("CIRCULATION", "RETURN", $borrowernumber, $item->itemnumber)
2471	if C4::Context->preference("ReturnLog");	2471	if C4::Context->preference("ReturnLog");
2472	}	2472
		2473	#Update borrowers.lastseen
		2474	C4::Auth::track_login_daily( $patron->userid, 'check_in' );
		2475	}
2473		2476
2474	# Check if this item belongs to a biblio record that is attached to an	2477	# Check if this item belongs to a biblio record that is attached to an
2475	# ILL request, if it is we need to update the ILL request's status	2478	# ILL request, if it is we need to update the ILL request's status
Lines 3307-3312 sub AddRenewal { Link Here
3307	interface => C4::Context->interface,	3310	interface => C4::Context->interface,
3308	}	3311	}
3309	);	3312	);
		3313	#Update borrowers.lastseen
		3314	C4::Auth::track_login_daily( $patron_unblessed->{userid}, 'renewal' );
3310		3315
3311	#Log the renewal	3316	#Log the renewal
3312	logaction("CIRCULATION", "RENEWAL", $borrowernumber, $itemnumber) if C4::Context->preference("RenewalLog");	3317	logaction("CIRCULATION", "RENEWAL", $borrowernumber, $itemnumber) if C4::Context->preference("RenewalLog");

Lines 397-403 sub AuthenticatePatron { Link Here

(-)a/C4/ILSDI/Services.pm (-1 / +1 lines)
397	my ($status, $cardnumber, $userid) = C4::Auth::checkpw( $username, $password );	397	my ($status, $cardnumber, $userid) = C4::Auth::checkpw( $username, $password );
398	if ( $status == 1 ) {	398	if ( $status == 1 ) {
399	# Track the login	399	# Track the login
400	C4::Auth::track_login_daily( $userid );	400	C4::Auth::track_login_daily( $userid, 'connection' );
401	# Get the borrower	401	# Get the borrower
402	my $patron = Koha::Patrons->find( { userid => $userid } );	402	my $patron = Koha::Patrons->find( { userid => $userid } );
403	return { id => $patron->borrowernumber };	403	return { id => $patron->borrowernumber };

Lines 993-999 sub handle_patron_info { Link Here

(-)a/C4/SIP/Sip/MsgType.pm (-2 / +1 lines)
993		993
994	$resp = (PATRON_INFO_RESP);	994	$resp = (PATRON_INFO_RESP);
995	if ($patron) {	995	if ($patron) {
996	$patron->update_lastseen();	996	C4::Auth::track_login_daily( $patron->userid, 'connection' );
997	$resp .= patron_status_string( $patron, $server );	997	$resp .= patron_status_string( $patron, $server );
998	$resp .= ( defined($lang) and length($lang) == 3 ) ? $lang : $patron->language;	998	$resp .= ( defined($lang) and length($lang) == 3 ) ? $lang : $patron->language;
999	$resp .= timestamp();	999	$resp .= timestamp();
1000	-

Return to bug 15504