diff options
Diffstat (limited to 'banner2csv.pl')
| -rwxr-xr-x | banner2csv.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/banner2csv.pl b/banner2csv.pl index 53a5959..b1943ff 100755 --- a/banner2csv.pl +++ b/banner2csv.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl # FILE: "/home/evmik/src/my_src/GradeBook/banner2csv.pl" -# LAST MODIFICATION: "Mon, 03 Sep 2012 20:06:38 -0400 (evmik)" +# LAST MODIFICATION: "Mon, 03 Sep 2012 21:05:25 -0400 (evmik)" # (C) 2012 by Eugeniy Mikhailov, <evgmik@gmail.com> #use HTML::Entities; @@ -101,7 +101,6 @@ sub spantag_end_handler } -my $first_time = 1; # assumes that we were able to chose a proper table before # and really get the proper one foreach $row ($te->rows) { @@ -111,7 +110,6 @@ foreach $row ($te->rows) { ($lname, $fname)=split(',', $name); $fname =~ s/^ //; - #student id #print @$row[2]; @@ -123,8 +121,10 @@ foreach $row ($te->rows) { $email = $href; $email =~ s/mailto://; + # section + $section = "unknown"; - if ($first_time) {$first_time = 0;} else {print "\n";} - print join(',', $fname, $lname, $sid, $email); + print join(',', $sid, $fname, $lname, $section, $email); + print "\n"; } |