Added categories and Filter widget

templates/debit/list.html.ep

@@ -9,3 +9,5 @@
 <tr><td><a href="/debit/<%= $debit->billId %>"><%= $debit->billId %></a></td><td><%= $debit->date %></td><td><%== nl2br $debit->purpose %></td><td class="number"><%== money $debit->value %></td><td class="number <%= $debit->paid < $debit->value ? "mark" : "" %>"><%== money $debit->paid %><td><a href="/credit/<%= $tgt->credId %>"><%= $tgt->account->ID %></a></tr>
 % }
 </table>
+
+%= include 'filter-widget'

templates/debit/upsert.html.ep

@@ -14,6 +14,17 @@
 % $r{purpose} = begin
     <input id="purpose" name="purpose" style="width:100%" value="<%= $debit->purpose %>">
 % end
+% $r{category} = begin
+%    my $category = $debit->category // '';
+<select id="category" name="category">
+    <option value="">-- Please select --</option>
+% while ( my $c = $categories->next ) {
+        <option value="<%= $c->ID %>" <%== $category == $c->ID ? 'selected="selected"' :'' %>>
+            <%= $c->label %>
+        </option>
+% }
+</select>
+% end
 % $r{value} = begin
     <input id="value" name="value" value="<%= $debit->value %>"> Cent
 % end
@@ -42,10 +53,12 @@ oops
     </optgroup>
 </select>
 % end
+% if ( !stash 'account' ) {
 % $r{debtor} = begin
 % my $g = param 'group';
     <input id="debtor" name="debtor" value="<%= $g ? "\@$g" : $debit->debtor %>">
 % end
+% }
 
 <dl class="upsert">
 % for my $f ( $debit->result_source->columns ) {