BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(&printslip);
+ @EXPORT = qw(&NetworkPrint);
}
=head1 NAME
=head1 FUNCTIONS
-=cut
-
-=for comment
- my $slip = <<"EOF";
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-Date: $todaysdate;
-
-ITEM RESERVED:
-$itemdata->{'title'} ($itemdata->{'author'})
-barcode: $itemdata->{'barcode'}
+=head2 NetworkPrint
-COLLECT AT: $branchname
+ &NetworkPrint($text)
-BORROWER:
-$bordata->{'surname'}, $bordata->{'firstname'}
-card number: $bordata->{'cardnumber'}
-Phone: $bordata->{'phone'}
-$bordata->{'streetaddress'}
-$bordata->{'suburb'}
-$bordata->{'town'}
-$bordata->{'emailaddress'}
+Queue some text for printing on the selected branch printer
-
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-EOF
=cut
-=head2 printslip
-
- &printslip($slip)
-
-print a slip for the given $borrowernumber and $branchcode
-
-=cut
-
-sub printslip ($) {
- my ($slip) = @_;
-
- return unless ( C4::Context->boolean_preference('printcirculationslips') );
+sub NetworkPrint {
+ my ($text) = @_;
# FIXME - It'd be nifty if this could generate pretty PostScript.
# set the queue to "file" (or " file", if real queues aren't allowed
# to have spaces in them). Or perhaps if $queue eq "" and
# $env->{file} ne "", then that should mean "print to $env->{file}".
+
+ my $fh;
if ( $queue eq "" || $queue eq 'nulllp' ) {
return;
- #open( PRINTER, ">/tmp/kohaiss" );
+ #open( $fh, ">/tmp/kohaiss" );
}
else {
# This is a reasonable assumption, but only because every other
# printing package has a wrapper script called 'lpr'. It'd still
# be better to be able to customize this.
- open( PRINTER, "| lpr -P $queue > /dev/null" )
+ open( $fh, "-|", "lpr -P $queue > /dev/null" )
or die "Couldn't write to queue:$queue!\n";
}
# print $queue;
#open (FILE,">/tmp/$file");
- print PRINTER $slip;
- print PRINTER "\r\n" x 7 ;
- close PRINTER;
+ print $fh $text;
+ print $fh "\r\n" x 7 ;
+ close $fh;
#system("lpr /tmp/$file");
}