6860310e96
This is a small tool for quickly printing spine labels using dedicated label printers. It is located in the Tools page as Quick Spine Label Creator. The system preference SpineLabelFormat defines which fields will be displayed. The pref SpineLabelAutoPrint will make the print dialog pop up automatically. The CSS file spinelabel.css controls all presentation for the labels. Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
27 lines
589 B
Perl
Executable file
27 lines
589 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
use CGI;
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use C4::Labels;
|
|
use C4::Output;
|
|
use C4::Context;
|
|
use HTML::Template::Pro;
|
|
|
|
# use Smart::Comments;
|
|
|
|
my $query = new CGI;
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "labels/spinelabel-home.tmpl",
|
|
query => $query,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { catalogue => 1 },
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|