fffb2d72e9
(Bumps version to 3.8 because admins should update the plugin list.) Deduplication didn't work on quantified additions, i.e. if you added "20x clubmate" when there was already clubmate in the cart, it would add just ONE item, and have a lingering message that the next thing would be multiplied by 20. This old bug was especially annoying if there is a barcode "20x clubmate" to scan 20 bottles (which is the size of a crate), and this is repeated. The fix also uncovered another bug: newly added entries were selected too early. There are two hooks, hook_add_entry and hook_added_entry, and of course the selection should happen in between, not before the former. No entry in UPGRADING.md, because I think it is extremely unlikely that any plugin author will have used the selection feature yet, which is very new.
61 lines
1.5 KiB
Perl
61 lines
1.5 KiB
Perl
#!perl
|
|
|
|
|
|
# Ja, het is lelijk. Even snel in elkaar geklust en daarna niet meer naar
|
|
# gekeken. Pech :) -- Juerd
|
|
|
|
|
|
|
|
|
|
sub command :Tab(barcode) ($self, $cart, $command, @) {
|
|
return NEXT if $command ne "barcode";
|
|
|
|
return "Barcode data", \&data;
|
|
}
|
|
|
|
sub data($self, $cart, $input, @) {
|
|
my $price = 0.07;
|
|
|
|
$cart
|
|
->add(
|
|
-$price,
|
|
"Barcode <$input>",
|
|
{
|
|
is_barcode => 1,
|
|
barcode_data => $input,
|
|
deduplicate => join("/", $self->id, $input),
|
|
}
|
|
)
|
|
->add_contra(
|
|
"+sales/barcodes",
|
|
+$price,
|
|
"\$you bought barcode <$input>"
|
|
);
|
|
|
|
return ACCEPT;
|
|
}
|
|
|
|
sub hook_checkout($class, $cart, $username, $transaction_id, @) {
|
|
my @barcodes;
|
|
for my $entry ($cart->entries('is_barcode')) {
|
|
push @barcodes, ($entry->attribute('barcode_data')) x $entry->quantity;
|
|
}
|
|
if (@barcodes) {
|
|
print "\nCheck the following:\n 1. label tape is 12 mm\n 2. printer is on\n 3. wifi is enabled and connected\n\nPress enter to continue.";
|
|
readline STDIN;
|
|
|
|
my $printjob = "";
|
|
|
|
open my $bcgen, "-|", "/home/bar/revlabel/barcode.pl", @barcodes
|
|
or warn "Could not open script 1";
|
|
|
|
local $/;
|
|
my $filenames = readline $bcgen;
|
|
close $bcgen;
|
|
|
|
open my $fh, "| /home/bar/revlabel/ptouch-770-write 12 $filenames | nc -N 10.42.42.222 9100"
|
|
or warn "Couldn't open script 2\n";
|
|
print $fh $printjob;
|
|
close $fh;
|
|
}
|
|
}
|