Index: openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl	9 May 2018 15:33:30 -0000	1.8
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl	20 Nov 2019 14:06:41 -0000	1.9
@@ -120,7 +120,7 @@
 	{method:text(radio) {label "[_ dotlrn-ecommerce.lt_Select_a_payment_meth]"} {options {$method_options}}}
     }
 
-    if { [exists_and_equal internal_account_p 1] } {
+    if { [info exists internal_account_p] && $internal_account_p == 1 } {
 	ad_form -extend -name checkout -form {
 	    {internal_account:text,optional {label "[_ dotlrn-ecommerce.Internal_Account]"}}
 	}
@@ -354,4 +354,4 @@
 # }]]]
 # [ad_admin_footer]"
 
-set context [list [list index Orders] [list one?order_id=$order_id "One Order"] "Invoice Payment"]
\ No newline at end of file
+set context [list [list index Orders] [list one?order_id=$order_id "One Order"] "Invoice Payment"]