+if( !$n_offset ) {
+ push @out, $self->msg('sun_with_azel');
+} else {
+ push @out, $self->msg('sun');
+}
+
+foreach $l (@in) {
+ my ($dawn, $rise, $set, $dusk, $az, $dec )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],0);
+
+ $l->[3] =~ s{(-\d+|/\w+)$}{};
+ if( !$n_offset ) {
+ push @out,sprintf("%-6.6s %-30.30s %02d/%02d/%4d %s %s %6.1f %6.1f", $l->[3], $l->[0], $day, $month, $yr, $rise, $set, $az, $dec);
+ } else {
+ push @out,sprintf("%-6.6s %-30.30s %02d/%02d/%4d %s %s", $l->[3], $l->[0], $day, $month, $yr, $rise, $set);
+ }
+}
+
+