diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-09-03 21:05:32 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-09-03 21:05:32 -0400 |
| commit | f53a9be4532e0eb7af36414d0622d71cd66967d5 (patch) | |
| tree | eb40bba5ce9cc22e238aa9ac838dfc45bfd36dec | |
| parent | a2747ec5990fb5ee6fde74767d8fd44f838b5346 (diff) | |
| download | GradeBook-f53a9be4532e0eb7af36414d0622d71cd66967d5.tar.gz GradeBook-f53a9be4532e0eb7af36414d0622d71cd66967d5.zip | |
removed unneeded new line selector
| -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"; } |