chomp;
m/"([^"]*)",([^,]*),([^,]*)/; # "
($name, $email, $school) = ($1, $2, $3);
- $name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
+ #$name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
$name =~ s/ [A-Z]\.//g;
$name = lc $name;
$name =~ s/\W//g;
$current .= "X-SC-Alarm: 15 minutes\n";
$current .= "X-SC-Record-Id: <".$row->{'id'}."\@from.sctweb>\n";
if(defined($file) && (-d $file)) {
- $row->{'instructor'} =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
+ #$row->{'instructor'} =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
my $email = get_faculty_email $row->{'instructor'};
$row->{'instructor'} = '"' . $row->{'instructor'} . '" <'. ($email || ($1 || "unknown") . "\@from.sctweb") . ">";
$row->{'duration'} =~ /^(\d\d\d\d)(\d\d)(\d\d)-\d{8}$/;
my $id=generate_id($row->{'id'});
$row->{'days'} =~ s/([MTWRFS])/ $days{$1}/g;
$row->{'days'} =~ s/^ //;
- $row->{'instructor'} =~ s/^([^,]*), ([^,]*)/$2 $1/;
+ #$row->{'instructor'} =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
my $next = next_class(%$row);
$current = "";
#print "# $id\n";
print "BEGIN:VCALENDAR\r\nVERSION:1.0\r\n";
foreach my $row (@schedule) {
map { s/\n/-/g; $_} %$row;
- $row->{'instructor'} =~ s/^([^,]*), ([^,]*)/$2 $1/;
+ #$row->{'instructor'} =~ s/^([^,]*), ([^,]*)/$2 $1/;
$row->{'days'} =~ s/([MTWRFS])/ $days{$1}/g;
$row->{'days'} =~ s/^ //;
#$row->{'duration'} =~ s/(\d\d)-(\d\d)-(\d\d)/20$3$1$2/g;
print '<span class="sectionid">' .$row->{'id'}. '</span><br />';
print '<span class="coursetitle">' .$row->{'title'}. '</span></td>';
my $instructor = $row->{'instructor'};
- $instructor =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
+ #$instructor =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
my $email = get_faculty_email($instructor);
#if($email) {
#print '<td><a href="mailto:' . $email . '">'