NEW: vcard (vcf) download for third party (#31957)

# NEW: vcard (vcf) download for third party (#31957)

This adds a download link to fetch a vcard for a Third party.

htdocs/societe/card.php

@@ -2922,7 +2922,11 @@ function init_check_no_email(input) {
 
 		$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
-		dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
+		$morehtmlref = '<a href="'.DOL_URL_ROOT.'/societe/vcard.php?id='.$object->id.'" class="refid">';
+		$morehtmlref .= img_picto($langs->trans("Download").' '.$langs->trans("VCard"), 'vcard.png', 'class="valignmiddle marginleftonly paddingrightonly"');
+		$morehtmlref .= '</a>';
+
+		dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom', $morehtmlref);
 
 		// Call Hook tabContentViewThirdparty
 		$parameters = array();

htdocs/societe/contact.php

@@ -10,7 +10,8 @@
  * Copyright (C) 2015       Jean-François Ferry     <[email protected]>
  * Copyright (C) 2015       Marcos García           <[email protected]>
  * Copyright (C) 2015       Raphaël Doursenaud      <[email protected]>
- * Copyright (C) 2024       Frédéric France             <[email protected]>
+ * Copyright (C) 2024       Frédéric France         <[email protected]>
+ * Copyright (C) 2024		MDW						<[email protected]>
  *
  * 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
@@ -125,7 +126,7 @@
  * Actions
  */
 
-$parameters = array('id'=>$socid, 'objcanvas'=>$objcanvas);
+$parameters = array('id' => $socid, 'objcanvas' => $objcanvas);
 $reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 if ($reshook < 0) {
 	setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
@@ -205,7 +206,11 @@
 
 $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
-dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom', '', '', 0, '', '', 1);
+$morehtmlref = '<a href="'.DOL_URL_ROOT.'/societe/vcard.php?id='.$socid.'" class="refid">';
+$morehtmlref .= img_picto($langs->trans("Download").' '.$langs->trans("VCard"), 'vcard.png', 'class="valignmiddle marginleftonly paddingrightonly"');
+$morehtmlref .= '</a>';
+
+dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom', $morehtmlref, '', 0, '', '', 1);
 
 print dol_get_fiche_end();
 

htdocs/societe/vcard.php

@@ -0,0 +1,120 @@
+<?php
+/* Copyright (C) 2004		Rodolphe Quiedeville	<[email protected]>
+ * Copyright (C) 2004-2010	Laurent Destailleur		<[email protected]>
+ * Copyright (C) 2005-2012	Regis Houssin			<[email protected]>
+ * Copyright (C) 2020		Tobias Sekan			<[email protected]>
+ * Copyright (C) 2024		MDW						<[email protected]>
+ * Copyright (C) 2024		Frédéric France			<[email protected]>
+ *
+ * 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 3 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, see <https://www.gnu.org/licenses/>.
+ */
+
+/**
+ *	    \file       htdocs/societe/vcard.php
+ *      \ingroup    societe
+ *		\brief      Third party vcard download
+ */
+
+// Load Dolibarr environment
+require '../main.inc.php';
+require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
+require_once DOL_DOCUMENT_ROOT.'/core/class/vcard.class.php';
+
+/**
+ * @var Conf $conf
+ * @var DoliDB $db
+ * @var HookManager $hookmanager
+ * @var Translate $langs
+ * @var User $user
+ */
+
+$company = new Societe($db);
+
+
+$socid = GETPOSTINT('id');
+
+// Security check
+$result = restrictedArea($user, 'societe', $socid, '&societe');
+
+
+$result = $company->fetch($socid);
+if ($result <= 0) {
+	dol_print_error($db, $company->error);
+	exit;
+}
+
+
+// Compute VCard
+$v = new vCard();
+$v->setProdId('Dolibarr '.DOL_VERSION);
+
+$v->setUid('DOLIBARR-THIRDPARTYID-'.$company->id);
+
+
+// Data from company
+if (!empty($company->url)) {
+	$v->setURL($company->url, "TYPE=WORK");
+}
+if (!empty($company->phone)) {
+	$v->setPhoneNumber($company->phone, "TYPE=WORK;VOICE");
+}
+if (!empty($company->phone_mobile)) {
+	$v->setPhoneNumber($company->phone_mobile, "TYPE=CELL;VOICE");
+}
+if (!empty($company->fax)) {
+	$v->setPhoneNumber($company->fax, "TYPE=WORK;FAX");
+}
+$v->setAddress("", "", $company->address, $company->town, $company->state, $company->zip, $company->country, "TYPE=WORK;POSTAL");
+if (!empty(trim($company->email))) {
+	$v->setEmail($company->email);
+}
+
+// If the company is not a private person
+if ($company->typent_code != 'TE_PRIVATE') {
+	$v->setOrg($company->name);
+	$v->filename = $company->name.'.vcf';
+
+	$v->setFormattedName($company->name.(!empty($company->name_alias) ? ' ('.$company->name_alias.')' : ''));
+} else {
+	$civility = (string) $company->civility_code;
+	if (!empty($civility)) {
+		$transKey = "Civility".$civility;
+		$trans = $langs->transnoentitiesnoconv($transKey);
+		if ($trans !== $transKey) {
+			$civility = $trans;
+		}
+	}
+	$v->setName($company->lastname, $company->firstname, "", $civility, "");
+	$v->setFormattedName($company->getFullName($langs));
+}
+
+
+$db->close();
+
+
+// Send the vCard to the web client
+
+$output = $v->getVCard();
+
+$filename = trim(urldecode($v->getFileName())); // "Nom prenom.vcf"
+$filenameurlencoded = dol_sanitizeFileName(urlencode($filename));
+//$filename = dol_sanitizeFileName($filename);
+
+
+header("Content-Disposition: attachment; filename=\"".$filename."\"");
+header("Content-Length: ".dol_strlen($output));
+header("Connection: close");
+header("Content-Type: text/x-vcard; name=\"".$filename."\"");
+
+print $output;