libe.php

<?php

require_once 'vendor/autoload.php';

/* PHP requires setting a timezone. This will be fine,
   since the app doesn't require a time */
date_default_timezone_set('America/New_York');

$smarty = new Smarty();
$smarty->addTemplateDir(__DIR__ . '/templates');
$smarty->addPluginsDir(__DIR__ . '/plugins');
// $smarty->addPluginsDir(__DIR__ . '/plugins');
session_start();
if(isset($_SESSION['user_id'])) {
  $user_id=$_SESSION['user_id'];
  $smarty->assign('user_id',$user_id);
  $smarty->assign('HelloName',$_SESSION['HelloName']);
}
else {
  $user_id=0;
  if(!isset($login)) {
    header("Location: login.php");
  }
}

// database connection
include 'config.php';
$msi = new mysqli($db_host, $db_user, $db_pw, $db_db);

/* Set permissions.
   Viewer can see summary, Editor can see Details and Donations pages
*/
$rbac = new PhpRbac\Rbac();
/* not needed at this point - financial viewer can only see summary
$is_financial_viewer=
  $rbac->Users->hasRole('Financial Information Viewer',$user_id);
$is_contact_editor=
   $rbac->Users->hasRole('Financial Information Editor',$user_id);*/

$sitemenu=array();
if($rbac->Users->hasRole('Financial Information Editor',$user_id)) {
  $sitemenu[]=array('d' => 'Summary','t' => 'summary', 'c' => 0);
  $sitemenu[]=array('d' => 'Details', 't' => 'details', 'c' => 0);
  $sitemenu[]=array('d' => 'Donations', 't' => 'donations', 'c' => 0);
  $sitemenu[]=array('d' => 'Contact', 't' => 'contact', 'c' => 0);
  $sitemenu[]=array('d' => 'Utility', 't' => 'utility', 'c' => 0);
  $sitemenu[]=array('d' => 'Import', 't' => 'import', 'c' => 0);
  foreach($sitemenu as &$sm) {
    if (stripos(parse_url($_SERVER['REQUEST_URI'],PHP_URL_PATH), $sm['t']))
    {
      $sm['c']=1;
    }
    else {
      $sm['c']=0;
    }
  }
  unset($sm);
}
$smarty->assign('sitemenu',$sitemenu);

function uSelect($msi,$query,$desc,&$ErrMsg) {
  /* select query using mysqli->query */
  $rv=array();
  if(!$result=$msi->query($query)) {
    buildErrorMessage($ErrMsg,$desc,$msi->error);
  }
  else {
    while($tx=$result->fetch_assoc()) {
      $rv[]=$tx;
    }
    $result->free();
  }
  return $rv;
}

function pSelect($msi,$query,$id,$desc,&$ErrMsg) {
  /* select query with 1 id param, using mysqli->prepare,
       stmt->bind_param, & stmt->execute */
  $rv=array();
  if(!$stmt=$msi->prepare($query)) {
    buildErrorMessage($ErrMsg,"prep $desc",$msi->error);
  }
  else {
    if(!$stmt->bind_param('i',$id)) {
      buildErrorMessage($ErrMsg,"bind $desc",$msi->error);
    }
    else {
      if(!$stmt->execute()) {
        buildErrorMessage($ErrMsg,"exec $desc",$msi->error);
      }
      else {
        $result=$stmt->get_result();
        while($tx=$result->fetch_assoc()) {
          $rv[]=$tx;
        }
        $result->free();
        $stmt->close();
      }
    }
  }
  return $rv;
}

function array_matchfield($needle,$haystack,$field) {
  foreach($haystack as $hx) {
    if($hx[$field] == $needle) {
      return true;
    }
  }
  return false;
}

