From 2e5f326f297b20e91411139aee62f71290b83a9d Mon Sep 17 00:00:00 2001 From: Rodolphe Quiedeville Date: Fri, 27 Feb 2004 11:52:17 +0000 Subject: [PATCH] =?UTF-8?q?Ajout=20la=20liste=20des=20soci=E9t=E9s=20=E0?= =?UTF-8?q?=20contacter?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- htdocs/comm/prospect/index.php | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/htdocs/comm/prospect/index.php b/htdocs/comm/prospect/index.php index b1646546f6b..c1527bf455b 100644 --- a/htdocs/comm/prospect/index.php +++ b/htdocs/comm/prospect/index.php @@ -167,6 +167,38 @@ if ( $db->query($sql) ) print "
"; } } +/* + * Sociétés à contacter + * + */ +$sql = "SELECT s.nom, s.idp"; +$sql .= " FROM ".MAIN_DB_PREFIX."societe as s"; +$sql .= " WHERE s.fk_stcomm = 1"; +$sql .= " ORDER BY s.tms ASC"; +$sql .= $db->plimit(5, 0); + +if ( $db->query($sql) ) +{ + $num = $db->num_rows(); + $i = 0; + if ($num > 0 ) + { + print ''; + print ''; + + while ($i < $num) + { + $obj = $db->fetch_object( $i); + $var=!$var; + print "'; + $i++; + } + print "
Sociétés à contacter
rowid."\">"; + print img_file(); + print ' '.$obj->nom.'

"; + } +} + print ''; print '';