<?php

include_once $_SERVER['DOCUMENT_ROOT'].'/includes/helpers.inc.php';

if(isset($_GET['addrequest']))

{

include 'addrequest.html.php';

exit();

}

if(isset($_POST['add']) and $_POST['add']=='Add Production')

{

$pagetitle='Add Production';

$pagesubtitle='Add a new production to the database.';

$pagetab='Add Production | TheatreBase';

$prd_nm='';

$prd_sbnm='';

$prd_crtd='TBC';

$prd_updtd='TBC';

$mat_list='';

$pt_list='';

$prd_frst_dt='';

$prd_prss_dt='';

$prd_prss_dt_2='';

$prd_lst_dt='';

$prd_prss_dt_tbc='0';

$prd_prv_only='0';

$prd_dts_info='1';

$prd_prss_wrdng='';

$prd_tbc_nt='';

$prd_dt_nt='';

$thtr_nm='';

$prd_thtr_nt='';

$prd_clss='1';

$prd_clss_dsply='';

$prd_tr='1';

$tr_dsply='';

$tr_lg_list='';

$prd_coll='1';

$coll_dsply='';

$coll_sg_list='';

$rep_list='';

$prdrn_list='';

$prd_vrsn_list='';

$txt_vrsn_list='';

$ctgry_list='';

$gnr_list='';

$ftr_list='';

$thm_list='';

$sttng_list='';

$wri_list='';

$prdcr_list='';

$prf_list='';

$prd_othr_prts='0';

$prd_cst_nt='';

$us_list='';

$mscn_list='';

$crtv_list='';

$prdtm_list='';

$ssn_nm='';

$fstvl_nm='';

$crs_list='';

$rvw_list='';

$alt_nm_list='';

$textarea='';

$frmactn='?add';

$edit=NULL;

include 'addform.html.php';

exit();

}

if(isset($_POST['add']) and $_POST['add']=='Submit')

