<!DOCTYPE html>
<html lang='en'>
<head>
<title>pe.pl - ledger-smb - Unnamed repository; edit this file to name it for gitweb.</title>
<meta name='generator' content='cgit v1.2.3'/>
<meta name='robots' content='index, nofollow'/>
<link rel='stylesheet' type='text/css' href='/cgit-css/cgit.css'/>
<link rel='stylesheet' type='text/css' href='/cgit-local/local.css'/>
<script type='text/javascript' src='/cgit.js'></script>
<link rel='shortcut icon' href='/favicon.ico'/>
<link rel='alternate' title='Atom feed' href='https://source.jones.dk/ledger-smb/atom/pe.pl?h=master' type='application/atom+xml'/>
<link rel='vcs-git' href='https://source.jones.dk/ledger-smb' title='ledger-smb Git repository'/>
<link rel='vcs-git' href='user@source.jones.dk:ledger-smb' title='ledger-smb Git repository'/>
</head>
<body>
<div id='cgit'><table id='header'>
<tr>
<td class='logo' rowspan='2'><a href='/'><img src='/cgit-css/cgit.png' alt='cgit logo'/></a></td>
<td class='main'><a href='/'>index</a> : <a href='/ledger-smb/'>ledger-smb</a></td><td class='form'><form method='get'>
<input type='hidden' name='id' value='7555d4942811f270ea3f7b47e03e5ada0e03f1be'/><select name='h' onchange='this.form.submit();'>
<option value='1.2.13+jones'>1.2.13+jones</option>
<option value='1.2.16+jones'>1.2.16+jones</option>
<option value='1.2.17+jones'>1.2.17+jones</option>
<option value='master' selected='selected'>master</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Unnamed repository; edit this file to name it for gitweb.</td><td class='sub right'>Jonas Smedegaard</td></tr></table>
<table class='tabs'><tr><td>
<a href='/ledger-smb/'>summary</a><a href='/ledger-smb/refs/?id=7555d4942811f270ea3f7b47e03e5ada0e03f1be'>refs</a><a href='/ledger-smb/log/pe.pl'>log</a><a class='active' href='/ledger-smb/tree/pe.pl?id=7555d4942811f270ea3f7b47e03e5ada0e03f1be'>tree</a><a href='/ledger-smb/commit/pe.pl?id=7555d4942811f270ea3f7b47e03e5ada0e03f1be'>commit</a><a href='/ledger-smb/diff/pe.pl?id=7555d4942811f270ea3f7b47e03e5ada0e03f1be'>diff</a></td><td class='form'><form class='right' method='get' action='/ledger-smb/log/pe.pl'>
<input type='hidden' name='id' value='7555d4942811f270ea3f7b47e03e5ada0e03f1be'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/ledger-smb/tree/?id=7555d4942811f270ea3f7b47e03e5ada0e03f1be'>root</a>/<a href='/ledger-smb/tree/pe.pl?id=7555d4942811f270ea3f7b47e03e5ada0e03f1be'>pe.pl</a></div><div class='content'>blob: 7319efeda182ba847faec1a08b8a9f37104d5dbb (<a href='/ledger-smb/plain/pe.pl?id=7555d4942811f270ea3f7b47e03e5ada0e03f1be'>plain</a>)
<table summary='blob content' class='blob'>
<tr>
<td class='lines'><pre><code><ol class="hl">
<li id="n_1" class="hl"><span class="hl slc">#!/usr/bin/perl</span></li>
<li id="n_2" class="hl"><span class="hl kwa">require&nbsp;</span><span class="hl sng">&quot;menu.pl&quot;</span><span class="hl opt">;</span></li>
</ol></code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.3</a> (<a href='https://git-scm.com/'>git 2.46.0</a>) at 2025-06-02 02:43:56 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>
/span></li>
<li id="n_5" class="hl"><span class="hl slc">#</span></li>
<li id="n_6" class="hl"><span class="hl slc"># </span></li>
<li id="n_7" class="hl"><span class="hl slc"># Copyright (C) 2006</span></li>
<li id="n_8" class="hl"><span class="hl slc"># This work contains copyrighted information from a number of sources all used</span></li>
<li id="n_9" class="hl"><span class="hl slc"># with permission.</span></li>
<li id="n_10" class="hl"><span class="hl slc">#</span></li>
<li id="n_11" class="hl"><span class="hl slc"># This file contains source code included with or based on SQL-Ledger which</span></li>
<li id="n_12" class="hl"><span class="hl slc"># is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed</span></li>
<li id="n_13" class="hl"><span class="hl slc"># under the GNU General Public License version 2 or, at your option, any later</span></li>
<li id="n_14" class="hl"><span class="hl slc"># version.  For a full list including contact information of contributors,</span></li>
<li id="n_15" class="hl"><span class="hl slc"># maintainers, and copyright holders, see the CONTRIBUTORS file.</span></li>
<li id="n_16" class="hl"><span class="hl slc">#</span></li>
<li id="n_17" class="hl"><span class="hl slc"># Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):</span></li>
<li id="n_18" class="hl"><span class="hl slc"># Copyright (c) 2001</span></li>
<li id="n_19" class="hl"><span class="hl slc">#</span></li>
<li id="n_20" class="hl"><span class="hl slc">#  Author: DWS Systems Inc.</span></li>
<li id="n_21" class="hl"><span class="hl slc">#     Web: http://www.sql-ledger.org</span></li>
<li id="n_22" class="hl"><span class="hl slc">#</span></li>
<li id="n_23" class="hl"><span class="hl slc">#  Contributors:</span></li>
<li id="n_24" class="hl"><span class="hl slc">#</span></li>
<li id="n_25" class="hl"><span class="hl slc">#======================================================================</span></li>
<li id="n_26" class="hl"><span class="hl slc">#</span></li>
<li id="n_27" class="hl"><span class="hl slc"># This file has NOT undergone whitespace cleanup.</span></li>
<li id="n_28" class="hl"><span class="hl slc">#</span></li>
<li id="n_29" class="hl"><span class="hl slc">#======================================================================</span></li>
<li id="n_30" class="hl"><span class="hl slc">#</span></li>
<li id="n_31" class="hl"><span class="hl slc"># administration</span></li>
<li id="n_32" class="hl"><span class="hl slc">#</span></li>
<li id="n_33" class="hl"><span class="hl slc">#======================================================================</span></li>
<li id="n_34" class="hl"></li>
<li id="n_35" class="hl"></li>
<li id="n_36" class="hl"><span class="hl kwa">use </span>LedgerSMB<span class="hl opt">::</span>AM<span class="hl opt">;</span></li>
<li id="n_37" class="hl"><span class="hl kwa">use </span>LedgerSMB<span class="hl opt">::</span>CA<span class="hl opt">;</span></li>
<li id="n_38" class="hl"><span class="hl kwa">use </span>LedgerSMB<span class="hl opt">::</span>Form<span class="hl opt">;</span></li>
<li id="n_39" class="hl"><span class="hl kwa">use </span>LedgerSMB<span class="hl opt">::</span>User<span class="hl opt">;</span></li>
<li id="n_40" class="hl"><span class="hl kwa">use </span>LedgerSMB<span class="hl opt">::</span>RP<span class="hl opt">;</span></li>
<li id="n_41" class="hl"><span class="hl kwa">use </span>LedgerSMB<span class="hl opt">::</span>GL<span class="hl opt">;</span></li>
<li id="n_42" class="hl"></li>
<li id="n_43" class="hl"></li>
<li id="n_44" class="hl"><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_45" class="hl"><span class="hl slc"># end of main</span></li>
<li id="n_46" class="hl"></li>
<li id="n_47" class="hl"></li>
<li id="n_48" class="hl"></li>
<li id="n_49" class="hl"><span class="hl kwa">sub </span>add <span class="hl opt">{ &amp;{ </span><span class="hl sng">&quot;add_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{type}&quot;</span> <span class="hl opt">} };</span></li>
<li id="n_50" class="hl"><span class="hl kwa">sub </span>edit <span class="hl opt">{ &amp;{ </span><span class="hl sng">&quot;edit_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{type}&quot;</span> <span class="hl opt">} };</span></li>
<li id="n_51" class="hl"><span class="hl kwa">sub </span>save <span class="hl opt">{ &amp;{ </span><span class="hl sng">&quot;save_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{type}&quot;</span> <span class="hl opt">} };</span></li>
<li id="n_52" class="hl"><span class="hl kwa">sub </span><span class="hl kwc">delete </span><span class="hl opt">{ &amp;{ </span><span class="hl sng">&quot;delete_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{type}&quot;</span> <span class="hl opt">} };</span></li>
<li id="n_53" class="hl"></li>
<li id="n_54" class="hl"></li>
<li id="n_55" class="hl"><span class="hl kwa">sub </span>save_as_new <span class="hl opt">{</span></li>
<li id="n_56" class="hl"></li>
<li id="n_57" class="hl">  <span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">};</span></li>
<li id="n_58" class="hl"></li>
<li id="n_59" class="hl">  <span class="hl opt">&amp;</span>save<span class="hl opt">;</span></li>
<li id="n_60" class="hl"></li>
<li id="n_61" class="hl"><span class="hl opt">}</span></li>
<li id="n_62" class="hl"></li>
<li id="n_63" class="hl"></li>
<li id="n_64" class="hl"><span class="hl kwa">sub </span>add_account <span class="hl opt">{</span></li>
<li id="n_65" class="hl">  </li>
<li id="n_66" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Add&quot;</span><span class="hl opt">;</span></li>
<li id="n_67" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>charttype<span class="hl opt">} = </span><span class="hl sng">&quot;A&quot;</span><span class="hl opt">;</span></li>
<li id="n_68" class="hl">  </li>
<li id="n_69" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_account&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span> <span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">};</span></li>
<li id="n_70" class="hl"></li>
<li id="n_71" class="hl">  <span class="hl opt">&amp;</span>account_header<span class="hl opt">;</span></li>
<li id="n_72" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_73" class="hl">  </li>
<li id="n_74" class="hl"><span class="hl opt">}</span></li>
<li id="n_75" class="hl"></li>
<li id="n_76" class="hl"></li>
<li id="n_77" class="hl"><span class="hl kwa">sub </span>edit_account <span class="hl opt">{</span></li>
<li id="n_78" class="hl">  </li>
<li id="n_79" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Edit&quot;</span><span class="hl opt">;</span></li>
<li id="n_80" class="hl">  </li>
<li id="n_81" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">} =~ </span><span class="hl kwd">s/\\&#39;/&#39;/g</span><span class="hl opt">;</span></li>
<li id="n_82" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">} =~ </span><span class="hl kwd">s/\\\\/\\/g</span><span class="hl opt">;</span></li>
<li id="n_83" class="hl"> </li>
<li id="n_84" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">get_account</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_85" class="hl">  </li>
<li id="n_86" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwc">my </span><span class="hl kwb">$item </span><span class="hl opt">(</span><span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl kwd">/:/</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwc">link</span><span class="hl opt">})) {</span></li>
<li id="n_87" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$item</span><span class="hl opt">} = </span><span class="hl sng">&quot;checked&quot;</span><span class="hl opt">;</span></li>
<li id="n_88" class="hl">  <span class="hl opt">}</span></li>
<li id="n_89" class="hl"></li>
<li id="n_90" class="hl">  <span class="hl opt">&amp;</span>account_header<span class="hl opt">;</span></li>
<li id="n_91" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_92" class="hl"></li>
<li id="n_93" class="hl"><span class="hl opt">}</span></li>
<li id="n_94" class="hl"></li>
<li id="n_95" class="hl"></li>
<li id="n_96" class="hl"><span class="hl kwa">sub </span>account_header <span class="hl opt">{</span></li>
<li id="n_97" class="hl"></li>
<li id="n_98" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} Account&quot;</span><span class="hl opt">);</span></li>
<li id="n_99" class="hl">  </li>
<li id="n_100" class="hl">  <span class="hl kwb">$checked</span><span class="hl opt">{</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>charttype<span class="hl opt">}} = </span><span class="hl sng">&quot;checked&quot;</span><span class="hl opt">;</span></li>
<li id="n_101" class="hl">  <span class="hl kwb">$checked</span><span class="hl opt">{</span>contra<span class="hl opt">} = </span><span class="hl sng">&quot;checked&quot;</span> <span class="hl kwa">if </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>contra<span class="hl opt">};</span></li>
<li id="n_102" class="hl">  <span class="hl kwb">$checked</span><span class="hl opt">{</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{category}_&quot;</span><span class="hl opt">} = </span><span class="hl sng">&quot;checked&quot;</span><span class="hl opt">;</span></li>
<li id="n_103" class="hl">  </li>
<li id="n_104" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(accno description)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">quote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_105" class="hl"></li>
<li id="n_106" class="hl"><span class="hl slc"># this is for our parser only!</span></li>
<li id="n_107" class="hl"><span class="hl slc"># type=submit $locale-&gt;text(&#39;Add Account&#39;)</span></li>
<li id="n_108" class="hl"><span class="hl slc"># type=submit $locale-&gt;text(&#39;Edit Account&#39;)</span></li>
<li id="n_109" class="hl"></li>
<li id="n_110" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_111" class="hl"></li>
<li id="n_112" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_113" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_114" class="hl"></li>
<li id="n_115" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_116" class="hl"></li>
<li id="n_117" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>id value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}&gt;</span></li>
<li id="n_118" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>account<span class="hl opt">&gt;</span></li>
<li id="n_119" class="hl"></li>
<li id="n_120" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>inventory_accno_id value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>inventory_accno_id<span class="hl opt">}&gt;</span></li>
<li id="n_121" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>income_accno_id value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>income_accno_id<span class="hl opt">}&gt;</span></li>
<li id="n_122" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>expense_accno_id value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>expense_accno_id<span class="hl opt">}&gt;</span></li>
<li id="n_123" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>fxgain_accno_id <span class="hl kwc">values</span><span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>fxgain_accno_id<span class="hl opt">}&gt;</span></li>
<li id="n_124" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>fxloss_accno_id <span class="hl kwc">values</span><span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>fxloss_accno_id<span class="hl opt">}&gt;</span></li>
<li id="n_125" class="hl"></li>
<li id="n_126" class="hl"><span class="hl opt">&lt;</span>table border<span class="hl opt">=</span><span class="hl num">0 </span>width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_127" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_128" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_129" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_130" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_131" class="hl">  <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top<span class="hl opt">&gt;</span></li>
<li id="n_132" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_133" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_134" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_135" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_136" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>accno size<span class="hl opt">=</span><span class="hl num">20 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{accno}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_137" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_138" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_139" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_140" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>description size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_141" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_142" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_143" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account Type&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_144" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_145" class="hl">        <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_146" class="hl">          <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top<span class="hl opt">&gt;</span></li>
<li id="n_147" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>category type<span class="hl opt">=</span>radio <span class="hl kwa">class</span><span class="hl opt">=</span>radio value<span class="hl opt">=</span>A <span class="hl kwb">$checked</span><span class="hl opt">{</span>A_<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Asset&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_148" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>category type<span class="hl opt">=</span>radio <span class="hl kwa">class</span><span class="hl opt">=</span>radio value<span class="hl opt">=</span>L <span class="hl kwb">$checked</span><span class="hl opt">{</span>L_<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Liability&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_149" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>category type<span class="hl opt">=</span>radio <span class="hl kwa">class</span><span class="hl opt">=</span>radio value<span class="hl opt">=</span>Q <span class="hl kwb">$checked</span><span class="hl opt">{</span>Q_<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Equity&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_150" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>category type<span class="hl opt">=</span>radio <span class="hl kwa">class</span><span class="hl opt">=</span>radio value<span class="hl opt">=</span>I <span class="hl kwb">$checked</span><span class="hl opt">{</span>I_<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Income&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_151" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>category type<span class="hl opt">=</span>radio <span class="hl kwa">class</span><span class="hl opt">=</span>radio value<span class="hl opt">=</span>E <span class="hl kwb">$checked</span><span class="hl opt">{</span>E_<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Expense&#39;</span><span class="hl opt">)</span></li>
<li id="n_152" class="hl">        <span class="hl opt">.</span>qq<span class="hl opt">|&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_153" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_154" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>contra <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span><span class="hl num">1 </span><span class="hl kwb">$checked</span><span class="hl opt">{</span>contra<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Contra&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span></li>
<li id="n_155" class="hl">        <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_156" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_157" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>charttype type<span class="hl opt">=</span>radio <span class="hl kwa">class</span><span class="hl opt">=</span>radio value<span class="hl opt">=</span><span class="hl sng">&quot;H&quot;</span> <span class="hl kwb">$checked</span><span class="hl opt">{</span>H<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Heading&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_158" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>charttype type<span class="hl opt">=</span>radio <span class="hl kwa">class</span><span class="hl opt">=</span>radio value<span class="hl opt">=</span><span class="hl sng">&quot;A&quot;</span> <span class="hl kwb">$checked</span><span class="hl opt">{</span>A<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account&#39;</span><span class="hl opt">)</span></li>
<li id="n_159" class="hl">        <span class="hl opt">.</span>qq<span class="hl opt">|&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_160" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_161" class="hl">        <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_162" class="hl">      <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_163" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_164" class="hl"><span class="hl opt">|;</span></li>
<li id="n_165" class="hl"></li>
<li id="n_166" class="hl"></li>
<li id="n_167" class="hl"><span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>charttype<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&quot;A&quot;</span><span class="hl opt">) {</span></li>
<li id="n_168" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_169" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_170" class="hl">      <span class="hl opt">&lt;</span>td colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;</span></li>
<li id="n_171" class="hl">        <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_172" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_173" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span>left<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Is this a summary account to record&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_174" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_175" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>AR <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>AR <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AR<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;AR&#39;</span><span class="hl opt">)</span></li>
<li id="n_176" class="hl">        <span class="hl opt">.</span>qq<span class="hl opt">|&amp;</span>nbsp<span class="hl opt">;&lt;</span>input name<span class="hl opt">=</span>AP <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>AP <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AP<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;AP&#39;</span><span class="hl opt">)</span></li>
<li id="n_177" class="hl">        <span class="hl opt">.</span>qq<span class="hl opt">|&amp;</span>nbsp<span class="hl opt">;&lt;</span>input name<span class="hl opt">=</span>IC <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>IC <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>IC<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Inventory&#39;</span><span class="hl opt">)</span></li>
<li id="n_178" class="hl">        <span class="hl opt">.</span>qq<span class="hl opt">|&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_179" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_180" class="hl">        <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_181" class="hl">      <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_182" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_183" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_184" class="hl">      <span class="hl opt">&lt;</span>th colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Include in drop-down menus&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_185" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_186" class="hl">    <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top<span class="hl opt">&gt;</span></li>
<li id="n_187" class="hl">      <span class="hl opt">&lt;</span>td colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;</span></li>
<li id="n_188" class="hl">        <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_189" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_190" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span>left<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Receivables&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_191" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span>left<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Payables&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_192" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span>left<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Tracking Items&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_193" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span>left<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Non-tracking Items&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_194" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_195" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_196" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_197" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>AR_amount <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>AR_amount <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AR_amount<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Income&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_198" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>AR_paid <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>AR_paid <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AR_paid<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Payment&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_199" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>AR_tax <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>AR_tax <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AR_tax<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Tax&#39;</span><span class="hl opt">) .</span>qq<span class="hl opt">|</span></li>
<li id="n_200" class="hl">        <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_201" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_202" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>AP_amount <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>AP_amount <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AP_amount<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Expense/Asset&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_203" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>AP_paid <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>AP_paid <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AP_paid<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Payment&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_204" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>AP_tax <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>AP_tax <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AP_tax<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Tax&#39;</span><span class="hl opt">) .</span>qq<span class="hl opt">|</span></li>
<li id="n_205" class="hl">        <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_206" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_207" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>IC_sale <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>IC_sale <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>IC_sale<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Income&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_208" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>IC_cogs <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>IC_cogs <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>IC_cogs<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;COGS&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_209" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>IC_taxpart <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>IC_taxpart <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>IC_taxpart<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Tax&#39;</span><span class="hl opt">) .</span>qq<span class="hl opt">|</span></li>
<li id="n_210" class="hl">        <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_211" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_212" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>IC_income <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>IC_income <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>IC_income<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Income&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_213" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>IC_expense <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>IC_expense <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>IC_expense<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Expense&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl esc">\n</span><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_214" class="hl">        <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>IC_taxservice <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span>IC_taxservice <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>IC_taxservice<span class="hl opt">}&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Tax&#39;</span><span class="hl opt">) .</span>qq<span class="hl opt">|</span></li>
<li id="n_215" class="hl">        <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_216" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_217" class="hl">        <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_218" class="hl">      <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;  </span></li>
<li id="n_219" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;  </span></li>
<li id="n_220" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_221" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_222" class="hl"><span class="hl opt">|;</span></li>
<li id="n_223" class="hl"><span class="hl opt">}</span></li>
<li id="n_224" class="hl"></li>
<li id="n_225" class="hl"><span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_226" class="hl">        <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_227" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_228" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>gifi_accno size<span class="hl opt">=</span><span class="hl num">9 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{gifi_accno}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_229" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_230" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_231" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_232" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_233" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_234" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_235" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_236" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_237" class="hl"><span class="hl opt">|;</span></li>
<li id="n_238" class="hl"></li>
<li id="n_239" class="hl"><span class="hl opt">}</span></li>
<li id="n_240" class="hl"></li>
<li id="n_241" class="hl"></li>
<li id="n_242" class="hl"><span class="hl kwa">sub </span>form_footer <span class="hl opt">{</span></li>
<li id="n_243" class="hl"></li>
<li id="n_244" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(callback path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_245" class="hl"></li>
<li id="n_246" class="hl"><span class="hl slc"># type=submit $locale-&gt;text(&#39;Save&#39;)</span></li>
<li id="n_247" class="hl"><span class="hl slc"># type=submit $locale-&gt;text(&#39;Save as new&#39;)</span></li>
<li id="n_248" class="hl"><span class="hl slc"># type=submit $locale-&gt;text(&#39;Delete&#39;)</span></li>
<li id="n_249" class="hl"></li>
<li id="n_250" class="hl">  <span class="hl kwb">%button </span><span class="hl opt">= ();</span></li>
<li id="n_251" class="hl">  </li>
<li id="n_252" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}) {</span></li>
<li id="n_253" class="hl">    <span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl sng">&#39;save&#39;</span><span class="hl opt">} = { </span>ndx <span class="hl opt">=&gt; </span><span class="hl num">3</span><span class="hl opt">, </span>key <span class="hl opt">=&gt; </span><span class="hl sng">&#39;S&#39;</span><span class="hl opt">, </span>value <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Save&#39;</span><span class="hl opt">) };</span></li>
<li id="n_254" class="hl">    <span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl sng">&#39;save_as_new&#39;</span><span class="hl opt">} = { </span>ndx <span class="hl opt">=&gt; </span><span class="hl num">7</span><span class="hl opt">, </span>key <span class="hl opt">=&gt; </span><span class="hl sng">&#39;N&#39;</span><span class="hl opt">, </span>value <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Save as new&#39;</span><span class="hl opt">) };</span></li>
<li id="n_255" class="hl">    </li>
<li id="n_256" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>orphaned<span class="hl opt">}) {</span></li>
<li id="n_257" class="hl">      <span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl sng">&#39;delete&#39;</span><span class="hl opt">} = { </span>ndx <span class="hl opt">=&gt; </span><span class="hl num">16</span><span class="hl opt">, </span>key <span class="hl opt">=&gt; </span><span class="hl sng">&#39;D&#39;</span><span class="hl opt">, </span>value <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Delete&#39;</span><span class="hl opt">) };</span></li>
<li id="n_258" class="hl">    <span class="hl opt">}</span></li>
<li id="n_259" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_260" class="hl">    <span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl sng">&#39;save&#39;</span><span class="hl opt">} = { </span>ndx <span class="hl opt">=&gt; </span><span class="hl num">3</span><span class="hl opt">, </span>key <span class="hl opt">=&gt; </span><span class="hl sng">&#39;S&#39;</span><span class="hl opt">, </span>value <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Save&#39;</span><span class="hl opt">) };</span></li>
<li id="n_261" class="hl">  <span class="hl opt">}</span></li>
<li id="n_262" class="hl"></li>
<li id="n_263" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwc">sort </span><span class="hl opt">{ </span><span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl kwb">$a</span><span class="hl opt">}-&gt;{</span>ndx<span class="hl opt">} &lt;=&gt; </span><span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl kwb">$b</span><span class="hl opt">}-&gt;{</span>ndx<span class="hl opt">} } </span><span class="hl kwc">keys </span><span class="hl kwb">%button</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">print_button</span><span class="hl opt">(</span>\<span class="hl kwb">%button</span><span class="hl opt">, </span><span class="hl kwb">$_</span><span class="hl opt">) }</span></li>
<li id="n_264" class="hl"></li>
<li id="n_265" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_266" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_267" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_268" class="hl">  <span class="hl opt">}</span></li>
<li id="n_269" class="hl">          </li>
<li id="n_270" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_271" class="hl"><span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_272" class="hl"></li>
<li id="n_273" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_274" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_275" class="hl"><span class="hl opt">|;</span></li>
<li id="n_276" class="hl"></li>
<li id="n_277" class="hl"><span class="hl opt">}</span></li>
<li id="n_278" class="hl"></li>
<li id="n_279" class="hl">  </li>
<li id="n_280" class="hl"><span class="hl kwa">sub </span>save_account <span class="hl opt">{</span></li>
<li id="n_281" class="hl"></li>
<li id="n_282" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;accno&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account Number missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_283" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;category&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account Type missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_284" class="hl">  </li>
<li id="n_285" class="hl">  <span class="hl slc"># check for conflicting accounts</span></li>
<li id="n_286" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AR<span class="hl opt">} || </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>AP<span class="hl opt">} || </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>IC<span class="hl opt">}) {</span></li>
<li id="n_287" class="hl">    <span class="hl kwb">$a </span><span class="hl opt">= </span><span class="hl sng">&quot;&quot;</span><span class="hl opt">;</span></li>
<li id="n_288" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(AR AP IC)</span><span class="hl opt">) { </span><span class="hl kwb">$a </span><span class="hl opt">.= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_289" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cannot set account for more than one of AR, AP or IC&#39;</span><span class="hl opt">)) </span><span class="hl kwa">if </span><span class="hl kwc">length </span><span class="hl kwb">$a </span><span class="hl opt">&gt; </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_290" class="hl"></li>
<li id="n_291" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(AR_amount AR_tax AR_paid AP_amount AP_tax AP_paid IC_taxpart IC_taxservice IC_sale IC_cogs IC_income IC_expense)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{AR}</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{AP}</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{IC} &quot;</span><span class="hl opt">. </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;account cannot be set to any other type of account&#39;</span><span class="hl opt">)) </span><span class="hl kwa">if </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_292" class="hl">  <span class="hl opt">}</span></li>
<li id="n_293" class="hl"></li>
<li id="n_294" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$item </span><span class="hl opt">(</span><span class="hl sng">&quot;AR&quot;</span><span class="hl opt">, </span><span class="hl sng">&quot;AP&quot;</span><span class="hl opt">) {</span></li>
<li id="n_295" class="hl">    <span class="hl kwb">$i </span><span class="hl opt">= </span><span class="hl num">0</span><span class="hl opt">;</span></li>
<li id="n_296" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">&quot;${item}_amount&quot;</span><span class="hl opt">, </span><span class="hl sng">&quot;${item}_paid&quot;</span><span class="hl opt">, </span><span class="hl sng">&quot;${item}_tax&quot;</span><span class="hl opt">) { </span><span class="hl kwb">$i++ </span><span class="hl kwa">if </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_297" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cannot set multiple options for [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$item</span><span class="hl opt">)) </span><span class="hl kwa">if </span><span class="hl kwb">$i </span><span class="hl opt">&gt; </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_298" class="hl">  <span class="hl opt">}</span></li>
<li id="n_299" class="hl">  </li>
<li id="n_300" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span>AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_account</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">)) {</span></li>
<li id="n_301" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_302" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_303" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cannot save account!&#39;</span><span class="hl opt">));</span></li>
<li id="n_304" class="hl">  <span class="hl opt">}</span></li>
<li id="n_305" class="hl"></li>
<li id="n_306" class="hl"><span class="hl opt">}</span></li>
<li id="n_307" class="hl"></li>
<li id="n_308" class="hl"></li>
<li id="n_309" class="hl"><span class="hl kwa">sub </span>list_account <span class="hl opt">{</span></li>
<li id="n_310" class="hl"></li>
<li id="n_311" class="hl">  CA-<span class="hl opt">&gt;</span><span class="hl kwd">all_accounts</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_312" class="hl"></li>
<li id="n_313" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Chart of Accounts&#39;</span><span class="hl opt">);</span></li>
<li id="n_314" class="hl">  </li>
<li id="n_315" class="hl">  <span class="hl slc"># construct callback</span></li>
<li id="n_316" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_account&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_317" class="hl"></li>
<li id="n_318" class="hl">  <span class="hl kwb">&#64;column_index </span><span class="hl opt">= </span><span class="hl sng">qw(accno gifi_accno description debit credit link)</span><span class="hl opt">;</span></li>
<li id="n_319" class="hl"></li>
<li id="n_320" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>accno<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_321" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>gifi_accno<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_322" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_323" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>debit<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Debit&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_324" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>credit<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Credit&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_325" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span><span class="hl kwc">link</span><span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Link&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_326" class="hl"></li>
<li id="n_327" class="hl"></li>
<li id="n_328" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_329" class="hl">  <span class="hl kwb">$colspan </span><span class="hl opt">= </span><span class="hl kwb">$#column_index </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_330" class="hl"></li>
<li id="n_331" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_332" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_333" class="hl"></li>
<li id="n_334" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_335" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_336" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop colspan<span class="hl opt">=</span><span class="hl kwb">$colspan</span><span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_337" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_338" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_339" class="hl">  <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_340" class="hl"><span class="hl opt">|;</span></li>
<li id="n_341" class="hl"></li>
<li id="n_342" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_343" class="hl">  </li>
<li id="n_344" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_345" class="hl"><span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_346" class="hl"><span class="hl opt">|;</span></li>
<li id="n_347" class="hl"></li>
<li id="n_348" class="hl">  <span class="hl slc"># escape callback</span></li>
<li id="n_349" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$callback</span><span class="hl opt">);</span></li>
<li id="n_350" class="hl">  </li>
<li id="n_351" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ca </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>CA<span class="hl opt">} }) {</span></li>
<li id="n_352" class="hl">    </li>
<li id="n_353" class="hl">    <span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>debit<span class="hl opt">} = </span><span class="hl sng">&quot;&amp;nbsp;&quot;</span><span class="hl opt">;</span></li>
<li id="n_354" class="hl">    <span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>credit<span class="hl opt">} = </span><span class="hl sng">&quot;&amp;nbsp;&quot;</span><span class="hl opt">;</span></li>
<li id="n_355" class="hl"></li>
<li id="n_356" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">} &gt; </span><span class="hl num">0</span><span class="hl opt">) {</span></li>
<li id="n_357" class="hl">      <span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>credit<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">}, </span><span class="hl num">2</span><span class="hl opt">, </span><span class="hl sng">&quot;&amp;nbsp;&quot;</span><span class="hl opt">);</span></li>
<li id="n_358" class="hl">    <span class="hl opt">}</span></li>
<li id="n_359" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">} &lt; </span><span class="hl num">0</span><span class="hl opt">) {</span></li>
<li id="n_360" class="hl">      <span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>debit<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, -</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">}, </span><span class="hl num">2</span><span class="hl opt">, </span><span class="hl sng">&quot;&amp;nbsp;&quot;</span><span class="hl opt">);</span></li>
<li id="n_361" class="hl">    <span class="hl opt">}</span></li>
<li id="n_362" class="hl"></li>
<li id="n_363" class="hl">    <span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span><span class="hl kwc">link</span><span class="hl opt">} =~ </span><span class="hl kwd">s/:/&lt;br&gt;/og</span><span class="hl opt">;</span></li>
<li id="n_364" class="hl"></li>
<li id="n_365" class="hl">    <span class="hl kwb">$gifi_accno </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>gifi_accno<span class="hl opt">});</span></li>
<li id="n_366" class="hl">    </li>
<li id="n_367" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>charttype<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&quot;H&quot;</span><span class="hl opt">) {</span></li>
<li id="n_368" class="hl">      <span class="hl kwc">print </span>qq<span class="hl opt">|&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|;</span></li>
<li id="n_369" class="hl"></li>
<li id="n_370" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>accno<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=edit_account&amp;id=</span><span class="hl ipl">$ca</span><span class="hl sng">-&gt;{id}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&amp;callback=</span><span class="hl ipl">$callback</span><span class="hl sng">&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_371" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>gifi_accno<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=edit_gifi&amp;accno=</span><span class="hl ipl">$gifi_accno&amp;path</span><span class="hl sng">=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&amp;callback=</span><span class="hl ipl">$callback</span><span class="hl sng">&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>gifi_accno<span class="hl opt">}&lt;</span><span class="hl kwd">/a&gt;&amp;nbsp;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_372" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&amp;</span>nbsp<span class="hl opt">;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_373" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>debit<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&amp;</span>nbsp<span class="hl opt">;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_374" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>credit<span class="hl opt">} = </span>qq<span class="hl opt">| &lt;</span>th<span class="hl opt">&gt;&amp;</span>nbsp<span class="hl opt">;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_375" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span><span class="hl kwc">link</span><span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&amp;</span>nbsp<span class="hl opt">;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_376" class="hl"></li>
<li id="n_377" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_378" class="hl">      <span class="hl kwb">$i++</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_379" class="hl">      <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_380" class="hl"><span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listrow</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">&gt;|;</span></li>
<li id="n_381" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>accno<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=edit_account&amp;id=</span><span class="hl ipl">$ca</span><span class="hl sng">-&gt;{id}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&amp;callback=</span><span class="hl ipl">$callback</span><span class="hl sng">&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_382" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>gifi_accno<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=edit_gifi&amp;accno=</span><span class="hl ipl">$gifi_accno&amp;path</span><span class="hl sng">=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&amp;callback=</span><span class="hl ipl">$callback</span><span class="hl sng">&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>gifi_accno<span class="hl opt">}&lt;</span><span class="hl kwd">/a&gt;&amp;nbsp;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_383" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&amp;</span>nbsp<span class="hl opt">;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_384" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>debit<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>debit<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_385" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>credit<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>credit<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_386" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span><span class="hl kwc">link</span><span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span><span class="hl kwc">link</span><span class="hl opt">}&amp;</span>nbsp<span class="hl opt">;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_387" class="hl">      </li>
<li id="n_388" class="hl">    <span class="hl opt">}</span></li>
<li id="n_389" class="hl"></li>
<li id="n_390" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_391" class="hl">    </li>
<li id="n_392" class="hl">    <span class="hl kwc">print </span><span class="hl sng">&quot;&lt;/tr&gt;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_393" class="hl">  <span class="hl opt">}</span></li>
<li id="n_394" class="hl">  </li>
<li id="n_395" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_396" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;&lt;</span>td colspan<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$colspan</span><span class="hl sng">&quot;</span><span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl sng">&quot;3&quot;</span> noshade <span class="hl kwd">/&gt;&lt;/</span>td<span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_397" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_398" class="hl"></li>
<li id="n_399" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_400" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_401" class="hl"><span class="hl opt">|;</span></li>
<li id="n_402" class="hl"></li>
<li id="n_403" class="hl"><span class="hl opt">}</span></li>
<li id="n_404" class="hl"></li>
<li id="n_405" class="hl"></li>
<li id="n_406" class="hl"><span class="hl kwa">sub </span>delete_account <span class="hl opt">{</span></li>
<li id="n_407" class="hl"></li>
<li id="n_408" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Delete Account&#39;</span><span class="hl opt">);</span></li>
<li id="n_409" class="hl"></li>
<li id="n_410" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$id </span><span class="hl opt">(</span><span class="hl sng">qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)</span><span class="hl opt">) {</span></li>
<li id="n_411" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">} == </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$id</span><span class="hl opt">}) {</span></li>
<li id="n_412" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cannot delete default account!&#39;</span><span class="hl opt">));</span></li>
<li id="n_413" class="hl">    <span class="hl opt">}</span></li>
<li id="n_414" class="hl">  <span class="hl opt">}</span></li>
<li id="n_415" class="hl"></li>
<li id="n_416" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span>AM-<span class="hl opt">&gt;</span><span class="hl kwd">delete_account</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">)) {</span></li>
<li id="n_417" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account deleted!&#39;</span><span class="hl opt">));</span></li>
<li id="n_418" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_419" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cannot delete account!&#39;</span><span class="hl opt">));</span></li>
<li id="n_420" class="hl">  <span class="hl opt">}</span></li>
<li id="n_421" class="hl"></li>
<li id="n_422" class="hl"><span class="hl opt">}</span></li>
<li id="n_423" class="hl"></li>
<li id="n_424" class="hl"></li>
<li id="n_425" class="hl"><span class="hl kwa">sub </span>list_gifi <span class="hl opt">{</span></li>
<li id="n_426" class="hl"></li>
<li id="n_427" class="hl">  <span class="hl opt">&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>fields<span class="hl opt">} } = </span><span class="hl sng">qw(accno description)</span><span class="hl opt">;</span></li>
<li id="n_428" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>table<span class="hl opt">} = </span><span class="hl sng">&quot;gifi&quot;</span><span class="hl opt">;</span></li>
<li id="n_429" class="hl">  </li>
<li id="n_430" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">gifi_accounts</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_431" class="hl"></li>
<li id="n_432" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI&#39;</span><span class="hl opt">);</span></li>
<li id="n_433" class="hl">  </li>
<li id="n_434" class="hl">  <span class="hl slc"># construct callback</span></li>
<li id="n_435" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_gifi&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_436" class="hl"></li>
<li id="n_437" class="hl">  <span class="hl kwb">&#64;column_index </span><span class="hl opt">= </span><span class="hl sng">qw(accno description)</span><span class="hl opt">;</span></li>
<li id="n_438" class="hl"></li>
<li id="n_439" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>accno<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_440" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_441" class="hl"></li>
<li id="n_442" class="hl"></li>
<li id="n_443" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_444" class="hl">  <span class="hl kwb">$colspan </span><span class="hl opt">= </span><span class="hl kwb">$#column_index </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_445" class="hl"></li>
<li id="n_446" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_447" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_448" class="hl"></li>
<li id="n_449" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_450" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_451" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop colspan<span class="hl opt">=</span><span class="hl kwb">$colspan</span><span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_452" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_453" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_454" class="hl">  <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_455" class="hl"><span class="hl opt">|;</span></li>
<li id="n_456" class="hl"></li>
<li id="n_457" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_458" class="hl">  </li>
<li id="n_459" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_460" class="hl"><span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_461" class="hl"><span class="hl opt">|;</span></li>
<li id="n_462" class="hl"></li>
<li id="n_463" class="hl">  <span class="hl slc"># escape callback</span></li>
<li id="n_464" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$callback</span><span class="hl opt">);</span></li>
<li id="n_465" class="hl">  </li>
<li id="n_466" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ca </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }) {</span></li>
<li id="n_467" class="hl">    </li>
<li id="n_468" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_469" class="hl">    </li>
<li id="n_470" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_471" class="hl"><span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span>listrow<span class="hl kwb">$i</span><span class="hl opt">&gt;|;</span></li>
<li id="n_472" class="hl">    </li>
<li id="n_473" class="hl">    <span class="hl kwb">$accno </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">});</span></li>
<li id="n_474" class="hl">    <span class="hl kwb">$column_data</span><span class="hl opt">{</span>accno<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>edit_gifi<span class="hl opt">&amp;</span>coa<span class="hl opt">=</span><span class="hl num">1</span><span class="hl opt">&amp;</span>accno<span class="hl opt">=</span><span class="hl kwb">$accno&amp;path</span><span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>callback<span class="hl opt">=</span><span class="hl kwb">$callback</span><span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_475" class="hl">    <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$ca</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&amp;</span>nbsp<span class="hl opt">;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_476" class="hl">    </li>
<li id="n_477" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_478" class="hl">    </li>
<li id="n_479" class="hl">    <span class="hl kwc">print </span><span class="hl sng">&quot;&lt;/tr&gt;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_480" class="hl">  <span class="hl opt">}</span></li>
<li id="n_481" class="hl">  </li>
<li id="n_482" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_483" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_484" class="hl">    <span class="hl opt">&lt;</span>td colspan<span class="hl opt">=</span><span class="hl kwb">$colspan</span><span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_485" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_486" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_487" class="hl"></li>
<li id="n_488" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_489" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_490" class="hl"><span class="hl opt">|;</span></li>
<li id="n_491" class="hl"></li>
<li id="n_492" class="hl"><span class="hl opt">}</span></li>
<li id="n_493" class="hl"></li>
<li id="n_494" class="hl"></li>
<li id="n_495" class="hl"><span class="hl kwa">sub </span>add_gifi <span class="hl opt">{</span></li>
<li id="n_496" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Add&quot;</span><span class="hl opt">;</span></li>
<li id="n_497" class="hl">  </li>
<li id="n_498" class="hl">  <span class="hl slc"># construct callback</span></li>
<li id="n_499" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_gifi&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_500" class="hl"></li>
<li id="n_501" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>coa<span class="hl opt">} = </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_502" class="hl">  </li>
<li id="n_503" class="hl">  <span class="hl opt">&amp;</span>gifi_header<span class="hl opt">;</span></li>
<li id="n_504" class="hl">  <span class="hl opt">&amp;</span>gifi_footer<span class="hl opt">;</span></li>
<li id="n_505" class="hl">  </li>
<li id="n_506" class="hl"><span class="hl opt">}</span></li>
<li id="n_507" class="hl"></li>
<li id="n_508" class="hl"></li>
<li id="n_509" class="hl"><span class="hl kwa">sub </span>edit_gifi <span class="hl opt">{</span></li>
<li id="n_510" class="hl">  </li>
<li id="n_511" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Edit&quot;</span><span class="hl opt">;</span></li>
<li id="n_512" class="hl">  </li>
<li id="n_513" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">get_gifi</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_514" class="hl"></li>
<li id="n_515" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Account does not exist!&#39;</span><span class="hl opt">)) </span><span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">};</span></li>
<li id="n_516" class="hl">  </li>
<li id="n_517" class="hl">  <span class="hl opt">&amp;</span>gifi_header<span class="hl opt">;</span></li>
<li id="n_518" class="hl">  <span class="hl opt">&amp;</span>gifi_footer<span class="hl opt">;</span></li>
<li id="n_519" class="hl">  </li>
<li id="n_520" class="hl"><span class="hl opt">}</span></li>
<li id="n_521" class="hl"></li>
<li id="n_522" class="hl"></li>
<li id="n_523" class="hl"><span class="hl kwa">sub </span>gifi_header <span class="hl opt">{</span></li>
<li id="n_524" class="hl"></li>
<li id="n_525" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} GIFI&quot;</span><span class="hl opt">);</span></li>
<li id="n_526" class="hl">  </li>
<li id="n_527" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Add GIFI&#39;)</span></li>
<li id="n_528" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Edit GIFI&#39;)</span></li>
<li id="n_529" class="hl"></li>
<li id="n_530" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(accno description)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">quote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_531" class="hl"></li>
<li id="n_532" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_533" class="hl"></li>
<li id="n_534" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_535" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_536" class="hl"></li>
<li id="n_537" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_538" class="hl"></li>
<li id="n_539" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>id value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{accno}&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_540" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>gifi<span class="hl opt">&gt;</span></li>
<li id="n_541" class="hl"></li>
<li id="n_542" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_543" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_544" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_545" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_546" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_547" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_548" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_549" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_550" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_551" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_552" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>accno size<span class="hl opt">=</span><span class="hl num">20 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{accno}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_553" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_554" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_555" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_556" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>description size<span class="hl opt">=</span><span class="hl num">60 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_557" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_558" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_559" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_560" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_561" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_562" class="hl">    <span class="hl opt">&lt;</span>td colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_563" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_564" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_565" class="hl"><span class="hl opt">|;</span></li>
<li id="n_566" class="hl"></li>
<li id="n_567" class="hl"><span class="hl opt">}</span></li>
<li id="n_568" class="hl"></li>
<li id="n_569" class="hl"></li>
<li id="n_570" class="hl"><span class="hl kwa">sub </span>gifi_footer <span class="hl opt">{</span></li>
<li id="n_571" class="hl"></li>
<li id="n_572" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(callback path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_573" class="hl">  </li>
<li id="n_574" class="hl"><span class="hl slc"># type=submit $locale-&gt;text(&#39;Save&#39;)</span></li>
<li id="n_575" class="hl"><span class="hl slc"># type=submit $locale-&gt;text(&#39;Copy to COA&#39;)</span></li>
<li id="n_576" class="hl"><span class="hl slc"># type=submit $locale-&gt;text(&#39;Delete&#39;)</span></li>
<li id="n_577" class="hl"></li>
<li id="n_578" class="hl">  <span class="hl kwb">%button </span><span class="hl opt">= ();</span></li>
<li id="n_579" class="hl">  </li>
<li id="n_580" class="hl">  <span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl sng">&#39;save&#39;</span><span class="hl opt">} = { </span>ndx <span class="hl opt">=&gt; </span><span class="hl num">3</span><span class="hl opt">, </span>key <span class="hl opt">=&gt; </span><span class="hl sng">&#39;S&#39;</span><span class="hl opt">, </span>value <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Save&#39;</span><span class="hl opt">) };</span></li>
<li id="n_581" class="hl">  </li>
<li id="n_582" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}) {</span></li>
<li id="n_583" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>orphaned<span class="hl opt">}) {</span></li>
<li id="n_584" class="hl">      <span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl sng">&#39;delete&#39;</span><span class="hl opt">} = { </span>ndx <span class="hl opt">=&gt; </span><span class="hl num">16</span><span class="hl opt">, </span>key <span class="hl opt">=&gt; </span><span class="hl sng">&#39;D&#39;</span><span class="hl opt">, </span>value <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Delete&#39;</span><span class="hl opt">) };</span></li>
<li id="n_585" class="hl">    <span class="hl opt">}</span></li>
<li id="n_586" class="hl">  <span class="hl opt">}</span></li>
<li id="n_587" class="hl">    </li>
<li id="n_588" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>coa<span class="hl opt">}) {</span></li>
<li id="n_589" class="hl">    <span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl sng">&#39;copy_to_coa&#39;</span><span class="hl opt">} = { </span>ndx <span class="hl opt">=&gt; </span><span class="hl num">7</span><span class="hl opt">, </span>key <span class="hl opt">=&gt; </span><span class="hl sng">&#39;C&#39;</span><span class="hl opt">, </span>value <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Copy to COA&#39;</span><span class="hl opt">) };</span></li>
<li id="n_590" class="hl">  <span class="hl opt">}</span></li>
<li id="n_591" class="hl"></li>
<li id="n_592" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwc">sort </span><span class="hl opt">{ </span><span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl kwb">$a</span><span class="hl opt">}-&gt;{</span>ndx<span class="hl opt">} &lt;=&gt; </span><span class="hl kwb">$button</span><span class="hl opt">{</span><span class="hl kwb">$b</span><span class="hl opt">}-&gt;{</span>ndx<span class="hl opt">} } </span><span class="hl kwc">keys </span><span class="hl kwb">%button</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">print_button</span><span class="hl opt">(</span>\<span class="hl kwb">%button</span><span class="hl opt">, </span><span class="hl kwb">$_</span><span class="hl opt">) }</span></li>
<li id="n_593" class="hl"></li>
<li id="n_594" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_595" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_596" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_597" class="hl">  <span class="hl opt">}</span></li>
<li id="n_598" class="hl"></li>
<li id="n_599" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_600" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_601" class="hl"></li>
<li id="n_602" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_603" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_604" class="hl"><span class="hl opt">|;</span></li>
<li id="n_605" class="hl"></li>
<li id="n_606" class="hl"><span class="hl opt">}</span></li>
<li id="n_607" class="hl"></li>
<li id="n_608" class="hl"></li>
<li id="n_609" class="hl"><span class="hl kwa">sub </span>save_gifi <span class="hl opt">{</span></li>
<li id="n_610" class="hl"></li>
<li id="n_611" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;accno&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_612" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_gifi</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_613" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_614" class="hl"></li>
<li id="n_615" class="hl"><span class="hl opt">}</span></li>
<li id="n_616" class="hl"></li>
<li id="n_617" class="hl"></li>
<li id="n_618" class="hl"><span class="hl kwa">sub </span>copy_to_coa <span class="hl opt">{</span></li>
<li id="n_619" class="hl"></li>
<li id="n_620" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;accno&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_621" class="hl"></li>
<li id="n_622" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_gifi</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_623" class="hl"></li>
<li id="n_624" class="hl">  <span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">};</span></li>
<li id="n_625" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>gifi_accno<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">};</span></li>
<li id="n_626" class="hl">  </li>
<li id="n_627" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Add&quot;</span><span class="hl opt">;</span></li>
<li id="n_628" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>charttype<span class="hl opt">} = </span><span class="hl sng">&quot;A&quot;</span><span class="hl opt">;</span></li>
<li id="n_629" class="hl">  </li>
<li id="n_630" class="hl">  <span class="hl opt">&amp;</span>account_header<span class="hl opt">;</span></li>
<li id="n_631" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_632" class="hl">  </li>
<li id="n_633" class="hl"><span class="hl opt">}</span></li>
<li id="n_634" class="hl"></li>
<li id="n_635" class="hl"></li>
<li id="n_636" class="hl"><span class="hl kwa">sub </span>delete_gifi <span class="hl opt">{</span></li>
<li id="n_637" class="hl"></li>
<li id="n_638" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">delete_gifi</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_639" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GIFI deleted!&#39;</span><span class="hl opt">));</span></li>
<li id="n_640" class="hl"></li>
<li id="n_641" class="hl"><span class="hl opt">}</span></li>
<li id="n_642" class="hl"></li>
<li id="n_643" class="hl"></li>
<li id="n_644" class="hl"><span class="hl kwa">sub </span>add_department <span class="hl opt">{</span></li>
<li id="n_645" class="hl"></li>
<li id="n_646" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Add&quot;</span><span class="hl opt">;</span></li>
<li id="n_647" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwa">role</span><span class="hl opt">} = </span><span class="hl sng">&quot;P&quot;</span><span class="hl opt">;</span></li>
<li id="n_648" class="hl">  </li>
<li id="n_649" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=add_department&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span> <span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">};</span></li>
<li id="n_650" class="hl"></li>
<li id="n_651" class="hl">  <span class="hl opt">&amp;</span>department_header<span class="hl opt">;</span></li>
<li id="n_652" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_653" class="hl"></li>
<li id="n_654" class="hl"><span class="hl opt">}</span></li>
<li id="n_655" class="hl"></li>
<li id="n_656" class="hl"></li>
<li id="n_657" class="hl"><span class="hl kwa">sub </span>edit_department <span class="hl opt">{</span></li>
<li id="n_658" class="hl"></li>
<li id="n_659" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Edit&quot;</span><span class="hl opt">;</span></li>
<li id="n_660" class="hl"></li>
<li id="n_661" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">get_department</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_662" class="hl"></li>
<li id="n_663" class="hl">  <span class="hl opt">&amp;</span>department_header<span class="hl opt">;</span></li>
<li id="n_664" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_665" class="hl"></li>
<li id="n_666" class="hl"><span class="hl opt">}</span></li>
<li id="n_667" class="hl"></li>
<li id="n_668" class="hl"></li>
<li id="n_669" class="hl"><span class="hl kwa">sub </span>list_department <span class="hl opt">{</span></li>
<li id="n_670" class="hl"></li>
<li id="n_671" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">departments</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_672" class="hl"></li>
<li id="n_673" class="hl">  <span class="hl kwb">$href </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_department&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_674" class="hl"></li>
<li id="n_675" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_order</span><span class="hl opt">();</span></li>
<li id="n_676" class="hl">  </li>
<li id="n_677" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_department&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_678" class="hl">  </li>
<li id="n_679" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">});</span></li>
<li id="n_680" class="hl">  </li>
<li id="n_681" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Departments&#39;</span><span class="hl opt">);</span></li>
<li id="n_682" class="hl"></li>
<li id="n_683" class="hl">  <span class="hl kwb">&#64;column_index </span><span class="hl opt">= </span><span class="hl sng">qw(description cost profit)</span><span class="hl opt">;</span></li>
<li id="n_684" class="hl"></li>
<li id="n_685" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th width<span class="hl opt">=</span><span class="hl num">90</span><span class="hl opt">%&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_686" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>cost<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cost Center&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_687" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>profit<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Profit Center&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_688" class="hl"></li>
<li id="n_689" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_690" class="hl"></li>
<li id="n_691" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_692" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_693" class="hl"></li>
<li id="n_694" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_695" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_696" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_697" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_698" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_699" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_700" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_701" class="hl">      <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_702" class="hl">        <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_703" class="hl"><span class="hl opt">|;</span></li>
<li id="n_704" class="hl"></li>
<li id="n_705" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_706" class="hl"></li>
<li id="n_707" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_708" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_709" class="hl"><span class="hl opt">|;</span></li>
<li id="n_710" class="hl"></li>
<li id="n_711" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }) {</span></li>
<li id="n_712" class="hl">    </li>
<li id="n_713" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_714" class="hl">    </li>
<li id="n_715" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_716" class="hl">        <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span>listrow<span class="hl kwb">$i</span><span class="hl opt">&gt;</span></li>
<li id="n_717" class="hl"><span class="hl opt">|;</span></li>
<li id="n_718" class="hl"></li>
<li id="n_719" class="hl">   <span class="hl kwb">$costcenter </span><span class="hl opt">= (</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span><span class="hl kwa">role</span><span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&quot;C&quot;</span><span class="hl opt">) ? </span><span class="hl sng">&quot;*&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;&amp;nbsp;&quot;</span><span class="hl opt">;</span></li>
<li id="n_720" class="hl">   <span class="hl kwb">$profitcenter </span><span class="hl opt">= (</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span><span class="hl kwa">role</span><span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&quot;P&quot;</span><span class="hl opt">) ? </span><span class="hl sng">&quot;*&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;&amp;nbsp;&quot;</span><span class="hl opt">;</span></li>
<li id="n_721" class="hl">   </li>
<li id="n_722" class="hl">   <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>edit_department<span class="hl opt">&amp;</span>id<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>callback<span class="hl opt">=</span><span class="hl kwb">$callback</span><span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_723" class="hl">   <span class="hl kwb">$column_data</span><span class="hl opt">{</span>cost<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td align<span class="hl opt">=</span>center<span class="hl opt">&gt;</span><span class="hl kwb">$costcenter</span><span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_724" class="hl">   <span class="hl kwb">$column_data</span><span class="hl opt">{</span>profit<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td align<span class="hl opt">=</span>center<span class="hl opt">&gt;</span><span class="hl kwb">$profitcenter</span><span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_725" class="hl"></li>
<li id="n_726" class="hl">   <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_727" class="hl"></li>
<li id="n_728" class="hl">   <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_729" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_730" class="hl"><span class="hl opt">|;</span></li>
<li id="n_731" class="hl">  <span class="hl opt">}</span></li>
<li id="n_732" class="hl"></li>
<li id="n_733" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_734" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_735" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_736" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_737" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_738" class="hl">  <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_739" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_740" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_741" class="hl"></li>
<li id="n_742" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_743" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_744" class="hl"><span class="hl opt">|;</span></li>
<li id="n_745" class="hl"></li>
<li id="n_746" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;department&quot;</span><span class="hl opt">;</span></li>
<li id="n_747" class="hl">  </li>
<li id="n_748" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(type callback path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_749" class="hl">  </li>
<li id="n_750" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_751" class="hl"><span class="hl opt">&lt;</span>button <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;add_department&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Add Department&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span><span class="hl sng">&quot;&lt;/button&gt;|;</span></li>
<li id="n_752" class="hl"><span class="hl sng"></span></li>
<li id="n_753" class="hl"><span class="hl sng">  if (</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{lynx}) {</span></li>
<li id="n_754" class="hl"><span class="hl sng">    require &quot;</span>bin<span class="hl opt">/</span>menu<span class="hl opt">.</span>pl<span class="hl sng">&quot;;</span></li>
<li id="n_755" class="hl"><span class="hl sng">    &amp;menubar;</span></li>
<li id="n_756" class="hl"><span class="hl sng">  }</span></li>
<li id="n_757" class="hl"><span class="hl sng"></span></li>
<li id="n_758" class="hl"><span class="hl sng">  print qq|</span></li>
<li id="n_759" class="hl"><span class="hl sng">  &lt;/form&gt;</span></li>
<li id="n_760" class="hl"><span class="hl sng">  </span></li>
<li id="n_761" class="hl"><span class="hl sng">  &lt;/body&gt;</span></li>
<li id="n_762" class="hl"><span class="hl sng">  &lt;/html&gt; </span></li>
<li id="n_763" class="hl"><span class="hl sng">|;</span></li>
<li id="n_764" class="hl"><span class="hl sng">  </span></li>
<li id="n_765" class="hl"><span class="hl sng">}</span></li>
<li id="n_766" class="hl"><span class="hl sng"></span></li>
<li id="n_767" class="hl"><span class="hl sng"></span></li>
<li id="n_768" class="hl"><span class="hl sng">sub department_header {</span></li>
<li id="n_769" class="hl"><span class="hl sng"></span></li>
<li id="n_770" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} = </span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&quot;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} </span>Department<span class="hl sng">&quot;);</span></li>
<li id="n_771" class="hl"><span class="hl sng"></span></li>
<li id="n_772" class="hl"><span class="hl sng"># </span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Add Department&#39;)</span></li>
<li id="n_773" class="hl"><span class="hl sng"># </span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Edit Department&#39;)</span></li>
<li id="n_774" class="hl"><span class="hl sng"></span></li>
<li id="n_775" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description} = </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;quote(</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description});</span></li>
<li id="n_776" class="hl"><span class="hl sng"></span></li>
<li id="n_777" class="hl"><span class="hl sng">  if ((</span><span class="hl ipl">$rows </span><span class="hl sng">= </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;numtextrows(</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description}, 60)) &gt; 1) {</span></li>
<li id="n_778" class="hl"><span class="hl sng">    </span><span class="hl ipl">$description </span><span class="hl sng">= qq|&lt;textarea name=&quot;</span>description<span class="hl sng">&quot; rows=</span><span class="hl ipl">$rows </span><span class="hl sng">cols=60 wrap=soft&gt;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description}&lt;/textarea&gt;|;</span></li>
<li id="n_779" class="hl"><span class="hl sng">  } else {</span></li>
<li id="n_780" class="hl"><span class="hl sng">    </span><span class="hl ipl">$description </span><span class="hl sng">= qq|&lt;input name=description size=60 value=&quot;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}</span><span class="hl sng">&quot;&gt;|;</span></li>
<li id="n_781" class="hl"><span class="hl sng">  }</span></li>
<li id="n_782" class="hl"><span class="hl sng"></span></li>
<li id="n_783" class="hl"><span class="hl sng">  </span><span class="hl ipl">$costcenter </span><span class="hl sng">= &quot;</span>checked<span class="hl sng">&quot; if </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{role} eq &quot;</span>C<span class="hl sng">&quot;;</span></li>
<li id="n_784" class="hl"><span class="hl sng">  </span><span class="hl ipl">$profitcenter </span><span class="hl sng">= &quot;</span>checked<span class="hl sng">&quot; if </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{role} eq &quot;</span>P<span class="hl sng">&quot;;</span></li>
<li id="n_785" class="hl"><span class="hl sng">  </span></li>
<li id="n_786" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;header;</span></li>
<li id="n_787" class="hl"><span class="hl sng"></span></li>
<li id="n_788" class="hl"><span class="hl sng">  print qq|</span></li>
<li id="n_789" class="hl"><span class="hl sng">&lt;body&gt;</span></li>
<li id="n_790" class="hl"><span class="hl sng"></span></li>
<li id="n_791" class="hl"><span class="hl sng">&lt;form method=post action=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}&gt;</span></li>
<li id="n_792" class="hl"><span class="hl sng"></span></li>
<li id="n_793" class="hl"><span class="hl sng">&lt;input type=hidden name=id value=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{id}&gt;</span></li>
<li id="n_794" class="hl"><span class="hl sng">&lt;input type=hidden name=type value=department&gt;</span></li>
<li id="n_795" class="hl"><span class="hl sng"></span></li>
<li id="n_796" class="hl"><span class="hl sng">&lt;table width=100%&gt;</span></li>
<li id="n_797" class="hl"><span class="hl sng">  &lt;tr&gt;</span></li>
<li id="n_798" class="hl"><span class="hl sng">    &lt;th class=listtop colspan=2&gt;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title}&lt;/th&gt;</span></li>
<li id="n_799" class="hl"><span class="hl sng">  &lt;/tr&gt;</span></li>
<li id="n_800" class="hl"><span class="hl sng">  &lt;tr height=&quot;</span><span class="hl num">5</span><span class="hl sng">&quot;&gt;&lt;/tr&gt;</span></li>
<li id="n_801" class="hl"><span class="hl sng">  &lt;tr&gt;</span></li>
<li id="n_802" class="hl"><span class="hl sng">    &lt;th align=&quot;</span>right<span class="hl sng">&quot;&gt;|.</span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Description&#39;).qq|&lt;/th&gt;</span></li>
<li id="n_803" class="hl"><span class="hl sng">    &lt;td&gt;</span><span class="hl ipl">$description</span><span class="hl sng">&lt;/td&gt;</span></li>
<li id="n_804" class="hl"><span class="hl sng">  &lt;/tr&gt;</span></li>
<li id="n_805" class="hl"><span class="hl sng">  &lt;tr&gt;</span></li>
<li id="n_806" class="hl"><span class="hl sng">    &lt;td&gt;&lt;/td&gt;</span></li>
<li id="n_807" class="hl"><span class="hl sng">    &lt;td&gt;&lt;input type=radio style=radio name=role value=&quot;</span>C<span class="hl sng">&quot; </span><span class="hl ipl">$costcenter</span><span class="hl sng">&gt; |.</span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Cost Center&#39;).qq|</span></li>
<li id="n_808" class="hl"><span class="hl sng">        &lt;input type=radio style=radio name=role value=&quot;</span>P<span class="hl sng">&quot; </span><span class="hl ipl">$profitcenter</span><span class="hl sng">&gt; |.</span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Profit Center&#39;).qq|</span></li>
<li id="n_809" class="hl"><span class="hl sng">    &lt;/td&gt;</span></li>
<li id="n_810" class="hl"><span class="hl sng">  &lt;tr&gt;</span></li>
<li id="n_811" class="hl"><span class="hl sng">    &lt;td colspan=2&gt;&lt;hr size=3 noshade&gt;&lt;/td&gt;</span></li>
<li id="n_812" class="hl"><span class="hl sng">  &lt;/tr&gt;</span></li>
<li id="n_813" class="hl"><span class="hl sng">&lt;/table&gt;</span></li>
<li id="n_814" class="hl"><span class="hl sng">|;</span></li>
<li id="n_815" class="hl"><span class="hl sng"></span></li>
<li id="n_816" class="hl"><span class="hl sng">}</span></li>
<li id="n_817" class="hl"><span class="hl sng"></span></li>
<li id="n_818" class="hl"><span class="hl sng"></span></li>
<li id="n_819" class="hl"><span class="hl sng">sub save_department {</span></li>
<li id="n_820" class="hl"><span class="hl sng"></span></li>
<li id="n_821" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;isblank(&quot;</span>description<span class="hl sng">&quot;, </span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Description missing!&#39;));</span></li>
<li id="n_822" class="hl"><span class="hl sng">  AM-&gt;save_department(\</span><span class="hl ipl">%myconfig</span><span class="hl sng">, \</span><span class="hl ipl">%$form</span><span class="hl sng">);</span></li>
<li id="n_823" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;redirect(</span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Department saved!&#39;));</span></li>
<li id="n_824" class="hl"><span class="hl sng"></span></li>
<li id="n_825" class="hl"><span class="hl sng">}</span></li>
<li id="n_826" class="hl"><span class="hl sng"></span></li>
<li id="n_827" class="hl"><span class="hl sng"></span></li>
<li id="n_828" class="hl"><span class="hl sng">sub delete_department {</span></li>
<li id="n_829" class="hl"><span class="hl sng"></span></li>
<li id="n_830" class="hl"><span class="hl sng">  AM-&gt;delete_department(\</span><span class="hl ipl">%myconfig</span><span class="hl sng">, \</span><span class="hl ipl">%$form</span><span class="hl sng">);</span></li>
<li id="n_831" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;redirect(</span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Department deleted!&#39;));</span></li>
<li id="n_832" class="hl"><span class="hl sng"></span></li>
<li id="n_833" class="hl"><span class="hl sng">}</span></li>
<li id="n_834" class="hl"><span class="hl sng"></span></li>
<li id="n_835" class="hl"><span class="hl sng"></span></li>
<li id="n_836" class="hl"><span class="hl sng">sub add_business {</span></li>
<li id="n_837" class="hl"><span class="hl sng"></span></li>
<li id="n_838" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} = &quot;</span>Add<span class="hl sng">&quot;;</span></li>
<li id="n_839" class="hl"><span class="hl sng">  </span></li>
<li id="n_840" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{callback} = &quot;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>add_business<span class="hl opt">&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}</span><span class="hl sng">&quot; unless </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{callback};</span></li>
<li id="n_841" class="hl"><span class="hl sng"></span></li>
<li id="n_842" class="hl"><span class="hl sng">  &amp;business_header;</span></li>
<li id="n_843" class="hl"><span class="hl sng">  &amp;form_footer;</span></li>
<li id="n_844" class="hl"><span class="hl sng"></span></li>
<li id="n_845" class="hl"><span class="hl sng">}</span></li>
<li id="n_846" class="hl"><span class="hl sng"></span></li>
<li id="n_847" class="hl"><span class="hl sng"></span></li>
<li id="n_848" class="hl"><span class="hl sng">sub edit_business {</span></li>
<li id="n_849" class="hl"><span class="hl sng"></span></li>
<li id="n_850" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} = &quot;</span>Edit<span class="hl sng">&quot;;</span></li>
<li id="n_851" class="hl"><span class="hl sng"></span></li>
<li id="n_852" class="hl"><span class="hl sng">  AM-&gt;get_business(\</span><span class="hl ipl">%myconfig</span><span class="hl sng">, \</span><span class="hl ipl">%$form</span><span class="hl sng">);</span></li>
<li id="n_853" class="hl"><span class="hl sng"></span></li>
<li id="n_854" class="hl"><span class="hl sng">  &amp;business_header;</span></li>
<li id="n_855" class="hl"><span class="hl sng"></span></li>
<li id="n_856" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{orphaned} = 1;</span></li>
<li id="n_857" class="hl"><span class="hl sng">  &amp;form_footer;</span></li>
<li id="n_858" class="hl"><span class="hl sng"></span></li>
<li id="n_859" class="hl"><span class="hl sng">}</span></li>
<li id="n_860" class="hl"><span class="hl sng"></span></li>
<li id="n_861" class="hl"><span class="hl sng"></span></li>
<li id="n_862" class="hl"><span class="hl sng">sub list_business {</span></li>
<li id="n_863" class="hl"><span class="hl sng"></span></li>
<li id="n_864" class="hl"><span class="hl sng">  AM-&gt;business(\</span><span class="hl ipl">%myconfig</span><span class="hl sng">, \</span><span class="hl ipl">%$form</span><span class="hl sng">);</span></li>
<li id="n_865" class="hl"><span class="hl sng"></span></li>
<li id="n_866" class="hl"><span class="hl sng">  </span><span class="hl ipl">$href </span><span class="hl sng">= &quot;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>list_business<span class="hl opt">&amp;</span>direction<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>direction<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}</span><span class="hl sng">&quot;;</span></li>
<li id="n_867" class="hl"><span class="hl sng"></span></li>
<li id="n_868" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;sort_order();</span></li>
<li id="n_869" class="hl"><span class="hl sng">  </span></li>
<li id="n_870" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{callback} = &quot;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>list_business<span class="hl opt">&amp;</span>direction<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>direction<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}</span><span class="hl sng">&quot;;</span></li>
<li id="n_871" class="hl"><span class="hl sng">  </span></li>
<li id="n_872" class="hl"><span class="hl sng">  </span><span class="hl ipl">$callback </span><span class="hl sng">= </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;escape(</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{callback});</span></li>
<li id="n_873" class="hl"><span class="hl sng">  </span></li>
<li id="n_874" class="hl"><span class="hl sng">  </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} = </span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Type of Business&#39;);</span></li>
<li id="n_875" class="hl"><span class="hl sng"></span></li>
<li id="n_876" class="hl"><span class="hl sng">  </span><span class="hl ipl">&#64;column_index </span><span class="hl sng">= qw(description discount)</span><span class="hl opt">;</span></li>
<li id="n_877" class="hl"></li>
<li id="n_878" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th width<span class="hl opt">=</span><span class="hl num">90</span><span class="hl opt">%&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_879" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>discount<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Discount&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">| %&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_880" class="hl"></li>
<li id="n_881" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_882" class="hl"></li>
<li id="n_883" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_884" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_885" class="hl"></li>
<li id="n_886" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_887" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_888" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_889" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_890" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_891" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_892" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_893" class="hl">      <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_894" class="hl">        <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_895" class="hl"><span class="hl opt">|;</span></li>
<li id="n_896" class="hl"></li>
<li id="n_897" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_898" class="hl"></li>
<li id="n_899" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_900" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_901" class="hl"><span class="hl opt">|;</span></li>
<li id="n_902" class="hl"></li>
<li id="n_903" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }) {</span></li>
<li id="n_904" class="hl">    </li>
<li id="n_905" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_906" class="hl">    </li>
<li id="n_907" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_908" class="hl">        <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span>listrow<span class="hl kwb">$i</span><span class="hl opt">&gt;</span></li>
<li id="n_909" class="hl"><span class="hl opt">|;</span></li>
<li id="n_910" class="hl"></li>
<li id="n_911" class="hl">   <span class="hl kwb">$discount </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>discount<span class="hl opt">} * </span><span class="hl num">100</span><span class="hl opt">, </span><span class="hl num">2</span><span class="hl opt">, </span><span class="hl sng">&quot;&amp;nbsp&quot;</span><span class="hl opt">);</span></li>
<li id="n_912" class="hl">   </li>
<li id="n_913" class="hl">   <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>edit_business<span class="hl opt">&amp;</span>id<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>callback<span class="hl opt">=</span><span class="hl kwb">$callback</span><span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_914" class="hl">   <span class="hl kwb">$column_data</span><span class="hl opt">{</span>discount<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$discount</span><span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_915" class="hl">   </li>
<li id="n_916" class="hl">   <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_917" class="hl"></li>
<li id="n_918" class="hl">   <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_919" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_920" class="hl"><span class="hl opt">|;</span></li>
<li id="n_921" class="hl">  <span class="hl opt">}</span></li>
<li id="n_922" class="hl"></li>
<li id="n_923" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_924" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_925" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_926" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_927" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_928" class="hl">  <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_929" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_930" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_931" class="hl"></li>
<li id="n_932" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_933" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_934" class="hl"><span class="hl opt">|;</span></li>
<li id="n_935" class="hl"></li>
<li id="n_936" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;business&quot;</span><span class="hl opt">;</span></li>
<li id="n_937" class="hl">  </li>
<li id="n_938" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(type callback path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_939" class="hl"></li>
<li id="n_940" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_941" class="hl"><span class="hl opt">&lt;</span>button <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;add_business&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Add Business&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_942" class="hl"></li>
<li id="n_943" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_944" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_945" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_946" class="hl">  <span class="hl opt">}</span></li>
<li id="n_947" class="hl"></li>
<li id="n_948" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_949" class="hl">  </li>
<li id="n_950" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_951" class="hl">  </li>
<li id="n_952" class="hl">  <span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_953" class="hl">  <span class="hl opt">&lt;/</span>html<span class="hl opt">&gt; </span></li>
<li id="n_954" class="hl"><span class="hl opt">|;</span></li>
<li id="n_955" class="hl">  </li>
<li id="n_956" class="hl"><span class="hl opt">}</span></li>
<li id="n_957" class="hl"></li>
<li id="n_958" class="hl"></li>
<li id="n_959" class="hl"><span class="hl kwa">sub </span>business_header <span class="hl opt">{</span></li>
<li id="n_960" class="hl"></li>
<li id="n_961" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} Business&quot;</span><span class="hl opt">);</span></li>
<li id="n_962" class="hl"></li>
<li id="n_963" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Add Business&#39;)</span></li>
<li id="n_964" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Edit Business&#39;)</span></li>
<li id="n_965" class="hl"></li>
<li id="n_966" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">quote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">});</span></li>
<li id="n_967" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>discount<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>discount<span class="hl opt">} * </span><span class="hl num">100</span><span class="hl opt">);</span></li>
<li id="n_968" class="hl"></li>
<li id="n_969" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_970" class="hl"></li>
<li id="n_971" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_972" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_973" class="hl"></li>
<li id="n_974" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_975" class="hl"></li>
<li id="n_976" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>id value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}&gt;</span></li>
<li id="n_977" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>business<span class="hl opt">&gt;</span></li>
<li id="n_978" class="hl"></li>
<li id="n_979" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_980" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_981" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_982" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_983" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_984" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_985" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_986" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_987" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_988" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Type of Business&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_989" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>description size<span class="hl opt">=</span><span class="hl num">30 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_990" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_991" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_992" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Discount&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">| %&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_993" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>discount size<span class="hl opt">=</span><span class="hl num">5 </span>value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>discount<span class="hl opt">}&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_994" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_995" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_996" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_997" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_998" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_999" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1000" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1001" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1002" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1003" class="hl"></li>
<li id="n_1004" class="hl"><span class="hl opt">}</span></li>
<li id="n_1005" class="hl"></li>
<li id="n_1006" class="hl"></li>
<li id="n_1007" class="hl"><span class="hl kwa">sub </span>save_business <span class="hl opt">{</span></li>
<li id="n_1008" class="hl"></li>
<li id="n_1009" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;description&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1010" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_business</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1011" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Business saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1012" class="hl"></li>
<li id="n_1013" class="hl"><span class="hl opt">}</span></li>
<li id="n_1014" class="hl"></li>
<li id="n_1015" class="hl"></li>
<li id="n_1016" class="hl"><span class="hl kwa">sub </span>delete_business <span class="hl opt">{</span></li>
<li id="n_1017" class="hl"></li>
<li id="n_1018" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">delete_business</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1019" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Business deleted!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1020" class="hl"></li>
<li id="n_1021" class="hl"><span class="hl opt">}</span></li>
<li id="n_1022" class="hl"></li>
<li id="n_1023" class="hl"></li>
<li id="n_1024" class="hl"></li>
<li id="n_1025" class="hl"><span class="hl kwa">sub </span>add_sic <span class="hl opt">{</span></li>
<li id="n_1026" class="hl"></li>
<li id="n_1027" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Add&quot;</span><span class="hl opt">;</span></li>
<li id="n_1028" class="hl">  </li>
<li id="n_1029" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=add_sic&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span> <span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">};</span></li>
<li id="n_1030" class="hl"></li>
<li id="n_1031" class="hl">  <span class="hl opt">&amp;</span>sic_header<span class="hl opt">;</span></li>
<li id="n_1032" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_1033" class="hl"></li>
<li id="n_1034" class="hl"><span class="hl opt">}</span></li>
<li id="n_1035" class="hl"></li>
<li id="n_1036" class="hl"></li>
<li id="n_1037" class="hl"><span class="hl kwa">sub </span>edit_sic <span class="hl opt">{</span></li>
<li id="n_1038" class="hl"></li>
<li id="n_1039" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Edit&quot;</span><span class="hl opt">;</span></li>
<li id="n_1040" class="hl"></li>
<li id="n_1041" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">} =~ </span><span class="hl kwd">s/\\&#39;/&#39;/g</span><span class="hl opt">;</span></li>
<li id="n_1042" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">} =~ </span><span class="hl kwd">s/\\\\/\\/g</span><span class="hl opt">;</span></li>
<li id="n_1043" class="hl">  </li>
<li id="n_1044" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">get_sic</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1045" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">};</span></li>
<li id="n_1046" class="hl"></li>
<li id="n_1047" class="hl">  <span class="hl opt">&amp;</span>sic_header<span class="hl opt">;</span></li>
<li id="n_1048" class="hl"></li>
<li id="n_1049" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>orphaned<span class="hl opt">} = </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_1050" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_1051" class="hl"></li>
<li id="n_1052" class="hl"><span class="hl opt">}</span></li>
<li id="n_1053" class="hl"></li>
<li id="n_1054" class="hl"></li>
<li id="n_1055" class="hl"><span class="hl kwa">sub </span>list_sic <span class="hl opt">{</span></li>
<li id="n_1056" class="hl"></li>
<li id="n_1057" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">sic</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1058" class="hl"></li>
<li id="n_1059" class="hl">  <span class="hl kwb">$href </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_sic&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;oldsort=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{oldsort}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1060" class="hl">  </li>
<li id="n_1061" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_order</span><span class="hl opt">();</span></li>
<li id="n_1062" class="hl"></li>
<li id="n_1063" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_sic&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;oldsort=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{oldsort}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1064" class="hl">  </li>
<li id="n_1065" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">});</span></li>
<li id="n_1066" class="hl">  </li>
<li id="n_1067" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Standard Industrial Codes&#39;</span><span class="hl opt">);</span></li>
<li id="n_1068" class="hl"></li>
<li id="n_1069" class="hl">  <span class="hl kwb">&#64;column_index </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_columns</span><span class="hl opt">(</span><span class="hl sng">qw(code description)</span><span class="hl opt">);</span></li>
<li id="n_1070" class="hl"></li>
<li id="n_1071" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>code<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href&amp;sort</span><span class="hl opt">=</span>code<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Code&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_1072" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href&amp;sort</span><span class="hl opt">=</span>description<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_1073" class="hl"></li>
<li id="n_1074" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1075" class="hl"></li>
<li id="n_1076" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1077" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1078" class="hl"></li>
<li id="n_1079" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1080" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1081" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1082" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1083" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1084" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1085" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1086" class="hl">      <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1087" class="hl">        <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1088" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1089" class="hl"></li>
<li id="n_1090" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_1091" class="hl"></li>
<li id="n_1092" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1093" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1094" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1095" class="hl"></li>
<li id="n_1096" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }) {</span></li>
<li id="n_1097" class="hl">    </li>
<li id="n_1098" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_1099" class="hl">    </li>
<li id="n_1100" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>sictype<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;H&#39;</span><span class="hl opt">) {</span></li>
<li id="n_1101" class="hl">      <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1102" class="hl">        <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1103" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1104" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>code<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>edit_sic<span class="hl opt">&amp;</span>code<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>callback<span class="hl opt">=</span><span class="hl kwb">$callback</span><span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_1105" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_1106" class="hl">     </li>
<li id="n_1107" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_1108" class="hl">      <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1109" class="hl">        <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span>listrow<span class="hl kwb">$i</span><span class="hl opt">&gt;</span></li>
<li id="n_1110" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1111" class="hl"></li>
<li id="n_1112" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>code<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>edit_sic<span class="hl opt">&amp;</span>code<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>callback<span class="hl opt">=</span><span class="hl kwb">$callback</span><span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_1113" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_1114" class="hl"></li>
<li id="n_1115" class="hl">   <span class="hl opt">}</span></li>
<li id="n_1116" class="hl">    </li>
<li id="n_1117" class="hl">   <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_1118" class="hl"></li>
<li id="n_1119" class="hl">   <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1120" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1121" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1122" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1123" class="hl"></li>
<li id="n_1124" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1125" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1126" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1127" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1128" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1129" class="hl">  <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1130" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1131" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1132" class="hl"></li>
<li id="n_1133" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_1134" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1135" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1136" class="hl"></li>
<li id="n_1137" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;sic&quot;</span><span class="hl opt">;</span></li>
<li id="n_1138" class="hl">  </li>
<li id="n_1139" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(type callback path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_1140" class="hl">  </li>
<li id="n_1141" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1142" class="hl"><span class="hl opt">&lt;</span>button <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;add_sic&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Add SIC&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_1143" class="hl"></li>
<li id="n_1144" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_1145" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_1146" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_1147" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1148" class="hl"></li>
<li id="n_1149" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1150" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_1151" class="hl">  </li>
<li id="n_1152" class="hl">  <span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1153" class="hl">  <span class="hl opt">&lt;/</span>html<span class="hl opt">&gt; </span></li>
<li id="n_1154" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1155" class="hl">  </li>
<li id="n_1156" class="hl"><span class="hl opt">}</span></li>
<li id="n_1157" class="hl"></li>
<li id="n_1158" class="hl"></li>
<li id="n_1159" class="hl"><span class="hl kwa">sub </span>sic_header <span class="hl opt">{</span></li>
<li id="n_1160" class="hl"></li>
<li id="n_1161" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} SIC&quot;</span><span class="hl opt">);</span></li>
<li id="n_1162" class="hl"></li>
<li id="n_1163" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Add SIC&#39;)</span></li>
<li id="n_1164" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Edit SIC&#39;)</span></li>
<li id="n_1165" class="hl"></li>
<li id="n_1166" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(code description)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">quote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_1167" class="hl"></li>
<li id="n_1168" class="hl">  <span class="hl kwb">$checked </span><span class="hl opt">= (</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sictype<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;H&#39;</span><span class="hl opt">) ? </span><span class="hl sng">&quot;checked&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;&quot;</span><span class="hl opt">;</span></li>
<li id="n_1169" class="hl"></li>
<li id="n_1170" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1171" class="hl"></li>
<li id="n_1172" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1173" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1174" class="hl"></li>
<li id="n_1175" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1176" class="hl"></li>
<li id="n_1177" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>sic<span class="hl opt">&gt;</span></li>
<li id="n_1178" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>id value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1179" class="hl"></li>
<li id="n_1180" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1181" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1182" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1183" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1184" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1185" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1186" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Code&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1187" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>code size<span class="hl opt">=</span><span class="hl num">10 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1188" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1189" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1190" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1191" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span>left<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>sictype <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span><span class="hl sng">&quot;H&quot;</span> <span class="hl kwb">$checked</span><span class="hl opt">&gt; |.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Heading&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1192" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1193" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1194" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1195" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>description size<span class="hl opt">=</span><span class="hl num">60 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1196" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1197" class="hl">    <span class="hl opt">&lt;</span>td colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1198" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1199" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1200" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1201" class="hl"></li>
<li id="n_1202" class="hl"><span class="hl opt">}</span></li>
<li id="n_1203" class="hl"></li>
<li id="n_1204" class="hl"></li>
<li id="n_1205" class="hl"><span class="hl kwa">sub </span>save_sic <span class="hl opt">{</span></li>
<li id="n_1206" class="hl"></li>
<li id="n_1207" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;code&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Code missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1208" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;description&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1209" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_sic</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1210" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;SIC saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1211" class="hl"></li>
<li id="n_1212" class="hl"><span class="hl opt">}</span></li>
<li id="n_1213" class="hl"></li>
<li id="n_1214" class="hl"></li>
<li id="n_1215" class="hl"><span class="hl kwa">sub </span>delete_sic <span class="hl opt">{</span></li>
<li id="n_1216" class="hl"></li>
<li id="n_1217" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">delete_sic</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1218" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;SIC deleted!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1219" class="hl"></li>
<li id="n_1220" class="hl"><span class="hl opt">}</span></li>
<li id="n_1221" class="hl"></li>
<li id="n_1222" class="hl"></li>
<li id="n_1223" class="hl"><span class="hl kwa">sub </span>add_language <span class="hl opt">{</span></li>
<li id="n_1224" class="hl"></li>
<li id="n_1225" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Add&quot;</span><span class="hl opt">;</span></li>
<li id="n_1226" class="hl">  </li>
<li id="n_1227" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=add_language&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span> <span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">};</span></li>
<li id="n_1228" class="hl"></li>
<li id="n_1229" class="hl">  <span class="hl opt">&amp;</span>language_header<span class="hl opt">;</span></li>
<li id="n_1230" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_1231" class="hl"></li>
<li id="n_1232" class="hl"><span class="hl opt">}</span></li>
<li id="n_1233" class="hl"></li>
<li id="n_1234" class="hl"></li>
<li id="n_1235" class="hl"><span class="hl kwa">sub </span>edit_language <span class="hl opt">{</span></li>
<li id="n_1236" class="hl"></li>
<li id="n_1237" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Edit&quot;</span><span class="hl opt">;</span></li>
<li id="n_1238" class="hl"></li>
<li id="n_1239" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">} =~ </span><span class="hl kwd">s/\\&#39;/&#39;/g</span><span class="hl opt">;</span></li>
<li id="n_1240" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">} =~ </span><span class="hl kwd">s/\\\\/\\/g</span><span class="hl opt">;</span></li>
<li id="n_1241" class="hl">  </li>
<li id="n_1242" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">get_language</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1243" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">};</span></li>
<li id="n_1244" class="hl"></li>
<li id="n_1245" class="hl">  <span class="hl opt">&amp;</span>language_header<span class="hl opt">;</span></li>
<li id="n_1246" class="hl"></li>
<li id="n_1247" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>orphaned<span class="hl opt">} = </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_1248" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_1249" class="hl"></li>
<li id="n_1250" class="hl"><span class="hl opt">}</span></li>
<li id="n_1251" class="hl"></li>
<li id="n_1252" class="hl"></li>
<li id="n_1253" class="hl"><span class="hl kwa">sub </span>list_language <span class="hl opt">{</span></li>
<li id="n_1254" class="hl"></li>
<li id="n_1255" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">language</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1256" class="hl"></li>
<li id="n_1257" class="hl">  <span class="hl kwb">$href </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_language&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;oldsort=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{oldsort}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1258" class="hl">  </li>
<li id="n_1259" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_order</span><span class="hl opt">();</span></li>
<li id="n_1260" class="hl"></li>
<li id="n_1261" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_language&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;oldsort=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{oldsort}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1262" class="hl">  </li>
<li id="n_1263" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">});</span></li>
<li id="n_1264" class="hl">  </li>
<li id="n_1265" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Languages&#39;</span><span class="hl opt">);</span></li>
<li id="n_1266" class="hl"></li>
<li id="n_1267" class="hl">  <span class="hl kwb">&#64;column_index </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_columns</span><span class="hl opt">(</span><span class="hl sng">qw(code description)</span><span class="hl opt">);</span></li>
<li id="n_1268" class="hl"></li>
<li id="n_1269" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>code<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href&amp;sort</span><span class="hl opt">=</span>code<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Code&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_1270" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href&amp;sort</span><span class="hl opt">=</span>description<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_1271" class="hl"></li>
<li id="n_1272" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1273" class="hl"></li>
<li id="n_1274" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1275" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1276" class="hl"></li>
<li id="n_1277" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1278" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1279" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1280" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1281" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1282" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1283" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1284" class="hl">      <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1285" class="hl">        <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1286" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1287" class="hl"></li>
<li id="n_1288" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_1289" class="hl"></li>
<li id="n_1290" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1291" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1292" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1293" class="hl"></li>
<li id="n_1294" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }) {</span></li>
<li id="n_1295" class="hl">    </li>
<li id="n_1296" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_1297" class="hl"></li>
<li id="n_1298" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1299" class="hl">        <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span>listrow<span class="hl kwb">$i</span><span class="hl opt">&gt;</span></li>
<li id="n_1300" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1301" class="hl"></li>
<li id="n_1302" class="hl">    <span class="hl kwb">$column_data</span><span class="hl opt">{</span>code<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>edit_language<span class="hl opt">&amp;</span>code<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>callback<span class="hl opt">=</span><span class="hl kwb">$callback</span><span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_1303" class="hl">    <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_1304" class="hl">    </li>
<li id="n_1305" class="hl">   <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_1306" class="hl"></li>
<li id="n_1307" class="hl">   <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1308" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1309" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1310" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1311" class="hl"></li>
<li id="n_1312" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1313" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1314" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1315" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1316" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1317" class="hl">  <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1318" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1319" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1320" class="hl"></li>
<li id="n_1321" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_1322" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1323" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1324" class="hl"></li>
<li id="n_1325" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;language&quot;</span><span class="hl opt">;</span></li>
<li id="n_1326" class="hl"></li>
<li id="n_1327" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(type callback path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_1328" class="hl">  </li>
<li id="n_1329" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1330" class="hl"><span class="hl opt">&lt;</span>button <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;add_language&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Add Language&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_1331" class="hl"></li>
<li id="n_1332" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_1333" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_1334" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_1335" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1336" class="hl"></li>
<li id="n_1337" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1338" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_1339" class="hl">  </li>
<li id="n_1340" class="hl">  <span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1341" class="hl">  <span class="hl opt">&lt;/</span>html<span class="hl opt">&gt; </span></li>
<li id="n_1342" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1343" class="hl">  </li>
<li id="n_1344" class="hl"><span class="hl opt">}</span></li>
<li id="n_1345" class="hl"></li>
<li id="n_1346" class="hl"></li>
<li id="n_1347" class="hl"><span class="hl kwa">sub </span>language_header <span class="hl opt">{</span></li>
<li id="n_1348" class="hl"></li>
<li id="n_1349" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} Language&quot;</span><span class="hl opt">);</span></li>
<li id="n_1350" class="hl"></li>
<li id="n_1351" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Add Language&#39;)</span></li>
<li id="n_1352" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Edit Language&#39;)</span></li>
<li id="n_1353" class="hl"></li>
<li id="n_1354" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(code description)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">quote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_1355" class="hl"></li>
<li id="n_1356" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1357" class="hl"></li>
<li id="n_1358" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1359" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1360" class="hl"></li>
<li id="n_1361" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1362" class="hl"></li>
<li id="n_1363" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>language<span class="hl opt">&gt;</span></li>
<li id="n_1364" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>id value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1365" class="hl"></li>
<li id="n_1366" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1367" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1368" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1369" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1370" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1371" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1372" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Code&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1373" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>code size<span class="hl opt">=</span><span class="hl num">10 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1374" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1375" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1376" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1377" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>description size<span class="hl opt">=</span><span class="hl num">60 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1378" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1379" class="hl">    <span class="hl opt">&lt;</span>td colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1380" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1381" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1382" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1383" class="hl"></li>
<li id="n_1384" class="hl"><span class="hl opt">}</span></li>
<li id="n_1385" class="hl"></li>
<li id="n_1386" class="hl"></li>
<li id="n_1387" class="hl"><span class="hl kwa">sub </span>save_language <span class="hl opt">{</span></li>
<li id="n_1388" class="hl"></li>
<li id="n_1389" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;code&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Code missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1390" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;description&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1391" class="hl"></li>
<li id="n_1392" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">} =~ </span><span class="hl kwd">s/(\.\.|\*)//g</span><span class="hl opt">;</span></li>
<li id="n_1393" class="hl">  </li>
<li id="n_1394" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_language</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1395" class="hl"></li>
<li id="n_1396" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(! -</span>d <span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}&quot;</span><span class="hl opt">) {</span></li>
<li id="n_1397" class="hl">      </li>
<li id="n_1398" class="hl">    <span class="hl kwc">umask</span><span class="hl opt">(</span><span class="hl num">002</span><span class="hl opt">);</span></li>
<li id="n_1399" class="hl">    </li>
<li id="n_1400" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwc">mkdir </span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}&quot;</span><span class="hl opt">, </span><span class="hl kwc">oct</span><span class="hl opt">(</span><span class="hl sng">&quot;771&quot;</span><span class="hl opt">)) {</span></li>
<li id="n_1401" class="hl">      </li>
<li id="n_1402" class="hl">      <span class="hl kwc">umask</span><span class="hl opt">(</span><span class="hl num">007</span><span class="hl opt">);</span></li>
<li id="n_1403" class="hl"></li>
<li id="n_1404" class="hl">      <span class="hl kwc">opendir </span>TEMPLATEDIR<span class="hl opt">, </span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}&quot;</span> <span class="hl kwc">or </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates} : </span><span class="hl ipl">$!</span><span class="hl sng">&quot;</span><span class="hl opt">);</span></li>
<li id="n_1405" class="hl">      <span class="hl kwb">&#64;templates </span><span class="hl opt">= </span><span class="hl kwc">grep </span><span class="hl opt">!</span><span class="hl kwd">/^(\.|\.\.)/</span><span class="hl opt">, </span><span class="hl kwc">readdir </span>TEMPLATEDIR<span class="hl opt">;</span></li>
<li id="n_1406" class="hl">      <span class="hl kwc">closedir </span>TEMPLATEDIR<span class="hl opt">;</span></li>
<li id="n_1407" class="hl"></li>
<li id="n_1408" class="hl">      <span class="hl kwa">foreach </span><span class="hl kwb">$file </span><span class="hl opt">(</span><span class="hl kwb">&#64;templates</span><span class="hl opt">) {</span></li>
<li id="n_1409" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(-</span>f <span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$file</span><span class="hl sng">&quot;</span><span class="hl opt">) {</span></li>
<li id="n_1410" class="hl">      <span class="hl kwc">open</span><span class="hl opt">(</span>TEMP<span class="hl opt">, </span><span class="hl sng">&#39;&lt;&#39;</span><span class="hl opt">, </span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$file</span><span class="hl sng">&quot;</span><span class="hl opt">) </span><span class="hl kwc">or </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$file </span><span class="hl sng">: </span><span class="hl ipl">$!</span><span class="hl sng">&quot;</span><span class="hl opt">);</span></li>
<li id="n_1411" class="hl"></li>
<li id="n_1412" class="hl">      <span class="hl kwc">open</span><span class="hl opt">(</span>NEW<span class="hl opt">, </span><span class="hl sng">&#39;&gt;&#39;</span><span class="hl opt">, </span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}/</span><span class="hl ipl">$file</span><span class="hl sng">&quot;</span><span class="hl opt">) </span><span class="hl kwc">or </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}/</span><span class="hl ipl">$file </span><span class="hl sng">: </span><span class="hl ipl">$!</span><span class="hl sng">&quot;</span><span class="hl opt">);</span></li>
<li id="n_1413" class="hl"></li>
<li id="n_1414" class="hl">      <span class="hl kwa">while </span><span class="hl opt">(</span><span class="hl kwb">$line </span><span class="hl opt">= &lt;</span>TEMP<span class="hl opt">&gt;) {</span></li>
<li id="n_1415" class="hl">        <span class="hl kwc">print </span>NEW <span class="hl kwb">$line</span><span class="hl opt">;</span></li>
<li id="n_1416" class="hl">      <span class="hl opt">}</span></li>
<li id="n_1417" class="hl">      <span class="hl kwc">close</span><span class="hl opt">(</span>TEMP<span class="hl opt">);</span></li>
<li id="n_1418" class="hl">      <span class="hl kwc">close</span><span class="hl opt">(</span>NEW<span class="hl opt">);</span></li>
<li id="n_1419" class="hl">    <span class="hl opt">}</span></li>
<li id="n_1420" class="hl">      <span class="hl opt">}</span></li>
<li id="n_1421" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_1422" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl sng">&quot;${templates}/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code} : </span><span class="hl ipl">$!</span><span class="hl sng">&quot;</span><span class="hl opt">);</span></li>
<li id="n_1423" class="hl">    <span class="hl opt">}</span></li>
<li id="n_1424" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1425" class="hl">    </li>
<li id="n_1426" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Language saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1427" class="hl"></li>
<li id="n_1428" class="hl"><span class="hl opt">}</span></li>
<li id="n_1429" class="hl"></li>
<li id="n_1430" class="hl"></li>
<li id="n_1431" class="hl"><span class="hl kwa">sub </span>delete_language <span class="hl opt">{</span></li>
<li id="n_1432" class="hl"></li>
<li id="n_1433" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Confirm!&#39;</span><span class="hl opt">);</span></li>
<li id="n_1434" class="hl"></li>
<li id="n_1435" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1436" class="hl"></li>
<li id="n_1437" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1438" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1439" class="hl"></li>
<li id="n_1440" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1441" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1442" class="hl"></li>
<li id="n_1443" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(action nextsub)</span><span class="hl opt">) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_1444" class="hl">  </li>
<li id="n_1445" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">;</span></li>
<li id="n_1446" class="hl"></li>
<li id="n_1447" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1448" class="hl"><span class="hl opt">&lt;</span>h2 <span class="hl kwa">class</span><span class="hl opt">=</span>confirm<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>h2<span class="hl opt">&gt;</span></li>
<li id="n_1449" class="hl"></li>
<li id="n_1450" class="hl"><span class="hl opt">&lt;</span>h4<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Deleting a language will also delete the templates for the language [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">}).</span>qq<span class="hl opt">|&lt;/</span>h4<span class="hl opt">&gt;</span></li>
<li id="n_1451" class="hl"></li>
<li id="n_1452" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>action value<span class="hl opt">=</span><span class="hl kwa">continue</span><span class="hl opt">&gt;</span></li>
<li id="n_1453" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>nextsub value<span class="hl opt">=</span>yes_delete_language<span class="hl opt">&gt;</span></li>
<li id="n_1454" class="hl"><span class="hl opt">&lt;</span>button name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;continue&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Continue&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;</span></li>
<li id="n_1455" class="hl"><span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_1456" class="hl"></li>
<li id="n_1457" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1458" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_1459" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1460" class="hl"></li>
<li id="n_1461" class="hl"><span class="hl opt">}</span></li>
<li id="n_1462" class="hl"></li>
<li id="n_1463" class="hl"></li>
<li id="n_1464" class="hl"><span class="hl kwa">sub </span>yes_delete_language <span class="hl opt">{</span></li>
<li id="n_1465" class="hl">  </li>
<li id="n_1466" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">delete_language</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1467" class="hl"></li>
<li id="n_1468" class="hl">  <span class="hl slc"># delete templates</span></li>
<li id="n_1469" class="hl">  <span class="hl kwb">$dir </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1470" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(-</span>d <span class="hl kwb">$dir</span><span class="hl opt">) {</span></li>
<li id="n_1471" class="hl">    <span class="hl kwc">unlink </span><span class="hl opt">&lt;</span><span class="hl kwb">$dir/*</span><span class="hl opt">&gt;;</span></li>
<li id="n_1472" class="hl">    <span class="hl kwc">rmdir </span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{templates}/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{code}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1473" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1474" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Language deleted!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1475" class="hl"></li>
<li id="n_1476" class="hl"><span class="hl opt">}</span></li>
<li id="n_1477" class="hl"></li>
<li id="n_1478" class="hl"></li>
<li id="n_1479" class="hl"><span class="hl kwa">sub </span>display_stylesheet <span class="hl opt">{</span></li>
<li id="n_1480" class="hl">  </li>
<li id="n_1481" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">} = </span><span class="hl sng">&quot;css/</span><span class="hl ipl">$myconfig</span><span class="hl sng">{stylesheet}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1482" class="hl">  <span class="hl opt">&amp;</span>display_form<span class="hl opt">;</span></li>
<li id="n_1483" class="hl">  </li>
<li id="n_1484" class="hl"><span class="hl opt">}</span></li>
<li id="n_1485" class="hl"></li>
<li id="n_1486" class="hl"></li>
<li id="n_1487" class="hl"><span class="hl kwa">sub </span>list_templates <span class="hl opt">{</span></li>
<li id="n_1488" class="hl"></li>
<li id="n_1489" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">language</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1490" class="hl">  </li>
<li id="n_1491" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(! &#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }) {</span></li>
<li id="n_1492" class="hl">    <span class="hl opt">&amp;</span>display_form<span class="hl opt">;</span></li>
<li id="n_1493" class="hl">    <span class="hl kwa">exit</span><span class="hl opt">;</span></li>
<li id="n_1494" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1495" class="hl"></li>
<li id="n_1496" class="hl">  <span class="hl kwc">unshift </span><span class="hl opt">&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }, { </span>code <span class="hl opt">=&gt; </span><span class="hl sng">&#39;.&#39;</span><span class="hl opt">, </span>description <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Default Template&#39;</span><span class="hl opt">) };</span></li>
<li id="n_1497" class="hl">  </li>
<li id="n_1498" class="hl">  <span class="hl kwb">$href </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_templates&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;oldsort=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{oldsort}&amp;file=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{file}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1499" class="hl">  </li>
<li id="n_1500" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_order</span><span class="hl opt">();</span></li>
<li id="n_1501" class="hl"></li>
<li id="n_1502" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_templates&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;oldsort=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{oldsort}&amp;file=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{file}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_1503" class="hl">  </li>
<li id="n_1504" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">});</span></li>
<li id="n_1505" class="hl"></li>
<li id="n_1506" class="hl">  <span class="hl kwc">chomp </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>templates<span class="hl opt">};</span></li>
<li id="n_1507" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">} =~ </span><span class="hl kwd">s/$myconfig{templates}//</span><span class="hl opt">;</span></li>
<li id="n_1508" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">} =~ </span><span class="hl kwd">s/\//</span><span class="hl opt">/;</span></li>
<li id="n_1509" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">};</span></li>
<li id="n_1510" class="hl"></li>
<li id="n_1511" class="hl">  <span class="hl kwb">&#64;column_index </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_columns</span><span class="hl opt">(</span><span class="hl sng">qw(code description)</span><span class="hl opt">);</span></li>
<li id="n_1512" class="hl"></li>
<li id="n_1513" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>code<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href&amp;sort</span><span class="hl opt">=</span>code<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Code&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_1514" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href&amp;sort</span><span class="hl opt">=</span>description<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_1515" class="hl"></li>
<li id="n_1516" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1517" class="hl"></li>
<li id="n_1518" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1519" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1520" class="hl"></li>
<li id="n_1521" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1522" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1523" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1524" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1525" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1526" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1527" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1528" class="hl">      <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1529" class="hl">        <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1530" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1531" class="hl"></li>
<li id="n_1532" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_1533" class="hl"></li>
<li id="n_1534" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1535" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1536" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1537" class="hl"></li>
<li id="n_1538" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }) {</span></li>
<li id="n_1539" class="hl">    </li>
<li id="n_1540" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_1541" class="hl"></li>
<li id="n_1542" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1543" class="hl">        <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span>listrow<span class="hl kwb">$i</span><span class="hl opt">&gt;</span></li>
<li id="n_1544" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1545" class="hl"></li>
<li id="n_1546" class="hl">    <span class="hl kwb">$column_data</span><span class="hl opt">{</span>code<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>display_form<span class="hl opt">&amp;</span>file<span class="hl opt">=</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>templates<span class="hl opt">}</span><span class="hl kwd">/$ref-&gt;{code}/</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>code<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}&amp;</span>callback<span class="hl opt">=</span><span class="hl kwb">$callback</span><span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_1547" class="hl">    <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_1548" class="hl">    </li>
<li id="n_1549" class="hl">   <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_1550" class="hl"></li>
<li id="n_1551" class="hl">   <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1552" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1553" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1554" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1555" class="hl"></li>
<li id="n_1556" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1557" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1558" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1559" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1560" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1561" class="hl">  <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1562" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1563" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1564" class="hl"></li>
<li id="n_1565" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_1566" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1567" class="hl"></li>
<li id="n_1568" class="hl"><span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>callback type<span class="hl opt">=</span>hidden value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{callback}&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1569" class="hl"></li>
<li id="n_1570" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>language<span class="hl opt">&gt;</span></li>
<li id="n_1571" class="hl"></li>
<li id="n_1572" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>path value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&gt;</span></li>
<li id="n_1573" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>login value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&gt;</span></li>
<li id="n_1574" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>sessionid value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&gt;</span></li>
<li id="n_1575" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1576" class="hl"></li>
<li id="n_1577" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_1578" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_1579" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_1580" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1581" class="hl"></li>
<li id="n_1582" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1583" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_1584" class="hl">  </li>
<li id="n_1585" class="hl">  <span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1586" class="hl">  <span class="hl opt">&lt;/</span>html<span class="hl opt">&gt; </span></li>
<li id="n_1587" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1588" class="hl">  </li>
<li id="n_1589" class="hl"><span class="hl opt">}</span></li>
<li id="n_1590" class="hl"></li>
<li id="n_1591" class="hl"></li>
<li id="n_1592" class="hl"><span class="hl kwa">sub </span>display_form <span class="hl opt">{</span></li>
<li id="n_1593" class="hl"></li>
<li id="n_1594" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">load_template</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1595" class="hl"></li>
<li id="n_1596" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">};</span></li>
<li id="n_1597" class="hl"></li>
<li id="n_1598" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>body<span class="hl opt">} =~ </span><span class="hl kwd">s/&lt;%include (.*?)%&gt;/&lt;a href=$form-&gt;{script}\?action=display_form&amp;file=$myconfig{templates}\/</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>code<span class="hl opt">}</span>\<span class="hl kwd">/$1&amp;path=$form-&gt;{path}&amp;login=$form-&gt;{login}&amp;sessionid=$form-&gt;{sessionid}&gt;$1&lt;\/a</span><span class="hl opt">&gt;/</span>g<span class="hl opt">;</span></li>
<li id="n_1599" class="hl"></li>
<li id="n_1600" class="hl">  <span class="hl slc"># if it is anything but html</span></li>
<li id="n_1601" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">} !~ </span><span class="hl kwd">/\.html$/</span><span class="hl opt">) {</span></li>
<li id="n_1602" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>body<span class="hl opt">} = </span><span class="hl sng">&quot;&lt;pre&gt;</span><span class="hl esc">\n</span><span class="hl sng"></span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{body}</span><span class="hl esc">\n</span><span class="hl sng">&lt;/pre&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_1603" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1604" class="hl">    </li>
<li id="n_1605" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1606" class="hl"></li>
<li id="n_1607" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1608" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1609" class="hl"></li>
<li id="n_1610" class="hl"><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>body<span class="hl opt">}</span></li>
<li id="n_1611" class="hl"></li>
<li id="n_1612" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1613" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1614" class="hl"></li>
<li id="n_1615" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;template&quot;</span><span class="hl opt">;</span></li>
<li id="n_1616" class="hl"></li>
<li id="n_1617" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(file type path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_1618" class="hl">  </li>
<li id="n_1619" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1620" class="hl"><span class="hl opt">&lt;</span>button name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;edit&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Edit&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_1621" class="hl"></li>
<li id="n_1622" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_1623" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_1624" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_1625" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1626" class="hl"></li>
<li id="n_1627" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1628" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_1629" class="hl"></li>
<li id="n_1630" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1631" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_1632" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1633" class="hl"></li>
<li id="n_1634" class="hl"><span class="hl opt">}</span></li>
<li id="n_1635" class="hl"></li>
<li id="n_1636" class="hl"></li>
<li id="n_1637" class="hl"><span class="hl kwa">sub </span>edit_template <span class="hl opt">{</span></li>
<li id="n_1638" class="hl"></li>
<li id="n_1639" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">load_template</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1640" class="hl"></li>
<li id="n_1641" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Edit Template&#39;</span><span class="hl opt">);</span></li>
<li id="n_1642" class="hl">  <span class="hl slc"># convert &amp;nbsp to &amp;amp;nbsp;</span></li>
<li id="n_1643" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>body<span class="hl opt">} =~ </span><span class="hl kwd">s/&amp;nbsp;/&amp;amp;nbsp;/gi</span><span class="hl opt">;</span></li>
<li id="n_1644" class="hl">  </li>
<li id="n_1645" class="hl"></li>
<li id="n_1646" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1647" class="hl">  </li>
<li id="n_1648" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1649" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1650" class="hl"></li>
<li id="n_1651" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1652" class="hl"></li>
<li id="n_1653" class="hl"><span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>file type<span class="hl opt">=</span>hidden value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>file<span class="hl opt">}&gt;</span></li>
<li id="n_1654" class="hl"><span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>type type<span class="hl opt">=</span>hidden value<span class="hl opt">=</span>template<span class="hl opt">&gt;</span></li>
<li id="n_1655" class="hl"></li>
<li id="n_1656" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>path value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&gt;</span></li>
<li id="n_1657" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>login value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&gt;</span></li>
<li id="n_1658" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>sessionid value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&gt;</span></li>
<li id="n_1659" class="hl"></li>
<li id="n_1660" class="hl"><span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>callback type<span class="hl opt">=</span>hidden value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=display_form&amp;file=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{file}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1661" class="hl"></li>
<li id="n_1662" class="hl"><span class="hl opt">&lt;</span>textarea name<span class="hl opt">=</span>body rows<span class="hl opt">=</span><span class="hl num">25 </span>cols<span class="hl opt">=</span><span class="hl num">70</span><span class="hl opt">&gt;</span></li>
<li id="n_1663" class="hl"><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>body<span class="hl opt">}</span></li>
<li id="n_1664" class="hl"><span class="hl opt">&lt;/</span>textarea<span class="hl opt">&gt;</span></li>
<li id="n_1665" class="hl"></li>
<li id="n_1666" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_1667" class="hl"><span class="hl opt">&lt;</span>button type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;save&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Save&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_1668" class="hl"></li>
<li id="n_1669" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_1670" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_1671" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_1672" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1673" class="hl"></li>
<li id="n_1674" class="hl">  <span class="hl kwc">print </span>q<span class="hl opt">|</span></li>
<li id="n_1675" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_1676" class="hl"></li>
<li id="n_1677" class="hl"></li>
<li id="n_1678" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1679" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_1680" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1681" class="hl"></li>
<li id="n_1682" class="hl"><span class="hl opt">}</span></li>
<li id="n_1683" class="hl"></li>
<li id="n_1684" class="hl"></li>
<li id="n_1685" class="hl"><span class="hl kwa">sub </span>save_template <span class="hl opt">{</span></li>
<li id="n_1686" class="hl"></li>
<li id="n_1687" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_template</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1688" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Template saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_1689" class="hl">  </li>
<li id="n_1690" class="hl"><span class="hl opt">}</span></li>
<li id="n_1691" class="hl"></li>
<li id="n_1692" class="hl"></li>
<li id="n_1693" class="hl"><span class="hl kwa">sub </span>defaults <span class="hl opt">{</span></li>
<li id="n_1694" class="hl">  </li>
<li id="n_1695" class="hl">  <span class="hl slc"># get defaults for account numbers and last numbers</span></li>
<li id="n_1696" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">get_all_defaults</span><span class="hl opt">(</span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1697" class="hl"></li>
<li id="n_1698" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$key </span><span class="hl opt">(</span><span class="hl kwc">keys </span><span class="hl opt">%{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">} }) {</span></li>
<li id="n_1699" class="hl">    <span class="hl kwa">foreach </span><span class="hl kwb">$accno </span><span class="hl opt">(</span><span class="hl kwc">sort keys </span><span class="hl opt">%{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">} }) {</span></li>
<li id="n_1700" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>account<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">} .= </span><span class="hl sng">&quot;&lt;option&gt;</span><span class="hl ipl">$accno</span><span class="hl sng">--</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{accno}{</span><span class="hl ipl">$key</span><span class="hl sng">}{</span><span class="hl ipl">$accno</span><span class="hl sng">}{description}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_1701" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}{</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">}{</span><span class="hl kwb">$accno</span><span class="hl opt">}{</span>id<span class="hl opt">}} = </span><span class="hl kwb">$accno</span><span class="hl opt">;</span></li>
<li id="n_1702" class="hl">    <span class="hl opt">}</span></li>
<li id="n_1703" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1704" class="hl"></li>
<li id="n_1705" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(IC IC_inventory IC_income IC_expense FX_gain FX_loss)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>account<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">} =~ </span><span class="hl kwd">s/&gt;$form-&gt;{accno}{$form-&gt;{defaults}{$_}}/ selected&gt;$form-&gt;{accno}{$form-&gt;{defaults}{$_}}/ </span><span class="hl opt">}</span></li>
<li id="n_1706" class="hl"></li>
<li id="n_1707" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(accno defaults)</span><span class="hl opt">) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_1708" class="hl">  </li>
<li id="n_1709" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;System Defaults&#39;</span><span class="hl opt">);</span></li>
<li id="n_1710" class="hl">  </li>
<li id="n_1711" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1712" class="hl">  </li>
<li id="n_1713" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1714" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1715" class="hl"></li>
<li id="n_1716" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1717" class="hl"></li>
<li id="n_1718" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>defaults<span class="hl opt">&gt;</span></li>
<li id="n_1719" class="hl"></li>
<li id="n_1720" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1721" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;</span><span class="hl kwd">/th&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1722" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1723" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1724" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1725" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1726" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Business Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1727" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>businessnumber size<span class="hl opt">=</span><span class="hl num">25 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{businessnumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1728" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1729" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1730" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Weight Unit&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1731" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>weightunit size<span class="hl opt">=</span><span class="hl num">5 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{weightunit}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1732" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1733" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1734" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1735" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1736" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1737" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Last Numbers &amp; Default Accounts&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1738" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1739" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1740" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1741" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1742" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1743" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Inventory&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1744" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>IC<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>account<span class="hl opt">}{</span>IC<span class="hl opt">}&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1745" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1746" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1747" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Income&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1748" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>IC_income<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>account<span class="hl opt">}{</span>IC_income<span class="hl opt">}&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1749" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1750" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1751" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Expense&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1752" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>IC_expense<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>account<span class="hl opt">}{</span>IC_expense<span class="hl opt">}&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1753" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1754" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1755" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Foreign Exchange Gain&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1756" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>FX_gain<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>account<span class="hl opt">}{</span>FX_gain<span class="hl opt">}&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1757" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1758" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1759" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Foreign Exchange Loss&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1760" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>FX_loss<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>account<span class="hl opt">}{</span>FX_loss<span class="hl opt">}&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1761" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1762" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1763" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1764" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1765" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1766" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span>left<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1767" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1768" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1769" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1770" class="hl">    <span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>curr size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{curr}&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_1771" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1772" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1773" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1774" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1775" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1776" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1777" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GL Reference Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1778" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>glnumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{glnumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1779" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1780" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1781" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Sales Invoice/AR Transaction Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1782" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>sinumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sinumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1783" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1784" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1785" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Sales Order Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1786" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>sonumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sonumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1787" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1788" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1789" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Vendor Invoice/AP Transaction Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1790" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>vinumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{vinumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1791" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1792" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1793" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Purchase Order Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1794" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>ponumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{ponumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1795" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1796" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1797" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Sales Quotation Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1798" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>sqnumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sqnumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1799" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1800" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1801" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;RFQ Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1802" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>rfqnumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rfqnumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1803" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1804" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1805" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Part Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1806" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>partnumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{partnumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1807" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1808" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1809" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Job/Project Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1810" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>projectnumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{projectnumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1811" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1812" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1813" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Employee Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1814" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>employeenumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{employeenumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1815" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1816" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1817" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Customer Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1818" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>customernumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{customernumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1819" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1820" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1821" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Vendor Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1822" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>vendornumber size<span class="hl opt">=</span><span class="hl num">40 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{vendornumber}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1823" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1824" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1825" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1826" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1827" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1828" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1829" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1830" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1831" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1832" class="hl"></li>
<li id="n_1833" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_1834" class="hl">  </li>
<li id="n_1835" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1836" class="hl"><span class="hl opt">&lt;</span>button type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;save&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Save&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_1837" class="hl"></li>
<li id="n_1838" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_1839" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_1840" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_1841" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1842" class="hl"></li>
<li id="n_1843" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1844" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_1845" class="hl"></li>
<li id="n_1846" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1847" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_1848" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1849" class="hl"></li>
<li id="n_1850" class="hl"><span class="hl opt">}</span></li>
<li id="n_1851" class="hl"></li>
<li id="n_1852" class="hl"></li>
<li id="n_1853" class="hl"><span class="hl kwa">sub </span>taxes <span class="hl opt">{</span></li>
<li id="n_1854" class="hl">  </li>
<li id="n_1855" class="hl">  <span class="hl slc"># get tax account numbers</span></li>
<li id="n_1856" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">taxes</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_1857" class="hl"></li>
<li id="n_1858" class="hl">  <span class="hl kwb">$i </span><span class="hl opt">= </span><span class="hl num">0</span><span class="hl opt">;</span></li>
<li id="n_1859" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>taxrates<span class="hl opt">} }) {</span></li>
<li id="n_1860" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">;</span></li>
<li id="n_1861" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxrate_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>rate<span class="hl opt">});</span></li>
<li id="n_1862" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">};</span></li>
<li id="n_1863" class="hl">    </li>
<li id="n_1864" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(taxnumber validto pass taxmodulename)</span><span class="hl opt">) { </span></li>
<li id="n_1865" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">};</span></li>
<li id="n_1866" class="hl">    <span class="hl opt">}</span></li>
<li id="n_1867" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>taxaccounts<span class="hl opt">} .= </span><span class="hl sng">&quot;</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{id}_</span><span class="hl ipl">$i </span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_1868" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1869" class="hl">  <span class="hl kwc">chop </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>taxaccounts<span class="hl opt">};</span></li>
<li id="n_1870" class="hl">  </li>
<li id="n_1871" class="hl">  <span class="hl opt">&amp;</span>display_taxes<span class="hl opt">;</span></li>
<li id="n_1872" class="hl"></li>
<li id="n_1873" class="hl"><span class="hl opt">}</span></li>
<li id="n_1874" class="hl"></li>
<li id="n_1875" class="hl"></li>
<li id="n_1876" class="hl"><span class="hl kwa">sub </span>display_taxes <span class="hl opt">{</span></li>
<li id="n_1877" class="hl">  </li>
<li id="n_1878" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Taxes&#39;</span><span class="hl opt">);</span></li>
<li id="n_1879" class="hl">  </li>
<li id="n_1880" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_1881" class="hl">  </li>
<li id="n_1882" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1883" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1884" class="hl"></li>
<li id="n_1885" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_1886" class="hl"></li>
<li id="n_1887" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>taxes<span class="hl opt">&gt;</span></li>
<li id="n_1888" class="hl"></li>
<li id="n_1889" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_1890" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;</span><span class="hl kwd">/th&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1891" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1892" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1893" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1894" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1895" class="hl">      <span class="hl opt">&lt;</span>th<span class="hl opt">&gt;&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1896" class="hl">      <span class="hl opt">&lt;</span>th<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Rate&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">| (%)&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1897" class="hl">      <span class="hl opt">&lt;</span>th<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Number&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1898" class="hl">      <span class="hl opt">&lt;</span>th<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Valid To&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1899" class="hl">      <span class="hl opt">&lt;</span>th<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Ordering&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1900" class="hl">      <span class="hl opt">&lt;</span>th<span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Tax Rules&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1901" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1902" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1903" class="hl"></li>
<li id="n_1904" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwc">split</span><span class="hl opt">(</span><span class="hl kwd">/ /</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>taxaccounts<span class="hl opt">})) {</span></li>
<li id="n_1905" class="hl">    </li>
<li id="n_1906" class="hl">    <span class="hl opt">(</span><span class="hl kwb">$null</span><span class="hl opt">, </span><span class="hl kwb">$i</span><span class="hl opt">) = </span><span class="hl kwc">split </span><span class="hl kwd">/_/</span><span class="hl opt">, </span><span class="hl kwb">$_</span><span class="hl opt">;</span></li>
<li id="n_1907" class="hl">    </li>
<li id="n_1908" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxrate_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxrate_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">});</span></li>
<li id="n_1909" class="hl">    </li>
<li id="n_1910" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">);</span></li>
<li id="n_1911" class="hl">    </li>
<li id="n_1912" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1913" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1914" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|;</span></li>
<li id="n_1915" class="hl">      </li>
<li id="n_1916" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl kwb">$sametax</span><span class="hl opt">) {</span></li>
<li id="n_1917" class="hl">      <span class="hl kwc">print </span><span class="hl sng">&quot;&quot;</span><span class="hl opt">;</span></li>
<li id="n_1918" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_1919" class="hl">      <span class="hl kwc">print </span>qq<span class="hl opt">|</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">}|;</span></li>
<li id="n_1920" class="hl">    <span class="hl opt">}</span></li>
<li id="n_1921" class="hl">    </li>
<li id="n_1922" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_1923" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span><span class="hl sng">&quot;taxrate_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span> size<span class="hl opt">=</span><span class="hl num">6 </span>value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxrate_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">}&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1924" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span><span class="hl sng">&quot;taxnumber_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{&quot;</span>taxnumber_<span class="hl kwb">$i</span><span class="hl sng">&quot;}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1925" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span><span class="hl sng">&quot;validto_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span> size<span class="hl opt">=</span><span class="hl num">11 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{&quot;</span>validto_<span class="hl kwb">$i</span><span class="hl sng">&quot;}&quot;</span> title<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{dateformat}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1926" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span><span class="hl sng">&quot;pass_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span> size<span class="hl opt">=</span><span class="hl num">6 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{&quot;</span>pass_<span class="hl kwb">$i</span><span class="hl sng">&quot;}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1927" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span><span class="hl sng">&quot;taxmodule_id_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span> size<span class="hl opt">=</span><span class="hl num">1</span><span class="hl opt">&gt;|;</span></li>
<li id="n_1928" class="hl">    <span class="hl kwa">foreach </span><span class="hl kwc">my </span><span class="hl kwb">$taxmodule </span><span class="hl opt">(</span><span class="hl kwc">sort keys </span><span class="hl kwb">%$form</span><span class="hl opt">) {</span></li>
<li id="n_1929" class="hl">      <span class="hl kwa">next if </span><span class="hl opt">(</span><span class="hl kwb">$taxmodule </span><span class="hl opt">!~ </span><span class="hl kwd">/^taxmodule_/</span><span class="hl opt">);</span></li>
<li id="n_1930" class="hl">      <span class="hl kwa">next if </span><span class="hl opt">(</span><span class="hl kwb">$taxmodule </span><span class="hl opt">=~ </span><span class="hl kwd">/^taxmodule_id_/</span><span class="hl opt">);</span></li>
<li id="n_1931" class="hl">      <span class="hl kwc">my </span><span class="hl kwb">$modulenum </span><span class="hl opt">= </span><span class="hl kwb">$taxmodule</span><span class="hl opt">;</span></li>
<li id="n_1932" class="hl">      <span class="hl kwb">$modulenum </span><span class="hl opt">=~ </span><span class="hl kwd">s/^taxmodule_//</span><span class="hl opt">;</span></li>
<li id="n_1933" class="hl">      <span class="hl kwc">print </span><span class="hl sng">&#39;&lt;option label=&quot;&#39;</span><span class="hl opt">.</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$taxmodule</span><span class="hl opt">}.</span><span class="hl sng">&#39;&quot; value=&quot;&#39;</span><span class="hl opt">.</span><span class="hl kwb">$modulenum </span><span class="hl opt">. </span><span class="hl sng">&#39;&quot;&#39;</span><span class="hl opt">;</span></li>
<li id="n_1934" class="hl">      <span class="hl kwc">print </span><span class="hl sng">&quot; SELECTED &quot;</span> <span class="hl kwa">if </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$taxmodule</span><span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxmodulename_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">};</span></li>
<li id="n_1935" class="hl">      <span class="hl kwc">print </span><span class="hl sng">&quot;&gt;&quot;</span><span class="hl opt">.</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$taxmodule</span><span class="hl opt">}.</span><span class="hl sng">&quot;&lt;/option&gt;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_1936" class="hl">    <span class="hl opt">}</span></li>
<li id="n_1937" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1938" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt; |;</span></li>
<li id="n_1939" class="hl">    <span class="hl kwb">$sametax </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">};</span></li>
<li id="n_1940" class="hl">    </li>
<li id="n_1941" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1942" class="hl"></li>
<li id="n_1943" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1944" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1945" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1946" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1947" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1948" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_1949" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_1950" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_1951" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1952" class="hl"></li>
<li id="n_1953" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(taxaccounts path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_1954" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwc">my </span><span class="hl kwb">$taxmodule </span><span class="hl opt">(</span><span class="hl kwc">sort keys </span><span class="hl kwb">%$form</span><span class="hl opt">) {</span></li>
<li id="n_1955" class="hl">    <span class="hl kwa">next if </span><span class="hl opt">(</span><span class="hl kwb">$taxmodule </span><span class="hl opt">!~ </span><span class="hl kwd">/^taxmodule_/</span><span class="hl opt">);</span></li>
<li id="n_1956" class="hl">    <span class="hl kwa">next if </span><span class="hl opt">(</span><span class="hl kwb">$taxmodule </span><span class="hl opt">=~ </span><span class="hl kwd">/^taxmodule_id_/</span><span class="hl opt">);</span></li>
<li id="n_1957" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$taxmodule</span><span class="hl sng">&quot;</span><span class="hl opt">);</span></li>
<li id="n_1958" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1959" class="hl"></li>
<li id="n_1960" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1961" class="hl"><span class="hl opt">&lt;</span>button type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;update&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Update&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;</span></li>
<li id="n_1962" class="hl"><span class="hl opt">&lt;</span>button type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;save_taxes&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Save&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_1963" class="hl"></li>
<li id="n_1964" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_1965" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_1966" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_1967" class="hl">  <span class="hl opt">}</span></li>
<li id="n_1968" class="hl"></li>
<li id="n_1969" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_1970" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_1971" class="hl"></li>
<li id="n_1972" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_1973" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_1974" class="hl"><span class="hl opt">|;</span></li>
<li id="n_1975" class="hl"></li>
<li id="n_1976" class="hl"><span class="hl opt">}</span></li>
<li id="n_1977" class="hl"></li>
<li id="n_1978" class="hl"></li>
<li id="n_1979" class="hl"><span class="hl kwa">sub </span>update <span class="hl opt">{</span></li>
<li id="n_1980" class="hl"></li>
<li id="n_1981" class="hl">  <span class="hl kwb">&#64;a </span><span class="hl opt">= </span><span class="hl kwc">split </span><span class="hl kwd">/ /</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>taxaccounts<span class="hl opt">};</span></li>
<li id="n_1982" class="hl">  <span class="hl kwb">$ndx </span><span class="hl opt">= </span><span class="hl kwb">$#a </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_1983" class="hl">  </li>
<li id="n_1984" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$item </span><span class="hl opt">(</span><span class="hl kwb">&#64;a</span><span class="hl opt">) {</span></li>
<li id="n_1985" class="hl">    <span class="hl opt">(</span><span class="hl kwb">$accno</span><span class="hl opt">, </span><span class="hl kwb">$i</span><span class="hl opt">) = </span><span class="hl kwc">split </span><span class="hl kwd">/_/</span><span class="hl opt">, </span><span class="hl kwb">$item</span><span class="hl opt">;</span></li>
<li id="n_1986" class="hl">    <span class="hl kwc">push </span><span class="hl kwb">&#64;t</span><span class="hl opt">, </span><span class="hl kwb">$accno</span><span class="hl opt">;</span></li>
<li id="n_1987" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxmodulename_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxmodule_&quot;</span><span class="hl opt">.</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxmodule_id_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">}};</span></li>
<li id="n_1988" class="hl"></li>
<li id="n_1989" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;validto_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">}) {</span></li>
<li id="n_1990" class="hl">      <span class="hl kwb">$j </span><span class="hl opt">= </span><span class="hl kwb">$i </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_1991" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} </span><span class="hl kwc">ne </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">}) {</span></li>
<li id="n_1992" class="hl">    <span class="hl slc">#insert line</span></li>
<li id="n_1993" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">$j </span><span class="hl opt">= </span><span class="hl kwb">$ndx </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">; </span><span class="hl kwb">$j </span><span class="hl opt">&gt; </span><span class="hl kwb">$i</span><span class="hl opt">; </span><span class="hl kwb">$j</span><span class="hl opt">--) {</span></li>
<li id="n_1994" class="hl">      <span class="hl kwb">$k </span><span class="hl opt">= </span><span class="hl kwb">$j </span><span class="hl opt">- </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_1995" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(taxrate taxdescription taxnumber validto)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$k</span><span class="hl sng">&quot;</span><span class="hl opt">} }</span></li>
<li id="n_1996" class="hl">    <span class="hl opt">}</span></li>
<li id="n_1997" class="hl">    <span class="hl kwb">$ndx++</span><span class="hl opt">;</span></li>
<li id="n_1998" class="hl">    <span class="hl kwb">$k </span><span class="hl opt">= </span><span class="hl kwb">$i </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_1999" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(taxdescription taxnumber)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$k</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} }</span></li>
<li id="n_2000" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(taxrate validto)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$k</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl sng">&quot;&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2001" class="hl">    <span class="hl kwc">push </span><span class="hl kwb">&#64;t</span><span class="hl opt">, </span><span class="hl kwb">$accno</span><span class="hl opt">;</span></li>
<li id="n_2002" class="hl">      <span class="hl opt">}</span></li>
<li id="n_2003" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2004" class="hl">      <span class="hl slc"># remove line</span></li>
<li id="n_2005" class="hl">      <span class="hl kwb">$j </span><span class="hl opt">= </span><span class="hl kwb">$i </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2006" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;taxdescription_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">}) {</span></li>
<li id="n_2007" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">$j </span><span class="hl opt">= </span><span class="hl kwb">$i </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">; </span><span class="hl kwb">$j </span><span class="hl opt">&lt;= </span><span class="hl kwb">$ndx</span><span class="hl opt">; </span><span class="hl kwb">$j++</span><span class="hl opt">) {</span></li>
<li id="n_2008" class="hl">        <span class="hl kwb">$k </span><span class="hl opt">= </span><span class="hl kwb">$j </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2009" class="hl">        <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(taxrate taxdescription taxnumber validto)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$k</span><span class="hl sng">&quot;</span><span class="hl opt">} }</span></li>
<li id="n_2010" class="hl">      <span class="hl opt">}</span></li>
<li id="n_2011" class="hl">      <span class="hl kwb">$ndx</span><span class="hl opt">--;</span></li>
<li id="n_2012" class="hl">      <span class="hl kwc">splice </span><span class="hl kwb">&#64;t</span><span class="hl opt">, </span><span class="hl kwb">$i</span><span class="hl opt">-</span><span class="hl num">1</span><span class="hl opt">, </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2013" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2014" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2015" class="hl">    </li>
<li id="n_2016" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2017" class="hl"></li>
<li id="n_2018" class="hl">  <span class="hl kwb">$i </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2019" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>taxaccounts<span class="hl opt">} = </span><span class="hl sng">&quot;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2020" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;t</span><span class="hl opt">) {</span></li>
<li id="n_2021" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>taxaccounts<span class="hl opt">} .= </span><span class="hl sng">&quot;${_}_</span><span class="hl ipl">$i </span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_2022" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">;</span></li>
<li id="n_2023" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2024" class="hl">  <span class="hl kwc">chop </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>taxaccounts<span class="hl opt">};</span></li>
<li id="n_2025" class="hl"></li>
<li id="n_2026" class="hl">  <span class="hl opt">&amp;</span>display_taxes<span class="hl opt">;</span></li>
<li id="n_2027" class="hl">  </li>
<li id="n_2028" class="hl"><span class="hl opt">}</span></li>
<li id="n_2029" class="hl"></li>
<li id="n_2030" class="hl"></li>
<li id="n_2031" class="hl"></li>
<li id="n_2032" class="hl"><span class="hl kwa">sub </span>config <span class="hl opt">{</span></li>
<li id="n_2033" class="hl"></li>
<li id="n_2034" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$item </span><span class="hl opt">(</span><span class="hl sng">qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)</span><span class="hl opt">) {</span></li>
<li id="n_2035" class="hl">    <span class="hl kwb">$dateformat </span><span class="hl opt">.= (</span><span class="hl kwb">$item </span><span class="hl kwc">eq </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>dateformat<span class="hl opt">}) ? </span><span class="hl sng">&quot;&lt;option selected&gt;</span><span class="hl ipl">$item</span><span class="hl sng"></span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;&lt;option&gt;</span><span class="hl ipl">$item</span><span class="hl sng"></span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_2036" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2037" class="hl"></li>
<li id="n_2038" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">&#64;formats </span><span class="hl opt">= </span><span class="hl sng">qw(1,000.00 1000.00 1.000,00 1000,00 1&#39;000.00)</span><span class="hl opt">;</span></li>
<li id="n_2039" class="hl">  <span class="hl kwc">push </span><span class="hl kwb">&#64;formats</span><span class="hl opt">, </span><span class="hl sng">&#39;1 000.00&#39;</span><span class="hl opt">;</span></li>
<li id="n_2040" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$item </span><span class="hl opt">(</span><span class="hl kwb">&#64;formats</span><span class="hl opt">) {</span></li>
<li id="n_2041" class="hl">    <span class="hl kwb">$numberformat </span><span class="hl opt">.= (</span><span class="hl kwb">$item </span><span class="hl kwc">eq </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>numberformat<span class="hl opt">}) ? </span><span class="hl sng">&quot;&lt;option selected&gt;</span><span class="hl ipl">$item</span><span class="hl sng"></span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;&lt;option&gt;</span><span class="hl ipl">$item</span><span class="hl sng"></span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_2042" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2043" class="hl"></li>
<li id="n_2044" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(name company address signature)</span><span class="hl opt">) { </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">quote</span><span class="hl opt">(</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_2045" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(address signature)</span><span class="hl opt">) { </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} =~ </span><span class="hl kwd">s/\\n/\n/g </span><span class="hl opt">}</span></li>
<li id="n_2046" class="hl"></li>
<li id="n_2047" class="hl">  <span class="hl kwb">%countrycodes </span><span class="hl opt">= </span>LedgerSMB<span class="hl opt">::</span>User-<span class="hl opt">&gt;</span><span class="hl kwd">country_codes</span><span class="hl opt">;</span></li>
<li id="n_2048" class="hl">  <span class="hl kwb">$countrycodes </span><span class="hl opt">= </span><span class="hl sng">&#39;&#39;</span><span class="hl opt">;</span></li>
<li id="n_2049" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">$selectedcode </span><span class="hl opt">= (</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>countrycode<span class="hl opt">}) ? </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>countrycode<span class="hl opt">} : </span><span class="hl sng">&#39;en&#39;</span><span class="hl opt">;</span></li>
<li id="n_2050" class="hl">  </li>
<li id="n_2051" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$key </span><span class="hl opt">(</span><span class="hl kwc">sort </span><span class="hl opt">{ </span><span class="hl kwb">$countrycodes</span><span class="hl opt">{</span><span class="hl kwb">$a</span><span class="hl opt">} </span><span class="hl kwc">cmp </span><span class="hl kwb">$countrycodes</span><span class="hl opt">{</span><span class="hl kwb">$b</span><span class="hl opt">} } </span><span class="hl kwc">keys </span><span class="hl kwb">%countrycodes</span><span class="hl opt">) {</span></li>
<li id="n_2052" class="hl">    <span class="hl kwb">$countrycodes </span><span class="hl opt">.= (</span><span class="hl kwb">$selectedcode </span><span class="hl kwc">eq </span><span class="hl kwb">$key</span><span class="hl opt">) ? </span><span class="hl sng">&quot;&lt;option selected value=</span><span class="hl ipl">$key</span><span class="hl sng">&gt;</span><span class="hl ipl">$countrycodes</span><span class="hl sng">{</span><span class="hl ipl">$key</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;&lt;option value=</span><span class="hl ipl">$key</span><span class="hl sng">&gt;</span><span class="hl ipl">$countrycodes</span><span class="hl sng">{</span><span class="hl ipl">$key</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_2053" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2054" class="hl"></li>
<li id="n_2055" class="hl">  <span class="hl kwc">opendir </span>CSS<span class="hl opt">, </span><span class="hl sng">&quot;css/.&quot;</span><span class="hl opt">;</span></li>
<li id="n_2056" class="hl">  <span class="hl kwb">&#64;all </span><span class="hl opt">= </span><span class="hl kwc">grep </span><span class="hl kwd">/.*\.css$/</span><span class="hl opt">, </span><span class="hl kwc">readdir </span>CSS<span class="hl opt">;</span></li>
<li id="n_2057" class="hl">  <span class="hl kwc">closedir </span>CSS<span class="hl opt">;</span></li>
<li id="n_2058" class="hl"></li>
<li id="n_2059" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$item </span><span class="hl opt">(</span><span class="hl kwb">&#64;all</span><span class="hl opt">) {</span></li>
<li id="n_2060" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$item </span><span class="hl kwc">eq </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>stylesheet<span class="hl opt">}) {</span></li>
<li id="n_2061" class="hl">      <span class="hl kwb">$selectstylesheet </span><span class="hl opt">.= </span>qq<span class="hl opt">|&lt;</span>option selected<span class="hl opt">&gt;</span><span class="hl kwb">$item</span><span class="hl esc">\n</span><span class="hl opt">|;</span></li>
<li id="n_2062" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2063" class="hl">      <span class="hl kwb">$selectstylesheet </span><span class="hl opt">.= </span>qq<span class="hl opt">|&lt;</span>option<span class="hl opt">&gt;</span><span class="hl kwb">$item</span><span class="hl esc">\n</span><span class="hl opt">|;</span></li>
<li id="n_2064" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2065" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2066" class="hl">  <span class="hl kwb">$selectstylesheet </span><span class="hl opt">.= </span><span class="hl sng">&quot;&lt;option&gt;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_2067" class="hl">  </li>
<li id="n_2068" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(%{</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>printer<span class="hl opt">} &amp;&amp; ${</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>latex<span class="hl opt">}) {</span></li>
<li id="n_2069" class="hl">    <span class="hl kwb">$selectprinter </span><span class="hl opt">= </span><span class="hl sng">&quot;&lt;option&gt;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_2070" class="hl">    <span class="hl kwa">foreach </span><span class="hl kwb">$item </span><span class="hl opt">(</span><span class="hl kwc">sort keys </span><span class="hl opt">%{</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>printer<span class="hl opt">}) {</span></li>
<li id="n_2071" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>printer<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl kwb">$item</span><span class="hl opt">) {</span></li>
<li id="n_2072" class="hl">    <span class="hl kwb">$selectprinter </span><span class="hl opt">.= </span>qq<span class="hl opt">|&lt;</span>option value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$item</span><span class="hl sng">&quot;</span> selected<span class="hl opt">&gt;</span><span class="hl kwb">$item</span><span class="hl esc">\n</span><span class="hl opt">|;</span></li>
<li id="n_2073" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2074" class="hl">    <span class="hl kwb">$selectprinter </span><span class="hl opt">.= </span>qq<span class="hl opt">|&lt;</span>option value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$item</span><span class="hl sng">&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$item</span><span class="hl esc">\n</span><span class="hl opt">|;</span></li>
<li id="n_2075" class="hl">      <span class="hl opt">}</span></li>
<li id="n_2076" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2077" class="hl"></li>
<li id="n_2078" class="hl">    <span class="hl kwb">$printer </span><span class="hl opt">= </span>qq<span class="hl opt">|</span></li>
<li id="n_2079" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2080" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Printer&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2081" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>printer<span class="hl opt">&gt;</span><span class="hl kwb">$selectprinter</span><span class="hl opt">&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2082" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2083" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2084" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2085" class="hl">  </li>
<li id="n_2086" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Edit Preferences for [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">});</span></li>
<li id="n_2087" class="hl">  </li>
<li id="n_2088" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_2089" class="hl"></li>
<li id="n_2090" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2091" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2092" class="hl"></li>
<li id="n_2093" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_2094" class="hl"></li>
<li id="n_2095" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>old_password value<span class="hl opt">=</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>password<span class="hl opt">}&gt;</span></li>
<li id="n_2096" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>preferences<span class="hl opt">&gt;</span></li>
<li id="n_2097" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span><span class="hl kwa">role </span>value<span class="hl opt">=</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span><span class="hl kwa">role</span><span class="hl opt">}&gt;</span></li>
<li id="n_2098" class="hl"></li>
<li id="n_2099" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2100" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;</span><span class="hl kwd">/th&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2101" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2102" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2103" class="hl">      <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2104" class="hl">        <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top<span class="hl opt">&gt;</span></li>
<li id="n_2105" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2106" class="hl">        <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2107" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2108" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Name&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2109" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>name size<span class="hl opt">=</span><span class="hl num">20 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{name}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2110" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2111" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2112" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;E-mail&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2113" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>email size<span class="hl opt">=</span><span class="hl num">35 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{email}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2114" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2115" class="hl">          <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top<span class="hl opt">&gt;</span></li>
<li id="n_2116" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Signature&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2117" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>textarea name<span class="hl opt">=</span>signature rows<span class="hl opt">=</span><span class="hl num">3 </span>cols<span class="hl opt">=</span><span class="hl num">35</span><span class="hl opt">&gt;</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>signature<span class="hl opt">}&lt;</span><span class="hl kwd">/textarea&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2118" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2119" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2120" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Phone&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2121" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>tel size<span class="hl opt">=</span><span class="hl num">14 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{tel}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2122" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2123" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2124" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Fax&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2125" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>fax size<span class="hl opt">=</span><span class="hl num">14 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{fax}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2126" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2127" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2128" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Company&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2129" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>company size<span class="hl opt">=</span><span class="hl num">35 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{company}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2130" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2131" class="hl">          <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top<span class="hl opt">&gt;</span></li>
<li id="n_2132" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Address&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2133" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>textarea name<span class="hl opt">=</span>address rows<span class="hl opt">=</span><span class="hl num">4 </span>cols<span class="hl opt">=</span><span class="hl num">35</span><span class="hl opt">&gt;</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>address<span class="hl opt">}&lt;</span><span class="hl kwd">/textarea&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2134" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2135" class="hl">        <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2136" class="hl">      <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2137" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2138" class="hl">        <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2139" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2140" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Password&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2141" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input type<span class="hl opt">=</span>password name<span class="hl opt">=</span>new_password size<span class="hl opt">=</span><span class="hl num">10 </span>value<span class="hl opt">=</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>password<span class="hl opt">}&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2142" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2143" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2144" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Confirm&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2145" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input type<span class="hl opt">=</span>password name<span class="hl opt">=</span>confirm_password size<span class="hl opt">=</span><span class="hl num">10</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2146" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2147" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2148" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Date Format&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2149" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>dateformat<span class="hl opt">&gt;</span><span class="hl kwb">$dateformat</span><span class="hl opt">&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2150" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2151" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2152" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Number Format&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2153" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>numberformat<span class="hl opt">&gt;</span><span class="hl kwb">$numberformat</span><span class="hl opt">&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2154" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2155" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2156" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Dropdown Limit&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2157" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>vclimit size<span class="hl opt">=</span><span class="hl num">10 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{vclimit}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2158" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2159" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2160" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Menu Width&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2161" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>menuwidth size<span class="hl opt">=</span><span class="hl num">10 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{menuwidth}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2162" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2163" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2164" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Language&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2165" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>countrycode<span class="hl opt">&gt;</span><span class="hl kwb">$countrycodes</span><span class="hl opt">&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2166" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2167" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2168" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Session Timeout&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2169" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>timeout size<span class="hl opt">=</span><span class="hl num">10 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{timeout}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2170" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2171" class="hl">          <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2172" class="hl">        <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Stylesheet&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2173" class="hl">        <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>usestylesheet<span class="hl opt">&gt;</span><span class="hl kwb">$selectstylesheet</span><span class="hl opt">&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2174" class="hl">          <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2175" class="hl">          <span class="hl kwb">$printer</span></li>
<li id="n_2176" class="hl">        <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2177" class="hl">      <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2178" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2179" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2180" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2181" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2182" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2183" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2184" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2185" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2186" class="hl"></li>
<li id="n_2187" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_2188" class="hl">  </li>
<li id="n_2189" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2190" class="hl"><span class="hl opt">&lt;</span>button type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;save&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Save&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_2191" class="hl"></li>
<li id="n_2192" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_2193" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_2194" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_2195" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2196" class="hl"></li>
<li id="n_2197" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2198" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_2199" class="hl"></li>
<li id="n_2200" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2201" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_2202" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2203" class="hl"></li>
<li id="n_2204" class="hl"><span class="hl opt">}</span></li>
<li id="n_2205" class="hl"></li>
<li id="n_2206" class="hl"></li>
<li id="n_2207" class="hl"><span class="hl kwa">sub </span>save_defaults <span class="hl opt">{</span></li>
<li id="n_2208" class="hl"></li>
<li id="n_2209" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span>AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_defaults</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">)) {</span></li>
<li id="n_2210" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Defaults saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2211" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2212" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cannot save defaults!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2213" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2214" class="hl"></li>
<li id="n_2215" class="hl"><span class="hl opt">}</span></li>
<li id="n_2216" class="hl"></li>
<li id="n_2217" class="hl"></li>
<li id="n_2218" class="hl"><span class="hl kwa">sub </span>save_taxes <span class="hl opt">{</span></li>
<li id="n_2219" class="hl"></li>
<li id="n_2220" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span>AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_taxes</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">)) {</span></li>
<li id="n_2221" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Taxes saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2222" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2223" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cannot save taxes!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2224" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2225" class="hl"></li>
<li id="n_2226" class="hl"><span class="hl opt">}</span></li>
<li id="n_2227" class="hl"></li>
<li id="n_2228" class="hl"></li>
<li id="n_2229" class="hl"><span class="hl kwa">sub </span>save_preferences <span class="hl opt">{</span></li>
<li id="n_2230" class="hl"></li>
<li id="n_2231" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>stylesheet<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>usestylesheet<span class="hl opt">};</span></li>
<li id="n_2232" class="hl"></li>
<li id="n_2233" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>new_password<span class="hl opt">} </span><span class="hl kwc">ne </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>old_password<span class="hl opt">}) {</span></li>
<li id="n_2234" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Password does not match!&#39;</span><span class="hl opt">)) </span><span class="hl kwa">if </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>new_password<span class="hl opt">} </span><span class="hl kwc">ne </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>confirm_password<span class="hl opt">};</span></li>
<li id="n_2235" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2236" class="hl"></li>
<li id="n_2237" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span>AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_preferences</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">)) {</span></li>
<li id="n_2238" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Preferences saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2239" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2240" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cannot save preferences!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2241" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2242" class="hl"></li>
<li id="n_2243" class="hl"><span class="hl opt">}</span></li>
<li id="n_2244" class="hl"></li>
<li id="n_2245" class="hl"></li>
<li id="n_2246" class="hl"><span class="hl kwa">sub </span>backup <span class="hl opt">{</span></li>
<li id="n_2247" class="hl"></li>
<li id="n_2248" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>media<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;email&#39;</span><span class="hl opt">) {</span></li>
<li id="n_2249" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;No email address for [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>name<span class="hl opt">})) </span><span class="hl kwa">unless </span><span class="hl opt">(</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>email<span class="hl opt">});</span></li>
<li id="n_2250" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2251" class="hl"></li>
<li id="n_2252" class="hl">  <span class="hl kwb">$SIG</span><span class="hl opt">{</span>INT<span class="hl opt">} = </span><span class="hl sng">&#39;IGNORE&#39;</span><span class="hl opt">;</span></li>
<li id="n_2253" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">backup</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">, ${</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>userspath<span class="hl opt">}, ${</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>gzip<span class="hl opt">});</span></li>
<li id="n_2254" class="hl"></li>
<li id="n_2255" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>media<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;email&#39;</span><span class="hl opt">) {</span></li>
<li id="n_2256" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Backup sent to [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>email<span class="hl opt">}));</span></li>
<li id="n_2257" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2258" class="hl"></li>
<li id="n_2259" class="hl"><span class="hl opt">}</span></li>
<li id="n_2260" class="hl"></li>
<li id="n_2261" class="hl"></li>
<li id="n_2262" class="hl"></li>
<li id="n_2263" class="hl"><span class="hl kwa">sub </span>audit_control <span class="hl opt">{</span></li>
<li id="n_2264" class="hl"></li>
<li id="n_2265" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Audit Control&#39;</span><span class="hl opt">);</span></li>
<li id="n_2266" class="hl"></li>
<li id="n_2267" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">closedto</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2268" class="hl">  </li>
<li id="n_2269" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>revtrans<span class="hl opt">}) {</span></li>
<li id="n_2270" class="hl">    <span class="hl kwb">$checked</span><span class="hl opt">{</span>revtransY<span class="hl opt">} = </span><span class="hl sng">&quot;checked&quot;</span><span class="hl opt">;</span></li>
<li id="n_2271" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2272" class="hl">    <span class="hl kwb">$checked</span><span class="hl opt">{</span>revtransN<span class="hl opt">} = </span><span class="hl sng">&quot;checked&quot;</span><span class="hl opt">;</span></li>
<li id="n_2273" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2274" class="hl">  </li>
<li id="n_2275" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>audittrail<span class="hl opt">}) {</span></li>
<li id="n_2276" class="hl">    <span class="hl kwb">$checked</span><span class="hl opt">{</span>audittrailY<span class="hl opt">} = </span><span class="hl sng">&quot;checked&quot;</span><span class="hl opt">;</span></li>
<li id="n_2277" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2278" class="hl">    <span class="hl kwb">$checked</span><span class="hl opt">{</span>audittrailN<span class="hl opt">} = </span><span class="hl sng">&quot;checked&quot;</span><span class="hl opt">;</span></li>
<li id="n_2279" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2280" class="hl"> </li>
<li id="n_2281" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_2282" class="hl">  </li>
<li id="n_2283" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2284" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2285" class="hl"></li>
<li id="n_2286" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_2287" class="hl"></li>
<li id="n_2288" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>path value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&gt;</span></li>
<li id="n_2289" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>login value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&gt;</span></li>
<li id="n_2290" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>sessionid value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&gt;</span></li>
<li id="n_2291" class="hl"></li>
<li id="n_2292" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2293" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;</span><span class="hl kwd">/th&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2294" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2295" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2296" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2297" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2298" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2299" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Enforce transaction reversal for all dates&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2300" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>revtrans <span class="hl kwa">class</span><span class="hl opt">=</span>radio type<span class="hl opt">=</span>radio value<span class="hl opt">=</span><span class="hl sng">&quot;1&quot;</span> <span class="hl kwb">$checked</span><span class="hl opt">{</span>revtransY<span class="hl opt">}&gt; |.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Yes&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">| &lt;</span>input name<span class="hl opt">=</span>revtrans <span class="hl kwa">class</span><span class="hl opt">=</span>radio type<span class="hl opt">=</span>radio value<span class="hl opt">=</span><span class="hl sng">&quot;0&quot;</span> <span class="hl kwb">$checked</span><span class="hl opt">{</span>revtransN<span class="hl opt">}&gt; |.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;No&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2301" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2302" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2303" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Close Books up to&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2304" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>closedto size<span class="hl opt">=</span><span class="hl num">11 </span>title<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{dateformat}&quot;</span> value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>closedto<span class="hl opt">}&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2305" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2306" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2307" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Activate Audit trail&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2308" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>audittrail <span class="hl kwa">class</span><span class="hl opt">=</span>radio type<span class="hl opt">=</span>radio value<span class="hl opt">=</span><span class="hl sng">&quot;1&quot;</span> <span class="hl kwb">$checked</span><span class="hl opt">{</span>audittrailY<span class="hl opt">}&gt; |.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Yes&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">| &lt;</span>input name<span class="hl opt">=</span>audittrail <span class="hl kwa">class</span><span class="hl opt">=</span>radio type<span class="hl opt">=</span>radio value<span class="hl opt">=</span><span class="hl sng">&quot;0&quot;</span> <span class="hl kwb">$checked</span><span class="hl opt">{</span>audittrailN<span class="hl opt">}&gt; |.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;No&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2309" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2310" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2311" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Remove Audit trail up to&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2312" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>removeaudittrail size<span class="hl opt">=</span><span class="hl num">11 </span>title<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{dateformat}&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2313" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2314" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2315" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2316" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2317" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2318" class="hl"></li>
<li id="n_2319" class="hl"><span class="hl opt">&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;</span></li>
<li id="n_2320" class="hl"></li>
<li id="n_2321" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_2322" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>nextsub value<span class="hl opt">=</span>doclose<span class="hl opt">&gt;</span></li>
<li id="n_2323" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>action value<span class="hl opt">=</span><span class="hl kwa">continue</span><span class="hl opt">&gt;</span></li>
<li id="n_2324" class="hl"><span class="hl opt">&lt;</span>button type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;continue&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Continue&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;</span></li>
<li id="n_2325" class="hl"></li>
<li id="n_2326" class="hl"><span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_2327" class="hl"></li>
<li id="n_2328" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2329" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_2330" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2331" class="hl"></li>
<li id="n_2332" class="hl"><span class="hl opt">}</span></li>
<li id="n_2333" class="hl"></li>
<li id="n_2334" class="hl"></li>
<li id="n_2335" class="hl"><span class="hl kwa">sub </span>doclose <span class="hl opt">{</span></li>
<li id="n_2336" class="hl"></li>
<li id="n_2337" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">closebooks</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2338" class="hl">  </li>
<li id="n_2339" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>revtrans<span class="hl opt">}) {</span></li>
<li id="n_2340" class="hl">    <span class="hl kwb">$msg </span><span class="hl opt">= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Transaction reversal enforced for all dates&#39;</span><span class="hl opt">);</span></li>
<li id="n_2341" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2342" class="hl">    </li>
<li id="n_2343" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>closedto<span class="hl opt">}) {</span></li>
<li id="n_2344" class="hl">      <span class="hl kwb">$msg </span><span class="hl opt">= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Transaction reversal enforced up to&#39;</span><span class="hl opt">)</span></li>
<li id="n_2345" class="hl">      <span class="hl opt">.</span><span class="hl sng">&quot; &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">date</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>closedto<span class="hl opt">}, </span><span class="hl num">1</span><span class="hl opt">);</span></li>
<li id="n_2346" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2347" class="hl">      <span class="hl kwb">$msg </span><span class="hl opt">= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Books are open&#39;</span><span class="hl opt">);</span></li>
<li id="n_2348" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2349" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2350" class="hl"></li>
<li id="n_2351" class="hl">  <span class="hl kwb">$msg </span><span class="hl opt">.= </span><span class="hl sng">&quot;&lt;p&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2352" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>audittrail<span class="hl opt">}) {</span></li>
<li id="n_2353" class="hl">    <span class="hl kwb">$msg </span><span class="hl opt">.= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Audit trail enabled&#39;</span><span class="hl opt">);</span></li>
<li id="n_2354" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2355" class="hl">    <span class="hl kwb">$msg </span><span class="hl opt">.= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Audit trail disabled&#39;</span><span class="hl opt">);</span></li>
<li id="n_2356" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2357" class="hl"></li>
<li id="n_2358" class="hl">  <span class="hl kwb">$msg </span><span class="hl opt">.= </span><span class="hl sng">&quot;&lt;p&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2359" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>removeaudittrail<span class="hl opt">}) {</span></li>
<li id="n_2360" class="hl">    <span class="hl kwb">$msg </span><span class="hl opt">.= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Audit trail removed up to&#39;</span><span class="hl opt">)</span></li>
<li id="n_2361" class="hl">    <span class="hl opt">.</span><span class="hl sng">&quot; &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">date</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>removeaudittrail<span class="hl opt">}, </span><span class="hl num">1</span><span class="hl opt">);</span></li>
<li id="n_2362" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2363" class="hl">    </li>
<li id="n_2364" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$msg</span><span class="hl opt">);</span></li>
<li id="n_2365" class="hl">  </li>
<li id="n_2366" class="hl"><span class="hl opt">}</span></li>
<li id="n_2367" class="hl"></li>
<li id="n_2368" class="hl"></li>
<li id="n_2369" class="hl"><span class="hl kwa">sub </span>add_warehouse <span class="hl opt">{</span></li>
<li id="n_2370" class="hl"></li>
<li id="n_2371" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Add&quot;</span><span class="hl opt">;</span></li>
<li id="n_2372" class="hl">  </li>
<li id="n_2373" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=add_warehouse&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span> <span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">};</span></li>
<li id="n_2374" class="hl"></li>
<li id="n_2375" class="hl">  <span class="hl opt">&amp;</span>warehouse_header<span class="hl opt">;</span></li>
<li id="n_2376" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_2377" class="hl"></li>
<li id="n_2378" class="hl"><span class="hl opt">}</span></li>
<li id="n_2379" class="hl"></li>
<li id="n_2380" class="hl"></li>
<li id="n_2381" class="hl"><span class="hl kwa">sub </span>edit_warehouse <span class="hl opt">{</span></li>
<li id="n_2382" class="hl"></li>
<li id="n_2383" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl sng">&quot;Edit&quot;</span><span class="hl opt">;</span></li>
<li id="n_2384" class="hl"></li>
<li id="n_2385" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">get_warehouse</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2386" class="hl"></li>
<li id="n_2387" class="hl">  <span class="hl opt">&amp;</span>warehouse_header<span class="hl opt">;</span></li>
<li id="n_2388" class="hl">  <span class="hl opt">&amp;</span>form_footer<span class="hl opt">;</span></li>
<li id="n_2389" class="hl"></li>
<li id="n_2390" class="hl"><span class="hl opt">}</span></li>
<li id="n_2391" class="hl"></li>
<li id="n_2392" class="hl"></li>
<li id="n_2393" class="hl"><span class="hl kwa">sub </span>list_warehouse <span class="hl opt">{</span></li>
<li id="n_2394" class="hl"></li>
<li id="n_2395" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">warehouses</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2396" class="hl"></li>
<li id="n_2397" class="hl">  <span class="hl kwb">$href </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_warehouse&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_2398" class="hl"></li>
<li id="n_2399" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_order</span><span class="hl opt">();</span></li>
<li id="n_2400" class="hl">  </li>
<li id="n_2401" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=list_warehouse&amp;direction=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{direction}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_2402" class="hl"></li>
<li id="n_2403" class="hl">  <span class="hl kwb">$callback </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">});</span></li>
<li id="n_2404" class="hl">  </li>
<li id="n_2405" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Warehouses&#39;</span><span class="hl opt">);</span></li>
<li id="n_2406" class="hl"></li>
<li id="n_2407" class="hl">  <span class="hl kwb">&#64;column_index </span><span class="hl opt">= </span><span class="hl sng">qw(description)</span><span class="hl opt">;</span></li>
<li id="n_2408" class="hl"></li>
<li id="n_2409" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl kwb">$href</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2410" class="hl"></li>
<li id="n_2411" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_2412" class="hl"></li>
<li id="n_2413" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2414" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2415" class="hl"></li>
<li id="n_2416" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2417" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2418" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2419" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2420" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2421" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2422" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2423" class="hl">      <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2424" class="hl">        <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_2425" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2426" class="hl"></li>
<li id="n_2427" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2428" class="hl"></li>
<li id="n_2429" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2430" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2431" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2432" class="hl"></li>
<li id="n_2433" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ALL<span class="hl opt">} }) {</span></li>
<li id="n_2434" class="hl">    </li>
<li id="n_2435" class="hl">    <span class="hl kwb">$i++</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_2436" class="hl">    </li>
<li id="n_2437" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2438" class="hl">        <span class="hl opt">&lt;</span>tr valign<span class="hl opt">=</span>top <span class="hl kwa">class</span><span class="hl opt">=</span>listrow<span class="hl kwb">$i</span><span class="hl opt">&gt;</span></li>
<li id="n_2439" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2440" class="hl"></li>
<li id="n_2441" class="hl">   <span class="hl kwb">$column_data</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>edit_warehouse<span class="hl opt">&amp;</span>id<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>callback<span class="hl opt">=</span><span class="hl kwb">$callback</span><span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_2442" class="hl"></li>
<li id="n_2443" class="hl">   <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2444" class="hl"></li>
<li id="n_2445" class="hl">   <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2446" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2447" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2448" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2449" class="hl"></li>
<li id="n_2450" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2451" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2452" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2453" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2454" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2455" class="hl">  <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2456" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2457" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2458" class="hl"></li>
<li id="n_2459" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span></li>
<li id="n_2460" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_2461" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2462" class="hl"></li>
<li id="n_2463" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;warehouse&quot;</span><span class="hl opt">;</span></li>
<li id="n_2464" class="hl"></li>
<li id="n_2465" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(type callback path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_2466" class="hl">  </li>
<li id="n_2467" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2468" class="hl"><span class="hl opt">&lt;</span>button <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;add_warehouse&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Add Warehouse&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_2469" class="hl"></li>
<li id="n_2470" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_2471" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_2472" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_2473" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2474" class="hl"></li>
<li id="n_2475" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2476" class="hl">  <span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_2477" class="hl">  </li>
<li id="n_2478" class="hl">  <span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2479" class="hl">  <span class="hl opt">&lt;/</span>html<span class="hl opt">&gt; </span></li>
<li id="n_2480" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2481" class="hl">  </li>
<li id="n_2482" class="hl"><span class="hl opt">}</span></li>
<li id="n_2483" class="hl"></li>
<li id="n_2484" class="hl"></li>
<li id="n_2485" class="hl"></li>
<li id="n_2486" class="hl"><span class="hl kwa">sub </span>warehouse_header <span class="hl opt">{</span></li>
<li id="n_2487" class="hl"></li>
<li id="n_2488" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{title} Warehouse&quot;</span><span class="hl opt">);</span></li>
<li id="n_2489" class="hl"></li>
<li id="n_2490" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Add Warehouse&#39;)</span></li>
<li id="n_2491" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Edit Warehouse&#39;)</span></li>
<li id="n_2492" class="hl"></li>
<li id="n_2493" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">quote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">});</span></li>
<li id="n_2494" class="hl"></li>
<li id="n_2495" class="hl">  <span class="hl kwa">if </span><span class="hl opt">((</span><span class="hl kwb">$rows </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">numtextrows</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}, </span><span class="hl num">60</span><span class="hl opt">)) &gt; </span><span class="hl num">1</span><span class="hl opt">) {</span></li>
<li id="n_2496" class="hl">    <span class="hl kwb">$description </span><span class="hl opt">= </span>qq<span class="hl opt">|&lt;</span>textarea name<span class="hl opt">=</span><span class="hl sng">&quot;description&quot;</span> rows<span class="hl opt">=</span><span class="hl kwb">$rows </span>cols<span class="hl opt">=</span><span class="hl num">60 </span>wrap<span class="hl opt">=</span>soft<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>description<span class="hl opt">}&lt;/</span>textarea<span class="hl opt">&gt;|;</span></li>
<li id="n_2497" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2498" class="hl">    <span class="hl kwb">$description </span><span class="hl opt">= </span>qq<span class="hl opt">|&lt;</span>input name<span class="hl opt">=</span>description size<span class="hl opt">=</span><span class="hl num">60 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{description}&quot;</span><span class="hl opt">&gt;|;</span></li>
<li id="n_2499" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2500" class="hl"></li>
<li id="n_2501" class="hl">  </li>
<li id="n_2502" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_2503" class="hl"></li>
<li id="n_2504" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2505" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2506" class="hl"></li>
<li id="n_2507" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_2508" class="hl"></li>
<li id="n_2509" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>id value<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}&gt;</span></li>
<li id="n_2510" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>type value<span class="hl opt">=</span>warehouse<span class="hl opt">&gt;</span></li>
<li id="n_2511" class="hl"></li>
<li id="n_2512" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2513" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2514" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2515" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2516" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2517" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2518" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2519" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$description</span><span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2520" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2521" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2522" class="hl">    <span class="hl opt">&lt;</span>td colspan<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2523" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2524" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2525" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2526" class="hl"></li>
<li id="n_2527" class="hl"><span class="hl opt">}</span></li>
<li id="n_2528" class="hl"></li>
<li id="n_2529" class="hl"></li>
<li id="n_2530" class="hl"><span class="hl kwa">sub </span>save_warehouse <span class="hl opt">{</span></li>
<li id="n_2531" class="hl"></li>
<li id="n_2532" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;description&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2533" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">save_warehouse</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2534" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Warehouse saved!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2535" class="hl"></li>
<li id="n_2536" class="hl"><span class="hl opt">}</span></li>
<li id="n_2537" class="hl"></li>
<li id="n_2538" class="hl"></li>
<li id="n_2539" class="hl"><span class="hl kwa">sub </span>delete_warehouse <span class="hl opt">{</span></li>
<li id="n_2540" class="hl"></li>
<li id="n_2541" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">delete_warehouse</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2542" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Warehouse deleted!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2543" class="hl"></li>
<li id="n_2544" class="hl"><span class="hl opt">}</span></li>
<li id="n_2545" class="hl"></li>
<li id="n_2546" class="hl"></li>
<li id="n_2547" class="hl"><span class="hl kwa">sub </span>yearend <span class="hl opt">{</span></li>
<li id="n_2548" class="hl"></li>
<li id="n_2549" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">earningsaccounts</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2550" class="hl">  <span class="hl kwb">$chart </span><span class="hl opt">= </span><span class="hl sng">&quot;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2551" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>chart<span class="hl opt">} }) { </span><span class="hl kwb">$chart </span><span class="hl opt">.= </span><span class="hl sng">&quot;&lt;option&gt;</span><span class="hl ipl">$_</span><span class="hl sng">-&gt;{accno}--</span><span class="hl ipl">$_</span><span class="hl sng">-&gt;{description}&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2552" class="hl">  </li>
<li id="n_2553" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Yearend&#39;</span><span class="hl opt">);</span></li>
<li id="n_2554" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_2555" class="hl">  </li>
<li id="n_2556" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2557" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2558" class="hl"></li>
<li id="n_2559" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_2560" class="hl"></li>
<li id="n_2561" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>decimalplaces value<span class="hl opt">=</span><span class="hl num">2</span><span class="hl opt">&gt;</span></li>
<li id="n_2562" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>l_accno value<span class="hl opt">=</span>Y<span class="hl opt">&gt;</span></li>
<li id="n_2563" class="hl"></li>
<li id="n_2564" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2565" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2566" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2567" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2568" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2569" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2570" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2571" class="hl">      <span class="hl opt">&lt;</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2572" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2573" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Yearend&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2574" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>todate size<span class="hl opt">=</span><span class="hl num">11 </span>title<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$myconfig</span><span class="hl sng">{dateformat}&quot;</span> value<span class="hl opt">=</span><span class="hl kwb">$todate</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2575" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2576" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2577" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Reference&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2578" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span>reference size<span class="hl opt">=</span><span class="hl num">20 </span>value<span class="hl opt">=</span><span class="hl sng">&quot;|.</span><span class="hl ipl">$locale</span><span class="hl sng">-&gt;text(&#39;Yearend&#39;).qq|&quot;</span><span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2579" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2580" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2581" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2582" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>textarea name<span class="hl opt">=</span>description rows<span class="hl opt">=</span><span class="hl num">3 </span>cols<span class="hl opt">=</span><span class="hl num">50 </span>wrap<span class="hl opt">=</span>soft<span class="hl opt">&gt;&lt;</span><span class="hl kwd">/textarea&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2583" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2584" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2585" class="hl">      <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Retained Earnings&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2586" class="hl">      <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span><span class="hl kwc">select </span>name<span class="hl opt">=</span>accno<span class="hl opt">&gt;</span><span class="hl kwb">$chart</span><span class="hl opt">&lt;</span><span class="hl kwd">/select&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2587" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2588" class="hl">    <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2589" class="hl">          <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Method&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2590" class="hl">          <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span><span class="hl kwa">method class</span><span class="hl opt">=</span>radio type<span class="hl opt">=</span>radio value<span class="hl opt">=</span>accrual checked<span class="hl opt">&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Accrual&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&amp;</span>nbsp<span class="hl opt">;&lt;</span>input name<span class="hl opt">=</span><span class="hl kwa">method class</span><span class="hl opt">=</span>radio type<span class="hl opt">=</span>radio value<span class="hl opt">=</span>cash<span class="hl opt">&gt;&amp;</span>nbsp<span class="hl opt">;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Cash&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2591" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2592" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2593" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2594" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2595" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2596" class="hl"></li>
<li id="n_2597" class="hl"><span class="hl opt">&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;</span></li>
<li id="n_2598" class="hl"></li>
<li id="n_2599" class="hl"><span class="hl opt">&lt;</span>input type<span class="hl opt">=</span>hidden name<span class="hl opt">=</span>nextsub value<span class="hl opt">=</span>generate_yearend<span class="hl opt">&gt;</span></li>
<li id="n_2600" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2601" class="hl"></li>
<li id="n_2602" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_2603" class="hl">  </li>
<li id="n_2604" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2605" class="hl"><span class="hl opt">&lt;</span>button <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;continue&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Continue&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;|;</span></li>
<li id="n_2606" class="hl"></li>
<li id="n_2607" class="hl"><span class="hl opt">}</span></li>
<li id="n_2608" class="hl"></li>
<li id="n_2609" class="hl"></li>
<li id="n_2610" class="hl"><span class="hl kwa">sub </span>generate_yearend <span class="hl opt">{</span></li>
<li id="n_2611" class="hl"></li>
<li id="n_2612" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">isblank</span><span class="hl opt">(</span><span class="hl sng">&quot;todate&quot;</span><span class="hl opt">, </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Yearend date missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2613" class="hl"></li>
<li id="n_2614" class="hl">  RP-<span class="hl opt">&gt;</span><span class="hl kwd">yearend_statement</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2615" class="hl">  </li>
<li id="n_2616" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transdate<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>todate<span class="hl opt">};</span></li>
<li id="n_2617" class="hl"></li>
<li id="n_2618" class="hl">  <span class="hl kwb">$earnings </span><span class="hl opt">= </span><span class="hl num">0</span><span class="hl opt">;</span></li>
<li id="n_2619" class="hl">  </li>
<li id="n_2620" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>rowcount<span class="hl opt">} = </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2621" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$key </span><span class="hl opt">(</span><span class="hl kwc">keys </span><span class="hl opt">%{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>I<span class="hl opt">} }) {</span></li>
<li id="n_2622" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>I<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">}{</span>charttype<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&quot;A&quot;</span><span class="hl opt">) {</span></li>
<li id="n_2623" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;debit_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rowcount}&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>I<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">}{</span>this<span class="hl opt">};</span></li>
<li id="n_2624" class="hl">      <span class="hl kwb">$earnings </span><span class="hl opt">+= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>I<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">}{</span>this<span class="hl opt">};</span></li>
<li id="n_2625" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;accno_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rowcount}&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$key</span><span class="hl opt">;</span></li>
<li id="n_2626" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>rowcount<span class="hl opt">}++;</span></li>
<li id="n_2627" class="hl">      <span class="hl kwb">$ok </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2628" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2629" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2630" class="hl"></li>
<li id="n_2631" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$key </span><span class="hl opt">(</span><span class="hl kwc">keys </span><span class="hl opt">%{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>E<span class="hl opt">} }) {</span></li>
<li id="n_2632" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>E<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">}{</span>charttype<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&quot;A&quot;</span><span class="hl opt">) {</span></li>
<li id="n_2633" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;credit_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rowcount}&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>E<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">}{</span>this<span class="hl opt">} * -</span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2634" class="hl">      <span class="hl kwb">$earnings </span><span class="hl opt">+= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>E<span class="hl opt">}{</span><span class="hl kwb">$key</span><span class="hl opt">}{</span>this<span class="hl opt">};</span></li>
<li id="n_2635" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;accno_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rowcount}&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$key</span><span class="hl opt">;</span></li>
<li id="n_2636" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>rowcount<span class="hl opt">}++;</span></li>
<li id="n_2637" class="hl">      <span class="hl kwb">$ok </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2638" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2639" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2640" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$earnings </span><span class="hl opt">&gt; </span><span class="hl num">0</span><span class="hl opt">) {</span></li>
<li id="n_2641" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;credit_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rowcount}&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$earnings</span><span class="hl opt">;</span></li>
<li id="n_2642" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;accno_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rowcount}&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}</span></li>
<li id="n_2643" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2644" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;debit_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rowcount}&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$earnings </span><span class="hl opt">* -</span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2645" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;accno_</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{rowcount}&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>accno<span class="hl opt">}</span></li>
<li id="n_2646" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2647" class="hl">  </li>
<li id="n_2648" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ok</span><span class="hl opt">) {</span></li>
<li id="n_2649" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span>AM-<span class="hl opt">&gt;</span><span class="hl kwd">post_yearend</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">)) {</span></li>
<li id="n_2650" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Yearend posted!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2651" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2652" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Yearend posting failed!&#39;</span><span class="hl opt">));</span></li>
<li id="n_2653" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2654" class="hl">  <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2655" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl sng">&#39;Nothing to do!&#39;</span><span class="hl opt">);</span></li>
<li id="n_2656" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2657" class="hl">  </li>
<li id="n_2658" class="hl"><span class="hl opt">}</span></li>
<li id="n_2659" class="hl"></li>
<li id="n_2660" class="hl"></li>
<li id="n_2661" class="hl"></li>
<li id="n_2662" class="hl"><span class="hl kwa">sub </span>company_logo <span class="hl opt">{</span></li>
<li id="n_2663" class="hl">  </li>
<li id="n_2664" class="hl">  <span class="hl kwb">$myconfig</span><span class="hl opt">{</span>address<span class="hl opt">} =~ </span><span class="hl kwd">s/\\n/&lt;br&gt;/g</span><span class="hl opt">;</span></li>
<li id="n_2665" class="hl">  <span class="hl kwb">$myconfig</span><span class="hl opt">{</span>dbhost<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;localhost&#39;</span><span class="hl opt">) </span><span class="hl kwa">unless </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>dbhost<span class="hl opt">};</span></li>
<li id="n_2666" class="hl"></li>
<li id="n_2667" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>stylesheet<span class="hl opt">} = </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>stylesheet<span class="hl opt">};</span></li>
<li id="n_2668" class="hl"></li>
<li id="n_2669" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;About&#39;</span><span class="hl opt">);</span></li>
<li id="n_2670" class="hl">  </li>
<li id="n_2671" class="hl">  <span class="hl slc"># create the logo screen</span></li>
<li id="n_2672" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_2673" class="hl"></li>
<li id="n_2674" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2675" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2676" class="hl"></li>
<li id="n_2677" class="hl"><span class="hl opt">&lt;</span>pre<span class="hl opt">&gt;</span></li>
<li id="n_2678" class="hl"></li>
<li id="n_2679" class="hl"><span class="hl opt">&lt;/</span>pre<span class="hl opt">&gt;</span></li>
<li id="n_2680" class="hl"><span class="hl opt">&lt;</span>center<span class="hl opt">&gt;</span></li>
<li id="n_2681" class="hl"><span class="hl opt">&lt;</span>a href<span class="hl opt">=</span><span class="hl sng">&quot;http://www.ledgersmb.org/&quot;</span> target<span class="hl opt">=</span><span class="hl sng">&quot;_blank&quot;</span><span class="hl opt">&gt;&lt;</span>img src<span class="hl opt">=</span><span class="hl sng">&quot;images/ledger-smb.png&quot;</span> width<span class="hl opt">=</span><span class="hl sng">&quot;200&quot;</span> height<span class="hl opt">=</span><span class="hl sng">&quot;100&quot;</span> border<span class="hl opt">=</span><span class="hl sng">&quot;0&quot;</span> alt<span class="hl opt">=</span><span class="hl sng">&quot;LedgerSMB Logo&quot;</span> <span class="hl kwd">/&gt;&lt;/a</span><span class="hl opt">&gt;</span></li>
<li id="n_2682" class="hl"><span class="hl opt">&lt;</span>h1 <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;login&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Version&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">| </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>version<span class="hl opt">}&lt;/</span>h1<span class="hl opt">&gt;</span></li>
<li id="n_2683" class="hl"></li>
<li id="n_2684" class="hl"><span class="hl opt">&lt;</span>p<span class="hl opt">&gt;</span></li>
<li id="n_2685" class="hl"><span class="hl opt">|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Licensed to&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span></li>
<li id="n_2686" class="hl"><span class="hl opt">&lt;</span>p<span class="hl opt">&gt;</span></li>
<li id="n_2687" class="hl"><span class="hl opt">&lt;</span>b<span class="hl opt">&gt;</span></li>
<li id="n_2688" class="hl"><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>company<span class="hl opt">}</span></li>
<li id="n_2689" class="hl"><span class="hl opt">&lt;</span>br<span class="hl opt">&gt;</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>address<span class="hl opt">}</span></li>
<li id="n_2690" class="hl"><span class="hl opt">&lt;/</span>b<span class="hl opt">&gt;</span></li>
<li id="n_2691" class="hl"></li>
<li id="n_2692" class="hl"><span class="hl opt">&lt;</span>p<span class="hl opt">&gt;</span></li>
<li id="n_2693" class="hl"><span class="hl opt">&lt;</span>table border<span class="hl opt">=</span><span class="hl num">0</span><span class="hl opt">&gt;</span></li>
<li id="n_2694" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2695" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;User&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2696" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>name<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2697" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2698" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2699" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Dataset&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2700" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>dbname<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2701" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2702" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2703" class="hl">    <span class="hl opt">&lt;</span>th align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Database Host&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2704" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>dbhost<span class="hl opt">}&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2705" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2706" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2707" class="hl"></li>
<li id="n_2708" class="hl"><span class="hl opt">&lt;/</span>center<span class="hl opt">&gt;</span></li>
<li id="n_2709" class="hl"></li>
<li id="n_2710" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2711" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_2712" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2713" class="hl"></li>
<li id="n_2714" class="hl"><span class="hl opt">}</span></li>
<li id="n_2715" class="hl"></li>
<li id="n_2716" class="hl"></li>
<li id="n_2717" class="hl"><span class="hl kwa">sub </span>recurring_transactions <span class="hl opt">{</span></li>
<li id="n_2718" class="hl"></li>
<li id="n_2719" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Day&#39;)</span></li>
<li id="n_2720" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Days&#39;)</span></li>
<li id="n_2721" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Month&#39;)</span></li>
<li id="n_2722" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Months&#39;)</span></li>
<li id="n_2723" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Week&#39;)</span></li>
<li id="n_2724" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Weeks&#39;)</span></li>
<li id="n_2725" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Year&#39;)</span></li>
<li id="n_2726" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Years&#39;)</span></li>
<li id="n_2727" class="hl"></li>
<li id="n_2728" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>stylesheet<span class="hl opt">} = </span><span class="hl kwb">$myconfig</span><span class="hl opt">{</span>stylesheet<span class="hl opt">};</span></li>
<li id="n_2729" class="hl"></li>
<li id="n_2730" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">} = </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Recurring Transactions&#39;</span><span class="hl opt">);</span></li>
<li id="n_2731" class="hl"></li>
<li id="n_2732" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>id<span class="hl opt">} = </span><span class="hl sng">&quot;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2733" class="hl"></li>
<li id="n_2734" class="hl">  AM-<span class="hl opt">&gt;</span><span class="hl kwd">recurring_transactions</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_2735" class="hl"></li>
<li id="n_2736" class="hl">  <span class="hl kwb">$href </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=recurring_transactions&quot;</span><span class="hl opt">;</span></li>
<li id="n_2737" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(direction oldsort path login sessionid)</span><span class="hl opt">) { </span><span class="hl kwb">$href </span><span class="hl opt">.= </span>qq<span class="hl opt">|&amp;</span><span class="hl kwb">$_</span><span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}| }</span></li>
<li id="n_2738" class="hl">  </li>
<li id="n_2739" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">sort_order</span><span class="hl opt">();</span></li>
<li id="n_2740" class="hl">  </li>
<li id="n_2741" class="hl">  <span class="hl slc"># create the logo screen</span></li>
<li id="n_2742" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">header</span><span class="hl opt">;</span></li>
<li id="n_2743" class="hl"></li>
<li id="n_2744" class="hl">  <span class="hl kwb">&#64;column_index </span><span class="hl opt">= </span><span class="hl sng">qw(ndx reference description)</span><span class="hl opt">;</span></li>
<li id="n_2745" class="hl">  </li>
<li id="n_2746" class="hl">  <span class="hl kwc">push </span><span class="hl kwb">&#64;column_index</span><span class="hl opt">, </span><span class="hl sng">qw(nextdate enddate id amount curr repeat howmany recurringemail recurringprint)</span><span class="hl opt">;</span></li>
<li id="n_2747" class="hl"></li>
<li id="n_2748" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>reference<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$href&amp;sort</span><span class="hl sng">=reference&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Reference&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2749" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>ndx<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;&amp;</span>nbsp<span class="hl opt">;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2750" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>id<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;ID&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2751" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>description<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Description&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2752" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>nextdate<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$href&amp;sort</span><span class="hl sng">=nextdate&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Next&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2753" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>enddate<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>th<span class="hl opt">&gt;&lt;</span>a <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> href<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$href&amp;sort</span><span class="hl sng">=enddate&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Ends&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2754" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>amount<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Amount&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2755" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>curr<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;&amp;</span>nbsp<span class="hl opt">;&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2756" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>repeat<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Every&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2757" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>howmany<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Times&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2758" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>recurringemail<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;E-mail&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2759" class="hl">  <span class="hl kwb">$column_header</span><span class="hl opt">{</span>recurringprint<span class="hl opt">} = </span>q<span class="hl opt">|&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Print&#39;</span><span class="hl opt">).</span>q<span class="hl opt">|&lt;/</span>th<span class="hl opt">&gt;|;</span></li>
<li id="n_2760" class="hl"></li>
<li id="n_2761" class="hl"><span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2762" class="hl"><span class="hl opt">&lt;</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2763" class="hl"></li>
<li id="n_2764" class="hl"><span class="hl opt">&lt;</span>form <span class="hl kwa">method</span><span class="hl opt">=</span>post action<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}&gt;</span></li>
<li id="n_2765" class="hl"></li>
<li id="n_2766" class="hl"><span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2767" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2768" class="hl">    <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span>listtop<span class="hl opt">&gt;</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>title<span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2769" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2770" class="hl">  <span class="hl opt">&lt;</span>tr height<span class="hl opt">=</span><span class="hl sng">&quot;5&quot;</span><span class="hl opt">&gt;&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2771" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2772" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2773" class="hl">      <span class="hl opt">&lt;</span>table width<span class="hl opt">=</span><span class="hl num">100</span><span class="hl opt">%&gt;</span></li>
<li id="n_2774" class="hl">        <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span><span class="hl opt">&gt;</span></li>
<li id="n_2775" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2776" class="hl"></li>
<li id="n_2777" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng"></span><span class="hl ipl">$column_header</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2778" class="hl"></li>
<li id="n_2779" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2780" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2781" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2782" class="hl"></li>
<li id="n_2783" class="hl">  <span class="hl kwb">$i </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2784" class="hl">  <span class="hl kwb">$colspan </span><span class="hl opt">= </span><span class="hl kwb">$#column_index </span><span class="hl opt">+ </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_2785" class="hl"></li>
<li id="n_2786" class="hl">  <span class="hl kwb">%tr </span><span class="hl opt">= ( </span>ar <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;AR&#39;</span><span class="hl opt">),</span></li>
<li id="n_2787" class="hl">          ap <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;AP&#39;</span><span class="hl opt">),</span></li>
<li id="n_2788" class="hl">      gl <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;GL&#39;</span><span class="hl opt">),</span></li>
<li id="n_2789" class="hl">      so <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Sales Orders&#39;</span><span class="hl opt">),</span></li>
<li id="n_2790" class="hl">      po <span class="hl opt">=&gt; </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Purchase Orders&#39;</span><span class="hl opt">),</span></li>
<li id="n_2791" class="hl">    <span class="hl opt">);</span></li>
<li id="n_2792" class="hl"></li>
<li id="n_2793" class="hl">  <span class="hl kwb">%f </span><span class="hl opt">= &amp;</span>formnames<span class="hl opt">;</span></li>
<li id="n_2794" class="hl">      </li>
<li id="n_2795" class="hl">  <span class="hl kwa">foreach </span><span class="hl kwb">$transaction </span><span class="hl opt">(</span><span class="hl kwc">sort keys </span><span class="hl opt">%{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transactions<span class="hl opt">} }) {</span></li>
<li id="n_2796" class="hl">    <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2797" class="hl">        <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2798" class="hl">      <span class="hl opt">&lt;</span>th <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;listheading&quot;</span> colspan<span class="hl opt">=</span><span class="hl kwb">$colspan</span><span class="hl opt">&gt;</span><span class="hl kwb">$tr</span><span class="hl opt">{</span><span class="hl kwb">$transaction</span><span class="hl opt">}&lt;/</span>th<span class="hl opt">&gt;</span></li>
<li id="n_2799" class="hl">    <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2800" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2801" class="hl">    </li>
<li id="n_2802" class="hl">    <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transactions<span class="hl opt">}{</span><span class="hl kwb">$transaction</span><span class="hl opt">} }) {</span></li>
<li id="n_2803" class="hl"></li>
<li id="n_2804" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwb">$column_data</span><span class="hl opt">{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl sng">&quot;&lt;td nowrap&gt;</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{</span><span class="hl ipl">$_</span><span class="hl sng">}&lt;/td&gt;&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2805" class="hl"></li>
<li id="n_2806" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>repeat<span class="hl opt">} &gt; </span><span class="hl num">1</span><span class="hl opt">) {</span></li>
<li id="n_2807" class="hl">    <span class="hl kwb">$unit </span><span class="hl opt">= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl kwc">ucfirst </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>unit<span class="hl opt">});</span></li>
<li id="n_2808" class="hl">    <span class="hl kwb">$repeat </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{repeat} </span><span class="hl ipl">$unit</span><span class="hl sng">&quot;</span><span class="hl opt">;</span></li>
<li id="n_2809" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_2810" class="hl">    <span class="hl kwc">chop </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>unit<span class="hl opt">};</span></li>
<li id="n_2811" class="hl">    <span class="hl kwb">$unit </span><span class="hl opt">= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl kwc">ucfirst </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>unit<span class="hl opt">});</span></li>
<li id="n_2812" class="hl">    <span class="hl kwb">$repeat </span><span class="hl opt">= </span><span class="hl kwb">$unit</span><span class="hl opt">;</span></li>
<li id="n_2813" class="hl">      <span class="hl opt">}</span></li>
<li id="n_2814" class="hl"></li>
<li id="n_2815" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>ndx<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_2816" class="hl">      </li>
<li id="n_2817" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(!</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>expired<span class="hl opt">}) {</span></li>
<li id="n_2818" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>overdue<span class="hl opt">} &lt;= </span><span class="hl num">0</span><span class="hl opt">) {</span></li>
<li id="n_2819" class="hl">      <span class="hl kwb">$k++</span><span class="hl opt">;</span></li>
<li id="n_2820" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>ndx<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td nowrap<span class="hl opt">&gt;&lt;</span>input name<span class="hl opt">=</span><span class="hl sng">&quot;ndx_</span><span class="hl ipl">$k</span><span class="hl sng">&quot;</span> <span class="hl kwa">class</span><span class="hl opt">=</span>checkbox type<span class="hl opt">=</span>checkbox value<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">} </span>checked<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_2821" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2822" class="hl">      <span class="hl opt">}</span></li>
<li id="n_2823" class="hl">      </li>
<li id="n_2824" class="hl">      <span class="hl kwb">$reference </span><span class="hl opt">= (</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">}) ? </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">} : </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Next Number&#39;</span><span class="hl opt">);</span></li>
<li id="n_2825" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>reference<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td nowrap<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}?</span>action<span class="hl opt">=</span>edit_recurring<span class="hl opt">&amp;</span>id<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}&amp;</span>vc<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>vc<span class="hl opt">}&amp;</span>path<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>path<span class="hl opt">}&amp;</span>login<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>login<span class="hl opt">}&amp;</span>sessionid<span class="hl opt">=</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>sessionid<span class="hl opt">}&amp;</span>module<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">}&amp;</span>invoice<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">}&amp;</span>transaction<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>transaction<span class="hl opt">}&amp;</span>recurringnextdate<span class="hl opt">=</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>nextdate<span class="hl opt">}&gt;</span><span class="hl kwb">$reference</span><span class="hl opt">&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_2826" class="hl"></li>
<li id="n_2827" class="hl">      <span class="hl kwb">$module </span><span class="hl opt">= </span><span class="hl sng">&quot;</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{module}.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_2828" class="hl">      <span class="hl kwb">$type </span><span class="hl opt">= </span><span class="hl sng">&quot;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2829" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;ar&#39;</span><span class="hl opt">) {</span></li>
<li id="n_2830" class="hl">    <span class="hl kwb">$module </span><span class="hl opt">= </span><span class="hl sng">&quot;is.pl&quot;</span> <span class="hl kwa">if </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">};</span></li>
<li id="n_2831" class="hl">    <span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">} /= </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>exchangerate<span class="hl opt">};</span></li>
<li id="n_2832" class="hl">      <span class="hl opt">}</span></li>
<li id="n_2833" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;ap&#39;</span><span class="hl opt">) {</span></li>
<li id="n_2834" class="hl">    <span class="hl kwb">$module </span><span class="hl opt">= </span><span class="hl sng">&quot;ir.pl&quot;</span> <span class="hl kwa">if </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">};</span></li>
<li id="n_2835" class="hl">    <span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">} /= </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>exchangerate<span class="hl opt">};</span></li>
<li id="n_2836" class="hl">      <span class="hl opt">}</span></li>
<li id="n_2837" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;oe&#39;</span><span class="hl opt">) {</span></li>
<li id="n_2838" class="hl">    <span class="hl kwb">$type </span><span class="hl opt">= (</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>vc<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;customer&#39;</span><span class="hl opt">) ? </span><span class="hl sng">&quot;sales_order&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;purchase_order&quot;</span><span class="hl opt">;</span></li>
<li id="n_2839" class="hl">      <span class="hl opt">}</span></li>
<li id="n_2840" class="hl"></li>
<li id="n_2841" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>id<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td<span class="hl opt">&gt;&lt;</span>a href<span class="hl opt">=</span><span class="hl sng">&quot;</span><span class="hl ipl">$module?action</span><span class="hl sng">=edit&amp;id=</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{id}&amp;vc=</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{vc}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&amp;type=</span><span class="hl ipl">$type&amp;readonly</span><span class="hl sng">=1&quot;</span><span class="hl opt">&gt;</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">}&lt;</span><span class="hl kwd">/a&gt;&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_2842" class="hl">      </li>
<li id="n_2843" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>repeat<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;</span><span class="hl kwb">$repeat</span><span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;|;</span></li>
<li id="n_2844" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>howmany<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>howmany<span class="hl opt">}).</span><span class="hl sng">&quot;&lt;/td&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2845" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>amount<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>td align<span class="hl opt">=</span><span class="hl sng">&quot;right&quot;</span> nowrap<span class="hl opt">&gt;|.</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">}, </span><span class="hl num">2</span><span class="hl opt">).</span><span class="hl sng">&quot;&lt;/td&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2846" class="hl">      </li>
<li id="n_2847" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>recurringemail<span class="hl opt">} = </span><span class="hl sng">&quot;&lt;td nowrap&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2848" class="hl">      <span class="hl kwb">&#64;f </span><span class="hl opt">= </span><span class="hl kwc">split </span><span class="hl kwd">/:/</span><span class="hl opt">, </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>recurringemail<span class="hl opt">};</span></li>
<li id="n_2849" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl num">0 </span><span class="hl opt">.. </span><span class="hl kwb">$#f</span><span class="hl opt">) { </span><span class="hl kwb">$column_data</span><span class="hl opt">{</span>recurringemail<span class="hl opt">} .= </span><span class="hl sng">&quot;</span><span class="hl ipl">$f</span><span class="hl sng">{</span><span class="hl ipl">$f</span><span class="hl sng">[</span><span class="hl ipl">$_</span><span class="hl sng">]}&lt;br&gt;&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2850" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>recurringemail<span class="hl opt">} .= </span><span class="hl sng">&quot;&lt;/td&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2851" class="hl">      </li>
<li id="n_2852" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>recurringprint<span class="hl opt">} = </span><span class="hl sng">&quot;&lt;td nowrap&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2853" class="hl">      <span class="hl kwb">&#64;f </span><span class="hl opt">= </span><span class="hl kwc">split </span><span class="hl kwd">/:/</span><span class="hl opt">, </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>recurringprint<span class="hl opt">};</span></li>
<li id="n_2854" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl num">0 </span><span class="hl opt">.. </span><span class="hl kwb">$#f</span><span class="hl opt">) { </span><span class="hl kwb">$column_data</span><span class="hl opt">{</span>recurringprint<span class="hl opt">} .= </span><span class="hl sng">&quot;</span><span class="hl ipl">$f</span><span class="hl sng">{</span><span class="hl ipl">$f</span><span class="hl sng">[</span><span class="hl ipl">$_</span><span class="hl sng">]}&lt;br&gt;&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2855" class="hl">      <span class="hl kwb">$column_data</span><span class="hl opt">{</span>recurringprint<span class="hl opt">} .= </span><span class="hl sng">&quot;&lt;/td&gt;&quot;</span><span class="hl opt">;</span></li>
<li id="n_2856" class="hl"></li>
<li id="n_2857" class="hl">      <span class="hl kwb">$j++</span><span class="hl opt">; </span><span class="hl kwb">$j </span><span class="hl opt">%= </span><span class="hl num">2</span><span class="hl opt">;</span></li>
<li id="n_2858" class="hl">      <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2859" class="hl">      <span class="hl opt">&lt;</span>tr <span class="hl kwa">class</span><span class="hl opt">=</span>listrow<span class="hl kwb">$j</span><span class="hl opt">&gt;</span></li>
<li id="n_2860" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2861" class="hl"></li>
<li id="n_2862" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">&#64;column_index</span><span class="hl opt">) { </span><span class="hl kwc">print </span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng"></span><span class="hl ipl">$column_data</span><span class="hl sng">{</span><span class="hl ipl">$_</span><span class="hl sng">}&quot;</span> <span class="hl opt">}</span></li>
<li id="n_2863" class="hl"></li>
<li id="n_2864" class="hl">      <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2865" class="hl">      <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2866" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2867" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2868" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2869" class="hl"></li>
<li id="n_2870" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2871" class="hl">        <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2872" class="hl">      <span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2873" class="hl">    <span class="hl opt">&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2874" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2875" class="hl">  <span class="hl opt">&lt;</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2876" class="hl">    <span class="hl opt">&lt;</span>td<span class="hl opt">&gt;&lt;</span>hr size<span class="hl opt">=</span><span class="hl num">3 </span>noshade<span class="hl opt">&gt;&lt;/</span>td<span class="hl opt">&gt;</span></li>
<li id="n_2877" class="hl">  <span class="hl opt">&lt;/</span>tr<span class="hl opt">&gt;</span></li>
<li id="n_2878" class="hl"><span class="hl opt">&lt;/</span>table<span class="hl opt">&gt;</span></li>
<li id="n_2879" class="hl"></li>
<li id="n_2880" class="hl"><span class="hl opt">&lt;</span>input name<span class="hl opt">=</span>lastndx type<span class="hl opt">=</span>hidden value<span class="hl opt">=</span><span class="hl kwb">$k</span><span class="hl opt">&gt;</span></li>
<li id="n_2881" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2882" class="hl"></li>
<li id="n_2883" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">hide_form</span><span class="hl opt">(</span><span class="hl sng">qw(path login sessionid)</span><span class="hl opt">);</span></li>
<li id="n_2884" class="hl"></li>
<li id="n_2885" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2886" class="hl"><span class="hl opt">&lt;</span>button <span class="hl kwa">class</span><span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> type<span class="hl opt">=</span><span class="hl sng">&quot;submit&quot;</span> name<span class="hl opt">=</span><span class="hl sng">&quot;action&quot;</span> value<span class="hl opt">=</span><span class="hl sng">&quot;process_transactions&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Process Transactions&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|&lt;/</span>button<span class="hl opt">&gt;| </span><span class="hl kwa">if </span><span class="hl kwb">$k</span><span class="hl opt">;</span></li>
<li id="n_2887" class="hl"></li>
<li id="n_2888" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>lynx<span class="hl opt">}) {</span></li>
<li id="n_2889" class="hl">    <span class="hl kwa">require </span><span class="hl sng">&quot;bin/menu.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_2890" class="hl">    <span class="hl opt">&amp;</span>menubar<span class="hl opt">;</span></li>
<li id="n_2891" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2892" class="hl">  </li>
<li id="n_2893" class="hl">  <span class="hl kwc">print </span>qq<span class="hl opt">|</span></li>
<li id="n_2894" class="hl"><span class="hl opt">&lt;/</span>form<span class="hl opt">&gt;</span></li>
<li id="n_2895" class="hl">  </li>
<li id="n_2896" class="hl"><span class="hl opt">&lt;/</span>body<span class="hl opt">&gt;</span></li>
<li id="n_2897" class="hl"><span class="hl opt">&lt;/</span>html<span class="hl opt">&gt;</span></li>
<li id="n_2898" class="hl"><span class="hl opt">|;</span></li>
<li id="n_2899" class="hl"></li>
<li id="n_2900" class="hl"><span class="hl opt">}</span></li>
<li id="n_2901" class="hl"></li>
<li id="n_2902" class="hl"></li>
<li id="n_2903" class="hl"><span class="hl kwa">sub </span>edit_recurring <span class="hl opt">{</span></li>
<li id="n_2904" class="hl"></li>
<li id="n_2905" class="hl">  <span class="hl kwb">%links </span><span class="hl opt">= ( </span>ar <span class="hl opt">=&gt; </span><span class="hl sng">&#39;create_links&#39;</span><span class="hl opt">,</span></li>
<li id="n_2906" class="hl">             ap <span class="hl opt">=&gt; </span><span class="hl sng">&#39;create_links&#39;</span><span class="hl opt">,</span></li>
<li id="n_2907" class="hl">         gl <span class="hl opt">=&gt; </span><span class="hl sng">&#39;create_links&#39;</span><span class="hl opt">,</span></li>
<li id="n_2908" class="hl">         <span class="hl kwa">is </span><span class="hl opt">=&gt; </span><span class="hl sng">&#39;invoice_links&#39;</span><span class="hl opt">,</span></li>
<li id="n_2909" class="hl">         ir <span class="hl opt">=&gt; </span><span class="hl sng">&#39;invoice_links&#39;</span><span class="hl opt">,</span></li>
<li id="n_2910" class="hl">         oe <span class="hl opt">=&gt; </span><span class="hl sng">&#39;order_links&#39;</span><span class="hl opt">,</span></li>
<li id="n_2911" class="hl">       <span class="hl opt">);</span></li>
<li id="n_2912" class="hl">  <span class="hl kwb">%prepare </span><span class="hl opt">= ( </span><span class="hl kwa">is </span><span class="hl opt">=&gt; </span><span class="hl sng">&#39;prepare_invoice&#39;</span><span class="hl opt">,</span></li>
<li id="n_2913" class="hl">               ir <span class="hl opt">=&gt; </span><span class="hl sng">&#39;prepare_invoice&#39;</span><span class="hl opt">,</span></li>
<li id="n_2914" class="hl">           oe <span class="hl opt">=&gt; </span><span class="hl sng">&#39;prepare_order&#39;</span><span class="hl opt">,</span></li>
<li id="n_2915" class="hl">             <span class="hl opt">);</span></li>
<li id="n_2916" class="hl"></li>
<li id="n_2917" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}?action=recurring_transactions&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&quot;</span><span class="hl opt">;</span></li>
<li id="n_2918" class="hl"> </li>
<li id="n_2919" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;transaction&quot;</span><span class="hl opt">;</span></li>
<li id="n_2920" class="hl">  </li>
<li id="n_2921" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;ar&#39;</span><span class="hl opt">) {</span></li>
<li id="n_2922" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">}) {</span></li>
<li id="n_2923" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;invoice&quot;</span><span class="hl opt">;</span></li>
<li id="n_2924" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} = </span><span class="hl sng">&quot;is&quot;</span><span class="hl opt">;</span></li>
<li id="n_2925" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2926" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2927" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;ap&#39;</span><span class="hl opt">) {</span></li>
<li id="n_2928" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">}) {</span></li>
<li id="n_2929" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;invoice&quot;</span><span class="hl opt">;</span></li>
<li id="n_2930" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} = </span><span class="hl sng">&quot;ir&quot;</span><span class="hl opt">;</span></li>
<li id="n_2931" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2932" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2933" class="hl">  </li>
<li id="n_2934" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} </span><span class="hl kwc">eq </span><span class="hl sng">&#39;oe&#39;</span><span class="hl opt">) {</span></li>
<li id="n_2935" class="hl">    <span class="hl kwb">%tr </span><span class="hl opt">= ( </span>so <span class="hl opt">=&gt; </span>sales_order<span class="hl opt">,</span></li>
<li id="n_2936" class="hl">            po <span class="hl opt">=&gt; </span>purchase_order<span class="hl opt">,</span></li>
<li id="n_2937" class="hl">      <span class="hl opt">);</span></li>
<li id="n_2938" class="hl">        </li>
<li id="n_2939" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl kwb">$tr</span><span class="hl opt">{</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transaction<span class="hl opt">}};</span></li>
<li id="n_2940" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2941" class="hl"></li>
<li id="n_2942" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{module}.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_2943" class="hl">  <span class="hl kwa">do </span><span class="hl sng">&quot;bin/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}&quot;</span><span class="hl opt">;</span></li>
<li id="n_2944" class="hl"></li>
<li id="n_2945" class="hl">  <span class="hl opt">&amp;{ </span><span class="hl kwb">$links</span><span class="hl opt">{</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">}} };</span></li>
<li id="n_2946" class="hl">  </li>
<li id="n_2947" class="hl">  <span class="hl slc"># return if transaction doesn&#39;t exist</span></li>
<li id="n_2948" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect </span><span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>recurring<span class="hl opt">};</span></li>
<li id="n_2949" class="hl"> </li>
<li id="n_2950" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$prepare</span><span class="hl opt">{</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">}}) {</span></li>
<li id="n_2951" class="hl">    <span class="hl opt">&amp;{ </span><span class="hl kwb">$prepare</span><span class="hl opt">{</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">}} };</span></li>
<li id="n_2952" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2953" class="hl">  </li>
<li id="n_2954" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>selectformat<span class="hl opt">} = </span>qq<span class="hl opt">|&lt;</span>option value<span class="hl opt">=</span><span class="hl sng">&quot;html&quot;</span><span class="hl opt">&gt;</span>html<span class="hl esc">\n</span><span class="hl opt">|;</span></li>
<li id="n_2955" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(${</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>latex<span class="hl opt">}) {</span></li>
<li id="n_2956" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>selectformat<span class="hl opt">} .= </span>qq<span class="hl opt">|</span></li>
<li id="n_2957" class="hl">            <span class="hl opt">&lt;</span>option value<span class="hl opt">=</span><span class="hl sng">&quot;postscript&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Postscript&#39;</span><span class="hl opt">).</span>qq<span class="hl opt">|</span></li>
<li id="n_2958" class="hl">        <span class="hl opt">&lt;</span>option value<span class="hl opt">=</span><span class="hl sng">&quot;pdf&quot;</span><span class="hl opt">&gt;|.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;PDF&#39;</span><span class="hl opt">);</span></li>
<li id="n_2959" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2960" class="hl"></li>
<li id="n_2961" class="hl">  <span class="hl opt">&amp;</span>schedule<span class="hl opt">;</span></li>
<li id="n_2962" class="hl">    </li>
<li id="n_2963" class="hl"><span class="hl opt">}</span></li>
<li id="n_2964" class="hl"></li>
<li id="n_2965" class="hl"></li>
<li id="n_2966" class="hl"><span class="hl kwa">sub </span>process_transactions <span class="hl opt">{</span></li>
<li id="n_2967" class="hl"></li>
<li id="n_2968" class="hl">  <span class="hl slc"># save variables</span></li>
<li id="n_2969" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">$pt </span><span class="hl opt">= </span>new Form<span class="hl opt">;</span></li>
<li id="n_2970" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwc">keys </span><span class="hl kwb">%$form</span><span class="hl opt">) { </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_2971" class="hl"></li>
<li id="n_2972" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">$defaultprinter</span><span class="hl opt">;</span></li>
<li id="n_2973" class="hl">  <span class="hl kwa">while </span><span class="hl opt">(</span><span class="hl kwc">my </span><span class="hl opt">(</span><span class="hl kwb">$key</span><span class="hl opt">, </span><span class="hl kwb">$value</span><span class="hl opt">) = </span><span class="hl kwc">each </span><span class="hl opt">%{</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>printer<span class="hl opt">}) {</span></li>
<li id="n_2974" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$value </span><span class="hl opt">=~ </span><span class="hl kwd">/lpr/</span><span class="hl opt">) {</span></li>
<li id="n_2975" class="hl">      <span class="hl kwb">$defaultprinter </span><span class="hl opt">= </span><span class="hl kwb">$key</span><span class="hl opt">;</span></li>
<li id="n_2976" class="hl">      <span class="hl kwa">last</span><span class="hl opt">;</span></li>
<li id="n_2977" class="hl">    <span class="hl opt">}</span></li>
<li id="n_2978" class="hl">  <span class="hl opt">}</span></li>
<li id="n_2979" class="hl"></li>
<li id="n_2980" class="hl">  <span class="hl kwb">$myconfig</span><span class="hl opt">{</span>vclimit<span class="hl opt">} = </span><span class="hl num">0</span><span class="hl opt">;</span></li>
<li id="n_2981" class="hl">  <span class="hl kwb">%f </span><span class="hl opt">= &amp;</span>formnames<span class="hl opt">;</span></li>
<li id="n_2982" class="hl">  </li>
<li id="n_2983" class="hl">  <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwc">my </span><span class="hl kwb">$i </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">; </span><span class="hl kwb">$i </span><span class="hl opt">&lt;= </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>lastndx<span class="hl opt">}; </span><span class="hl kwb">$i++</span><span class="hl opt">) {</span></li>
<li id="n_2984" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;ndx_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">}) {</span></li>
<li id="n_2985" class="hl">      <span class="hl kwb">$id </span><span class="hl opt">= </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;ndx_</span><span class="hl ipl">$i</span><span class="hl sng">&quot;</span><span class="hl opt">};</span></li>
<li id="n_2986" class="hl">      </li>
<li id="n_2987" class="hl">      <span class="hl slc"># process transaction</span></li>
<li id="n_2988" class="hl">      AM-<span class="hl opt">&gt;</span><span class="hl kwd">recurring_details</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$pt</span><span class="hl opt">, </span><span class="hl kwb">$id</span><span class="hl opt">);</span></li>
<li id="n_2989" class="hl"></li>
<li id="n_2990" class="hl">      <span class="hl kwb">$header </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>header<span class="hl opt">};</span></li>
<li id="n_2991" class="hl">      <span class="hl slc"># reset $form</span></li>
<li id="n_2992" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwc">keys </span><span class="hl kwb">%$form</span><span class="hl opt">) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}; }</span></li>
<li id="n_2993" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(login path sessionid stylesheet timeout)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}; }</span></li>
<li id="n_2994" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>id<span class="hl opt">} = </span><span class="hl kwb">$id</span><span class="hl opt">;</span></li>
<li id="n_2995" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>header<span class="hl opt">} = </span><span class="hl kwb">$header</span><span class="hl opt">;</span></li>
<li id="n_2996" class="hl"></li>
<li id="n_2997" class="hl">      <span class="hl slc"># post, print, email</span></li>
<li id="n_2998" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>arid<span class="hl opt">} || </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>apid<span class="hl opt">} || </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>oeid<span class="hl opt">}) {</span></li>
<li id="n_2999" class="hl">    <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>arid<span class="hl opt">} || </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>apid<span class="hl opt">}) {</span></li>
<li id="n_3000" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>arid<span class="hl opt">}) {</span></li>
<li id="n_3001" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">} = (</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">}) ? </span><span class="hl sng">&quot;is.pl&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;ar.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_3002" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ARAP<span class="hl opt">} = </span><span class="hl sng">&quot;AR&quot;</span><span class="hl opt">;</span></li>
<li id="n_3003" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} = </span><span class="hl sng">&quot;ar&quot;</span><span class="hl opt">;</span></li>
<li id="n_3004" class="hl">        <span class="hl kwb">$invfld </span><span class="hl opt">= </span><span class="hl sng">&quot;sinumber&quot;</span><span class="hl opt">;</span></li>
<li id="n_3005" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3006" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">} = (</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">}) ? </span><span class="hl sng">&quot;ir.pl&quot;</span> <span class="hl opt">: </span><span class="hl sng">&quot;ap.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_3007" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ARAP<span class="hl opt">} = </span><span class="hl sng">&quot;AP&quot;</span><span class="hl opt">;</span></li>
<li id="n_3008" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} = </span><span class="hl sng">&quot;ap&quot;</span><span class="hl opt">;</span></li>
<li id="n_3009" class="hl">        <span class="hl kwb">$invfld </span><span class="hl opt">= </span><span class="hl sng">&quot;vinumber&quot;</span><span class="hl opt">;</span></li>
<li id="n_3010" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3011" class="hl">      <span class="hl kwa">do </span><span class="hl sng">&quot;bin/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}&quot;</span><span class="hl opt">;</span></li>
<li id="n_3012" class="hl"></li>
<li id="n_3013" class="hl">          <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">}) {</span></li>
<li id="n_3014" class="hl">        <span class="hl opt">&amp;</span>invoice_links<span class="hl opt">;</span></li>
<li id="n_3015" class="hl">        <span class="hl opt">&amp;</span>prepare_invoice<span class="hl opt">;</span></li>
<li id="n_3016" class="hl">        </li>
<li id="n_3017" class="hl">        <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwc">keys </span><span class="hl kwb">%$form</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">unquote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_3018" class="hl"></li>
<li id="n_3019" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3020" class="hl">        <span class="hl opt">&amp;</span>create_links<span class="hl opt">;</span></li>
<li id="n_3021" class="hl"></li>
<li id="n_3022" class="hl">            <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;transaction&quot;</span><span class="hl opt">;</span></li>
<li id="n_3023" class="hl">            <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl num">1 </span><span class="hl opt">.. </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>rowcount<span class="hl opt">} - </span><span class="hl num">1</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;amount_</span><span class="hl ipl">$_</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;amount_</span><span class="hl ipl">$_</span><span class="hl sng">&quot;</span><span class="hl opt">}, </span><span class="hl num">2</span><span class="hl opt">) }</span></li>
<li id="n_3024" class="hl">        <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl num">1 </span><span class="hl opt">.. </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>paidaccounts<span class="hl opt">}) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;paid_</span><span class="hl ipl">$_</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">format_amount</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;paid_</span><span class="hl ipl">$_</span><span class="hl sng">&quot;</span><span class="hl opt">}, </span><span class="hl num">2</span><span class="hl opt">) }</span></li>
<li id="n_3025" class="hl"></li>
<li id="n_3026" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3027" class="hl">      </li>
<li id="n_3028" class="hl">      <span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{ARAP}_links&quot;</span><span class="hl opt">};</span></li>
<li id="n_3029" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(acc_trans invoice_details)</span><span class="hl opt">) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_3030" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(department employee language month partsgroup project years)</span><span class="hl opt">) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;all_</span><span class="hl ipl">$_</span><span class="hl sng">&quot;</span><span class="hl opt">} }</span></li>
<li id="n_3031" class="hl">      </li>
<li id="n_3032" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">} = </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">};</span></li>
<li id="n_3033" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transdate<span class="hl opt">} = </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>nextdate<span class="hl opt">};</span></li>
<li id="n_3034" class="hl"></li>
<li id="n_3035" class="hl">          <span class="hl slc"># tax accounts</span></li>
<li id="n_3036" class="hl">          <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">all_taxaccounts</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwc">undef</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transdate<span class="hl opt">});</span></li>
<li id="n_3037" class="hl">      </li>
<li id="n_3038" class="hl">      <span class="hl slc"># calculate duedate</span></li>
<li id="n_3039" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>duedate<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">add_date</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transdate<span class="hl opt">}, </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>overdue<span class="hl opt">}, </span><span class="hl sng">&quot;days&quot;</span><span class="hl opt">);</span></li>
<li id="n_3040" class="hl"></li>
<li id="n_3041" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>payment<span class="hl opt">}) {</span></li>
<li id="n_3042" class="hl">        <span class="hl slc"># calculate date paid</span></li>
<li id="n_3043" class="hl">        <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">$j </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">; </span><span class="hl kwb">$j </span><span class="hl opt">&lt;= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>paidaccounts<span class="hl opt">}; </span><span class="hl kwb">$j++</span><span class="hl opt">) {</span></li>
<li id="n_3044" class="hl">          <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;datepaid_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">add_date</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transdate<span class="hl opt">}, </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>paid<span class="hl opt">}, </span><span class="hl sng">&quot;days&quot;</span><span class="hl opt">);</span></li>
<li id="n_3045" class="hl"></li>
<li id="n_3046" class="hl">          <span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{ARAP}_paid_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">}) = </span><span class="hl kwc">split </span><span class="hl kwd">/--/</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{ARAP}_paid_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">};</span></li>
<li id="n_3047" class="hl">          <span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;cleared_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">};</span></li>
<li id="n_3048" class="hl">        <span class="hl opt">}</span></li>
<li id="n_3049" class="hl">        </li>
<li id="n_3050" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>paidaccounts<span class="hl opt">}++;</span></li>
<li id="n_3051" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3052" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>paidaccounts<span class="hl opt">} = -</span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_3053" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3054" class="hl"></li>
<li id="n_3055" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(id recurring intnotes printed emailed queued)</span><span class="hl opt">) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_3056" class="hl"></li>
<li id="n_3057" class="hl">      <span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ARAP<span class="hl opt">}}) = </span><span class="hl kwc">split </span><span class="hl kwd">/--/</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>ARAP<span class="hl opt">}};</span></li>
<li id="n_3058" class="hl"></li>
<li id="n_3059" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">update_defaults</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl sng">&quot;</span><span class="hl ipl">$invfld</span><span class="hl sng">&quot;</span><span class="hl opt">) </span><span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">};</span></li>
<li id="n_3060" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">};</span></li>
<li id="n_3061" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(invnumber reference)</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">unquote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_3062" class="hl"></li>
<li id="n_3063" class="hl">          <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>invoice<span class="hl opt">}) {</span></li>
<li id="n_3064" class="hl">        <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>arid<span class="hl opt">}) {</span></li>
<li id="n_3065" class="hl">          <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Posting Sales Invoice [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">}));</span></li>
<li id="n_3066" class="hl">          <span class="hl kwb">$ok </span><span class="hl opt">= </span>IS-<span class="hl opt">&gt;</span><span class="hl kwd">post_invoice</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_3067" class="hl">        <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3068" class="hl">          <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Posting Vendor Invoice [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">}));</span></li>
<li id="n_3069" class="hl">          <span class="hl kwb">$ok </span><span class="hl opt">= </span>IR-<span class="hl opt">&gt;</span><span class="hl kwd">post_invoice</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_3070" class="hl">        <span class="hl opt">}</span></li>
<li id="n_3071" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3072" class="hl">        <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>arid<span class="hl opt">}) {</span></li>
<li id="n_3073" class="hl">          <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Posting Transaction [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">}));</span></li>
<li id="n_3074" class="hl">        <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3075" class="hl">          <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Posting Transaction [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>invnumber<span class="hl opt">}));</span></li>
<li id="n_3076" class="hl">        <span class="hl opt">}</span></li>
<li id="n_3077" class="hl"></li>
<li id="n_3078" class="hl">        <span class="hl kwb">$ok </span><span class="hl opt">= </span>AA-<span class="hl opt">&gt;</span><span class="hl kwd">post_transaction</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_3079" class="hl">        </li>
<li id="n_3080" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3081" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;done&#39;</span><span class="hl opt">));</span></li>
<li id="n_3082" class="hl">      </li>
<li id="n_3083" class="hl">      <span class="hl slc"># print form</span></li>
<li id="n_3084" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(${</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>latex<span class="hl opt">} &amp;&amp; </span><span class="hl kwb">$ok</span><span class="hl opt">) {</span></li>
<li id="n_3085" class="hl">        <span class="hl kwb">$ok </span><span class="hl opt">= &amp;</span>print_recurring<span class="hl opt">(</span>\<span class="hl kwb">%$pt</span><span class="hl opt">, </span><span class="hl kwb">$defaultprinter</span><span class="hl opt">);</span></li>
<li id="n_3086" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3087" class="hl">      </li>
<li id="n_3088" class="hl">      <span class="hl opt">&amp;</span>email_recurring<span class="hl opt">(</span>\<span class="hl kwb">%$pt</span><span class="hl opt">) </span><span class="hl kwa">if </span><span class="hl kwb">$ok</span><span class="hl opt">;</span></li>
<li id="n_3089" class="hl">      </li>
<li id="n_3090" class="hl">    <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3091" class="hl"></li>
<li id="n_3092" class="hl">      <span class="hl slc"># order</span></li>
<li id="n_3093" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">} = </span><span class="hl sng">&quot;oe.pl&quot;</span><span class="hl opt">;</span></li>
<li id="n_3094" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>module<span class="hl opt">} = </span><span class="hl sng">&quot;oe&quot;</span><span class="hl opt">;</span></li>
<li id="n_3095" class="hl"></li>
<li id="n_3096" class="hl">      <span class="hl kwb">$ordnumber </span><span class="hl opt">= </span><span class="hl sng">&quot;ordnumber&quot;</span><span class="hl opt">;</span></li>
<li id="n_3097" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>customer_id<span class="hl opt">}) {</span></li>
<li id="n_3098" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>vc<span class="hl opt">} = </span><span class="hl sng">&quot;customer&quot;</span><span class="hl opt">;</span></li>
<li id="n_3099" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;sales_order&quot;</span><span class="hl opt">;</span></li>
<li id="n_3100" class="hl">        <span class="hl kwb">$ordfld </span><span class="hl opt">= </span><span class="hl sng">&quot;sonumber&quot;</span><span class="hl opt">;</span></li>
<li id="n_3101" class="hl">        <span class="hl kwb">$flabel </span><span class="hl opt">= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Sales Order&#39;</span><span class="hl opt">);</span></li>
<li id="n_3102" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3103" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>vc<span class="hl opt">} = </span><span class="hl sng">&quot;vendor&quot;</span><span class="hl opt">;</span></li>
<li id="n_3104" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>type<span class="hl opt">} = </span><span class="hl sng">&quot;purchase_order&quot;</span><span class="hl opt">;</span></li>
<li id="n_3105" class="hl">        <span class="hl kwb">$ordfld </span><span class="hl opt">= </span><span class="hl sng">&quot;ponumber&quot;</span><span class="hl opt">;</span></li>
<li id="n_3106" class="hl">        <span class="hl kwb">$flabel </span><span class="hl opt">= </span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Purchase Order&#39;</span><span class="hl opt">);</span></li>
<li id="n_3107" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3108" class="hl">      <span class="hl kwa">require </span><span class="hl sng">&quot;bin/</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}&quot;</span><span class="hl opt">;</span></li>
<li id="n_3109" class="hl"></li>
<li id="n_3110" class="hl">      <span class="hl opt">&amp;</span>order_links<span class="hl opt">;</span></li>
<li id="n_3111" class="hl">      <span class="hl opt">&amp;</span>prepare_order<span class="hl opt">;</span></li>
<li id="n_3112" class="hl"></li>
<li id="n_3113" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwc">keys </span><span class="hl kwb">%$form</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">unquote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_3114" class="hl">      </li>
<li id="n_3115" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$ordnumber</span><span class="hl opt">} = </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">};</span></li>
<li id="n_3116" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transdate<span class="hl opt">} = </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>nextdate<span class="hl opt">};</span></li>
<li id="n_3117" class="hl">      </li>
<li id="n_3118" class="hl">      <span class="hl slc"># calculate reqdate</span></li>
<li id="n_3119" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>reqdate<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">add_date</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transdate<span class="hl opt">}, </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>req<span class="hl opt">}, </span><span class="hl sng">&quot;days&quot;</span><span class="hl opt">) </span><span class="hl kwa">if </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>reqdate<span class="hl opt">};</span></li>
<li id="n_3120" class="hl"></li>
<li id="n_3121" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(id recurring intnotes printed emailed queued)</span><span class="hl opt">) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_3122" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl num">1 </span><span class="hl opt">.. </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>rowcount<span class="hl opt">}) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;orderitems_id_</span><span class="hl ipl">$_</span><span class="hl sng">&quot;</span><span class="hl opt">} }</span></li>
<li id="n_3123" class="hl"></li>
<li id="n_3124" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$ordnumber</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">update_defaults</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span><span class="hl sng">&quot;</span><span class="hl ipl">$ordfld</span><span class="hl sng">&quot;</span><span class="hl opt">) </span><span class="hl kwa">unless </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$ordnumber</span><span class="hl opt">};</span></li>
<li id="n_3125" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$ordnumber</span><span class="hl opt">};</span></li>
<li id="n_3126" class="hl">      <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl ipl">$ordnumber</span><span class="hl sng">&quot;</span><span class="hl opt">, </span><span class="hl sng">&quot;reference&quot;</span><span class="hl opt">) { </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} = </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">unquote</span><span class="hl opt">(</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">}) }</span></li>
<li id="n_3127" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>closed<span class="hl opt">} = </span><span class="hl num">0</span><span class="hl opt">;</span></li>
<li id="n_3128" class="hl"></li>
<li id="n_3129" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Saving [_1] [_2]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$flabel</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$ordnumber</span><span class="hl opt">}));</span></li>
<li id="n_3130" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ok </span><span class="hl opt">= </span>OE-<span class="hl opt">&gt;</span><span class="hl kwd">save</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">)) {</span></li>
<li id="n_3131" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;done&#39;</span><span class="hl opt">));</span></li>
<li id="n_3132" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3133" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;failed&#39;</span><span class="hl opt">));</span></li>
<li id="n_3134" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3135" class="hl"></li>
<li id="n_3136" class="hl">      <span class="hl slc"># print form</span></li>
<li id="n_3137" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(${</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>latex<span class="hl opt">} &amp;&amp; </span><span class="hl kwb">$ok</span><span class="hl opt">) {</span></li>
<li id="n_3138" class="hl">        <span class="hl opt">&amp;</span>print_recurring<span class="hl opt">(</span>\<span class="hl kwb">%$pt</span><span class="hl opt">, </span><span class="hl kwb">$defaultprinter</span><span class="hl opt">);</span></li>
<li id="n_3139" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3140" class="hl"></li>
<li id="n_3141" class="hl">      <span class="hl opt">&amp;</span>email_recurring<span class="hl opt">(</span>\<span class="hl kwb">%$pt</span><span class="hl opt">);</span></li>
<li id="n_3142" class="hl"></li>
<li id="n_3143" class="hl">    <span class="hl opt">}</span></li>
<li id="n_3144" class="hl"></li>
<li id="n_3145" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3146" class="hl">    <span class="hl slc"># GL transaction</span></li>
<li id="n_3147" class="hl">    GL-<span class="hl opt">&gt;</span><span class="hl kwd">transaction</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_3148" class="hl">    </li>
<li id="n_3149" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">} = </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">};</span></li>
<li id="n_3150" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>transdate<span class="hl opt">} = </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>nextdate<span class="hl opt">};</span></li>
<li id="n_3151" class="hl"></li>
<li id="n_3152" class="hl">    <span class="hl kwb">$j </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_3153" class="hl">    <span class="hl kwa">foreach </span><span class="hl kwb">$ref </span><span class="hl opt">(&#64;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>GL<span class="hl opt">} }) {</span></li>
<li id="n_3154" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;accno_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{accno}--</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{description}&quot;</span><span class="hl opt">;</span></li>
<li id="n_3155" class="hl"></li>
<li id="n_3156" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;projectnumber_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl sng">&quot;</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{projectnumber}--</span><span class="hl ipl">$ref</span><span class="hl sng">-&gt;{project_id}&quot;</span> <span class="hl kwa">if </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>project_id<span class="hl opt">};</span></li>
<li id="n_3157" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;fx_transaction_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>fx_transaction<span class="hl opt">};</span></li>
<li id="n_3158" class="hl"></li>
<li id="n_3159" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">} &lt; </span><span class="hl num">0</span><span class="hl opt">) {</span></li>
<li id="n_3160" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;debit_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">} * -</span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_3161" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3162" class="hl">        <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl sng">&quot;credit_</span><span class="hl ipl">$j</span><span class="hl sng">&quot;</span><span class="hl opt">} = </span><span class="hl kwb">$ref</span><span class="hl opt">-&gt;{</span>amount<span class="hl opt">};</span></li>
<li id="n_3163" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3164" class="hl"></li>
<li id="n_3165" class="hl">      <span class="hl kwb">$j++</span><span class="hl opt">;</span></li>
<li id="n_3166" class="hl">    <span class="hl opt">}</span></li>
<li id="n_3167" class="hl">    </li>
<li id="n_3168" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>rowcount<span class="hl opt">} = </span><span class="hl kwb">$j</span><span class="hl opt">;</span></li>
<li id="n_3169" class="hl"></li>
<li id="n_3170" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl sng">qw(id recurring)</span><span class="hl opt">) { </span><span class="hl kwc">delete </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} }</span></li>
<li id="n_3171" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Posting GL Transaction [_1]&#39;</span><span class="hl opt">, </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>reference<span class="hl opt">}));</span></li>
<li id="n_3172" class="hl">    <span class="hl kwb">$ok </span><span class="hl opt">= </span>GL-<span class="hl opt">&gt;</span><span class="hl kwd">post_transaction</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$form</span><span class="hl opt">);</span></li>
<li id="n_3173" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;done&#39;</span><span class="hl opt">));</span></li>
<li id="n_3174" class="hl">    </li>
<li id="n_3175" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3176" class="hl"></li>
<li id="n_3177" class="hl">      AM-<span class="hl opt">&gt;</span><span class="hl kwd">update_recurring</span><span class="hl opt">(</span>\<span class="hl kwb">%myconfig</span><span class="hl opt">, </span>\<span class="hl kwb">%$pt</span><span class="hl opt">, </span><span class="hl kwb">$id</span><span class="hl opt">) </span><span class="hl kwa">if </span><span class="hl kwb">$ok</span><span class="hl opt">;</span></li>
<li id="n_3178" class="hl"></li>
<li id="n_3179" class="hl">    <span class="hl opt">}</span></li>
<li id="n_3180" class="hl">  <span class="hl opt">}</span></li>
<li id="n_3181" class="hl"></li>
<li id="n_3182" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>callback<span class="hl opt">} = </span><span class="hl sng">&quot;am.pl?action=recurring_transactions&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&amp;header=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{header}&quot;</span><span class="hl opt">;</span></li>
<li id="n_3183" class="hl">  <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">redirect</span><span class="hl opt">;</span></li>
<li id="n_3184" class="hl"></li>
<li id="n_3185" class="hl"><span class="hl opt">}</span></li>
<li id="n_3186" class="hl"></li>
<li id="n_3187" class="hl"></li>
<li id="n_3188" class="hl"><span class="hl kwa">sub </span>print_recurring <span class="hl opt">{</span></li>
<li id="n_3189" class="hl">  <span class="hl kwc">my </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">, </span><span class="hl kwb">$defaultprinter</span><span class="hl opt">) = </span><span class="hl kwb">&#64;_</span><span class="hl opt">;</span></li>
<li id="n_3190" class="hl">  <span class="hl kwa">use </span>List<span class="hl opt">::</span>Util <span class="hl sng">qw(first)</span><span class="hl opt">;</span></li>
<li id="n_3191" class="hl"></li>
<li id="n_3192" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">%f </span><span class="hl opt">= &amp;</span>formnames<span class="hl opt">;</span></li>
<li id="n_3193" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">$ok </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_3194" class="hl">  </li>
<li id="n_3195" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>recurringprint<span class="hl opt">}) {</span></li>
<li id="n_3196" class="hl">    <span class="hl kwb">&#64;f </span><span class="hl opt">= </span><span class="hl kwc">split </span><span class="hl kwd">/:/</span><span class="hl opt">, </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>recurringprint<span class="hl opt">};</span></li>
<li id="n_3197" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">$j </span><span class="hl opt">= </span><span class="hl num">0</span><span class="hl opt">; </span><span class="hl kwb">$j </span><span class="hl opt">&lt;= </span><span class="hl kwb">$#f</span><span class="hl opt">; </span><span class="hl kwb">$j </span><span class="hl opt">+= </span><span class="hl num">3</span><span class="hl opt">) {</span></li>
<li id="n_3198" class="hl">      <span class="hl kwb">$media </span><span class="hl opt">= </span><span class="hl kwb">$f</span><span class="hl opt">[</span><span class="hl kwb">$j+2</span><span class="hl opt">];</span></li>
<li id="n_3199" class="hl">      <span class="hl kwb">$media </span><span class="hl opt">||= </span><span class="hl kwb">$myconfig</span><span class="hl opt">-&gt;{</span>printer<span class="hl opt">} </span></li>
<li id="n_3200" class="hl">        <span class="hl kwa">if </span><span class="hl opt">${</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>printer<span class="hl opt">}{</span><span class="hl kwb">$myconfig</span><span class="hl opt">-&gt;{</span>printer<span class="hl opt">}};</span></li>
<li id="n_3201" class="hl">      <span class="hl kwb">$media </span><span class="hl opt">||= </span><span class="hl kwb">$defaultprinter</span><span class="hl opt">;</span></li>
<li id="n_3202" class="hl">      </li>
<li id="n_3203" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Printing&#39;</span><span class="hl opt">).</span><span class="hl sng">&quot; &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">{</span><span class="hl kwb">$f</span><span class="hl opt">[</span><span class="hl kwb">$j</span><span class="hl opt">]}).</span><span class="hl sng">&quot; </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{reference}&quot;</span><span class="hl opt">);</span></li>
<li id="n_3204" class="hl"></li>
<li id="n_3205" class="hl">      <span class="hl kwb">&#64;a </span><span class="hl opt">= (</span><span class="hl sng">&quot;perl&quot;</span><span class="hl opt">, </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}&quot;</span><span class="hl opt">, </span><span class="hl sng">&quot;action=reprint&amp;module=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{module}&amp;type=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{type}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&amp;id=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{id}&amp;formname=</span><span class="hl ipl">$f</span><span class="hl sng">[</span><span class="hl ipl">$j</span><span class="hl sng">]&amp;format=</span><span class="hl ipl">$f</span><span class="hl sng">[</span><span class="hl ipl">$j+1</span><span class="hl sng">]&amp;media=</span><span class="hl ipl">$media&amp;vc</span><span class="hl sng">=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{vc}&amp;ARAP=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{ARAP}&quot;</span><span class="hl opt">);</span></li>
<li id="n_3206" class="hl"></li>
<li id="n_3207" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Invalid redirect&#39;</span><span class="hl opt">)) </span><span class="hl kwa">unless</span></li>
<li id="n_3208" class="hl">        first <span class="hl opt">{</span><span class="hl kwb">$_ </span><span class="hl kwc">eq </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}} &#64;{</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>scripts<span class="hl opt">};</span></li>
<li id="n_3209" class="hl">      <span class="hl kwb">$ok </span><span class="hl opt">= !(</span><span class="hl kwc">system</span><span class="hl opt">(</span><span class="hl kwb">&#64;a</span><span class="hl opt">));</span></li>
<li id="n_3210" class="hl">      </li>
<li id="n_3211" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ok</span><span class="hl opt">) {</span></li>
<li id="n_3212" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;done&#39;</span><span class="hl opt">));</span></li>
<li id="n_3213" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3214" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;failed&#39;</span><span class="hl opt">));</span></li>
<li id="n_3215" class="hl">    <span class="hl kwa">last</span><span class="hl opt">;</span></li>
<li id="n_3216" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3217" class="hl">    <span class="hl opt">}</span></li>
<li id="n_3218" class="hl">  <span class="hl opt">}</span></li>
<li id="n_3219" class="hl"></li>
<li id="n_3220" class="hl">  <span class="hl kwb">$ok</span><span class="hl opt">;</span></li>
<li id="n_3221" class="hl">  </li>
<li id="n_3222" class="hl"><span class="hl opt">}</span></li>
<li id="n_3223" class="hl"></li>
<li id="n_3224" class="hl"></li>
<li id="n_3225" class="hl"><span class="hl kwa">sub </span>email_recurring <span class="hl opt">{</span></li>
<li id="n_3226" class="hl">  <span class="hl kwc">my </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">) = </span><span class="hl kwb">&#64;_</span><span class="hl opt">;</span></li>
<li id="n_3227" class="hl">  <span class="hl kwa">use </span>List<span class="hl opt">::</span>Util <span class="hl sng">qw(first)</span><span class="hl opt">;</span></li>
<li id="n_3228" class="hl"></li>
<li id="n_3229" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">%f </span><span class="hl opt">= &amp;</span>formnames<span class="hl opt">;</span></li>
<li id="n_3230" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">$ok </span><span class="hl opt">= </span><span class="hl num">1</span><span class="hl opt">;</span></li>
<li id="n_3231" class="hl">  </li>
<li id="n_3232" class="hl">  <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>recurringemail<span class="hl opt">}) {</span></li>
<li id="n_3233" class="hl"></li>
<li id="n_3234" class="hl">    <span class="hl kwb">&#64;f </span><span class="hl opt">= </span><span class="hl kwc">split </span><span class="hl kwd">/:/</span><span class="hl opt">, </span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>recurringemail<span class="hl opt">};</span></li>
<li id="n_3235" class="hl">    <span class="hl kwa">for </span><span class="hl opt">(</span><span class="hl kwb">$j </span><span class="hl opt">= </span><span class="hl num">0</span><span class="hl opt">; </span><span class="hl kwb">$j </span><span class="hl opt">&lt;= </span><span class="hl kwb">$#f</span><span class="hl opt">; </span><span class="hl kwb">$j </span><span class="hl opt">+= </span><span class="hl num">2</span><span class="hl opt">) {</span></li>
<li id="n_3236" class="hl">      </li>
<li id="n_3237" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot;</span><span class="hl esc">\n</span><span class="hl sng">&quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Sending&#39;</span><span class="hl opt">).</span><span class="hl sng">&quot; &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl kwb">$f</span><span class="hl opt">{</span><span class="hl kwb">$f</span><span class="hl opt">[</span><span class="hl kwb">$j</span><span class="hl opt">]}).</span><span class="hl sng">&quot; </span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{reference}&quot;</span><span class="hl opt">);</span></li>
<li id="n_3238" class="hl"></li>
<li id="n_3239" class="hl">      <span class="hl slc"># no email, bail out</span></li>
<li id="n_3240" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(!</span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>email<span class="hl opt">}) {</span></li>
<li id="n_3241" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;E-mail address missing!&#39;</span><span class="hl opt">));</span></li>
<li id="n_3242" class="hl">    <span class="hl kwa">last</span><span class="hl opt">;</span></li>
<li id="n_3243" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3244" class="hl">      </li>
<li id="n_3245" class="hl">      <span class="hl kwb">$message </span><span class="hl opt">= </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">escape</span><span class="hl opt">(</span><span class="hl kwb">$pt</span><span class="hl opt">-&gt;{</span>message<span class="hl opt">},</span><span class="hl num">1</span><span class="hl opt">);</span></li>
<li id="n_3246" class="hl">      </li>
<li id="n_3247" class="hl">      <span class="hl kwb">&#64;a </span><span class="hl opt">= (</span><span class="hl sng">&quot;perl&quot;</span><span class="hl opt">, </span><span class="hl sng">&quot;</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{script}&quot;</span><span class="hl opt">, </span><span class="hl sng">&quot;action=reprint&amp;module=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{module}&amp;type=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{type}&amp;login=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{login}&amp;path=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{path}&amp;sessionid=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{sessionid}&amp;id=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{id}&amp;formname=</span><span class="hl ipl">$f</span><span class="hl sng">[</span><span class="hl ipl">$j</span><span class="hl sng">]&amp;format=</span><span class="hl ipl">$f</span><span class="hl sng">[</span><span class="hl ipl">$j+1</span><span class="hl sng">]&amp;media=email&amp;vc=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{vc}&amp;ARAP=</span><span class="hl ipl">$form</span><span class="hl sng">-&gt;{ARAP}&amp;message=</span><span class="hl ipl">$message</span><span class="hl sng">&quot;</span><span class="hl opt">);</span></li>
<li id="n_3248" class="hl"></li>
<li id="n_3249" class="hl">      <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">error</span><span class="hl opt">(</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;Invalid redirect&#39;</span><span class="hl opt">)) </span><span class="hl kwa">unless</span></li>
<li id="n_3250" class="hl">        first <span class="hl opt">{</span><span class="hl kwb">$_ </span><span class="hl kwc">eq </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>script<span class="hl opt">}} &#64;{</span>LedgerSMB<span class="hl opt">::</span>Sysconfig<span class="hl opt">::</span>scripts<span class="hl opt">};</span></li>
<li id="n_3251" class="hl">      <span class="hl kwb">$ok </span><span class="hl opt">= !(</span><span class="hl kwc">system</span><span class="hl opt">(</span><span class="hl kwb">&#64;a</span><span class="hl opt">));</span></li>
<li id="n_3252" class="hl">      </li>
<li id="n_3253" class="hl">      <span class="hl kwa">if </span><span class="hl opt">(</span><span class="hl kwb">$ok</span><span class="hl opt">) {</span></li>
<li id="n_3254" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;done&#39;</span><span class="hl opt">));</span></li>
<li id="n_3255" class="hl">      <span class="hl opt">} </span><span class="hl kwa">else </span><span class="hl opt">{</span></li>
<li id="n_3256" class="hl">    <span class="hl kwb">$form</span><span class="hl opt">-&gt;</span><span class="hl kwd">info</span><span class="hl opt">(</span><span class="hl sng">&quot; ..... &quot;</span><span class="hl opt">.</span><span class="hl kwb">$locale</span><span class="hl opt">-&gt;</span><span class="hl kwd">text</span><span class="hl opt">(</span><span class="hl sng">&#39;failed&#39;</span><span class="hl opt">));</span></li>
<li id="n_3257" class="hl">    <span class="hl kwa">last</span><span class="hl opt">;</span></li>
<li id="n_3258" class="hl">      <span class="hl opt">}</span></li>
<li id="n_3259" class="hl">    <span class="hl opt">}</span></li>
<li id="n_3260" class="hl">  <span class="hl opt">}</span></li>
<li id="n_3261" class="hl"></li>
<li id="n_3262" class="hl">  <span class="hl kwb">$ok</span><span class="hl opt">;</span></li>
<li id="n_3263" class="hl">  </li>
<li id="n_3264" class="hl"><span class="hl opt">}</span></li>
<li id="n_3265" class="hl"></li>
<li id="n_3266" class="hl"></li>
<li id="n_3267" class="hl"></li>
<li id="n_3268" class="hl"><span class="hl kwa">sub </span>formnames <span class="hl opt">{</span></li>
<li id="n_3269" class="hl">  </li>
<li id="n_3270" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Transaction&#39;)</span></li>
<li id="n_3271" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Invoice&#39;)</span></li>
<li id="n_3272" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Credit Invoice&#39;)</span></li>
<li id="n_3273" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Debit Invoice&#39;)</span></li>
<li id="n_3274" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Packing List&#39;)</span></li>
<li id="n_3275" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Pick List&#39;)</span></li>
<li id="n_3276" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Sales Order&#39;)</span></li>
<li id="n_3277" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Work Order&#39;)</span></li>
<li id="n_3278" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Purchase Order&#39;)</span></li>
<li id="n_3279" class="hl"><span class="hl slc"># $locale-&gt;text(&#39;Bin List&#39;)</span></li>
<li id="n_3280" class="hl"> </li>
<li id="n_3281" class="hl">  <span class="hl kwc">my </span><span class="hl kwb">%f </span><span class="hl opt">= ( </span>transaction <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Transaction&#39;</span><span class="hl opt">,</span></li>
<li id="n_3282" class="hl">        invoice <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Invoice&#39;</span><span class="hl opt">,</span></li>
<li id="n_3283" class="hl">     credit_invoice <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Credit Invoice&#39;</span><span class="hl opt">,</span></li>
<li id="n_3284" class="hl">      debit_invoice <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Debit Invoice&#39;</span><span class="hl opt">,</span></li>
<li id="n_3285" class="hl">       packing_list <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Packing List&#39;</span><span class="hl opt">,</span></li>
<li id="n_3286" class="hl">          pick_list <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Pick List&#39;</span><span class="hl opt">,</span></li>
<li id="n_3287" class="hl">        sales_order <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Sales Order&#39;</span><span class="hl opt">,</span></li>
<li id="n_3288" class="hl">         work_order <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Work Order&#39;</span><span class="hl opt">,</span></li>
<li id="n_3289" class="hl">     purchase_order <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Purchase Order&#39;</span><span class="hl opt">,</span></li>
<li id="n_3290" class="hl">               bin_list <span class="hl opt">=&gt; </span><span class="hl sng">&#39;Bin List&#39;</span><span class="hl opt">,</span></li>
<li id="n_3291" class="hl">          <span class="hl opt">);        </span></li>
<li id="n_3292" class="hl"></li>
<li id="n_3293" class="hl">  <span class="hl kwb">%f</span><span class="hl opt">;</span></li>
<li id="n_3294" class="hl"></li>
<li id="n_3295" class="hl"><span class="hl opt">}</span></li>
<li id="n_3296" class="hl"></li>
<li id="n_3297" class="hl"></li>
<li id="n_3298" class="hl"><span class="hl kwa">sub continue </span><span class="hl opt">{ &amp;{ </span><span class="hl kwb">$form</span><span class="hl opt">-&gt;{</span>nextsub<span class="hl opt">} } };</span></li>
<li id="n_3299" class="hl"></li>
</ol></code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.3</a> (<a href='https://git-scm.com/'>git 2.46.0</a>) at 2025-06-02 02:43:57 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>
