Merge http://git.defcon.no/trk

diff --git a/trk b/trk
index f4297adc95a5d6edf1630f22d6b5b156fa2c1ce3..c39e02b45c9d131b2e433ee51c89e0e83bd3cffb 100755 (executable)
--- a/trk
+++ b/trk
@@ -584,7 +584,15 @@ elsif ( ( $command eq "projects" ) || ( $command eq "list" )  )
        #foreach my $id ( keys %$tracks )
        foreach my $id ( sort { $tracks->{$a} cmp $tracks->{$b} || $a cmp $b } keys %$tracks  )
        {
-               printf(" %s %s\n", ($id eq $current ? ">" : " " ),$tracks->{$id} );
+       
+               if (( $#ARGV >= 1) && ( $ARGV[1] eq "verbose" ))
+               {
+                       printf(" %s %s %s\n", ($id eq $current ? ">" : " " ), $id , $tracks->{$id});
+               }
+               else
+               {
+                       printf(" %s %s\n", ($id eq $current ? ">" : " " ),$tracks->{$id} );
+               }
        }
        print("\n");
 }