{

include $_SERVER['DOCUMENT_ROOT'].'/includes/db.inc.php';

$prd_id=NULL;

$edit=NULL;

include $_SERVER['DOCUMENT_ROOT'].'/includes/includes_indexes/prd_vldtn.inc.php';

if(count($errors)>0)

{

$pagetitle='Add Production';

$pagesubtitle='Add a new production to the database.';

$pagetab='Add Production | TheatreBase';

$prd_nm=$_POST['prd_nm'];

$prd_sbnm=$_POST['prd_sbnm'];

$prd_crtd='TBC';

$prd_updtd='TBC';

$mat_list=$_POST['mat_list'];

$pt_list=$_POST['pt_list'];

$prd_frst_dt=$_POST['prd_frst_dt'];

$prd_prss_dt=$_POST['prd_prss_dt'];

$prd_prss_dt_2=$_POST['prd_prss_dt_2'];

$prd_lst_dt=$_POST['prd_lst_dt'];

$prd_prss_wrdng=$_POST['prd_prss_wrdng'];

$prd_tbc_nt=$_POST['prd_tbc_nt'];

$prd_dt_nt=$_POST['prd_dt_nt'];

$tr_lg_list=$_POST['tr_lg_list'];

if($prd_tr=='2') {$tr_dsply=' [TOUR]';} elseif($prd_tr=='3') {$tr_dsply=' [TOUR LEG]';} else {$tr_dsply='';}

$coll_sg_list=$_POST['coll_sg_list'];

if($prd_coll=='2') {$coll_dsply=' [COLLECTION]';} elseif($prd_coll=='3') {$coll_dsply=' [PART OF COLLECTION]';} else {$coll_dsply='';}

$rep_list=$_POST['rep_list'];

$prdrn_list=$_POST['prdrn_list'];

$thtr_nm=$_POST['thtr_nm'];

$prd_thtr_nt=$_POST['prd_thtr_nt'];

if($prd_clss=='1') {$prd_clss_dsply='';} elseif($prd_clss=='2') {$prd_clss_dsply='AMATEUR ';} else {$prd_clss_dsply='DRAMA SCHOOL ';}

$prd_vrsn_list=$_POST['prd_vrsn_list'];

$txt_vrsn_list=$_POST['txt_vrsn_list'];

$ctgry_list=$_POST['ctgry_list'];

$gnr_list=$_POST['gnr_list'];

$ftr_list=$_POST['ftr_list'];

$thm_list=$_POST['thm_list'];

$sttng_list=$_POST['sttng_list'];

$wri_list=$_POST['wri_list'];

$prdcr_list=$_POST['prdcr_list'];

$prf_list=$_POST['prf_list'];

$prd_cst_nt=$_POST['prd_cst_nt'];

$us_list=$_POST['us_list'];

$mscn_list=$_POST['mscn_list'];

$crtv_list=$_POST['crtv_list'];

$prdtm_list=$_POST['prdtm_list'];

$ssn_nm=$_POST['ssn_nm'];

$fstvl_nm=$_POST['fstvl_nm'];

$crs_list=$_POST['crs_list'];

$rvw_list=$_POST['rvw_list'];

$alt_nm_list=$_POST['alt_nm_list'];

$textarea=$_POST['textarea'];

$errors['prd_add_edit_error']='**There are errors on this page that need amending before submission can be successful.**</br>';

$frmactn='?add';

include 'addform.html.php';

exit();

}

else

{

$sql= "INSERT INTO prd SET

prd_nm='$prd_nm',

prd_alph=CASE WHEN '$prd_alph'!='' THEN '$prd_alph' END,

prd_url='$prd_url',

prd_sbnm='$prd_sbnm',

prd_crtd=NOW(),

prd_updtd=NOW(),

prd_frst_dt='$prd_frst_dt',

prd_prss_dt=CASE WHEN '$prd_prss_dt'!='' THEN '$prd_prss_dt' END,

prd_prss_dt_2=CASE WHEN '$prd_prss_dt_2'!='' THEN '$prd_prss_dt_2' END,

prd_lst_dt='$prd_lst_dt',

prd_prss_dt_tbc='$prd_prss_dt_tbc',

prd_prv_only='$prd_prv_only',

prd_dts_info='$prd_dts_info',

prd_prss_wrdng='$prd_prss_wrdng',

prd_tbc_nt='$prd_tbc_nt',

prd_dt_nt='$prd_dt_nt',

prd_tr='$prd_tr',

prd_coll='$prd_coll',

prd_thtr_nt='$prd_thtr_nt',

prd_clss='$prd_clss',

prd_othr_prts='$prd_othr_prts',

prd_cst_nt='$prd_cst_nt'";

if(!mysqli_query($link, $sql)) {$error='Error adding production data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

$prd_id=mysqli_insert_id($link);

include $_SERVER['DOCUMENT_ROOT'].'/includes/includes_indexes/prd_insrtn.inc.php';

}

session_start();

$_SESSION['successclass']='success';

$_SESSION['message']='THIS PRODUCTION HAS BEEN ADDED TO THE DATABASE: '.html($prd_nm_session);

header('Location: '.$prd_id.'/'.$prd_url);

exit();

}

if(isset($_POST['action']) and $_POST['action']=='Edit')

{

include $_SERVER['DOCUMENT_ROOT'].'/includes/db.inc.php';

$prd_id=cln($_POST['prd_id']);

$sql= "SELECT prd_id, prd_nm, prd_sbnm, prd_frst_dt, prd_prss_dt, prd_prss_dt_2, prd_lst_dt, DATE_FORMAT(prd_crtd, '%d %b %Y at %H:%i') AS prd_crtd, DATE_FORMAT(prd_updtd, '%d %b %Y at %H:%i') AS prd_updtd, DATE_FORMAT(prd_frst_dt, '%a, %d %b %Y') AS prd_frst_dt_dsply, DATE_FORMAT(prd_lst_dt, '%a, %d %b %Y') AS prd_lst_dt_dsply, prd_prss_dt_tbc, prd_prv_only, prd_dts_info, prd_prss_wrdng, prd_tbc_nt, prd_dt_nt, prd_tr, prd_coll, prd_thtr_nt, prd_clss, prd_othr_prts, prd_cst_nt, thtr_nm, sbthtr_nm, thtr_lctn, thtr_sffx_num

FROM prd

INNER JOIN thtr ON thtrid=thtr_id

WHERE prd_id='$prd_id'";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring production and theatre details: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

$row=mysqli_fetch_array($result);

$prd_nm=html($row['prd_nm']);

$prd_sbnm=html($row['prd_sbnm']);

$prd_crtd=html($row['prd_crtd']);

$prd_updtd=html($row['prd_updtd']);

$prd_frst_dt=html($row['prd_frst_dt']);

$prd_prss_dt=html($row['prd_prss_dt']);

$prd_prss_dt_2=html($row['prd_prss_dt_2']);

$prd_lst_dt=html($row['prd_lst_dt']);

$prd_prss_dt_tbc=html($row['prd_prss_dt_tbc']);

$prd_prv_only=html($row['prd_prv_only']);

$prd_dts_info=html($row['prd_dts_info']);

$prd_prss_wrdng=html($row['prd_prss_wrdng']);

$prd_tbc_nt=html($row['prd_tbc_nt']);

$prd_dt_nt=html($row['prd_dt_nt']);

$prd_tr=html($row['prd_tr']); if($row['prd_tr']=='2') {$tr_dsply=' [TOUR]';} elseif($row['prd_tr']=='3') {$tr_dsply=' [TOUR LEG]';} else {$tr_dsply='';}

$prd_coll=html($row['prd_coll']); if($row['prd_coll']=='2') {$coll_dsply=' [COLLECTION]';} elseif($row['prd_coll']=='3') {$coll_dsply=' [PART OF COLLECTION]';} else {$coll_dsply='';}

$prd_thtr_nt=html($row['prd_thtr_nt']);

$prd_clss=html($row['prd_clss']); if($prd_clss=='1') {$prd_clss_dsply='';} elseif($prd_clss=='2') {$prd_clss_dsply='AMATEUR ';} else {$prd_clss_dsply='DRAMA SCHOOL ';}

$prd_othr_prts=html($row['prd_othr_prts']);

$prd_cst_nt=html($row['prd_cst_nt']);

if($row['sbthtr_nm']) {$sbthtr_nm=';;'.$row['sbthtr_nm']; $sbthtr_nm_tb=': '.$row['sbthtr_nm'];} else {$sbthtr_nm=''; $sbthtr_nm_tb='';}

if($row['thtr_lctn']) {$thtr_lctn='::'.$row['thtr_lctn']; $thtr_lctn_tb=' ('.$row['thtr_lctn'].')';} else {$thtr_lctn=''; $thtr_lctn_tb='';}

if($row['thtr_sffx_num']) {$thtr_sffx_num='--'.$row['thtr_sffx_num'];} else {$thtr_sffx_num='';}

$thtr_nm=html($row['thtr_nm'].$sbthtr_nm.$thtr_lctn.$thtr_sffx_num);

if($row['prd_tbc_nt']) {$prd_tbc_nt_tb=': '.$row['prd_tbc_nt'];} else {$prd_tbc_nt_tb='';}

if($row['prd_dts_info']=='4') {$prd_dts_tb='Dates TBC'.$prd_tbc_nt_tb;}

else

{ if($row['prd_frst_dt_dsply']!==$row['prd_lst_dt_dsply'])

{ $prd_dts_tb=$row['prd_frst_dt_dsply'].' - ';

if($row['prd_dts_info']=='3') {$prd_dts_tb .= 'TBC';}

else {if($row['prd_dts_info']=='2') {$prd_dts_tb .= $row['prd_lst_dt_dsply'];} else {$prd_dts_tb .= $row['prd_lst_dt_dsply'];}}

}

else

{ if($row['prd_dts_info']=='3') {$prd_dts_tb='Dates TBC';}

else {if($row['prd_dts_info']=='2') {$prd_dts_tb=$row['prd_frst_dt_dsply'].' only';} else {$prd_dts_tb=$row['prd_frst_dt_dsply'].' only';}}

}

}

$pagetab='Edit: '.$prd_nm.' ('.html($row['thtr_nm'].$sbthtr_nm_tb.$thtr_lctn_tb.': '.$prd_dts_tb.')').' | TheatreBase';

$pagetitle=$prd_nm;

$pagesubtitle='Edit this existing production.';

$sql= "SELECT mat_nm, frmt_nm, mat_sffx_num FROM prdmat

INNER JOIN mat ON matid=mat_id INNER JOIN frmt ON frmtid=frmt_id

WHERE prdid='$prd_id' ORDER BY mat_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring material data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['mat_sffx_num']) {$mat_sffx_num='--'.$row['mat_sffx_num'];} else {$mat_sffx_num='';}

$mats[]=$row['mat_nm'].';;'.$row['frmt_nm'].$mat_sffx_num;

}

if(!empty($mats)) {$mat_list=html(implode(',,', $mats));} else {$mat_list='';}

$sql= "SELECT pt_nm, pt_yr_strtd_c, pt_yr_strtd, pt_yr_wrttn_c, pt_yr_wrttn, pt_sffx_num, COALESCE(pt_alph, pt_nm)pt_alph

FROM prdpt

INNER JOIN pt ON ptid=pt_id

WHERE prdid='$prd_id'

ORDER BY pt_yr_wrttn ASC, pt_alph ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring playtext data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['pt_yr_strtd']) {$pt_yr_strtd=$row['pt_yr_strtd'].';;';} else {$pt_yr_strtd='';}

