<%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. # <%args> $session <%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> my $return = $m->comp('../internal/head-page.html',title=>'Initial workscreen',session=>$session);
% foreach my $current_line (@results) { % my $cpt; % my $weblocal; % foreach my $current_entry (@{$current_line}) { % if ($cpt == 0) % { % $weblocal = $current_entry; % } % else { % } % $cpt++; % } % }
Agent ID Agent type
<% $current_entry %> Type : <% $current_entry %>
>
<%perl> my $endbody = $m->comp('../internal/end-page.html');