* Copyright (c) 2010 Juanjo Menent * * 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. */ /** * \file htdocs/core/class/html.formfile.class.php * \brief Fichier de la classe des fonctions predefinie de composants html fichiers * \version $Id$ */ /** * \class FormFile * \brief Classe permettant la generation de composants html fichiers */ class FormFile { var $db; var $error; /** * \brief Constructeur * \param DB handler d'acces base de donnee */ function FormFile($DB) { $this->db = $DB; return 1; } /** * \brief Show file add form * \param url Url * \param title Title zone (Title or '' or 'none') * \param addcancel 1=Add 'Cancel' button * \param sectionid If upload must be done inside a particular ECM section * \param perm Value of permission to allow upload * \return int <0 si ko, >0 si ok */ function form_attach_new_file($url, $title='', $addcancel=0, $sectionid=0, $perm=1) { global $conf,$langs; $maxlength=62; print "\n\n\n"; if (empty($title)) $title=$langs->trans("AttachANewFile"); if ($title != 'none') print_titre($title); print '
'; print ''; print ''; print ''; print '"; print "
'; $max=$conf->global->MAIN_UPLOAD_DOC; // En Kb $maxphp=@ini_get('upload_max_filesize'); // En inconnu if (preg_match('/m$/i',$maxphp)) $maxphp=$maxphp*1024; if (preg_match('/k$/i',$maxphp)) $maxphp=$maxphp; // Now $max and $maxphp are in Kb if ($maxphp > 0) $max=min($max,$maxphp); if ($max > 0) { print ''; } print 'global->MAIN_UPLOAD_DOC) || empty($perm)?' disabled="true"':''); print '>'; print '   '; print 'global->MAIN_UPLOAD_DOC) || empty($perm)?' disabled="true"':''); print '>'; if ($addcancel) { print '   '; print ''; } if (! empty($conf->global->MAIN_UPLOAD_DOC)) { if ($perm) { print ' ('.$langs->trans("MaxSize").': '.$max.' '.$langs->trans("Kb"); print ' '.info_admin($langs->trans("ThisLimitIsDefinedInSetup",$max,$maxphp),1); print ')'; } } else { print ' ('.$langs->trans("UploadDisabled").')'; } print "
"; print '
'; if (empty($sectionid)) print '
'; print "\n\n\n"; return 1; } /** * \brief Show the box with list of available documents for object * \param modulepart propal=propal, facture=facture, ... * \param filename Sub dir to scan (Example: '9/9', 'FA9999'). Use '' if filedir already complete) * \param filedir Dir to scan * \param urlsource Url of origin page (for return) * \param genallowed Generation is allowed (1/0 or array of formats) * \param delallowed Remove is allowed (1/0) * \param modelselected Model to preselect by default * \param allowgenifempty Show warning if no model activated * \param forcenomultilang Do not show language option (even if MAIN_MULTILANGS defined) * \param iconPDF Show only PDF icon with link (1/0) * \param maxfilenamelength Max length for filename shown * \param noform Do not output html form tags * \param param More param on http links * \param title Title to show on top of form * \param buttonlabel Label on submit button * \param codelang Default language code to use on lang combo box if multilang is enabled * \return int <0 if KO, number of shown files if OK */ function show_documents($modulepart,$filename,$filedir,$urlsource,$genallowed,$delallowed=0,$modelselected='',$allowgenifempty=1,$forcenomultilang=0,$iconPDF=0,$maxfilenamelength=28,$noform=0,$param='',$title='',$buttonlabel='',$codelang='') { // filedir = conf->...dir_ouput."/".get_exdir(id) include_once(DOL_DOCUMENT_ROOT.'/lib/files.lib.php'); global $langs,$bc,$conf; $var=true; if ($iconPDF == 1) { $genallowed = ''; $delallowed = 0; $modelselected = ''; $forcenomultilang=0; } $filename = dol_sanitizeFileName($filename); $headershown=0; $showempty=0; $i=0; print "\n".''."\n"; //print 'filedir='.$filedir; // Affiche en-tete tableau if ($genallowed) { $modellist=array(); if ($modulepart == 'company') { $showempty=1; if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/societe/modules_societe.class.php'); $model=new ModeleThirdPartyDoc(); $modellist=$model->liste_modeles($this->db); } } else if ($modulepart == 'propal') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/propale/modules_propale.php'); $model=new ModelePDFPropales(); $modellist=$model->liste_modeles($this->db); } } else if ($modulepart == 'commande') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/commande/modules_commande.php'); $model=new ModelePDFCommandes(); $modellist=$model->liste_modeles($this->db); } } elseif ($modulepart == 'expedition') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/expedition/pdf/ModelePdfExpedition.class.php'); $model=new ModelePDFExpedition(); $modellist=$model->liste_modeles($this->db); } } elseif ($modulepart == 'livraison') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/livraison/modules_livraison.php'); $model=new ModelePDFDeliveryOrder(); $modellist=$model->liste_modeles($this->db); } } else if ($modulepart == 'ficheinter') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/fichinter/modules_fichinter.php'); $model=new ModelePDFFicheinter(); $modellist=$model->liste_modeles($this->db); } } elseif ($modulepart == 'facture') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/facture/modules_facture.php'); $model=new ModelePDFFactures(); $modellist=$model->liste_modeles($this->db); } } elseif ($modulepart == 'project') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/project/modules_project.php'); $model=new ModelePDFProjects(); $modellist=$model->liste_modeles($this->db); } } elseif ($modulepart == 'export') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/export/modules_export.php'); $model=new ModeleExports(); $modellist=$model->liste_modeles($this->db); } } else if ($modulepart == 'commande_fournisseur') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/supplier_order/modules_commandefournisseur.php'); $model=new ModelePDFSuppliersOrders(); $modellist=$model->liste_modeles($this->db); } } else if ($modulepart == 'facture_fournisseur') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/fourn/facture/modules/modules_facturefournisseur.php'); $model=new ModelePDFFacturesSuppliers(); $modellist=$model->liste_modeles($this->db); } } else if ($modulepart == 'remisecheque') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/cheque/pdf/modules_chequereceipts.php'); $model=new ModeleChequeReceipts(); $modellist=$model->liste_modeles($this->db); } } elseif ($modulepart == 'donation') { if (is_array($genallowed)) $modellist=$genallowed; else { include_once(DOL_DOCUMENT_ROOT.'/includes/modules/dons/modules_don.php'); $model=new ModeleDon(); $modellist=$model->liste_modeles($this->db); } } else if ($modulepart == 'unpaid') { $modellist=''; } else { dol_print_error($this->db,'Bad value for modulepart'); return -1; } $headershown=1; $html = new Form($db); $buttonlabeltoshow=$buttonlabel; if (empty($buttonlabel)) $buttonlabel=$langs->trans('Generate'); if (empty($noform)) print '
'; print ''; print ''; print_titre($langs->trans("Documents")); print ''; print ''; // Model if (! empty($modellist)) { print ''; } else { print ''; } // Language code (if multilang) print ''; // Button print ''; print ''; } // Get list of files $png = ''; $filter = ''; if ($iconPDF==1) { $png = '\.png$'; $filter = $filename.'.pdf'; } $file_list=dol_dir_list($filedir,'files',0,$filter,'\.meta$'.($png?'|'.$png:''),'date',SORT_DESC); // Affiche en-tete tableau si non deja affiche if (sizeof($file_list) && ! $headershown && !$iconPDF) { $headershown=1; $titletoshow=$langs->trans("Documents"); if (! empty($title)) $titletoshow=$title; print_titre($titletoshow); print '
'; print $langs->trans('Model').' '; print $html->selectarray('model',$modellist,$modelselected,$showempty,0,0); print ''; print $langs->trans("Files"); print ''; if (($allowgenifempty || (is_array($modellist) && sizeof($modellist) > 0)) && $conf->global->MAIN_MULTILANGS && ! $forcenomultilang) { include_once(DOL_DOCUMENT_ROOT.'/core/class/html.formadmin.class.php'); $formadmin=new FormAdmin($this->db); $defaultlang=$codelang?$codelang:$langs->getDefaultLang(); print $formadmin->select_language($defaultlang); } else { print ' '; } print ''; print ''; if ($allowgenifempty && ! is_array($modellist) && empty($modellist) && $modulepart != 'unpaid') { $langs->load("errors"); print ' '.img_warning($langs->trans("WarningNoDocumentModelActivated")); } print '
'; } // Loop on each file found foreach($file_list as $i => $file) { $var=!$var; // Define relative path for download link (depends on module) $relativepath=$file["name"]; // Cas general if ($filename) $relativepath=$filename."/".$file["name"]; // Cas propal, facture... // Autre cas if ($modulepart == 'donation') { $relativepath = get_exdir($filename,2).$file["name"]; } if ($modulepart == 'export') { $relativepath = $file["name"]; } if (!$iconPDF) print ""; // Show file name with link to download if (!$iconPDF) print ''; // Affiche taille fichier if (!$iconPDF) print ''; // Affiche date fichier if (!$iconPDF) print ''; if ($delallowed) { print ''; } if (!$iconPDF) print ''; $i++; } if ($headershown) { // Affiche pied du tableau print "
'; print ''; if (!$iconPDF) { print img_mime($file["name"],$langs->trans("File").': '.$file["name"]).' '.dol_trunc($file["name"],$maxfilenamelength); } else { print img_pdf($file["name"],2); } print ''; if (!$iconPDF) print ''.dol_print_size(dol_filesize($filedir."/".$file["name"])).''.dol_print_date(dol_filemtime($filedir."/".$file["name"]),'dayhour').''.img_delete().'
\n"; if ($genallowed) { if (empty($noform)) print '
'."\n"; } } print ''."\n"; return ($i?$i:$headershown); } /** * \brief Show list of documents in a directory * \param filearray Array of files loaded by dol_dir_list function * \param object Object on which document is linked to * \param modulepart Value for modulepart used by download wrapper * \param param Parameters on sort links * \param forcedownload Force to open dialog box "Save As" when clicking on file * \param relativepath Relative path of docs (autodefined if not provided) * \param permtodelete Permission to delete * \param useinecm Change output for use in ecm module * \param textifempty Text to show if filearray is empty * \return int <0 if KO, nb of files shown if OK */ function list_of_documents($filearray,$object,$modulepart,$param,$forcedownload=0,$relativepath='',$permtodelete=1,$useinecm=0,$textifempty='',$maxlength=0) { global $user, $conf, $langs; global $bc; global $sortfield, $sortorder; // Affiche liste des documents existant if (empty($useinecm)) print_titre($langs->trans("AttachedFiles")); else { $bc[true]=''; $bc[false]=''; }; $url=$_SERVER["PHP_SELF"]; print ''; print ''; print_liste_field_titre($langs->trans("Documents2"),$_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_liste_field_titre('','',''); print ''; $var=true; foreach($filearray as $key => $file) { if (!is_dir($dir.$file['name']) && $file['name'] != '.' && $file['name'] != '..' && $file['name'] != 'CVS' && ! preg_match('/\.meta$/i',$file['name'])) { // Define relative path used to store the file if (! $relativepath) $relativepath=dol_sanitizeFileName($object->ref).'/'; $var=!$var; print "\n"; print ''; print ''; print '\n"; } } if (sizeof($filearray) == 0) { print ''; } print "
"; //print "XX".$file['name']; //$file['name'] must be utf8 print ''; print img_mime($file['name'],$file['name'].' ('.dol_print_size($file['size'],0,0).')').' '; print dol_trunc($file['name'],$maxlength,'middle'); print ''; print "'.dol_print_size($file['size'],1,1).''.dol_print_date($file['date'],"dayhour").''; //print ' '; if ($permtodelete) print ''.img_delete().''; else print ' '; print "
'; if (empty($textifempty)) print $langs->trans("NoFileFound"); else print $textifempty; print '
"; // Fin de zone } } ?>