if($row['pt_yr_strtd_c']) {$pt_yr_strtd='c'.$pt_yr_strtd;}

if($row['pt_yr_wrttn_c']) {$pt_yr_wrttn='c'.$row['pt_yr_wrttn'];} else {$pt_yr_wrttn=$row['pt_yr_wrttn'];}

if($row['pt_sffx_num']) {$pt_sffx_num='--'.$row['pt_sffx_num'];} else {$pt_sffx_num='';}

$pts[]=$row['pt_nm'].'##'.$pt_yr_strtd.$pt_yr_wrttn.$pt_sffx_num;

}

if(!empty($pts)) {$pt_list=html(implode(',,', $pts));} else {$pt_list='';}

$sql="SELECT prd_id FROM prd WHERE tr_ov='$prd_id' ORDER BY prd_frst_dt ASC, tr_lg_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring tour leg data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$tr_lg_ids[]=$row['prd_id'];}

if(!empty($tr_lg_ids)) {$tr_lg_list=html(implode(',,', $tr_lg_ids));} else {$tr_lg_list='';}

$sql="SELECT coll_sbhdr_id, coll_sbhdr FROM prdcoll_sbhdr WHERE coll_ov='$prd_id' ORDER BY coll_sbhdr_id ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring collection subheader data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result)) {$coll_sg_sbhdrs[$row['coll_sbhdr_id']]=array('coll_sbhdr'=>$row['coll_sbhdr'], 'coll_sgs'=>array());}

$sql= "SELECT p2.coll_sbhdrid, p2.prd_id FROM prd p1 INNER JOIN prd p2 ON p1.prd_id=p2.coll_ov

WHERE p1.prd_id='$prd_id' ORDER BY p2.prd_frst_dt ASC, p2.coll_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring collection segment data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

if(mysqli_num_rows($result)>0)

{

if(empty($coll_sg_sbhdrs)) {$coll_sg_sbhdrs['1']=array('coll_sbhdr'=>NULL, 'coll_sgs'=>array());}

while($row=mysqli_fetch_array($result))

{

if($row['coll_sbhdrid']) {$coll_sbhdrid=$row['coll_sbhdrid'];} else {$coll_sbhdrid='1';}

$coll_sg_sbhdrs[$coll_sbhdrid]['coll_sgs'][]=$row['prd_id'];

}

}

if(!empty($coll_sg_sbhdrs))

{

$coll_sg_array=array();

foreach($coll_sg_sbhdrs as $coll_sg_sbhdr)

{

if($coll_sg_sbhdr['coll_sbhdr']) {$coll_sbhdr=$coll_sg_sbhdr['coll_sbhdr'].'==';} else {$coll_sbhdr='';}

$coll_sg_array[]=$coll_sbhdr.implode(',,', $coll_sg_sbhdr['coll_sgs']);

}

$coll_sg_list=html(implode('@@', $coll_sg_array));

}

else {$coll_sg_list='';}

$sql= "SELECT rep1 AS prdid_rep, prd_frst_dt, COALESCE(prd_alph, prd_nm)prd_alph FROM prdrep INNER JOIN prd ON rep1=prd_id

WHERE rep2='$prd_id'

UNION

SELECT rep2 AS prdid_rep, prd_frst_dt, COALESCE(prd_alph, prd_nm)prd_alph FROM prdrEP INNER JOIN prd ON rep2=prd_id

WHERE rep1='$prd_id'

ORDER BY prd_frst_dt ASC, prd_alph ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring rep data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$rep_ids[]=$row['prdid_rep'];}

if(!empty($rep_ids)) {$rep_list=html(implode(',,', $rep_ids));} else {$rep_list='';}

$sql= "SELECT prdrn1 AS prdrn_id, prd_frst_dt FROM prdrn INNER JOIN prd ON prdrn1=prd_id WHERE prdrn2='$prd_id'

UNION

SELECT prdrn2 AS prdrn_id, prd_frst_dt FROM prdrn INNER JOIN prd ON prdrn2=prd_id WHERE prdrn1='$prd_id'

ORDER BY prd_frst_dt ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring production run data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$prdrn_ids[]=$row['prdrn_id'];}

if(!empty($prdrn_ids)) {$prdrn_list=html(implode(',,', $prdrn_ids));} else {$prdrn_list='';}

$sql= "SELECT prd_vrsn_nm

FROM prdprd_vrsn

INNER JOIN prd_vrsn ON prd_vrsnid=prd_vrsn_id

WHERE prdid='$prd_id'

ORDER BY prd_vrsn_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring prod version data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$prd_vrsns[]=$row['prd_vrsn_nm'];}

if(!empty($prd_vrsns)) {$prd_vrsn_list=html(implode(',,', $prd_vrsns));} else {$prd_vrsn_list='';}

$sql= "SELECT txt_vrsn_nm

FROM prdtxt_vrsn

INNER JOIN txt_vrsn ON txt_vrsnid=txt_vrsn_id

WHERE prdid='$prd_id'

ORDER BY txt_vrsn_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring text version data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$txt_vrsns[]=$row['txt_vrsn_nm'];}

if(!empty($txt_vrsns)) {$txt_vrsn_list=html(implode(',,', $txt_vrsns));} else {$txt_vrsn_list='';}

$sql= "SELECT ctgry_nm

FROM prdctgry

INNER JOIN ctgry ON ctgryid=ctgry_id

WHERE prdid='$prd_id'

ORDER BY ctgry_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring category data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$ctgrys[]=$row['ctgry_nm'];}

if(!empty($ctgrys)) {$ctgry_list=html(implode(',,', $ctgrys));} else {$ctgry_list='';}

$sql= "SELECT gnr_nm

FROM prdgnr

INNER JOIN gnr ON gnrid=gnr_id

WHERE prdid='$prd_id'

ORDER BY gnr_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring genre data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$gnrs[]=$row['gnr_nm'];}

if(!empty($gnrs)) {$gnr_list=html(implode(',,', $gnrs));} else {$gnr_list='';}

$sql= "SELECT ftr_nm

FROM prdftr

INNER JOIN ftr ON ftrid=ftr_id

WHERE prdid='$prd_id'

ORDER BY ftr_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring feature data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$ftrs[]=$row['ftr_nm'];}

if(!empty($ftrs)) {$ftr_list=html(implode(',,', $ftrs));} else {$ftr_list='';}

$sql= "SELECT thm_nm

FROM prdthm

INNER JOIN thm ON thmid=thm_id

WHERE prdid='$prd_id'

ORDER BY thm_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring theme data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$thms[]=$row['thm_nm'];}

if(!empty($thms)) {$thm_list=html(implode(',,', $thms));} else {$thm_list='';}

$sql= "SELECT sttngid FROM prdsttng_tm WHERE prdid='$prd_id' GROUP BY sttngid

