view release on metacpan or  search on metacpan

lib/LIMS/Controller.pm  view on Meta::CPAN

74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
                # compare session time in db with that from cgi
                if (( $sess_start_secs > Date::EzDate->new( $self->current_sess_time )->{'epoch second'}) &&
                        ( $self->back_sensitive)) {  # is an 'old' session
                                $self->standard_error("Data from this page has already been entered into the database.","Please don't use the browser's 'back' button after submitting a form");
                                $self->kill_pipeline;
                } else {
                        $self->update_session;
                }
        }
}
sub update_session {
        my $self = shift;
        $self->alter_session_id(1);
}
sub close_session {
my $self = shift;               
$self->alter_session_id(0);
}
sub log_out {
        my $self = shift;
        $self->close_session;