A Real Example - perl

sub PrintComplainantList {

use Text::Template;

no strict;

disable diagnostics;

$session = shift;

$template = new Text::Template( TYPE => FILE,

SOURCE => "$main::docroot/parties.tmpl");

# get the list of respondents by case number

$dbh = &Database::connectToDB();

if ($dbh) {

$CaseNo = $dbh->($caseno);

$sql = qq[

SELECT user_id, email, last

FROM claimant_cases

WHERE case_id = $CaseNo];

Previous slide

Next slide

Back to first slide

View graphic version