UNION

SELECT sttngid FROM prdsttng_lctn WHERE prdid='$prd_id' GROUP BY sttngid

UNION

SELECT sttngid FROM prdsttng_plc WHERE prdid='$prd_id' GROUP BY sttngid

ORDER BY sttngid ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring setting group data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$sttngs[$row['sttngid']]=array('tms'=>array(), 'tm_spns'=>array(), 'lctns'=>array(), 'plcs'=>array());}

$sql= "SELECT sttngid, tm_nm, sttng_tm_nt1, sttng_tm_nt2 FROM prdsttng_tm

INNER JOIN tm ON sttng_tmid=tm_id

WHERE prdid='$prd_id'

ORDER BY sttng_tm_ordr";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring setting time data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['sttng_tm_nt1']) {$sttng_tm_nt1=$row['sttng_tm_nt1'].'::';} else {$sttng_tm_nt1='';}

if($row['sttng_tm_nt2']) {$sttng_tm_nt2=';;'.$row['sttng_tm_nt2'];} else {$sttng_tm_nt2='';}

$sttngs[$row['sttngid']]['tms'][]=$sttng_tm_nt1.$row['tm_nm'].$sttng_tm_nt2;

}

$sql= "SELECT sttng_id, tm_spn FROM prdsttng

WHERE prdid='$prd_id' AND tm_spn=1

ORDER BY sttng_id";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring setting time span data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{$sttngs[$row['sttng_id']]['tm_spns'][]=$row['tm_spn'];}

$sql= "SELECT sttngid, lctn_id, lctn_nm, lctn_sffx_num, sttng_lctn_nt1, sttng_lctn_nt2 FROM prdsttng_lctn

INNER JOIN lctn ON sttng_lctnid=lctn_id

WHERE prdid='$prd_id'

ORDER BY sttng_lctn_ordr";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring setting location data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['lctn_sffx_num']) {$lctn_sffx_num='--'.$row['lctn_sffx_num'];} else {$lctn_sffx_num='';}

if($row['sttng_lctn_nt1']) {$sttng_lctn_nt1=$row['sttng_lctn_nt1'].'::';} else {$sttng_lctn_nt1='';}

if($row['sttng_lctn_nt2']) {$sttng_lctn_nt2=';;'.$row['sttng_lctn_nt2'];} else {$sttng_lctn_nt2='';}

$sttngs[$row['sttngid']]['lctns'][$row['lctn_id']]=array('lctn'=>$sttng_lctn_nt1.$row['lctn_nm'].$lctn_sffx_num.$sttng_lctn_nt2, 'lctn_alts'=>array());

}

$sql= "SELECT psl.sttngid, psl.sttng_lctnid, lctn_nm, lctn_sffx_num

FROM prdsttng_lctn psl

INNER JOIN rel_lctn ON psl.sttng_lctnid=rel_lctn1 INNER JOIN prdsttng_lctn_alt psla ON rel_lctn2=psla.sttng_lctn_altid

INNER JOIN lctn ON psla.sttng_lctn_altid=lctn_id

WHERE psl.prdid='$prd_id'

AND psl.prdid=psla.prdid AND psl.sttngid=psla.sttngid AND psl.sttng_lctnid=psla.sttng_lctnid

ORDER BY rel_lctn_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring setting alternate location data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['lctn_sffx_num']) {$lctn_sffx_num='--'.$row['lctn_sffx_num'];} else {$lctn_sffx_num='';}

$sttngs[$row['sttngid']]['lctns'][$row['sttng_lctnid']]['lctn_alts'][]=$row['lctn_nm'].$lctn_sffx_num;

}

$sql= "SELECT sttngid, plc_nm, sttng_plc_nt1, sttng_plc_nt2 FROM prdsttng_plc

INNER JOIN plc ON sttng_plcid=plc_id

WHERE prdid='$prd_id'

ORDER BY sttng_plc_ordr";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring setting place data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['sttng_plc_nt1']) {$sttng_plc_nt1=$row['sttng_plc_nt1'].'::';} else {$sttng_plc_nt1='';}

if($row['sttng_plc_nt2']) {$sttng_plc_nt2=';;'.$row['sttng_plc_nt2'];} else {$sttng_plc_nt2='';}

$sttngs[$row['sttngid']]['plcs'][]=$sttng_plc_nt1.$row['plc_nm'].$sttng_plc_nt2;

}

if(!empty($sttngs))

{

$sttng_array=array();

foreach($sttngs as $sttng)

{

if(!empty($sttng['tms'])) {$tm_list=implode('//', $sttng['tms']);} else {$tm_list='';}

if(!empty($sttng['tm_spns'])) {$tm_spn='*';} else {$tm_spn='';}

if(!empty($sttng['lctns']))

{

$sttng_lctn_array=array();

foreach($sttng['lctns'] as $sttng_lctn)

{

if(!empty($sttng_lctn['lctn_alts'])) {$lctn_alt_list='||'.implode('>>', $sttng_lctn['lctn_alts']);} else {$lctn_alt_list='';}

$sttng_lctn_array[]=$sttng_lctn['lctn'].$lctn_alt_list;

}

$lctn_list='##'.implode('//', $sttng_lctn_array);

}

else {$lctn_list='';}

if(!empty($sttng['plcs'])) {$plc_list='++'.implode('//', $sttng['plcs']);} else {$plc_list='';}

$sttng_array[]=$tm_list.$tm_spn.$lctn_list.$plc_list;

}

$sttng_list=html(implode(',,', $sttng_array));

}

else {$sttng_list='';}

$sql= "SELECT wri_rl_id, wri_rl, src_mat_rl

FROM prdwrirl

WHERE prdid='$prd_id'

ORDER BY wri_rl_id ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring writer (roles) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['wri_rl']) {if(!preg_match('/:$/', $row['wri_rl'])) {$wri_rl=$row['wri_rl'].'::';} else {$wri_rl=$row['wri_rl'].' ::';}} else {$wri_rl='';}

if($row['src_mat_rl']) {if(!preg_match('/:$/', $row['src_mat_rl'])) {$src_mat_rl=$row['src_mat_rl'].'::';} else {$src_mat_rl=$row['src_mat_rl'].' ::';}} else {$src_mat_rl='';}

if($row['src_mat_rl']) {$src_mat_pls='++';} else {$src_mat_pls='';}

$wri_rls[$row['wri_rl_id']]=array('src_mat_rl'=>$src_mat_rl, 'src_mat_pls'=>$src_mat_pls, 'wri_rl'=>$wri_rl, 'src_mats'=>array(), 'wris'=>array());

}

$sql= "SELECT wri_rlid, mat_nm, mat_sffx_num, frmt_nm

FROM prdsrc_mat

