+% my $title;
+% if ( $WeekMonth ) {
+% if ( $date->month == $end->month ) {
+% $title = $rtdate->GetMonth( $date->month -1 ). ' '.
+% $date->day. '-'. $end->day. ', '. $date->year;
+% } elsif ( $date->year == $end->year ) {
+% $title =
+% $rtdate->GetMonth( $date->month -1 ). ' '. $date->day. ' - '.
+% $rtdate->GetMonth( $end->month -1 ). ' '. $end->day. ', '. $end->year;
+% } else {
+% $title =
+% $rtdate->GetMonth( $date->month -1 ). ' '.$date->day. ', '. $date->year.
+% ' - '.
+% $rtdate->GetMonth( $end->month -1 ). ' '.$end->day. ', '. $end->year;
+% }
+% } else {
+% $title = $rtdate->GetMonth($Month) . " $Year"
+% }