+sub do_csv_schedule {
+ $| = 1;
+ my %days = (M => "Mon", T => "Tue", W => "Wed", R => "Thu", F => "Fri", S => "Sat", U => "SU");
+ my @mon = qw(Jan. Feb. Mar. Apr. May June July Aug. Sept. Oct. Nov. Dec.);
+ my (@terms, $file, $current, @mhc, @schedule);
+ @schedule = get_schedule(@_);
+ $file = shift unless (!defined $_[0] or $_[0] =~ /^\d/);
+ open(STDOUT, ">" . $file) if(defined($file));
+ foreach my $row (@schedule) {
+ map {s/\n/-/g if defined; $_} %$row;
+ my $id=generate_id($row->{'id'});
+ $row->{'days'} =~ s/([MTWRFS])/ $days{$1}/g;
+ $row->{'days'} =~ s/^ //;
+ $row->{'instructor'} =~ s/(.*), (.*)/$2 $1/;
+ my $next = next_class(%$row);
+ $current = "";
+ #print "# $id\n";
+ $current .= $row->{'id'} . ",";
+ $current .= $row->{'title'} . ",";
+ $current .= $row->{'instructor'} . ",";
+ $next =~ /^(\d\d\d\d)(\d\d)(\d\d)$/;
+ $current .= $1 . "-". $2 ."-" . $3 . "\n";
+ print $current;
+ }
+}
+