fix: the new extended reports did not print the totals per day/week/month

when skipping to a new project


git-svn-id: https://godirepo.camlcity.org/svn/app-wtimer/trunk@26 f6fe576d-e0d0-0310-b8e7-f4ac0f1a5269

src/export.ml

@@ -268,6 +268,8 @@ object (self)
 	 if !empty then
 	   bprintf buf 
 	     "PROJECT    DATE            START    END  DELTA DESCRIPTION\r\n\r\n";
+         let new_proj =
+           Some entry.e_project <> !last in
          let new_day =
            !last <> None && not(same_day entry.e_day !last_date) in
          let new_week =
@@ -276,19 +278,19 @@ object (self)
            new_day && not(same_month entry.e_day !last_date) in
          let start_day =
            !last=None || new_day in
-         if new_day && daily_total then (
+         if (new_proj || new_day) && daily_total then (
            print_dy_sum();
            dy_sum := Interval.from_string "0:0"
          );
-         if new_week && weekly_total then (
+         if (new_proj || new_week) && weekly_total then (
            print_wk_sum();
            wk_sum := Interval.from_string "0:0"
          );
-         if new_month && monthly_total then (
+         if (new_proj || new_month) && monthly_total then (
            print_mo_sum();
            mo_sum := Interval.from_string "0:0"
          );
-	 if Some entry.e_project <> !last && !last <> None then (
+	 if new_proj && !last <> None then (
 	   print_prj_sum();
 	   prj_sum := Interval.from_string "0:0"
 	 );