INNER JOIN mat ON src_matid=mat_id

INNER JOIN frmt ON frmtid=frmt_id

WHERE prdid='$prd_id'

ORDER BY src_mat_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring source material data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['mat_sffx_num']) {$mat_sffx_num='--'.$row['mat_sffx_num'];} else {$mat_sffx_num='';}

$wri_rls[$row['wri_rlid']]['src_mats'][]=$row['mat_nm'].';;'.$row['frmt_nm'].$mat_sffx_num;

}

$sql= "SELECT wri_rlid, comp_id, comp_nm AS comp_nm1, comp_nm AS comp_nm2, comp_sffx_num, wri_sb_rl, wri_ordr, org_wri, src_wri, grntr, comp_bool

FROM prdwri

INNER JOIN comp ON wri_compid=comp_id

WHERE prdid='$prd_id' AND wri_prsnid=0

UNION

SELECT wri_rlid, prsn_id, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num, wri_sb_rl, wri_ordr, org_wri, src_wri, grntr, comp_bool

FROM prdwri

INNER JOIN prsn ON wri_prsnid=prsn_id

WHERE prdid='$prd_id' AND wri_compid=0

ORDER BY wri_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring writer data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['comp_bool'])

{

if($row['comp_nm1'])

{

if($row['org_wri']) {$org_wri='*';} else {$org_wri='';}

if($row['src_wri']) {$src_wri='**';} else {$src_wri='';}

if($row['grntr']) {$grntr='***';} else {$grntr='';}

if($row['wri_sb_rl']) {$wri_sb_rl=$row['wri_sb_rl'].'~~';} else {$wri_sb_rl='';}

if($row['comp_sffx_num']) {$comp_sffx_num='--'.$row['comp_sffx_num'];} else {$comp_sffx_num='';}

$comp_wri_nm=$wri_sb_rl.$row['comp_nm1'].$comp_sffx_num.$org_wri.$src_wri.$grntr.'||';

}

else

{$comp_wri_nm='';}

$prsn_wri_nm='';

}

else

{

if($row['comp_nm1'])

{

if($row['org_wri']) {$org_wri='*';} else {$org_wri='';}

if($row['src_wri']) {$src_wri='**';} else {$src_wri='';}

if($row['grntr']) {$grntr='***';} else {$grntr='';}

if($row['wri_sb_rl']) {$wri_sb_rl=$row['wri_sb_rl'].'~~';} else {$wri_sb_rl='';}

if($row['comp_sffx_num']) {$prsn_sffx_num='--'.$row['comp_sffx_num'];} else {$prsn_sffx_num='';}

$prsn_wri_nm=$wri_sb_rl.$row['comp_nm1'].';;'.$row['comp_nm2'].$prsn_sffx_num.$org_wri.$src_wri.$grntr;

}

else

{$prsn_wri_nm='';}

$comp_wri_nm='';

}

$wri_rls[$row['wri_rlid']]['wris'][$row['comp_id']]=array('comp_wri_nm'=>$comp_wri_nm, 'prsn_wri_nm'=>$prsn_wri_nm, 'wricomp_ppl'=>array());

}

$sql= "SELECT wri_rlid, wri_compid, wri_sb_rl, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num

FROM prdwri

INNER JOIN prsn ON wri_prsnid=prsn_id

WHERE prdid='$prd_id' AND wri_compid!=0

ORDER BY wri_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring writer (company people) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['wri_sb_rl']) {$wri_sb_rl=$row['wri_sb_rl'].'~~';} else {$wri_sb_rl='';}

if($row['prsn_sffx_num']) {$prsn_sffx_num='--'.$row['prsn_sffx_num'];} else {$prsn_sffx_num='';}

$wri_rls[$row['wri_rlid']]['wris'][$row['wri_compid']]['wricomp_ppl'][]=$wri_sb_rl.$row['prsn_frst_nm'].';;'.$row['prsn_lst_nm'].$prsn_sffx_num;

}

if(!empty($wri_rls))

{

$wri_array=array();

foreach($wri_rls as $wri_rl)

{

$wri_comp_ppl_array=array();

foreach($wri_rl['wris'] as $wri)

{

$wricomp_ppl_list=implode('//', $wri['wricomp_ppl']);

$wri_comp_ppl_array[]=$wri['comp_wri_nm'].$wri['prsn_wri_nm'].$wricomp_ppl_list;

}

if(!empty($wri_comp_ppl_array)) {$wri_comp_ppl_list=implode('>>', $wri_comp_ppl_array);} else {$wri_comp_ppl_list='';}

if(!empty($wri_rl['src_mats'])) {$src_mats_list=implode('>>', $wri_rl['src_mats']);} else {$src_mats_list='';}

$wri_array[]=$wri_rl['src_mat_rl'].$src_mats_list.$wri_rl['src_mat_pls'].$wri_rl['wri_rl'].$wri_comp_ppl_list;

}

$wri_list=html(implode(',,', $wri_array));

}

else

{$wri_list='';}

$sql= "SELECT prdcr_rl_id, prdcr_rl

FROM prdprdcrrl

WHERE prdid='$prd_id'

ORDER BY prdcr_rl_id ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring producer (roles) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['prdcr_rl']) {if(!preg_match('/:$/', $row['prdcr_rl'])) {$prdcr_rl=$row['prdcr_rl'].'::';} else {$prdcr_rl=$row['prdcr_rl'].' ::';}} else {$prdcr_rl='';}

$prdcr_rls[$row['prdcr_rl_id']]=array('prdcr_rl'=>$prdcr_rl, 'prdcrs'=>array());

}

$sql= "SELECT prdcr_rlid, comp_id, comp_nm AS comp_nm1, comp_nm AS comp_nm2, comp_sffx_num, prdcr_sb_rl, prdcr_ordr, grntr, comp_bool

FROM prdprdcr

INNER JOIN comp ON prdcr_compid=comp_id

WHERE prdid='$prd_id' AND prdcr_prsnid=0

UNION

SELECT prdcr_rlid, prsn_id, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num, prdcr_sb_rl, prdcr_ordr, grntr, comp_bool

FROM prdprdcr

INNER JOIN prsn ON prdcr_prsnid=prsn_id

WHERE prdid='$prd_id' AND prdcr_compid=0

ORDER BY prdcr_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring producer data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['comp_bool'])

{

if($row['comp_nm1'])

{

if($row['grntr']) {$grntr='***';} else {$grntr='';}

if($row['prdcr_sb_rl']) {$prdcr_sb_rl=$row['prdcr_sb_rl'].'~~';} else {$prdcr_sb_rl='';}

if($row['comp_sffx_num']) {$comp_sffx_num='--'.$row['comp_sffx_num'];} else {$comp_sffx_num='';}

$comp_prdcr_nm=$prdcr_sb_rl.$row['comp_nm1'].$comp_sffx_num.$grntr.'||';

}

else

{$comp_prdcr_nm='';}

$prsn_prdcr_nm='';

}

