Attachment #155292 for bug #15504

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

Lines 1318-1324 sub checkauth { Link Here

(-)a/C4/Auth.pm (-1 / +1 lines)
1318	));	1318	));
1319	}	1319	}
1320		1320
1321	track_login_daily( $userid );	1321	track_login_daily( $userid, 'login' );
1322		1322
1323	# In case, that this request was a login attempt, we want to prevent that users can repost the opac login	1323	# In case, that this request was a login attempt, we want to prevent that users can repost the opac login
1324	# request. We therefore redirect the user to the requested page again without the login parameters.	1324	# request. We therefore redirect the user to the requested page again without the login parameters.

Lines 1682-1688 sub AddIssue { Link Here

(-)a/C4/Circulation.pm (-2 / +7 lines)
1682	)->store;	1682	)->store;
1683	}	1683	}
1684	$issue->discard_changes;	1684	$issue->discard_changes;
1685	C4::Auth::track_login_daily( $borrower->{userid} );	1685	C4::Auth::track_login_daily( $borrower->{userid}, 'check_out' );
1686	if ( $item_object->location && $item_object->location eq 'CART'	1686	if ( $item_object->location && $item_object->location eq 'CART'
1687	&& ( !$item_object->permanent_location \|\| $item_object->permanent_location ne 'CART' ) ) {	1687	&& ( !$item_object->permanent_location \|\| $item_object->permanent_location ne 'CART' ) ) {
1688	## Item was moved to cart via UpdateItemLocationOnCheckin, anything issued should be taken off the cart.	1688	## Item was moved to cart via UpdateItemLocationOnCheckin, anything issued should be taken off the cart.
Lines 2475-2481 sub AddReturn { Link Here
2475		2475
2476	logaction("CIRCULATION", "RETURN", $borrowernumber, $item->itemnumber)	2476	logaction("CIRCULATION", "RETURN", $borrowernumber, $item->itemnumber)
2477	if C4::Context->preference("ReturnLog");	2477	if C4::Context->preference("ReturnLog");
2478	}	2478
		2479	#Update borrowers.lastseen
		2480	C4::Auth::track_login_daily( $patron->userid, 'check_in' );
		2481	}
2479		2482
2480	# Check if this item belongs to a biblio record that is attached to an	2483	# Check if this item belongs to a biblio record that is attached to an
2481	# ILL request, if it is we need to update the ILL request's status	2484	# ILL request, if it is we need to update the ILL request's status
Lines 3323-3328 sub AddRenewal { Link Here
3323	interface => C4::Context->interface,	3326	interface => C4::Context->interface,
3324	}	3327	}
3325	);	3328	);
		3329	#Update borrowers.lastseen
		3330	C4::Auth::track_login_daily( $patron_unblessed->{userid}, 'renewal' );
3326		3331
3327	#Log the renewal	3332	#Log the renewal
3328	logaction("CIRCULATION", "RENEWAL", $borrowernumber, $itemnumber) if C4::Context->preference("RenewalLog");	3333	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 995-1001 sub handle_patron_info { Link Here

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

Return to bug 15504