©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