else

{

if($row['comp_nm1'])

{

if($row['grntr']) {$grntr='***';} else {$grntr='';}

if($row['prdcr_sb_rl']) {$prdcr_sb_rl=$row['prdcr_sb_rl'].'~~';} else {$prdcr_sb_rl='';}

if($row['comp_sffx_num']) {$prsn_sffx_num='--'.$row['comp_sffx_num'];} else {$prsn_sffx_num='';}

$prsn_prdcr_nm=$prdcr_sb_rl.$row['comp_nm1'].';;'.$row['comp_nm2'].$prsn_sffx_num.$grntr;

}

else

{$prsn_prdcr_nm='';}

$comp_prdcr_nm='';

}

$prdcr_rls[$row['prdcr_rlid']]['prdcrs'][$row['comp_id']]=array('comp_prdcr_nm'=>$comp_prdcr_nm, 'prsn_prdcr_nm'=>$prsn_prdcr_nm, 'comp_rls'=>array());

}

$sql= "SELECT prdcr_rlid, prdcr_compid, prdcr_comp_rl_id, prdcr_comprl

FROM prdprdcr pp

INNER JOIN prdprdcr_comprl ppcr ON pp.prdid=ppcr.prdid

WHERE pp.prdid='$prd_id' AND prdcr_comp_rlid=prdcr_comp_rl_id

GROUP BY prdcr_rlid, prdcr_compid, prdcr_comp_rl_id

ORDER BY prdcr_comp_rl_id ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring producer (company people roles) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['prdcr_comprl']) {$prdcr_comprl=$row['prdcr_comprl'].'~~';} else {$prdcr_comprl='';}

$prdcr_rls[$row['prdcr_rlid']]['prdcrs'][$row['prdcr_compid']]['comp_rls'][$row['prdcr_comp_rl_id']]=array('prdcr_comprl'=>$prdcr_comprl, 'prdcrcomp_ppl'=>array());

}

$sql= "SELECT prdcr_rlid, prdcr_compid, prdcr_comp_rlid, prdcr_sb_rl, prdcr_crdt, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num

FROM prdprdcr

INNER JOIN prsn ON prdcr_prsnid=prsn_id

WHERE prdid='$prd_id' AND prdcr_compid!=0

ORDER BY prdcr_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring producer (company people) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['prdcr_crdt']) {$prdcr_crdt='*';} else {$prdcr_crdt='';}

if($row['prdcr_sb_rl']) {$prdcr_sb_rl=$row['prdcr_sb_rl'].'^^';} else {$prdcr_sb_rl='';}

if($row['prsn_sffx_num']) {$prsn_sffx_num='--'.$row['prsn_sffx_num'];} else {$prsn_sffx_num='';}

$prdcr_rls[$row['prdcr_rlid']]['prdcrs'][$row['prdcr_compid']]['comp_rls'][$row['prdcr_comp_rlid']]['prdcrcomp_ppl'][]=$prdcr_sb_rl.$row['prsn_frst_nm'].';;'.$row['prsn_lst_nm'].$prsn_sffx_num.$prdcr_crdt;

}

if(!empty($prdcr_rls))

{

$prdcr_array=array();

foreach($prdcr_rls as $prdcr_rl)

{

$prdcr_comp_rls_array=array();

foreach($prdcr_rl['prdcrs'] as $prdcr)

{

$prdcr_comp_ppl_array=array();

foreach($prdcr['comp_rls'] as $comp_rl)

{

$prdcrcomp_ppl_list=implode('¬¬', $comp_rl['prdcrcomp_ppl']);

$prdcr_comp_ppl_array[]=$comp_rl['prdcr_comprl'].$prdcrcomp_ppl_list;

}

if(!empty($prdcr_comp_ppl_array)) {$prdcr_comp_ppl_list=implode('//', $prdcr_comp_ppl_array);} else {$prdcr_comp_ppl_list='';}

$prdcr_comp_rls_array[]=$prdcr['comp_prdcr_nm'].$prdcr['prsn_prdcr_nm'].$prdcr_comp_ppl_list;

}

if(!empty($prdcr_comp_rls_array)) {$prdcr_comp_rl_list=implode('>>', $prdcr_comp_rls_array);} else {$prdcr_comp_rl_list='';}

$prdcr_array[]=$prdcr_rl['prdcr_rl'].$prdcr_comp_rl_list;

}

$prdcr_list=html(implode(',,', $prdcr_array));

}

else

{$prdcr_list='';}

$sql= "SELECT prsn_id, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num

FROM prdprf

INNER JOIN prsn ON prf_prsnid=prsn_id

WHERE prdid='$prd_id'

GROUP BY prsn_id

ORDER BY prf_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring performer (person) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['prsn_sffx_num']) {$prf_prsn_sffx_num='--'.$row['prsn_sffx_num'];} else {$prf_prsn_sffx_num='';}

$prfs[$row['prsn_id']]=array('prsn_frst_nm'=>$row['prsn_frst_nm'], 'prsn_lst_nm'=>$row['prsn_lst_nm'], 'prsn_sffx_num'=>$prf_prsn_sffx_num, 'prf_rls'=>array());

}

$sql= "SELECT prf_prsnid, prf_rl, prf_rl_lnk, prf_rl_dscr, prf_rl_alt

FROM prdprf

WHERE prdid='$prd_id'

ORDER BY prf_ordr ASC, prf_rl_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result)

{$error='Error acquiring performer (person) role data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['prf_rl_lnk'] && $row['prf_rl_lnk']!==$row['prf_rl']){$perf_rl_lnk='||'.$row['prf_rl_lnk'];} else {$perf_rl_lnk='';}

if($row['prf_rl_dscr']) {$perf_rl_dscr=';;'.$row['prf_rl_dscr'];} else {$perf_rl_dscr='';}

if($row['prf_rl_alt']) {$perf_rl_alt='*';} else {$perf_rl_alt='';}

$prfs[$row['prf_prsnid']]['prf_rls'][]=$row['prf_rl'].$perf_rl_lnk.$perf_rl_dscr.$perf_rl_alt;

}

if(!empty($prfs))

{

$prf_array=array();

foreach($prfs as $prf)

{

$prf_rl_list=implode('//', $prf['prf_rls']);

$prf_array[]=$prf['prsn_frst_nm'].';;'.$prf['prsn_lst_nm'].$prf['prsn_sffx_num'].'::'.$prf_rl_list;

}

$prf_list=html(implode(',,', $prf_array));

}

else

{$prf_list='';}

$sql= "SELECT prsn_id, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num

FROM prdus

INNER JOIN prsn ON us_prsnid=prsn_id