function getHouseholdFromContact($msi,$smarty,$cid) {
  /* also gets contact name in case of error */
  if($stmt=$msi->prepare(
       "select h.household_id, c.first_name, c.primary_name
          from contacts c
          left join household_members hm
            on hm.contact_id=c.contact_id
          left join households h
            on h.household_id=hm.household_id
         where c.contact_id=?")) {
    $stmt->bind_param('i',$cid);
    $stmt->execute();
    $result=$stmt->get_result();
    $hx = $result->fetch_assoc();
    $result->free();
    $stmt->close();
  }
  else {
    //$smarty->assign('footer',"getHouseholdFromContact: unable to create mysql statement object: ".$msi->error);
    return 0;
  }
  if(is_null($hx['household_id'])) {
    /*$smarty->assign('footer',
      "No household for $cid ".$hx['first_name'].' '.$hx['primary_name']);*/
    return 0;
  }
  return $hx['household_id'];
}

function isDupeHousehold($msi,$house_name,$notID=0,&$ErrMsg) {
      // check if name is in use other than for household_id notID
  if($stmt=$msi->prepare("select 0 from households h
       where h.name=? and h.household_id!=?")) {
    $stmt->bind_param('si',$house_name,$notID);
    if($stmt->execute()) {
      $result=$stmt->get_result();
      $stmt->close;
      $retval=$result->num_rows;
      $result->free;
      if($retval) {
        return true;
      }
      else {
        return false;
      }
    }
    else {
      buildErrorMessage($ErrMsg,
         'exec dupe house query: ',$msi->error);
    }
  }
  else {
    buildErrorMessage($ErrMsg,
      'prep dupe house query: ',$msi->error);
  }
}
  
function buildErrorMessage(&$ErrMsg,$errortext,$sqlerror='') {
  $ErrMsg[]=array('txt' => $errortext,'msg' => $sqlerror);
}

function displayFooter($smarty,$ErrMsg) {
  /* footer will display if the smarty variable footer is set */
  if(count($ErrMsg))$smarty->assign('footer',$ErrMsg);
}
  
function append_wc(&$list,$element) {
  /* add comma if needed, then element */
  $list .= (strlen($list) ? ', ' : '') . $element;
}

function trek_list($msi,$contact_id,&$ErrMsg) {
  if($treksresult=$msi->query(
     "select r.year,g.short_name,ifnull(ro.role,'') role
        from roster_memberships rm
        left join rosters r on r.roster_id=rm.roster_id
        left join groups g on g.group_id=r.group_id
        left join roles ro on ro.role_id=rm.role_id
       where rm.contact_id=$contact_id
         and g.group_id not in (61,77,86,58,11,25,54,62,53,55,57)
       order by g.short_name, r.year")) {
    //echo "trek count: ".$treksresult->num_rows."\n";
    if(!$trx = $treksresult->fetch_assoc())return '';
    $prev_group=$trx['short_name'];
    $prev_role=$trx['role'];
    $prev_year=$trx['year'];
    $first_year=$prev_year;
    $element='';
    $le = array();
    do {
      $last_rec=is_null($trx = $treksresult->fetch_assoc());
      $year=$trx['year'];
      $group=$trx['short_name'];
      $role=$trx['role'];
      //echo "$year $group $role $first_year $prev_year $prev_group\n";
      if($group == $prev_group && $role == $prev_role) {
        if($year != ($prev_year+1)) {
          append_wc($element,$first_year.'-'.substr($prev_year,2,2));
          $first_year=$year;
        }
      }
      else {
        // different trek, write previous one
        if($prev_year == $first_year) {
          append_wc($element,$prev_year);
        }
        else {
          if($first_year) {
            append_wc($element,$first_year.'-'.substr($prev_year,2,2));
          }
          else {
            append_wc($element,$prev_year);
          }
        }
        $element .= " $prev_group";
        if($prev_role != '')$element .= " $prev_role";
        $le[]=$element;
        $element='';
        $first_year=$year;
      }
      $prev_year=$year;
      $prev_group=$group;
      $prev_role=$role;
    } while(!$last_rec);
  }
  else {
    // query error
    buildErrorMessage($ErrMsg,'trek_list query: ',$msi->error);
  }
  sort($le);
  foreach($le as $lx) append_wc($element,$lx);
  return $element;
}

function email_list($msi,$household_id,&$ErrMsg) {
  /* put all preferred emails in a string */
  $elist='';
  if($e_result=$msi->query(
       'select et.email_type,e.email from preferred_emails pe '.
       'inner join emails e on e.email_id=pe.email_id '.
       'inner join email_types et on et.email_type_id=e.email_type_id '.
       "where pe.household_id=$household_id")) {
    $is_first=true;
    while($ex=$e_result->fetch_assoc()) {
      if(!$is_first)$elist.=', ';
      $elist.=$ex['email_type'].': '.$ex['email'];
      $is_first=false;
    }
  }
  else {
    // query error
    buildErrorMessage($ErrMsg,'email_list query: ',$msi->error);
  }
  return $elist;
}

function phone_list($msi,$household_id,&$ErrMsg) {
  /* put all household phone numbers in a string */
  $plist='';
  if($p_result=$msi->query(
       'select pt.phone_type,p.number,p.formatted,c.first_name '.
       'from household_members hm '.
       'inner join contacts c on c.contact_id=hm.contact_id '.
       'inner join phone_associations pa on pa.contact_id=hm.contact_id '.
       'inner join phones p on p.phone_id=pa.phone_id '.
       'inner join phone_types pt on pt.phone_type_id=p.phone_type_id '.
       "where hm.household_id=$household_id")) {
    $is_first=true;
    while($px=$p_result->fetch_assoc()) {
      if(!$is_first)$plist.=', ';
      if($px['formatted']) {
        $pn=$px['number'];
      }
      else {
        $pn=substr($px['number'],0,3).'-'.substr($px['number'],3,3).'-'.
           substr($px['number'],6);
      }
      $plist.=$px['phone_type'].": $pn (".$px['first_name'].')';
      $is_first=false;
    }
  }
  else {
    // query error
    buildErrorMessage($ErrMsg,'email_list query: ',$msi->error);
  }
  return $plist;
}

function distance ($lat1, $long1, $lat2, $long2) {
	// this math is cribbed from 4 Guys From Rolla and is not verified
	// http://www.4guysfromrolla.com/webtech/code/2points.asp.html
	$x = (sin (deg2rad ($lat1)) * sin (deg2rad ($lat2)) + cos (deg2rad ($lat1)) * cos (deg2rad ($lat2)) * cos (abs ((deg2rad( $long2) - deg2rad ($long1)))));
	$x = atan ((sqrt (1 - pow ($x, 2))) / $x);

	return (1.852 * 60.0 * (($x / pi ()) * 180.0)) / 1.609344;
	// statute miles: 1.609344
	// nautical miles: 1.0
	// kilometers: 1.852
}

?>