View | Details | Raw Unified | Return to bug 8056
Collapse All | Expand All

(-)a/C4/Members.pm (-1 lines)
Lines 997-1003 sub GetPendingIssues { Link Here
997
    # must avoid biblioitems.* to prevent large marc and marcxml fields from killing performance
997
    # must avoid biblioitems.* to prevent large marc and marcxml fields from killing performance
998
    # FIXME: namespace collision: each table has "timestamp" fields.  Which one is "timestamp" ?
998
    # FIXME: namespace collision: each table has "timestamp" fields.  Which one is "timestamp" ?
999
    # FIXME: circ/ciculation.pl tries to sort by timestamp!
999
    # FIXME: circ/ciculation.pl tries to sort by timestamp!
1000
    # FIXME: C4::Print::printslip tries to sort by timestamp!
1001
    # FIXME: namespace collision: other collisions possible.
1000
    # FIXME: namespace collision: other collisions possible.
1002
    # FIXME: most of this data isn't really being used by callers.
1001
    # FIXME: most of this data isn't really being used by callers.
1003
    my $query =
1002
    my $query =
(-)a/C4/Print.pm (-9 / +7 lines)
Lines 28-34 BEGIN { Link Here
28
	$VERSION = 3.01;
28
	$VERSION = 3.01;
29
	require Exporter;
29
	require Exporter;
30
	@ISA    = qw(Exporter);
30
	@ISA    = qw(Exporter);
31
	@EXPORT = qw(&printslip);
31
	@EXPORT = qw(&NetworkPrint);
32
}
32
}
33
33
34
=head1 NAME
34
=head1 NAME
Lines 72-89 $bordata->{'emailaddress'} Link Here
72
EOF
72
EOF
73
=cut
73
=cut
74
74
75
=head2 printslip
75
=head2 NetworkPrint
76
76
77
  &printslip($slip)
77
  &NetworkPrint($text)
78
78
79
print a slip for the given $borrowernumber and $branchcode
79
Queue some text for printing on the selected branch printer
80
80
81
=cut
81
=cut
82
82
83
sub printslip ($) {
83
sub NetworkPrint ($) {
84
    my ($slip) = @_;
84
    my ($text) = @_;
85
86
    return unless ( C4::Context->boolean_preference('printcirculationslips') );
87
85
88
# FIXME - It'd be nifty if this could generate pretty PostScript.
86
# FIXME - It'd be nifty if this could generate pretty PostScript.
89
87
Lines 112-118 sub printslip ($) { Link Here
112
110
113
    #  print $queue;
111
    #  print $queue;
114
    #open (FILE,">/tmp/$file");
112
    #open (FILE,">/tmp/$file");
115
    print PRINTER $slip;
113
    print PRINTER $text;
116
    print PRINTER "\r\n" x 7 ;
114
    print PRINTER "\r\n" x 7 ;
117
    close PRINTER;
115
    close PRINTER;
118
116
(-)a/circ/circulation.pl (-2 / +5 lines)
Lines 25-30 use strict; Link Here
25
use warnings;
25
use warnings;
26
use CGI;
26
use CGI;
27
use C4::Output;
27
use C4::Output;
28
use C4::Print;
28
use C4::Auth qw/:DEFAULT get_session/;
29
use C4::Auth qw/:DEFAULT get_session/;
29
use C4::Dates qw/format_date/;
30
use C4::Dates qw/format_date/;
30
use C4::Branch; # GetBranches
31
use C4::Branch; # GetBranches
Lines 172-178 if ( $barcode eq '' && $query->param('charges') eq 'yes' ) { Link Here
172
}
173
}
173
174
174
if ( $print eq 'yes' && $borrowernumber ne '' ) {
175
if ( $print eq 'yes' && $borrowernumber ne '' ) {
175
    PrintIssueSlip($session->param('branch') || $branch, $borrowernumber);
176
    if ( C4::Context->boolean_preference('printcirculationslips') ) {
177
        my $letter = IssueSlip($branch, $borrowernumber, "QUICK");
178
        NetworkPrint($letter->{content});
179
    }
176
    $query->param( 'borrowernumber', '' );
180
    $query->param( 'borrowernumber', '' );
177
    $borrowernumber = '';
181
    $borrowernumber = '';
178
}
182
}
179
- 

Return to bug 8056