1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
open Accountdbase
open Account
let fixme_rexp = Str.regexp "^.*FIXME.*$"
let print_group channel group_name accts =
let sorted_accts = List.sort (fun acct1 -> fun acct2 ->
compare (Account.full_name acct1)
(Account.full_name acct2)) accts
in
output_string channel "<tr><td colspan=\"2\"><b>";
output_string channel group_name;
output_string channel "</b></td></tr>";
List.iter (fun acct ->
let fixme_present =
Account.fold_txns (fun flag -> fun txn ->
if flag
then true
else
Str.string_match fixme_rexp txn.description 0)
false acct
in
output_string channel "<tr><td class=\"groupsummary\"><a href=\"bill-";
output_string channel (Account.short_name acct);
output_string channel ".html\">";
output_string channel (Account.full_name acct);
output_string channel "</a>";
(if fixme_present then
output_string channel " <i>Needs attention.</i>");
output_string channel "</td>";
let must_be_zero =
try Account.lookup_boolean_variable "must_be_zero" acct
with Not_found -> false
in
let total = Account.total acct in
if must_be_zero then
begin
if Sumofmoney.is_zero (Sumofmoney.default_to_normal total) then
output_string channel "<td class=\"grandtotalp\">OK"
else
output_string channel "<td class=\"grandtotaln\">Not correct"
end
else
begin
(if Sumofmoney.non_negative_default total then
output_string channel "<td class=\"grandtotalp\">"
else if Sumofmoney.very_negative_default total then
output_string channel "<td class=\"grandtotaln\">"
else
output_string channel "<td class=\"grandtotalm\">");
output_string channel (Sumofmoney.to_string_default total)
end;
output_string channel "</td></tr>"
) sorted_accts;
output_string channel "<tr><td></td><td></td></tr>"
let emit () =
Misc.verbose "Reading title file.";
let channel = Misc.open_config_file "title" in
try
let title = input_line channel in
Misc.verbose "Preparing to emit the group summary sheet.";
let groups = Accountdbase.group "group" in
let html_channel = Htmlout.create_page "index"
title in
output_string html_channel "<table width=\"100%\">";
AccountsMap.iter (print_group html_channel) groups;
output_string html_channel "</table>";
Htmlout.finish_page html_channel
with End_of_file ->
Misc.fail "Could not read title (check title file has contents)"
|
