contact.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2010      Regis Houssin       <regis.houssin@inodbox.com>
 * Copyright (C) 2012-2015 Laurent Destailleur <eldy@users.sourceforge.net>
 *
 * 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/>.
 */

require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/project.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
if ($conf->categorie->enabled) { require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php'; }

// Load translation files required by the page
$langs->loadLangs(array('projects', 'companies'));

$id     = GETPOST('id', 'int');
$ref    = GETPOST('ref', 'alpha');
$lineid = GETPOST('lineid', 'int');
$socid  = GETPOST('socid', 'int');
$action = GETPOST('action', 'aZ09');

$mine   = GETPOST('mode') == 'mine' ? 1 : 0;
//if (! $user->rights->projet->all->lire) $mine=1;  // Special for projects

$object = new Project($db);

include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php'; // Must be include, not include_once
if (!empty($conf->global->PROJECT_ALLOW_COMMENT_ON_PROJECT) && method_exists($object, 'fetchComments') && empty($object->comments)) $object->fetchComments();

// Security check
$socid = 0;
//if ($user->socid > 0) $socid = $user->socid;    // For external user, no check is done on company because readability is managed by public status of project and assignement.
$result = restrictedArea($user, 'projet', $id, 'projet&project');

$hookmanager->initHooks(array('projectcontactcard', 'globalcard'));

/*
 * Actions
 */

// Add new contact
if ($action == 'addcontact' && $user->rights->projet->creer)
{
  $result = 0;
  $result = $object->fetch($id);

  if ($result > 0 && $id > 0)
  {
      $contactid = (GETPOST('userid') ? GETPOST('userid', 'int') : GETPOST('contactid', 'int'));
      $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
      $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
  }

  if ($result >= 0)
  {
    header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
    exit;
  } else {
    if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS')
    {
      $langs->load("errors");
      setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
    } else {
      setEventMessages($object->error, $object->errors, 'errors');
    }
  }
}

// Change contact's status
if ($action == 'swapstatut' && $user->rights->projet->creer)
{
  if ($object->fetch($id))
  {
    $result = $object->swapContactStatus(GETPOST('ligne', 'int'));
  } else {
    dol_print_error($db);
  }
}

// Delete a contact
if (($action == 'deleteline' || $action == 'deletecontact') && $user->rights->projet->creer)
{
  $object->fetch($id);
  $result = $object->delete_contact(GETPOST("lineid"));

  if ($result >= 0)
  {
    header("Location: contact.php?id=".$object->id);
    exit;
  } else {
    dol_print_error($db);
  }
}


/*
 * View
 */

$title = $langs->trans("ProjectContact").' - '.$object->ref.' '.$object->name;
if (!empty($conf->global->MAIN_HTML_TITLE) && preg_match('/projectnameonly/', $conf->global->MAIN_HTML_TITLE) && $object->name) $title = $object->ref.' '.$object->name.' - '.$langs->trans("ProjectContact");
$help_url = "EN:Module_Projects|FR:Module_Projets|ES:M&oacute;dulo_Proyectos";
llxHeader('', $title, $help_url);

$form = new Form($db);
$formcompany = new FormCompany($db);
$contactstatic = new Contact($db);
$userstatic = new User($db);


/* *************************************************************************** */
/*                                                                             */
/* Edition and view mode                                                       */
/*                                                                             */
/* *************************************************************************** */

if ($id > 0 || !empty($ref))
{
  if (!empty($conf->global->PROJECT_ALLOW_COMMENT_ON_PROJECT) && method_exists($object, 'fetchComments') && empty($object->comments)) $object->fetchComments();
  // To verify role of users
  //$userAccess = $object->restrictedProjectArea($user,'read');
  $userWrite = $object->restrictedProjectArea($user, 'write');
  //$userDelete = $object->restrictedProjectArea($user,'delete');
  //print "userAccess=".$userAccess." userWrite=".$userWrite." userDelete=".$userDelete;

  $head = project_prepare_head($object);
  print dol_get_fiche_head($head, 'contact', $langs->trans("Project"), -1, ($object->public ? 'projectpub' : 'project'));


  // Project card

  $linkback = '<a href="'.DOL_URL_ROOT.'/projet/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';

  $morehtmlref = '<div class="refidno">';
  // Title
  $morehtmlref .= $object->title;
  // Thirdparty
  if ($object->thirdparty->id > 0)
  {
    $morehtmlref .= '<br>'.$langs->trans('ThirdParty').' : '.$object->thirdparty->getNomUrl(1, 'project');
  }
  $morehtmlref .= '</div>';

  // Define a complementary filter for search of next/prev ref.
  if (!$user->rights->projet->all->lire)
  {
    $objectsListId = $object->getProjectsAuthorizedForUser($user, 0, 0);
    $object->next_prev_filter = " rowid in (".(count($objectsListId) ?join(',', array_keys($objectsListId)) : '0').")";
  }

  dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);


  print '<div class="fichecenter">';
  print '<div class="fichehalfleft">';
  print '<div class="underbanner clearboth"></div>';

  print '<table class="border tableforfield centpercent">';

  // Usage
  print '<tr><td class="tdtop">';
  print $langs->trans("Usage");
  print '</td>';
  print '<td>';
  if (!empty($conf->global->PROJECT_USE_OPPORTUNITIES))
  {
    print '<input type="checkbox" disabled name="usage_opportunity"'.(GETPOSTISSET('usage_opportunity') ? (GETPOST('usage_opportunity', 'alpha') != '' ? ' checked="checked"' : '') : ($object->usage_opportunity ? ' checked="checked"' : '')).'"> ';
    $htmltext = $langs->trans("ProjectFollowOpportunity");
    print $form->textwithpicto($langs->trans("ProjectFollowOpportunity"), $htmltext);
    print '<br>';
  }
  if (empty($conf->global->PROJECT_HIDE_TASKS))
  {
    print '<input type="checkbox" disabled name="usage_task"'.(GETPOSTISSET('usage_task') ? (GETPOST('usage_task', 'alpha') != '' ? ' checked="checked"' : '') : ($object->usage_task ? ' checked="checked"' : '')).'"> ';
    $htmltext = $langs->trans("ProjectFollowTasks");
    print $form->textwithpicto($langs->trans("ProjectFollowTasks"), $htmltext);
    print '<br>';
  }
  if (!empty($conf->global->PROJECT_BILL_TIME_SPENT))
  {
    print '<input type="checkbox" disabled name="usage_bill_time"'.(GETPOSTISSET('usage_bill_time') ? (GETPOST('usage_bill_time', 'alpha') != '' ? ' checked="checked"' : '') : ($object->usage_bill_time ? ' checked="checked"' : '')).'"> ';
    $htmltext = $langs->trans("ProjectBillTimeDescription");
    print $form->textwithpicto($langs->trans("BillTime"), $htmltext);
    print '<br>';
  }
  print '</td></tr>';

  // Visibility
  print '<tr><td class="titlefield">'.$langs->trans("Visibility").'</td><td>';
  if ($object->public) print $langs->trans('SharedProject');
  else print $langs->trans('PrivateProject');
  print '</td></tr>';

  if (!empty($conf->global->PROJECT_USE_OPPORTUNITIES) && $object->opp_status)
  {
    // Opportunity status
    print '<tr><td>'.$langs->trans("OpportunityStatus").'</td><td>';
    $code = dol_getIdFromCode($db, $object->opp_status, 'c_lead_status', 'rowid', 'code');
    if ($code) print $langs->trans("OppStatus".$code);
    print '</td></tr>';

    // Opportunity percent
    print '<tr><td>'.$langs->trans("OpportunityProbability").'</td><td>';
    if (strcmp($object->opp_percent, '')) print price($object->opp_percent, '', $langs, 1, 0).' %';
    print '</td></tr>';

    // Opportunity Amount
    print '<tr><td>'.$langs->trans("OpportunityAmount").'</td><td>';
    if (strcmp($object->opp_amount, '')) print price($object->opp_amount, '', $langs, 0, 0, 0, $conf->currency);
    print '</td></tr>';
  }

  // Date start - end
  print '<tr><td>'.$langs->trans("DateStart").' - '.$langs->trans("DateEnd").'</td><td>';
  $start = dol_print_date($object->date_start, 'day');
  print ($start ? $start : '?');
  $end = dol_print_date($object->date_end, 'day');
  print ' - ';
  print ($end ? $end : '?');
  if ($object->hasDelay()) print img_warning("Late");
  print '</td></tr>';

  // Budget
  print '<tr><td>'.$langs->trans("Budget").'</td><td>';
  if (strcmp($object->budget_amount, '')) print price($object->budget_amount, '', $langs, 0, 0, 0, $conf->currency);
  print '</td></tr>';

  // Other attributes
  $cols = 2;
  include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_view.tpl.php';

  print "</table>";

  print '</div>';
  print '<div class="fichehalfright">';
  print '<div class="ficheaddleft">';
  print '<div class="underbanner clearboth"></div>';

  print '<table class="border tableforfield" width="100%">';

  // Description
  print '<td class="titlefield tdtop">'.$langs->trans("Description").'</td><td>';
  print nl2br($object->description);
  print '</td></tr>';

  // Categories
  if ($conf->categorie->enabled) {
    print '<tr><td class="valignmiddle">'.$langs->trans("Categories").'</td><td>';
    print $form->showCategories($object->id, Categorie::TYPE_PROJECT, 1);
    print "</td></tr>";
  }

  print '</table>';

  print '</div>';
  print '</div>';
  print '</div>';

  print '<div class="clearboth"></div>';

  print dol_get_fiche_end();

  print '<br>';

  // Contacts lines (modules that overwrite templates must declare this into descriptor)
  $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
  foreach ($dirtpls as $reldir)
  {
    $res = @include dol_buildpath($reldir.'/contacts.tpl.php');
    if ($res) break;
  }
}

// End of page
llxFooter();
$db->close();