WHERE prdid='$prd_id'

GROUP BY prsn_id

ORDER BY us_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring understudy (person) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['prsn_sffx_num']) {$us_sffx_num='--'.$row['prsn_sffx_num'];} else {$us_sffx_num='';}

$uss[$row['prsn_id']]=array('prsn_frst_nm'=>$row['prsn_frst_nm'], 'prsn_lst_nm'=>$row['prsn_lst_nm'], 'prsn_sffx_num'=>$us_sffx_num, 'us_rls'=>array());

}

$sql= "SELECT us_prsnid, us_rl, us_rl_lnk, us_rl_dscr, us_rl_alt

FROM prdus

WHERE prdid='$prd_id'

ORDER BY us_ordr ASC, us_rl_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring understudy (person) rl data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['us_rl_lnk'] && $row['us_rl_lnk']!==$row['us_rl']) {$us_rl_lnk='||'.$row['us_rl_lnk'];} else {$us_rl_lnk='';}

if($row['us_rl_dscr']) {$us_rl_dscr=';;'.$row['us_rl_dscr'];} else {$us_rl_dscr='';}

if($row['us_rl_alt']) {$us_rl_alt='*';} else {$us_rl_alt='';}

$uss[$row['us_prsnid']]['us_rls'][]=$row['us_rl'].$us_rl_lnk.$us_rl_dscr.$us_rl_alt;

}

if(!empty($uss))

{

$us_array=array();

foreach($uss as $us)

{

$us_rl_list=implode('//', $us['us_rls']);

$us_array[]=$us['prsn_frst_nm'].';;'.$us['prsn_lst_nm'].$us['prsn_sffx_num'].'::'.$us_rl_list;

}

$us_list=html(implode(',,', $us_array));

}

else

{$us_list='';}

$sql= "SELECT mscn_rl_id, mscn_rl

FROM prdmscnrl

WHERE prdid='$prd_id'

ORDER BY mscn_rl_id ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring musician (roles) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['mscn_rl']) {$mscn_rl=$row['mscn_rl'].'::';} else {$mscn_rl='';}

$mscn_rls[$row['mscn_rl_id']]=array('mscn_rl'=>$mscn_rl, 'mscns'=>array());

}

$sql= "SELECT mscn_rlid, comp_id, comp_nm AS comp_nm1, comp_nm AS comp_nm2, comp_sffx_num, mscn_sb_rl, mscn_ordr, comp_bool

FROM prdmscn

INNER JOIN comp ON mscn_compid=comp_id

WHERE prdid='$prd_id' AND mscn_prsnid=0

UNION

SELECT mscn_rlid, prsn_id, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num, mscn_sb_rl, mscn_ordr, comp_bool

FROM prdmscn

INNER JOIN prsn ON mscn_prsnid=prsn_id

WHERE prdid='$prd_id' AND mscn_compid=0

ORDER BY mscn_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring musician data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['comp_bool'])

{

if($row['comp_nm1'])

{

if($row['mscn_sb_rl']) {$mscn_sb_rl=$row['mscn_sb_rl'].'~~';} else {$mscn_sb_rl='';}

if($row['comp_sffx_num']) {$comp_sffx_num='--'.$row['comp_sffx_num'];} else {$comp_sffx_num='';}

$comp_mscn_nm=$mscn_sb_rl.$row['comp_nm1'].$comp_sffx_num.'||';

}

else

{$comp_mscn_nm='';}

$prsn_mscn_nm='';

}

else

{

if($row['comp_nm1'])

{

if($row['mscn_sb_rl']) {$mscn_sb_rl=$row['mscn_sb_rl'].'~~';} else {$mscn_sb_rl='';}

if($row['comp_sffx_num']) {$prsn_sffx_num='--'.$row['comp_sffx_num'];} else {$prsn_sffx_num='';}

$prsn_mscn_nm=$mscn_sb_rl.$row['comp_nm1'].';;'.$row['comp_nm2'].$prsn_sffx_num;

}

else

{$prsn_mscn_nm='';}

$comp_mscn_nm='';

}

$mscn_rls[$row['mscn_rlid']]['mscns'][$row['comp_id']]=array('comp_mscn_nm'=>$comp_mscn_nm, 'prsn_mscn_nm'=>$prsn_mscn_nm, 'comp_rls'=>array());

}

$sql= "SELECT mscn_rlid, mscn_compid, mscn_comp_rl_id, mscn_comprl

FROM prdmscn pp

INNER JOIN prdmscn_comprl ppcr ON pp.prdid=ppcr.prdid

WHERE pp.prdid='$prd_id' AND mscn_comp_rlid=mscn_comp_rl_id

GROUP BY mscn_rlid, mscn_compid, mscn_comp_rl_id

ORDER BY mscn_comp_rl_id ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring musician (company people roles) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['mscn_comprl']) {$mscn_comprl=$row['mscn_comprl'].'~~';} else {$mscn_comprl='';}

$mscn_rls[$row['mscn_rlid']]['mscns'][$row['mscn_compid']]['comp_rls'][$row['mscn_comp_rl_id']]=array('mscn_comprl'=>$mscn_comprl, 'mscncomp_ppl'=>array());

}

$sql= "SELECT mscn_rlid, mscn_compid, mscn_comp_rlid, mscn_sb_rl, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num

FROM prdmscn

INNER JOIN prsn ON mscn_prsnid=prsn_id

WHERE prdid='$prd_id' AND mscn_compid!=0

ORDER BY mscn_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring musician (company people) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['mscn_sb_rl']) {$mscn_sb_rl=$row['mscn_sb_rl'].'^^';} else {$mscn_sb_rl='';}

if($row['prsn_sffx_num']) {$prsn_sffx_num='--'.$row['prsn_sffx_num'];} else {$prsn_sffx_num='';}

$mscn_rls[$row['mscn_rlid']]['mscns'][$row['mscn_compid']]['comp_rls'][$row['mscn_comp_rlid']]['mscncomp_ppl'][]=$mscn_sb_rl.$row['prsn_frst_nm'].';;'.$row['prsn_lst_nm'].$prsn_sffx_num;

}

if(!empty($mscn_rls))

{

$mscn_array=array();

foreach($mscn_rls as $mscn_rl)

{

$mscn_comp_rls_array=array();

foreach($mscn_rl['mscns'] as $mscn)

{

$mscn_comp_ppl_array=array();

foreach($mscn['comp_rls'] as $comp_rl)

{

$mscncomp_ppl_list=implode('¬¬', $comp_rl['mscncomp_ppl']);

$mscn_comp_ppl_array[]=$comp_rl['mscn_comprl'].$mscncomp_ppl_list;

}

if(!empty($mscn_comp_ppl_array)) {$mscn_comp_ppl_list=implode('//', $mscn_comp_ppl_array);} else {$mscn_comp_ppl_list='';}

$mscn_comp_rls_array[]=$mscn['comp_mscn_nm'].$mscn['prsn_mscn_nm'].$mscn_comp_ppl_list;

}

if(!empty($mscn_comp_rls_array)) {$mscn_comp_rl_list=implode('>>', $mscn_comp_rls_array);} else {$mscn_comp_rl_list='';}

$mscn_array[]=$mscn_rl['mscn_rl'].$mscn_comp_rl_list;

}

$mscn_list=html(implode(',,', $mscn_array));

}

