Die Variable $readonly in display_row wird niemals ausgelesen.

S.a. Anmerkung von Sven:
...und hier wird es nur gesetzt, aber nicht konsumiert. Seit den strict Änderungen wird auch keine Variable mehr indirekt aufgerufen (a la $name = 'readobly'; print
$$name), und wird auch nicht implizit an html oder print Templates weitergeleitet.
git blame sagt zu io.pl:127:

commit d707f7ac60b9dbe7da50d733db1e73eae84952f7
Author: Moritz Bunkus <m.bunkus@linet-services.de>
Date:   Fri Jan 18 17:01:49 2008 +0000

    Lieferscheine im Einkauf und Verkauf. Bisher nur gemerget, noch nicht getestet.

...der Commit ist berüchtigt, weil Mosu da nur die Aufträge copy&pasted hat, und tabellen und bezeichner geändert hat. In dem Commit sind ein paar tote Codestellen reingekommen.

Ich würd sagen, kannste rausschmeissen.

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index bef9a84..c34913a 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -116,7 +116,7 @@ sub display_row {
 
   my $numrows = shift;
 
-  my ($readonly, $stock_in_out, $stock_in_out_title);
+  my ($stock_in_out, $stock_in_out_title);
 
   my $is_purchase        = (first { $_ eq $form->{type} } qw(request_quotation purchase_order purchase_delivery_order)) || ($form->{script} eq 'ir.pl');
   my $show_min_order_qty =  first { $_ eq $form->{type} } qw(request_quotation purchase_order);
@@ -124,8 +124,6 @@ sub display_row {
   my $is_s_p_order       = (first { $_ eq $form->{type} } qw(sales_order purchase_order));
 
   if ($is_delivery_order) {
-    $readonly             = ' readonly' if ($form->{closed});
-
     if ($form->{type} eq 'sales_delivery_order') {
       $stock_in_out_title = $locale->text('Release From Stock');
       $stock_in_out       = 'out';