Read-only rendering for reversing transactions

ledgersmb · Dec 24, 2022 · deba61d · deba61d
1 parent b7a9244
commit deba61d
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/old/bin/ir.pl b/old/bin/ir.pl
@@ -289,7 +289,8 @@ sub prepare_invoice {
 }
 
 sub form_header {
-    my $readonly = $form->{approved} ? 'readonly="readonly"' : '';
+    my $readonly =
+        ($form->{reversing} or $form->{approved}) ? 'readonly="readonly"' : '';
     $form->{nextsub} = 'update';
 
     $status_div_id = 'AP-invoice';
@@ -541,7 +542,8 @@ sub form_header {
 }
 
 sub form_footer {
-    my $readonly = $form->{approved} ? 'readonly="readonly"' : '';
+    my $readonly =
+        ($form->{reversing} or $form->{approved}) ? 'readonly="readonly"' : '';
     my $manual_tax;
     if ($form->{approved}){
         $manual_tax =

diff --git a/old/bin/is.pl b/old/bin/is.pl
@@ -286,7 +286,8 @@ sub prepare_invoice {
 }
 
 sub form_header {
-    my $readonly = $form->{approved} ? 'readonly="readonly"' : '';
+    my $readonly =
+        ($form->{reversing} or $form->{approved}) ? 'readonly="readonly"' : '';
     $form->{nextsub} = 'update';
     $form->{ARAP} = 'AR';
     $form->generate_selects(\%myconfig) unless $form->{selectAR};
@@ -627,7 +628,8 @@ sub void {
 }
 
 sub form_footer {
-    my $readonly = $form->{approved} ? 'readonly="readonly"' : '';
+    my $readonly =
+        ($form->{reversing} or $form->{approved}) ? 'readonly="readonly"' : '';
     my $manual_tax;
     if ($form->{approved}){
         $manual_tax =