©Mike Moxcey 1999

Report Perl Code

print &PrintHeader;
print &HtmlTopTut("Calls in Database");
print <<EOM;
<table border> <tr>
<th>ID Nr</th> <th>Pri</th> <th>Date</th> <th>Time</th>
<th>Name</th> <th>Email</th> <th>Problem</th>
</tr>
EOM

@sql_show = <<ENDOFSQL;
select '<tr><td>', seq, '</td><td>', priority, '</td><td>', open_date,
'</td><td>', to_char(open_date,'HH:MI PM'),
'</td><td>', name, '</td><td>', email,
'</td><td>',substr(problem,1,30), '</td></tr>'
from oratut.calls;
ENDOFSQL

&sql($sql_login,@sql_show);

print "</table>";
print &HtmlBotTut;


home next