A Real Example - More perl

$sth = $dbh->($sql);

$sth->

$NumberOfRows = 0;

@rows = "";

while (@row = $sth->_array) {

# Grab the results, row-by-row

($row_head,@data) = @row;

$row_head = "< href=\"ShowComplainant?Session=$session&Case=$caseno&Party=$row_head\">$row_head</a>";

push(@rows,th($row_head).td(\@data));

$NumberOfRows++;

}

&Database::disconnectFromDB($dbh);

Previous slide

Next slide

Back to first slide

View graphic version