else

{$mscn_list='';}

$sql= "SELECT crtv_rl_id, crtv_rl

FROM prdcrtvrl

WHERE prdid='$prd_id'

ORDER BY crtv_rl_id ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring creative (roles) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['crtv_rl']) {$crtv_rl=$row['crtv_rl'].'::';} else {$crtv_rl='';}

$crtv_rls[$row['crtv_rl_id']]=array('crtv_rl'=>$crtv_rl, 'crtvs'=>array());

}

$sql= "SELECT crtv_rlid, comp_id, comp_nm AS comp_nm1, comp_nm AS comp_nm2, comp_sffx_num, crtv_sb_rl, crtv_ordr, comp_bool

FROM prdcrtv

INNER JOIN comp ON crtv_compid=comp_id

WHERE prdid='$prd_id' AND crtv_prsnid=0

UNION

SELECT crtv_rlid, prsn_id, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num, crtv_sb_rl, crtv_ordr, comp_bool

FROM prdcrtv

INNER JOIN prsn ON crtv_prsnid=prsn_id

WHERE prdid='$prd_id' AND crtv_compid=0

ORDER BY crtv_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring creative data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['comp_bool'])

{

if($row['comp_nm1'])

{

if($row['crtv_sb_rl']) {$crtv_sb_rl=$row['crtv_sb_rl'].'~~';} else {$crtv_sb_rl='';}

if($row['comp_sffx_num']) {$comp_sffx_num='--'.$row['comp_sffx_num'];} else {$comp_sffx_num='';}

$comp_crtv_nm=$crtv_sb_rl.$row['comp_nm1'].$comp_sffx_num.'||';

}

else

{$comp_crtv_nm='';}

$prsn_crtv_nm='';

}

else

{

if($row['comp_nm1'])

{

if($row['crtv_sb_rl']) {$crtv_sb_rl=$row['crtv_sb_rl'].'~~';} else {$crtv_sb_rl='';}

if($row['comp_sffx_num']) {$prsn_sffx_num='--'.$row['comp_sffx_num'];} else {$prsn_sffx_num='';}

$prsn_crtv_nm=$crtv_sb_rl.$row['comp_nm1'].';;'.$row['comp_nm2'].$prsn_sffx_num;

}

else

{$prsn_crtv_nm='';}

$comp_crtv_nm='';

}

$crtv_rls[$row['crtv_rlid']]['crtvs'][$row['comp_id']]=array('comp_crtv_nm'=>$comp_crtv_nm, 'prsn_crtv_nm'=>$prsn_crtv_nm, 'crtvcomp_ppl'=>array());

}

$sql= "SELECT crtv_rlid, crtv_compid, crtv_sb_rl, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num

FROM prdcrtv

INNER JOIN prsn ON crtv_prsnid=prsn_id

WHERE prdid='$prd_id' AND crtv_compid!=0

ORDER BY crtv_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring creative (company people) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['crtv_sb_rl']) {$crtv_sb_rl=$row['crtv_sb_rl'].'~~';} else {$crtv_sb_rl='';}

if($row['prsn_sffx_num']) {$prsn_sffx_num='--'.$row['prsn_sffx_num'];} else {$prsn_sffx_num='';}

$crtv_rls[$row['crtv_rlid']]['crtvs'][$row['crtv_compid']]['crtvcomp_ppl'][]=$crtv_sb_rl.$row['prsn_frst_nm'].';;'.$row['prsn_lst_nm'].$prsn_sffx_num;

}

if(!empty($crtv_rls))

{

$crtv_array=array();

foreach($crtv_rls as $crtv_rl)

{

$crtv_comp_ppl_array=array();

foreach($crtv_rl['crtvs'] as $crtv)

{

$crtvcomp_ppl_list=implode('//', $crtv['crtvcomp_ppl']);

$crtv_comp_ppl_array[]=$crtv['comp_crtv_nm'].$crtv['prsn_crtv_nm'].$crtvcomp_ppl_list;

}

if(!empty($crtv_comp_ppl_array)) {$crtv_comp_ppl_list=implode('>>', $crtv_comp_ppl_array);} else {$crtv_comp_ppl_list='';}

$crtv_array[]=$crtv_rl['crtv_rl'].$crtv_comp_ppl_list;

}

$crtv_list=html(implode(',,', $crtv_array));

}

else

{$crtv_list='';}

$sql= "SELECT prdtm_rl_id, prdtm_rl

FROM prdprdtmrl

WHERE prdid='$prd_id'

ORDER BY prdtm_rl_id ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring production team (roles) data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['prdtm_rl']) {$prdtm_rl=$row['prdtm_rl'].'::';} else {$prdtm_rl='';}

$prdtm_rls[$row['prdtm_rl_id']]=array('prdtm_rl'=>$prdtm_rl, 'prdtms'=>array());

}

$sql= "SELECT prdtm_rlid, comp_id, comp_nm AS comp_nm1, comp_nm AS comp_nm2, comp_sffx_num, prdtm_sb_rl, prdtm_ordr, comp_bool

FROM prdprdtm

INNER JOIN comp ON prdtm_compid=comp_id

WHERE prdid='$prd_id' AND prdtm_prsnid=0

UNION

SELECT prdtm_rlid, prsn_id, prsn_frst_nm, prsn_lst_nm, prsn_sffx_num, prdtm_sb_rl, prdtm_ordr, comp_bool

FROM prdprdtm

INNER JOIN prsn ON prdtm_prsnid=prsn_id

WHERE prdid='$prd_id' AND prdtm_compid=0

ORDER BY prdtm_ordr ASC";

$result=mysqli_query($link, $sql);

if(!$result) {$error='Error acquiring production team data: '.mysqli_error($link); include $_SERVER['DOCUMENT_ROOT'].'/includes/error.html.php'; exit();}

while($row=mysqli_fetch_array($result))

{

if($row['comp_bool'])

{

if($row['comp_nm1'])

{

if($row['prdtm_sb_rl']) {$prdtm_sb_rl=$row['prdtm_sb_rl'].'~~';} else {$prdtm_sb_rl='';}

if($row['comp_sffx_num']) {$comp_sffx_num='--'.$row['comp_sffx_num'];} else {$comp_sffx_num='';}