From af1e1a8294abce86371dc67fe494ffdd01fefa05 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 15 Feb 2019 19:29:57 +0100 Subject: checkin: ensure that users are checked out first --- index.pl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/index.pl b/index.pl index 176f4f5..89555cd 100755 --- a/index.pl +++ b/index.pl @@ -264,6 +264,22 @@ helper 'checkin' => sub { return ( undef, "Train ${train_id} not found" ); } else { + + my $user = $self->get_user_status; + if ( $user->{checked_in} ) { + + # If a user is already checked in, we assume that they forgot to + # check out and do it for them. + # XXX this is an ugly workaround for the UNIQUE constraint on + # (user id, action timestamp): Ensure that checkout and re-checkin + # work even if the previous checkin was less than a second ago. + sleep(1); + $self->checkout( $station, 1 ); + + # XXX same workaround: We can't checkin immediately after checkout. + sleep(1); + } + my $success = $self->app->checkin_query->execute( $self->get_user_id, $self->get_station_id( -- cgit v1.2.3