Commit 9bb4fc4f authored by gerd's avatar gerd

fixing the prev commit


git-svn-id: https://godirepo.camlcity.org/svn/app-wtimer/trunk@28 f6fe576d-e0d0-0310-b8e7-f4ac0f1a5269
parent 2b45ac22
......@@ -269,7 +269,7 @@ object (self)
bprintf buf
"PROJECT DATE START END DELTA DESCRIPTION\r\n\r\n";
let new_proj =
Some entry.e_project <> !last in
!last <> None && (Some entry.e_project <> !last) in
let new_day =
!last <> None && not(same_day entry.e_day !last_date) in
let new_week =
......@@ -290,7 +290,7 @@ object (self)
print_mo_sum();
mo_sum := Interval.from_string "0:0"
);
if new_proj && !last <> None then (
if new_proj then (
print_prj_sum();
prj_sum := Interval.from_string "0:0"
);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment