[Sommaire] [Imprimer]

   1  <?php
   2  /* Copyright (C) 2005 Laurent Destailleur  <eldy@users.sourceforge.net>
   3   *
   4   * This program is free software; you can redistribute it and/or modify
   5   * it under the terms of the GNU General Public License as published by
   6   * the Free Software Foundation; either version 2 of the License, or
   7   * (at your option) any later version.
   8   *
   9   * This program is distributed in the hope that it will be useful,
  10   * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12   * GNU General Public License for more details.
  13   *
  14   * You should have received a copy of the GNU General Public License
  15   * along with this program; if not, write to the Free Software
  16   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17   *
  18   * $Id: liste.php,v 1.2 2005/08/25 16:57:24 eldy Exp $
  19   * $Source: /cvsroot/dolibarr/dolibarr/htdocs/comm/mailing/liste.php,v $
  20   */
  21  
  22  /**
  23          \file       htdocs/comm/mailing/liste.php
  24          \ingroup    mailing
  25          \brief      Liste des mailings
  26          \version    $Revision: 1.2 $
  27  */
  28  
  29  require ("./pre.inc.php");
  30  
  31  if (!$user->rights->mailing->lire) accessforbidden();
  32  
  33  // Sécurité accés client
  34  if ($user->societe_id > 0) 
  35  {
  36    $action = '';
  37    $socidp = $user->societe_id;
  38  }
  39  
  40  $page=$_GET["page"];
  41  $sortorder=$_GET["sortorder"];
  42  $sortfield=$_GET["sortfield"];
  43  
  44  if ($page == -1) { $page = 0 ; }
  45  $offset = $conf->liste_limit * $_GET["page"] ;
  46  $pageprev = $_GET["page"] - 1;
  47  $pagenext = $_GET["page"] + 1;
  48  
  49  $sall=isset($_GET["sall"])?$_GET["sall"]:$_POST["sall"];
  50  $sref=isset($_GET["sref"])?$_GET["sref"]:$_POST["sref"];
  51  
  52  
  53  llxHeader();
  54  
  55  
  56  $sql = "SELECT m.rowid, m.titre, m.nbemail, m.statut, m.date_creat as datec";
  57  $sql.= " FROM ".MAIN_DB_PREFIX."mailing as m";
  58  $sql.= " WHERE 1=1";
  59  if ($sref) $sql.= " AND m.rowid = '".$sref."'";
  60  if ($sall) $sql.= " AND (m.titre like '%".$sall."%' OR m.sujet like '%".$sall."%' OR m.body like '%".$sall."%')";
  61  if (! $sortorder) $sortorder="ASC";
  62  if (! $sortfield) $sortfield="m.rowid";
  63  $sql .= " ORDER BY $sortfield $sortorder " . $db->plimit($conf->liste_limit +1, $offset);
  64  
  65  $result = $db->query($sql);
  66  if ($result)
  67  {
  68    $num = $db->num_rows($result);
  69  
  70    print_barre_liste($langs->trans("ListOfEMailings"), $page, "liste.php","",$sortfield,$sortorder,"",$num);
  71  
  72    $i = 0;
  73    
  74    $addu = "&amp;sall=".$sall;
  75    print '<table class="liste">';
  76    print '<tr class="liste_titre">';
  77    print_liste_field_titre($langs->trans("Ref"),"liste.php","m.rowid",$addu,"","",$sortfield);
  78    print_liste_field_titre($langs->trans("Title"),"liste.php","m.titre",$addu,"","",$sortfield);
  79    print_liste_field_titre($langs->trans("DateCreation"),"liste.php","m.date_creat",$addu,"",'align="center"',$sortfield);
  80    print_liste_field_titre($langs->trans("NbOfEMails"),"liste.php","m.nbemail",$addu,"",'align="center"',$sortfield);
  81    print_liste_field_titre($langs->trans("Status"),"liste.php","m.statut",$addu,"",'align="center"',$sortfield);
  82    print '<td class="liste_titre">&nbsp;</td>';
  83    print "</tr>\n";
  84  
  85    print '<form method="get" action="clients.php">';
  86    print '<tr class="liste_titre">';
  87    print '<td class="liste_titre" valign="right">';
  88    print '<input type="text" class="flat" name="sref" value="'.$sref.'" size="6">';
  89    print '</td><td class="liste_titre" valign="right">';
  90    print '<input type="text" class="flat" name="sall" value="'.$sall.'" size="40">';
  91    print '</td>';
  92    print '<td class="liste_titre">&nbsp;</td>';
  93    print '<td class="liste_titre">&nbsp;</td>';
  94    print '<td class="liste_titre">&nbsp;</td>';
  95    print '<td class="liste_titre" align="center"><input class="liste_titre" type="image" src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/search.png" alt="'.$langs->trans("Search").'">';
  96    print "</td>";
  97    print "</tr>\n";
  98    print '</form>';
  99    
 100    $var=True;
 101  
 102    $email=new Mailing($db);
 103    
 104    while ($i < min($num,$conf->liste_limit))
 105      {
 106        $obj = $db->fetch_object($result);
 107        
 108        $var=!$var;
 109  
 110        print "<tr $bc[$var]>";
 111        print '<td><a href="'.DOL_URL_ROOT.'/comm/mailing/fiche.php?id='.$obj->rowid.'">';
 112        print img_object($langs->trans("ShowEMail"),"email").' '.stripslashes($obj->rowid).'</a></td>';
 113        print '<td>'.$obj->titre.'</td>';
 114        print '<td align="center">'.dolibarr_print_date($obj->datec).'</td>';
 115        print '<td align="center">'.$obj->nbemail.'</td>';
 116        print '<td align="center">'.$email->statuts[$obj->statut].($obj->statut==2?' '.img_warning():'').'</td>';
 117        print '<td align="center">&nbsp;</td>';
 118        print "</tr>\n";
 119        $i++;
 120      }
 121    print "</table>";
 122    $db->free($result);
 123  }
 124  else
 125  {
 126    dolibarr_print_error($db);
 127  }
 128  
 129  $db->close();
 130  
 131  llxFooter('$Date: 2005/08/25 16:57:24 $ - $Revision: 1.2 $');
 132  ?>