[Jprojecttimer-commits] CVS: jprojecttimer checkTranslation.pl,1.6,1.7

[Christian G. [M. Mitch] <mas...@us...>]

Update of /cvsroot/jprojecttimer/jprojecttimer
In directory sc8-pr-cvs1:/tmp/cvs-serv14110

Modified Files:
	checkTranslation.pl 
Log Message:
Only print error categories when there are errors.


Index: checkTranslation.pl
===================================================================
RCS file: /cvsroot/jprojecttimer/jprojecttimer/checkTranslation.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** checkTranslation.pl	11 Nov 2002 20:32:50 -0000	1.6
--- checkTranslation.pl	23 Nov 2002 22:09:43 -0000	1.7
***************
*** 36,55 ****
      close IN or die "can't close $source: $!";
      
!     print "  multiple keys:\n";
!     foreach my $key (grep $file{$_} > 1, sort keys %file) {
! 	print "*   $key\n";
! 	$err++;
      }
  
!     print "  additional keys:\n";
!     foreach my $key (grep ! $keywords{$_}, sort keys %file) {
! 	print "*   $key\n";
! 	$err++;
      }
  
!     print "  missing keys:\n";
!     foreach my $key (grep ! $file{$_}, sort keys %keywords) {
! 	print "*   $key\n";
! 	$err++;
      }
  
--- 36,64 ----
      close IN or die "can't close $source: $!";
      
!     my @multiple = grep $file{$_} > 1, sort keys %file;
!     if (@multiple) {
! 	print "  multiple keys:\n";
! 	foreach my $key (@multiple) {
! 	    print "*   $key\n";
! 	    $err++;
! 	}
      }
  
!     my @additional = grep ! $keywords{$_}, sort keys %file;
!     if (@additional) {
! 	print "  additional keys:\n";
! 	foreach my $key (@additional) {
! 	    print "*   $key\n";
! 	    $err++;
! 	}
      }
  
!     my @missing = grep ! $file{$_}, sort keys %keywords;
!     if (@missing) {
! 	print "  missing keys:\n";
! 	foreach my $key (@missing) {
! 	    print "*   $key\n";
! 	    $err++;
! 	}
      }