Implement "review required" flag.

diff --git a/lib/WRMS.pm b/lib/WRMS.pm
index ca7c8c1bd257578e8f07158f3834f2e18ee2ce9d..ac6e294734e59ba10dd2a4ea2ed9d3e5255ab96f 100644 (file)
--- 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 bd09bc49ad61dc872667861e8ca610ca837f418b..629feed779d7f49570a31b7c6c4f5e15e3dbb293 100755 (executable)
--- 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} ) {