dolibarr-fork/htdocs/docsoc.php

<?php
/* Copyright (C) 2002-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2008 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2007 Regis Houssin        <regis@dolibarr.fr>
 *
 * 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.
 *
 * 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.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 *
 * $Id$
 */

/**
   \file       htdocs/docsoc.php
   \brief      Fichier onglet documents li<6C>s <20> la soci<63>t<EFBFBD>
   \ingroup    societe
   \version    $Revision$
*/

require("./pre.inc.php");
require_once(DOL_DOCUMENT_ROOT."/lib/company.lib.php");
require_once(DOL_DOCUMENT_ROOT."/html.formfile.class.php");

$langs->load("companies");
$langs->load('other');

$mesg = "";

$socid = isset($_GET["socid"])?$_GET["socid"]:'';
$sortorder=$_GET["sortorder"];
$sortfield=$_GET["sortfield"];
if (! $sortorder) $sortorder="ASC";
if (! $sortfield) $sortfield="name";

// S<>curit<69> d'acc<63>s client et commerciaux
$socid = restrictedArea($user, 'societe', $socid);

/*
 * Actions
 */
$upload_dir = $conf->societe->dir_output . "/" . $socid ;
$courrier_dir = $conf->societe->dir_output . "/courrier/" . get_exdir($socid) ;

// Envoie fichier
if ( $_POST["sendit"] && $conf->upload != 0)
{
  if (! is_dir($upload_dir)) create_exdir($upload_dir);
  
  if (is_dir($upload_dir))
  {
  	$result = doliMoveFileUpload($_FILES['userfile']['tmp_name'], $upload_dir . "/" . $_FILES['userfile']['name']);
  	if ($result == 1)
    {
    	$mesg = '<div class="ok">'.$langs->trans("FileTransferComplete").'</div>';
    	//print_r($_FILES);
    }
    else if (!$result)
    {
    	// Echec transfert (fichier d<>passant la limite ?)
    	$mesg = '<div class="error">'.$langs->trans("ErrorFileNotUploaded").'</div>';
    	// print_r($_FILES);
    }
    else
    {
    	// Fichier infect<63> par un virus
    	$mesg = '<div class="error">'.$langs->trans("ErrorFileIsInfectedWith",$result).'</div>';
    }
  }
}

// Suppression fichier
if ($_POST['action'] == 'confirm_deletefile' && $_POST['confirm'] == 'yes')
{
  $file = $upload_dir . "/" . urldecode($_GET["urlfile"]);
  dol_delete_file($file);
  $mesg = '<div class="ok">'.$langs->trans("FileWasRemoved").'</div>';
}

/*
 * Affichage liste
 */

llxHeader();

