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