From: Nigel McNie <nigel@catalyst.net.nz>
Date: Mon, 30 Jun 2008 00:01:12 +0000 (+1200)
Subject: Implement "review required" flag.
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=11bac21c90b8b9cad43f4da68d3bb9b0650b4cd3;p=tks.git

Implement "review required" flag.
---

diff --git a/lib/WRMS.pm b/lib/WRMS.pm
index ca7c8c1..ac6e294 100644
--- a/lib/WRMS.pm
+++ b/lib/WRMS.pm
@@ -179,7 +179,7 @@ sub saved_search_list {
 
 
 sub add_time {
-    my ($self, $wr, $date, $comment, $hours) = @_;
+    my ($self, $wr, $date, $comment, $hours, $review_needed) = @_;
 
     $self->{mech}->get('/wr.php?request_id=' . $wr . '&edit=1');
 
@@ -192,6 +192,7 @@ sub add_time {
             work_on          => $date,
             work_quantity    => $hours,
             work_description => $comment,
+            review_needed    => $review_needed ? 'on' : '',
             submit           => 'Update',
         },
         button => 'submit',
diff --git a/tks.pl b/tks.pl
index bd09bc4..629feed 100755
--- a/tks.pl
+++ b/tks.pl
@@ -77,7 +77,7 @@ foreach my $date ( sort keys %{$tkdata} ) {
     foreach my $entry ( sort { $a->{wr} <=> $b->{wr} } @{$tkdata->{$date}} ) {
         $date_has_data = 1;
 
-        printf("%s\t%5d\t%.2f\t%s\n", $date, $entry->{wr}, $entry->{time}, $entry->{comment});
+        printf("%s\t%5d\t%.2f\t%s\n", $date, $entry->{wr}, $entry->{time}, ($entry->{review_needed} ? '[review] ' : '') . $entry->{comment});
 
         next unless $args->{'-c'};
 
@@ -89,6 +89,7 @@ foreach my $date ( sort keys %{$tkdata} ) {
             $date,
             $entry->{comment},
             $entry->{time},
+            $entry->{review_needed},
         );
 
         # comment it out in the file
@@ -152,6 +153,13 @@ sub load_timesheet_file {
                 die "Whoops - timesheet data encountered before date?";
             }
 
+            $linedata->{review_needed} = 0;
+            if ( $linedata->{comment} =~ m/ ^ \[ review \] \s* /xms ) {
+                mutter " *** This line requires review: " . $linedata->{line};
+                $linedata->{review_needed} = 1;
+                $linedata->{comment} =~ s/ ^ \[ review \] \s* //xms;
+            }
+
             push @{$result->{$current_date}}, $linedata;
         }
         elsif ( $linedata->{date} ) {