if ($socid > 0)
{
	$societe = new Societe($db);
	if ($societe->fetch($socid))
	{
		/*
		* Affichage onglets
		*/
		$head = societe_prepare_head($societe);
		
		$html=new Form($db);
		
		dolibarr_fiche_head($head, 'document', $societe->nom);
		
		/*
	   * Confirmation de la suppression d'une ligne produit
	   */
	  if ($_GET['action'] == 'delete_file')
	  {
	    $html->form_confirm($_SERVER["PHP_SELF"].'?socid='.$socid.'&amp;urlfile='.urldecode($_GET["urlfile"]), $langs->trans('DeleteFile'), $langs->trans('ConfirmDeleteFile'), 'confirm_deletefile');
	    print '<br>';
	  }
		
		// Construit liste des fichiers
		clearstatcache();
		$totalsize=0;
		$filearray=array();
		$errorlevel=error_reporting();
		error_reporting(0);
		$handle=opendir($upload_dir);
		error_reporting($errorlevel);
		if ($handle)
		{
			$i=0;
			while (($file = readdir($handle))!==false)
			{
				if (!is_dir($dir.$file) && substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')
				{
					$filearray[$i]->name=$file;
					$filearray[$i]->size=filesize($upload_dir."/".$file);
					$filearray[$i]->date=filemtime($upload_dir."/".$file);
					$totalsize+=$filearray[$i]->size;
					$i++;
				}
			}
			closedir($handle);
		}
		else
		{
			//            print '<div class="error">'.$langs->trans("ErrorCanNotReadDir",$upload_dir).'</div>';
		}

		print '<table class="border"width="100%">';
		
		// Ref
		print '<tr><td width="30%">'.$langs->trans("Name").'</td><td colspan="3">'.$societe->nom.'</td></tr>';

		// Prefix
		print '<tr><td>'.$langs->trans('Prefix').'</td><td colspan="3">'.$societe->prefix_comm.'</td></tr>';
		
		// Nbre fichiers
		print '<tr><td>'.$langs->trans("NbOfAttachedFiles").'</td><td colspan="3">'.sizeof($filearray).'</td></tr>';
		
		//Total taille
		print '<tr><td>'.$langs->trans("TotalSizeOfAttachedFiles").'</td><td colspan="3">'.$totalsize.' '.$langs->trans("bytes").'</td></tr>';
		
		print '</table>';
		
		print '</div>';
		
		if ($mesg) { print "$mesg<br>"; }
		
		// Affiche formulaire upload
       	$formfile=new FormFile($db);
		$formfile->form_attach_new_file(DOL_URL_ROOT.'/docsoc.php?socid='.$socid);
		
		// Affiche liste des documents existant
		print_titre($langs->trans("AttachedFiles"));

		/**
		 * TODO Mettre cette section dans une zone AJAX
		 */ 
		$prefix=$socid.'/';
		$modulepart='societe';
		$url=$_SERVER["PHP_SELF"];
		print '<table width="100%" class="noborder">';
		print '<tr class="liste_titre">';
		$param='&amp;socid='.$socid;
		print_liste_field_titre($langs->trans("Document"),$_SERVER["PHP_SELF"],"name","",$param,'align="left"',$sortfield,$sortorder);
		print_liste_field_titre($langs->trans("Size"),$_SERVER["PHP_SELF"],"size","",$param,'align="right"',$sortfield,$sortorder);
		print_liste_field_titre($langs->trans("Date"),$_SERVER["PHP_SELF"],"date","",$param,'align="center"',$sortfield,$sortorder);
		print '<td>&nbsp;</td>';
		print '</tr>';
		
		function compare_file($a, $b)
		{
			global $sortorder;
			global $sortfield;
			
			$sortorder=strtoupper($sortorder);
			
			if ($sortorder == 'ASC') { $retup=-1; $retdown=1; }
			else { $retup=1; $retdown=-1; }
			
			if ($sortfield == 'name')
			{
				if ($a->name == $b->name) return 0;
				return ($a->name < $b->name) ? $retup : $retdown;
			}
			if ($sortfield == 'date')
			{
				if ($a->date == $b->date) return 0;
				return ($a->date < $b->date) ? $retup : $retdown;
			}
			if ($sortfield == 'size')
			{
				if ($a->size == $b->size) return 0;
				return ($a->size < $b->size) ? $retup : $retdown;
			}
		}

		usort($filearray,"compare_file");
		
		$var=true;
		foreach($filearray as $key => $file)
		{
			if (!is_dir($dir.$file->name) && substr($file->name, 0, 1) <> '.' && substr($file->name, 0, 3) <> 'CVS')
			{
				$var=!$var;
				print "<tr $bc[$var]><td>";
				echo '<a href="'.DOL_URL_ROOT.'/document.php?modulepart='.$modulepart.'&type=application/binary&file='.urlencode($prefix.$file->name).'">'.$file->name.'</a>';
				print "</td>\n";
				print '<td align="right">'.$file->size.' '.$langs->trans("bytes").'</td>';
				print '<td align="center">'.dolibarr_print_date($file->date,"dayhour").'</td>';
				print '<td align="center">';
				echo '<a href="'.$url.'?socid='.$socid.'&amp;action=delete_file&urlfile='.urlencode($file->name).'">'.img_delete().'</a>';
				print "</td></tr>\n";
			}
		}
		print "</table>";
		// Fin de zone Ajax
		
		
		print "<br><br>";
		
		// Courriers
		// Les courriers sont des documents speciaux generes par des scripts
		// situes dans scripts/courrier.
		// Voir Rodo
		if ($conf->global->MAIN_MODULE_EDITEUR)
		{
			$filearray=array();	
			$errorlevel=error_reporting();
			error_reporting(0);
			$handle=opendir($courrier_dir);
			error_reporting($errorlevel);
			if ($handle)
			{
				$i=0;
				while (($file = readdir($handle))!==false)
				{
					if (!is_dir($dir.$file) && substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')
					{
						$filearray[$i]=$file;
						$i++;
					}
				}
				closedir($handle);
			}       	       

			print '<table width="100%" class="noborder">';
			print '<tr class="liste_titre"><td>'.$langs->trans("Courriers").'</td><td align="right">'.$langs->trans("Size").'</td><td align="center">'.$langs->trans("Date").'</td></tr>';

			$var=true;
			foreach($filearray as $key => $file)
			{
				if (!is_dir($dir.$file) && substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')
				{
					$var=!$var;
					print "<tr $bc[$var]><td>";
					$loc = "courrier/".get_exdir($socid);
					echo '<a href="'.DOL_URL_ROOT.'/document.php?modulepart=societe&type=application/binary&file='.urlencode($loc.'/'.$file).'">'.$file.'</a>';
					print "</td>\n";

					print '<td align="right">'.filesize($courrier_dir."/".$file). ' '.$langs->trans("bytes").'</td>';
					print '<td align="center">'.dolibarr_print_date(filemtime($courrier_dir."/".$file),"dayhour").'</td>';
					print "</tr>\n";
				}
			}
			print "</table>";
		}
	}
	else
	{
		dolibarr_print_error($db);
	}
}
else
{
	dolibarr_print_error();
}

$db->close();


llxFooter('$Date$ - $Revision$');

?>