Attachment #157604 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 1677-1683 sub AddIssue { Link Here

(-)a/C4/Circulation.pm (-2 / +7 lines)
1677	)->store;	1677	)->store;
1678	}	1678	}
1679	$issue->discard_changes;	1679	$issue->discard_changes;
1680	C4::Auth::track_login_daily( $patron->userid );	1680	C4::Auth::track_login_daily( $patron->userid, 'check_out' );
1681	if ( $item_object->location && $item_object->location eq 'CART'	1681	if ( $item_object->location && $item_object->location eq 'CART'
1682	&& ( !$item_object->permanent_location \|\| $item_object->permanent_location ne 'CART' ) ) {	1682	&& ( !$item_object->permanent_location \|\| $item_object->permanent_location ne 'CART' ) ) {
1683	## Item was moved to cart via UpdateItemLocationOnCheckin, anything issued should be taken off the cart.	1683	## Item was moved to cart via UpdateItemLocationOnCheckin, anything issued should be taken off the cart.
Lines 2494-2500 sub AddReturn { Link Here
2494		2494
2495	logaction("CIRCULATION", "RETURN", $borrowernumber, $item->itemnumber)	2495	logaction("CIRCULATION", "RETURN", $borrowernumber, $item->itemnumber)
2496	if C4::Context->preference("ReturnLog");	2496	if C4::Context->preference("ReturnLog");
2497	}	2497
		2498	#Update borrowers.lastseen
		2499	C4::Auth::track_login_daily( $patron->userid, 'check_in' );
		2500	}
2498		2501
2499	# Check if this item belongs to a biblio record that is attached to an	2502	# Check if this item belongs to a biblio record that is attached to an
2500	# ILL request, if it is we need to update the ILL request's status	2503	# ILL request, if it is we need to update the ILL request's status
Lines 3357-3362 sub AddRenewal { Link Here
3357	interface => C4::Context->interface,	3360	interface => C4::Context->interface,
3358	}	3361	}
3359	);	3362	);
		3363	#Update borrowers.lastseen
		3364	C4::Auth::track_login_daily( $patron_unblessed->{userid}, 'renewal' );
3360		3365
3361	#Log the renewal	3366	#Log the renewal
3362	logaction("CIRCULATION", "RENEWAL", $borrowernumber, $itemnumber) if C4::Context->preference("RenewalLog");	3367	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