aboutsummaryrefslogtreecommitdiff
path: root/banner2csv.pl
diff options
context:
space:
mode:
Diffstat (limited to 'banner2csv.pl')
-rwxr-xr-xbanner2csv.pl10
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://;