b2a233f480
Enables the library to choose whether to have patrons scan their barcodes for self checkout, or login with username and password. Uses 'checkpw' for compatibility with LDAP authentication. Also introduces a few new system preferences to make Self Checkout more secure and manageable: SelfCheckTimeOut: the number of seconds before the self-checkout login times out for a patron AllowSelfCheckReturns: indicate whether or not patrons can return materials via self-checkout SelfCheckHelpMessage: user-configurable HTML to show specific text on the Help page. Thank you to Marlboro College in Marlboro, VT for sponsoring and testing this development! Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
40 lines
1.1 KiB
Perl
Executable file
40 lines
1.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# This code (originally from circulation.pl) has been modified by:
|
|
# Trendsetters,
|
|
# dan, and
|
|
# Christina Lee.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
|
|
use C4::Auth qw(get_template_and_user);
|
|
use C4::Output qw(output_html_with_http_headers);
|
|
|
|
my $query = new CGI;
|
|
my ($template, $borrowernumber, $cookie) = get_template_and_user({
|
|
template_name => "sco/help.tmpl",
|
|
query => $query,
|
|
type => "opac",
|
|
debug => 1,
|
|
authnotrequired => 1,
|
|
flagsrequired => {circulate => "circulate_remaining_permissions"},
|
|
});
|
|
|
|
if (C4::Context->preference('SelfCheckoutByLogin')) {
|
|
$template->param(SelfCheckoutByLogin => 1);
|
|
}
|
|
my $selfchecktimeout = 120;
|
|
if (C4::Context->preference('SelfCheckTimeout')) {
|
|
$selfchecktimeout = C4::Context->preference('SelfCheckTimeout');
|
|
}
|
|
|
|
$template->param(SelfCheckTimeout => $selfchecktimeout);
|
|
|
|
if (C4::Context->preference('SelfCheckHelpMessage')) {
|
|
$template->param(SelfCheckHelpMessage => C4::Context->preference('SelfCheckHelpMessage'));
|
|
}
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|
|
|