From: Tim Pope <code@tpope.net>
Date: Thu, 9 Sep 2004 04:35:54 +0000 (+0000)
Subject: Fixed typo
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=56bd3054d001082bffd5d370acc3093186a44e6c

Fixed typo
---

diff --git a/perl/sctweb b/perl/sctweb
index 06ff3a9..1fa76cb 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -289,7 +289,7 @@ sub do_mhc_schedule {
 	if(defined($file) && (-d $file)) {
 	    $row->{'instructor'} =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
 	    my $email = get_faculty_email $row->{'instructor'};
-	    $row->{'instructor'} = '"' . $row->{'instructor'} . '" <'. ($email || "$1\@from.sctweb" . ">");
+	    $row->{'instructor'} = '"' . $row->{'instructor'} . '" <'. ($email || "$1\@from.sctweb") . ">";
 	    $row->{'duration'} =~ /^(\d\d\d\d)(\d\d)(\d\d)-\d{8}$/;
 	    $row->{'begin'} =~ /^(\d\d):(\d\d)$/;
 	    my $next = next_class(%$row);
@@ -414,7 +414,15 @@ sub do_html_schedule {
 	    $row->{'duration'} =~ s/\d\d(\d\d)(\d\d)(\d\d)/$2-$3-$1/g;
 	    print '<tr>';
 	    print "<td>" . $row->{'id'} . "<br />" . $row->{'title'} . "</td>";
-	    print "<td>" . $row->{'instructor'} . "</td>";
+	    my $instructor = $row->{'instructor'};
+	    $instructor =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
+	    my $email = get_faculty_email($instructor);
+	    #if($email) {
+		#print '<td><a href="mailto:' . $email . '">'
+		#. $row->{'instructor'} . "</a></td>";
+	    # } else {
+		print "<td>" . $row->{'instructor'} . "</td>";
+	    #}
 	    print "<td>" . $row->{'days'} . "</td>";
 	    print "<td>" . $row->{'time'} . "</td>";
 	    print "<td>" . $row->{'duration'} . "</td>";