summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xmat8
1 files changed, 4 insertions, 4 deletions
diff --git a/mat b/mat
index 898f957..09aa559 100755
--- a/mat
+++ b/mat
@@ -282,18 +282,18 @@ sub print_label {
my $iconv = Text::Iconv->new("UTF-8", "ISO8859-1");
my $latin1_dish = $iconv->convert($dish_name);
- my $row0 = $Config{'label_name'};
+ my $row0 = $Config{'label_name'}." ".$preparation_date;
my $row1;
my $row2;
if( length($latin1_dish) < 15) {
$row1 = $latin1_dish;
- $row2 = "";
+ $row2 = "(".$amount."g)";
} else {
$row1 = $latin1_dish;
$row1 =~ s/(.{15,23}) .*/$1/;
- $row2 = substr($latin1_dish, (length $row1) + 1);
+ $row2 = substr($latin1_dish, (length $row1) + 1).' ('.$amount.'g)';
}
- my $row3 = $preparation_date.' ('.$amount.'g)';
+ my $row3 = '<available label space>';
my $idbarcode = GD::Barcode::QRcode->new(sprintf("%s%d", $Config{'label_id_prefix'}, $id), { Version=>3 });
my $idbarcode_image=$idbarcode->plot();