%doc>
#
# $Id: sql-test.html,v 1.1 2001/12/17 13:55:16 adulau Exp $
#
# sql-test.html is an example of how to use sql queries
# Authors : Tycho Fruru
# Alexandre Dulaunoy
# Copyright (C) 2001 Tycho Fruru
# Copyright (C) 2001 Conostix S.A. Luxembourg - Tycho Fruru
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 2 of the License, or (at your
# option) any later version. See .
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
%doc><%args>
$session
%args>
<%perl>
#if ($session->{query} eq "")
#{
$session->{query} = "select agent_id,agent_type_name from agents";
#}
my @results = $m->comp('../internal/sql-query.ipfc',query=>$session->{query});
%perl>
<%perl>
my $return = $m->comp('../internal/head-page.html',title=>'Initial workscreen',session=>$session);
%perl>
Agent ID
Agent type
% foreach my $current_line (@results) {
% my $cpt;
% my $weblocal;
% foreach my $current_entry (@{$current_line}) {
% if ($cpt == 0)
% {