diff options
| -rwxr-xr-x | banner2csv.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/banner2csv.pl b/banner2csv.pl index 31dccc1..c09135f 100755 --- a/banner2csv.pl +++ b/banner2csv.pl @@ -138,19 +138,19 @@ sub spantag_end_handler # and really get the proper one foreach $row ($te->rows) { #student name - $aparser->parse(@$row[1]); + $aparser->parse(@$row[2]); $name=$parsed_text; ($lname, $fname)=split(',', $name); $fname =~ s/^ //; #student id - #print @$row[2]; - $spanparser->parse(@$row[2]); + #print @$row[3]; + $spanparser->parse(@$row[3]); $sid=$parsed_text; - #student name - $aparser->parse(@$row[7]); + #student email + $aparser->parse(@$row[10]); $email = $href; $email =~ s/mailto://; |