Cleanup SCO - OPAC self checkout

[koha.git] / opac / sco / help.pl

diff --git a/opac/sco/help.pl b/opac/sco/help.pl
index bde37d9..b2cbd00 100755 (executable)
--- a/opac/sco/help.pl
+++ b/opac/sco/help.pl
@@ -1,28 +1,26 @@
 #!/usr/bin/perl
-# This code has been modified by Trendsetters (originally from circulation.pl)
+#
+# This code  (originally from circulation.pl) has been modified by:
+#   Trendsetters, 
+#   dan, and
+#   Christina Lee.
+
 use strict;
+use warnings;
 use CGI;
 
-use C4::Auth;
-use C4::Output;
-use HTML::Template::Pro;
+use C4::Auth   qw(get_template_and_user);
+use C4::Output qw(output_html_with_http_headers);
 
-# begin code modifed by dan
 my $query = new CGI;
-my ($template, $borrowernumber, $cookie) 
-#Begin code modified by Christina Lee
-# function comes from C4::Auth
-    = get_template_and_user({template_name => "sco/help.tmpl",
-#End code modified by Christina Lee
-                            query => $query,
-                            type => "opac",
-                            authnotrequired => 1,
-                            flagsrequired => {circulate => "circulate_remaining_permissions"},
-                            debug => 1,
-                            });
-# end code modified by dan
-
+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"},
+});
 
-# function comes from C4::Interface::CGI::Output
 output_html_with_http_headers $query, $cookie, $template->output;