/**
* Return a string to show the box with list of available documents for object.
* This also set the property $this->numoffiles
*
* @param string $modulepart Module the files are related to ('propal', 'facture', 'facture_fourn', 'mymodule', 'mymodule_temp', ...)
* @param string $modulesubdir Existing (so sanitized) sub-directory to scan (Example: '0/1/10', 'FA/DD/MM/YY/9999'). Use '' if file is not into subdir of module.
* @param string $filedir Directory to scan
* @param string $urlsource Url of origin page (for return)
* @param int $genallowed Generation is allowed (1/0 or array list of templates)
* @param int $delallowed Remove is allowed (1/0)
* @param string $modelselected Model to preselect by default
* @param string $allowgenifempty Allow generation even if list of template ($genallowed) is empty (show however a warning)
* @param string $forcenomultilang Do not show language option (even if MAIN_MULTILANGS defined)
* @param int $iconPDF Deprecated, see getDocumentsLink
* @param int $maxfilenamelength Max length for filename shown
* @param string $noform Do not output html form tags
* @param string $param More param on http links
* @param string $title Title to show on top of form
* @param string $buttonlabel Label on submit button
* @param string $codelang Default language code to use on lang combo box if multilang is enabled
* @param string $morepicto Add more HTML content into cell with picto
* @return string Output string with HTML array of documents (might be empty string)
*/
function showdocuments($modulepart, $modulesubdir, $filedir, $urlsource, $genallowed, $delallowed = 0, $modelselected = '', $allowgenifempty = 1, $forcenomultilang = 0, $iconPDF = 0, $maxfilenamelength = 28, $noform = 0, $param = '', $title = '', $buttonlabel = '', $codelang = '', $morepicto = '')
{
// Deprecation warning
if (0 !== $iconPDF) {
dol_syslog(__METHOD__ . ": passing iconPDF parameter is deprecated", LOG_WARNING);
}
global $langs, $conf, $user, $hookmanager;
global $form, $bc;
if (!is_object($form)) {
$form = new Form($this->db);
}
include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php';
// For backward compatibility
if (!empty($iconPDF)) {
return $this->getDocumentsLink($modulepart, $modulesubdir, $filedir);
}
$printer = 0;
if (in_array($modulepart, array('facture', 'supplier_proposal', 'propal', 'proposal', 'order', 'commande', 'expedition', 'commande_fournisseur'))) {
$printer = !empty($user->rights->printing->read) && !empty($conf->printing->enabled) ? true : false;
}
$hookmanager->initHooks(array('formfile'));
$forname = 'builddoc';
$out = '';
$var = true;
$headershown = 0;
$showempty = 0;
$i = 0;
$titletoshow = $langs->trans("Documents");
if (!empty($title)) {
$titletoshow = $title;
}
$out .= "\n" . '<!-- Start show_document -->' . "\n";
//print 'filedir='.$filedir;
// Show table
if ($genallowed) {
$modellist = array();
if ($modulepart == 'company') {
$showempty = 1;
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/societe/modules_societe.class.php';
$modellist = ModeleThirdPartyDoc::liste_modeles($this->db);
}
} else {
if ($modulepart == 'propal') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/propale/modules_propale.php';
$modellist = ModelePDFPropales::liste_modeles($this->db);
}
} else {
if ($modulepart == 'supplier_proposal') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/supplier_proposal/modules_supplier_proposal.php';
$modellist = ModelePDFSupplierProposal::liste_modeles($this->db);
}
} else {
if ($modulepart == 'commande') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/commande/modules_commande.php';
$modellist = ModelePDFCommandes::liste_modeles($this->db);
}
} elseif ($modulepart == 'expedition') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/expedition/modules_expedition.php';
$modellist = ModelePDFExpedition::liste_modeles($this->db);
}
} elseif ($modulepart == 'livraison') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/livraison/modules_livraison.php';
$modellist = ModelePDFDeliveryOrder::liste_modeles($this->db);
}
} else {
if ($modulepart == 'ficheinter') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/fichinter/modules_fichinter.php';
$modellist = ModelePDFFicheinter::liste_modeles($this->db);
}
} elseif ($modulepart == 'facture') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/facture/modules_facture.php';
$modellist = ModelePDFFactures::liste_modeles($this->db);
}
} elseif ($modulepart == 'contract') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/contract/modules_contract.php';
$modellist = ModelePDFContract::liste_modeles($this->db);
}
} elseif ($modulepart == 'project') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/project/modules_project.php';
$modellist = ModelePDFProjects::liste_modeles($this->db);
}
} elseif ($modulepart == 'project_task') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/project/task/modules_task.php';
$modellist = ModelePDFTask::liste_modeles($this->db);
}
} elseif ($modulepart == 'export') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/export/modules_export.php';
$modellist = ModeleExports::liste_modeles($this->db);
}
} else {
if ($modulepart == 'commande_fournisseur') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/supplier_order/modules_commandefournisseur.php';
$modellist = ModelePDFSuppliersOrders::liste_modeles($this->db);
}
} else {
if ($modulepart == 'facture_fournisseur') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/supplier_invoice/modules_facturefournisseur.php';
$modellist = ModelePDFSuppliersInvoices::liste_modeles($this->db);
}
} else {
if ($modulepart == 'remisecheque') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/cheque/pdf/modules_chequereceipts.php';
$modellist = ModeleChequeReceipts::liste_modeles($this->db);
}
} elseif ($modulepart == 'donation') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/dons/modules_don.php';
$modellist = ModeleDon::liste_modeles($this->db);
}
} else {
if ($modulepart == 'unpaid') {
$modellist = '';
} else {
if ($modulepart != 'agenda') {
// For normalized standard modules
$file = dol_buildpath('/core/modules/' . $modulepart . '/modules_' . $modulepart . '.php', 0);
if (file_exists($file)) {
$res = (include_once $file);
} else {
$file = dol_buildpath('/' . $modulepart . '/core/modules/' . $modulepart . '/modules_' . $modulepart . '.php', 0);
$res = (include_once $file);
}
$class = 'Modele' . ucfirst($modulepart);
if (class_exists($class)) {
$modellist = call_user_func($class . '::liste_modeles', $this->db);
} else {
dol_print_error($this->db, 'Bad value for modulepart');
return -1;
}
}
}
}
}
}
}
}
}
}
}
$headershown = 1;
$buttonlabeltoshow = $buttonlabel;
if (empty($buttonlabel)) {
$buttonlabel = $langs->trans('Generate');
}
if (empty($noform)) {
$out .= '<form action="' . $urlsource . (empty($conf->global->MAIN_JUMP_TAG) ? '' : '#builddoc') . '" name="' . $forname . '" id="' . $forname . '_form" method="post">';
}
$out .= '<input type="hidden" name="action" value="builddoc">';
$out .= '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
$out .= load_fiche_titre($titletoshow, '', '');
$out .= '<table class="liste formdoc noborder" summary="listofdocumentstable" width="100%">';
$out .= '<tr class="liste_titre">';
// Model
if (!empty($modellist)) {
$out .= '<th align="center" class="formdoc liste_titre maxwidthonsmartphone">';
$out .= '<span class="hideonsmartphone">' . $langs->trans('Model') . ' </span>';
if (is_array($modellist) && count($modellist) == 1) {
$arraykeys = array_keys($modellist);
$modelselected = $arraykeys[0];
}
$out .= $form->selectarray('model', $modellist, $modelselected, $showempty, 0, 0, '', 0, 0, 0, '', '');
$out .= '</th>';
} else {
$out .= '<th align="left" class="formdoc liste_titre">';
$out .= $langs->trans("Files");
$out .= '</th>';
}
// Language code (if multilang)
$out .= '<th align="center" class="formdoc liste_titre maxwidthonsmartphone">';
if (($allowgenifempty || is_array($modellist) && count($modellist) > 0) && $conf->global->MAIN_MULTILANGS && !$forcenomultilang && (!empty($modellist) || $showempty)) {
include_once DOL_DOCUMENT_ROOT . '/core/class/html.formadmin.class.php';
$formadmin = new FormAdmin($this->db);
$defaultlang = $codelang ? $codelang : $langs->getDefaultLang();
$morecss = 'maxwidth150';
if (!empty($conf->browser->phone)) {
$morecss = 'maxwidth100';
}
$out .= $formadmin->select_language($defaultlang, 'lang_id', 0, 0, 0, 0, 0, $morecss);
} else {
$out .= ' ';
}
$out .= '</th>';
// Button
$addcolumforpicto = $delallowed || $printer || $morepicto;
$out .= '<th align="center" colspan="' . ($addcolumforpicto ? '2' : '1') . '" class="formdocbutton liste_titre maxwidthonsmartphone">';
$genbutton = '<input class="button" id="' . $forname . '_generatebutton" name="' . $forname . '_generatebutton"';
$genbutton .= ' type="submit" value="' . $buttonlabel . '"';
if (!$allowgenifempty && !is_array($modellist) && empty($modellist)) {
$genbutton .= ' disabled';
}
$genbutton .= '>';
if ($allowgenifempty && !is_array($modellist) && empty($modellist) && empty($conf->dol_no_mouse_hover) && $modulepart != 'unpaid') {
$langs->load("errors");
$genbutton .= ' ' . img_warning($langs->transnoentitiesnoconv("WarningNoDocumentModelActivated"));
}
if (!$allowgenifempty && !is_array($modellist) && empty($modellist) && empty($conf->dol_no_mouse_hover) && $modulepart != 'unpaid') {
$genbutton = '';
}
if (empty($modellist) && !$showempty && $modulepart != 'unpaid') {
$genbutton = '';
}
$out .= $genbutton;
$out .= '</th>';
if (!empty($hookmanager->hooks['formfile'])) {
foreach ($hookmanager->hooks['formfile'] as $module) {
if (method_exists($module, 'formBuilddocLineOptions')) {
$out .= '<th></th>';
}
}
}
$out .= '</tr>';
// Execute hooks
$parameters = array('socid' => isset($GLOBALS['socid']) ? $GLOBALS['socid'] : '', 'id' => isset($GLOBALS['id']) ? $GLOBALS['id'] : '', 'modulepart' => $modulepart);
if (is_object($hookmanager)) {
$reshook = $hookmanager->executeHooks('formBuilddocOptions', $parameters, $GLOBALS['object']);
$out .= $hookmanager->resPrint;
}
}
// Get list of files
if (!empty($filedir)) {
$file_list = dol_dir_list($filedir, 'files', 0, '', '(\\.meta|_preview\\.png)$', 'date', SORT_DESC);
// Affiche en-tete tableau si non deja affiche
if (!empty($file_list) && !$headershown) {
$headershown = 1;
$out .= '<div class="titre">' . $titletoshow . '</div>';
$out .= '<table class="border" summary="listofdocumentstable" width="100%">';
}
// Loop on each file found
if (is_array($file_list)) {
foreach ($file_list as $file) {
$var = !$var;
// Define relative path for download link (depends on module)
$relativepath = $file["name"];
// Cas general
if ($modulesubdir) {
$relativepath = $modulesubdir . "/" . $file["name"];
}
// Cas propal, facture...
if ($modulepart == 'export') {
$relativepath = $file["name"];
}
// Other case
$out .= "<tr " . $bc[$var] . ">";
$documenturl = DOL_URL_ROOT . '/document.php';
if (isset($conf->global->DOL_URL_ROOT_DOCUMENT_PHP)) {
$documenturl = $conf->global->DOL_URL_ROOT_DOCUMENT_PHP;
}
// Show file name with link to download
$out .= '<td class="nowrap">';
$out .= '<a data-ajax="false" href="' . $documenturl . '?modulepart=' . $modulepart . '&file=' . urlencode($relativepath) . '"';
$mime = dol_mimetype($relativepath, '', 0);
if (preg_match('/text/', $mime)) {
$out .= ' target="_blank"';
}
$out .= ' target="_blank">';
$out .= img_mime($file["name"], $langs->trans("File") . ': ' . $file["name"]) . ' ' . dol_trunc($file["name"], $maxfilenamelength);
$out .= '</a>' . "\n";
$out .= '</td>';
// Show file size
$size = !empty($file['size']) ? $file['size'] : dol_filesize($filedir . "/" . $file["name"]);
$out .= '<td align="right" class="nowrap">' . dol_print_size($size) . '</td>';
// Show file date
$date = !empty($file['date']) ? $file['date'] : dol_filemtime($filedir . "/" . $file["name"]);
$out .= '<td align="right" class="nowrap">' . dol_print_date($date, 'dayhour', 'tzuser') . '</td>';
if ($delallowed || $printer || $morepicto) {
$out .= '<td align="right">';
if ($delallowed) {
$out .= '<a href="' . $urlsource . (strpos($urlsource, '?') ? '&' : '?') . 'action=remove_file&file=' . urlencode($relativepath);
$out .= $param ? '&' . $param : '';
//$out.= '&modulepart='.$modulepart; // TODO obsolete ?
//$out.= '&urlsource='.urlencode($urlsource); // TODO obsolete ?
$out .= '">' . img_picto($langs->trans("Delete"), 'delete.png') . '</a>';
//$out.='</td>';
}
if ($printer) {
//$out.= '<td align="right">';
$out .= ' <a href="' . $urlsource . (strpos($urlsource, '?') ? '&' : '?') . 'action=print_file&printer=' . $modulepart . '&file=' . urlencode($relativepath);
$out .= $param ? '&' . $param : '';
$out .= '">' . img_picto($langs->trans("PrintFile", $relativepath), 'printer.png') . '</a>';
}
if ($morepicto) {
$morepicto = preg_replace('/__FILENAMEURLENCODED__/', urlencode($relativepath), $morepicto);
$out .= $morepicto;
}
$out .= '</td>';
}
if (is_object($hookmanager)) {
$parameters = array('socid' => isset($GLOBALS['socid']) ? $GLOBALS['socid'] : '', 'id' => isset($GLOBALS['id']) ? $GLOBALS['id'] : '', 'modulepart' => $modulepart, 'relativepath' => $relativepath);
$res = $hookmanager->executeHooks('formBuilddocLineOptions', $parameters, $file);
if (empty($res)) {
$out .= $hookmanager->resPrint;
// Complete line
$out .= '</tr>';
} else {
$out = $hookmanager->resPrint;
}
// Replace line
}
}
if (count($file_list) == 0 && $headershown) {
$out .= '<tr ' . $bc[0] . '><td colspan="3">' . $langs->trans("None") . '</td></tr>';
}
$this->numoffiles++;
}
}
if ($headershown) {
// Affiche pied du tableau
$out .= "</table>\n";
if ($genallowed) {
if (empty($noform)) {
$out .= '</form>' . "\n";
}
}
}
$out .= '<!-- End show_document -->' . "\n";
//return ($i?$i:$headershown);
return $out;
}
$langs->load("project");
print '<tr><td valign="top">'.$langs->trans("Project").'</td><td>';
$numprojet=select_projects($societe->id,$_POST["projectid"],'projectid');
if ($numprojet==0)
{
print ' <a href="../projet/fiche.php?socid='.$societe->id.'&action=create">'.$langs->trans("AddProject").'</a>';
}
print '</td></tr>';
}
// Model
print '<tr>';
print '<td>'.$langs->trans("DefaultModel").'</td>';
print '<td colspan="2">';
$model=new ModelePDFFicheinter();
$liste=$model->liste_modeles($db);
print $html->selectarray('model',$liste,$conf->global->FICHEINTER_ADDON_PDF);
print "</td></tr>";
// Description (must be a textarea and not html must be allowed (used in list view)
print '<tr><td valign="top">'.$langs->trans("Description").'</td>';
print '<td>';
print '<textarea name="description" wrap="soft" cols="80" rows="'.ROWS_3.'"></textarea>';
print '</td></tr>';
print '</table>';
print '<center><br>';
print '<input type="submit" class="button" value="'.$langs->trans("CreateDraftIntervention").'">';
print '</center>';
}
// Contract
if ($conf->contrat->enabled) {
$langs->load("contracts");
print '<tr><td>' . $langs->trans("Contract") . '</td><td>';
$numcontrat = $formcontract->select_contract($soc->id, GETPOST('contratid', 'int'), 'contratid', 0, 1);
if ($numcontrat == 0) {
print ' <a href="' . DOL_URL_ROOT . '/contrat/card.php?socid=' . $soc->id . '&action=create">' . $langs->trans("AddContract") . '</a>';
}
print '</td></tr>';
}
// Model
print '<tr>';
print '<td>' . $langs->trans("DefaultModel") . '</td>';
print '<td colspan="2">';
$liste = ModelePDFFicheinter::liste_modeles($db);
print $form->selectarray('model', $liste, $conf->global->FICHEINTER_ADDON_PDF);
print "</td></tr>";
// Public note
print '<tr>';
print '<td tdtop">' . $langs->trans('NotePublic') . '</td>';
print '<td colspan="2">';
$doleditor = new DolEditor('note_public', $note_public, '', 80, 'dolibarr_notes', 'In', 0, false, true, ROWS_3, 70);
print $doleditor->Create(1);
//print '<textarea name="note_public" cols="80" rows="'.ROWS_3.'">'.$note_public.'</textarea>';
print '</td></tr>';
// Private note
if (empty($user->societe_id)) {
print '<tr>';
print '<td class="tdtop">' . $langs->trans('NotePrivate') . '</td>';
print '<td colspan="2">';
/**
* Return a string to show the box with list of available documents for object.
* This also set the property $this->numoffiles
*
* @param string $modulepart propal, facture, facture_fourn, ...
* @param string $filename Sub-directory to scan (Example: '0/1/10', 'FA/DD/MM/YY/9999'). Use '' if $filedir is already complete)
* @param string $filedir Directory to scan
* @param string $urlsource Url of origin page (for return)
* @param int $genallowed Generation is allowed (1/0 or array list of templates)
* @param int $delallowed Remove is allowed (1/0)
* @param string $modelselected Model to preselect by default
* @param string $allowgenifempty Allow generation even if list of template ($genallowed) is empty (show however a warning)
* @param string $forcenomultilang Do not show language option (even if MAIN_MULTILANGS defined)
* @param int $iconPDF Show only PDF icon with link (1/0)
* @param int $maxfilenamelength Max length for filename shown
* @param string $noform Do not output html form tags
* @param string $param More param on http links
* @param string $title Title to show on top of form
* @param string $buttonlabel Label on submit button
* @param string $codelang Default language code to use on lang combo box if multilang is enabled
* @param HookManager $hookmanager Object hookmanager with instance of external modules hook classes
* @return string Output string with HTML array of documents (might be empty string)
*/
function showdocuments($modulepart, $filename, $filedir, $urlsource, $genallowed, $delallowed = 0, $modelselected = '', $allowgenifempty = 1, $forcenomultilang = 0, $iconPDF = 0, $maxfilenamelength = 28, $noform = 0, $param = '', $title = '', $buttonlabel = '', $codelang = '', $hookmanager = false)
{
// filedir = conf->...dir_ouput."/".get_exdir(id)
include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php';
global $langs, $bc, $conf;
$forname = 'builddoc';
$out = '';
$var = true;
// Clean paramaters
if ($iconPDF == 1) {
$genallowed = '';
$delallowed = 0;
$modelselected = '';
$forcenomultilang = 0;
}
//$filename = dol_sanitizeFileName($filename); //Must be sanitized before calling show_documents
$headershown = 0;
$showempty = 0;
$i = 0;
$titletoshow = $langs->trans("Documents");
if (!empty($title)) {
$titletoshow = $title;
}
$out .= "\n" . '<!-- Start show_document -->' . "\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 . '/core/modules/societe/modules_societe.class.php';
$modellist = ModeleThirdPartyDoc::liste_modeles($this->db);
}
} else {
if ($modulepart == 'propal') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/propale/modules_propale.php';
$modellist = ModelePDFPropales::liste_modeles($this->db);
}
} else {
if ($modulepart == 'commande') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/commande/modules_commande.php';
$modellist = ModelePDFCommandes::liste_modeles($this->db);
}
} elseif ($modulepart == 'expedition') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/expedition/modules_expedition.php';
$modellist = ModelePDFExpedition::liste_modeles($this->db);
}
} elseif ($modulepart == 'livraison') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/livraison/modules_livraison.php';
$modellist = ModelePDFDeliveryOrder::liste_modeles($this->db);
}
} else {
if ($modulepart == 'ficheinter') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/fichinter/modules_fichinter.php';
$modellist = ModelePDFFicheinter::liste_modeles($this->db);
}
} elseif ($modulepart == 'facture') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/facture/modules_facture.php';
$modellist = ModelePDFFactures::liste_modeles($this->db);
}
} elseif ($modulepart == 'project') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/project/modules_project.php';
$modellist = ModelePDFProjects::liste_modeles($this->db);
}
} elseif ($modulepart == 'export') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/export/modules_export.php';
$modellist = ModeleExports::liste_modeles($this->db);
}
} else {
if ($modulepart == 'commande_fournisseur') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/supplier_order/modules_commandefournisseur.php';
$modellist = ModelePDFSuppliersOrders::liste_modeles($this->db);
}
} else {
if ($modulepart == 'facture_fournisseur') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/supplier_invoice/modules_facturefournisseur.php';
$modellist = ModelePDFSuppliersInvoices::liste_modeles($this->db);
}
} else {
if ($modulepart == 'remisecheque') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/cheque/pdf/modules_chequereceipts.php';
$modellist = ModeleChequeReceipts::liste_modeles($this->db);
}
} elseif ($modulepart == 'donation') {
if (is_array($genallowed)) {
$modellist = $genallowed;
} else {
include_once DOL_DOCUMENT_ROOT . '/core/modules/dons/modules_don.php';
$modellist = ModeleDon::liste_modeles($this->db);
}
} else {
if ($modulepart == 'unpaid') {
$modellist = '';
} else {
// Generic feature, for external modules
$file = dol_buildpath('/core/modules/' . $modulepart . '/modules_' . $modulepart . '.php', 0);
if (file_exists($file)) {
$res = (include_once $file);
}
$class = 'Modele' . ucfirst($modulepart);
if (class_exists($class)) {
$modellist = call_user_func($class . '::liste_modeles', $this->db);
} else {
dol_print_error($this->db, 'Bad value for modulepart');
return -1;
}
}
}
}
}
}
}
}
}
$headershown = 1;
$form = new Form($this->db);
$buttonlabeltoshow = $buttonlabel;
if (empty($buttonlabel)) {
$buttonlabel = $langs->trans('Generate');
}
if (empty($noform)) {
$out .= '<form action="' . $urlsource . (empty($conf->global->MAIN_JUMP_TAG) ? '' : '#builddoc') . '" name="' . $forname . '" id="' . $forname . '_form" method="post">';
}
$out .= '<input type="hidden" name="action" value="builddoc">';
$out .= '<input type="hidden" name="token" value="' . $_SESSION['newtoken'] . '">';
$out .= '<div class="titre">' . $titletoshow . '</div>';
$out .= '<table class="liste formdoc" summary="listofdocumentstable" width="100%">';
$out .= '<tr class="liste_titre">';
// Model
if (!empty($modellist)) {
$out .= '<th align="center" class="formdoc liste_titre">';
$out .= $langs->trans('Model') . ' ';
if (is_array($modellist) && count($modellist) == 1) {
$arraykeys = array_keys($modellist);
$modelselected = $arraykeys[0];
}
$out .= $form->selectarray('model', $modellist, $modelselected, $showempty, 0, 0);
$out .= '</th>';
} else {
$out .= '<th align="left" class="formdoc liste_titre">';
$out .= $langs->trans("Files");
$out .= '</th>';
}
// Language code (if multilang)
$out .= '<th align="center" class="formdoc liste_titre">';
if (($allowgenifempty || is_array($modellist) && count($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();
$out .= $formadmin->select_language($defaultlang);
} else {
$out .= ' ';
}
$out .= '</th>';
// Button
$out .= '<th align="center" colspan="' . ($delallowed ? '2' : '1') . '" class="formdocbutton liste_titre">';
$out .= '<input class="button" id="' . $forname . '_generatebutton"';
$out .= ' type="submit" value="' . $buttonlabel . '"';
if (!$allowgenifempty && !is_array($modellist) && empty($modellist)) {
$out .= ' disabled="disabled"';
}
$out .= '>';
if ($allowgenifempty && !is_array($modellist) && empty($modellist) && $modulepart != 'unpaid') {
$langs->load("errors");
$out .= ' ' . img_warning($langs->transnoentitiesnoconv("WarningNoDocumentModelActivated"));
}
$out .= '</th>';
$out .= '</tr>';
// Execute hooks
$parameters = array('socid' => isset($GLOBALS['socid']) ? $GLOBALS['socid'] : '', 'id' => isset($GLOBALS['id']) ? $GLOBALS['id'] : '', 'modulepart' => $modulepart);
if (is_object($hookmanager)) {
$out .= $hookmanager->executeHooks('formBuilddocOptions', $parameters, $GLOBALS['object']);
}
}
// Get list of files
if ($filedir) {
$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 (!empty($file_list) && !$headershown && !$iconPDF) {
$headershown = 1;
$out .= '<div class="titre">' . $titletoshow . '</div>';
$out .= '<table class="border" summary="listofdocumentstable" width="100%">';
} else {
if (empty($file_list) && !empty($iconPDF)) {
// For ajax treatment
$out .= '<div id="gen_pdf_' . $filename . '" class="linkobject hideobject">' . img_picto('', 'refresh') . '</div>' . "\n";
}
}
// Loop on each file found
foreach ($file_list as $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) {
$out .= "<tr " . $bc[$var] . ">";
}
// Show file name with link to download
if (!$iconPDF) {
$out .= '<td nowrap="nowrap">';
}
$out .= '<a href="' . DOL_URL_ROOT . '/document.php?modulepart=' . $modulepart . '&file=' . urlencode($relativepath) . '"';
$mime = dol_mimetype($relativepath, '', 0);
if (preg_match('/text/', $mime)) {
$out .= ' target="_blank"';
}
$out .= '>';
if (!$iconPDF) {
$out .= img_mime($file["name"], $langs->trans("File") . ': ' . $file["name"]) . ' ' . dol_trunc($file["name"], $maxfilenamelength);
} else {
$out .= img_pdf($file["name"], 2);
}
$out .= '</a>' . "\n";
if (!$iconPDF) {
$out .= '</td>';
// Show file size
$out .= '<td align="right" nowrap="nowrap">' . dol_print_size(dol_filesize($filedir . "/" . $file["name"])) . '</td>';
// Show file date
$out .= '<td align="right" nowrap="nowrap">' . dol_print_date(dol_filemtime($filedir . "/" . $file["name"]), 'dayhour') . '</td>';
}
if ($delallowed) {
$out .= '<td align="right">';
//$out.= '<a href="'.DOL_URL_ROOT.'/document.php?action=remove_file&modulepart='.$modulepart.'&file='.urlencode($relativepath);
$out .= '<a href="' . $urlsource . '&action=remove_file&modulepart=' . $modulepart . '&file=' . urlencode($relativepath);
$out .= $param ? '&' . $param : '';
$out .= '&urlsource=' . urlencode($urlsource);
$out .= '">' . img_delete() . '</a></td>';
}
if (!$iconPDF) {
$out .= '</tr>';
}
$this->numoffiles++;
}
}
if ($headershown) {
// Affiche pied du tableau
$out .= "</table>\n";
if ($genallowed) {
if (empty($noform)) {
$out .= '</form>' . "\n";
}
}
}
$out .= '<!-- End show_document -->' . "\n";
//return ($i?$i:$headershown);
return $out;
}