This repository has been archived by the owner. It is now read-only.
Permalink
Browse files

Tag gitc work correctly

Since the Internal Projects project is so vague, we want to indicate in
the Detail column which rows are for gitc work.
  • Loading branch information...
mndrix committed Jun 21, 2010
1 parent da6e73e commit a62d7304ba717a08d8b0b7a9e4f3ee8d2e406ddb
Showing with 9 additions and 3 deletions.
  1. +9 −3 clk-report-gsgcsv
View
@@ -38,7 +38,6 @@ atom_duration(Atom, Duration) :-
concat_atom([D,'s'], Atom),
atom_number(D,Duration).
-% this isn't working, but it hints at the direction
% The columns in the CSV list are:
% - Project (Overhead, TaxSys, Zions, etc)
% - Client ("",All,Zions Bank, etc)
@@ -79,9 +78,16 @@ c( Entry, Csv ) :-
c( Entry, Csv ) :-
has_tag( Entry, 'gitc' ),
message( Entry, 'user support' ),
- full_project( Csv, 'Internal Projects','','' ),
+ project(Entry, Csv) ?
task(Csv, 'Production Support'),
- detail(Csv, 'gitc user support' ).
+ detail(Csv, 'gitc: user support' ).
+c( Entry, Csv ) :-
+ has_tag( Entry, 'gitc' ),
+ project(Entry, Csv),
+ task(Csv, 'Programming'),
+ message(Entry,Msg),
+ concat_atom(['gitc', Msg], ': ', FullMsg),
+ detail(Csv,FullMsg).
c( Entry, Csv ) :-
message(Entry, 'email'),
detail(Csv, 'reading and responding to email'),

0 comments on commit a62d730

Please sign in to comment.