use Messages
authordjk <djk>
Fri, 19 Nov 1999 01:28:37 +0000 (01:28 +0000)
committerdjk <djk>
Fri, 19 Nov 1999 01:28:37 +0000 (01:28 +0000)
cmd/show/sun.pl

index 8d7d79ae6b9d9e593b982d94710e7388cd69e24a..80eb54ee57985fe1af96077243969775ec3276d5 100644 (file)
@@ -43,7 +43,7 @@ if (@list) {
        }
 }
 
-push @out, "                                      Rise   Set      Azim   Elev";
+push @out, $self->msg('sun');
 foreach $l (@in) {
        my ($rise, $set, $az, $dec )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],0);
        $l->[3] =~ s{(-\d+|/\w+)$}{};