IQM: fhiiqm/vertrag_upd.php@908abe8cec4d (annotated)

1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	1	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	2	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	3
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	4	<head>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	5	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	6	<link href="css/db.css" rel="STYLESHEET" type="TEXT/CSS" />
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	7
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	8	<title>Aktualisieren Vertragsdaten</title>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	9	</head>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	10
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	11	<body>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	12	<div class="float-r"><img src="img/document_mark_as_final.png" border="0" alt="Vertragsdaten bearbeiten" title="Vertragsdaten bearbeiten"/></div>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	13
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	14	<?php
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	15
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	16	/**
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	17	* @author Bettina Schwarzer, Fritz-Haber-Institut
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	18	* @copyright 05/2011
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	19	*
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	20	* UPDATE/DELETE Vertragsdaten
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	21	*/
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	22
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	23	error_reporting(E_ALL ^ E_NOTICE);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	24
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	25	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	26	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/func_lib.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	27	$dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	28	$cid = $_GET["uid"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	29	if (!$cid) $cid=3;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	30	$ok = $_POST["ok"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	31	$upd = $_POST["upd"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	32	$del = $_POST["del"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	33	$vtr = $_POST["vertrag"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	34	if (!$vtr['okn']) $ok=false;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	35
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	36	// print_r($vtr);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	37	// echo "<br><br>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	38	// echo "Vertragsbezeichnung: " . $vtr['cname'] ."<br><br>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	39
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	40	if (!$ok && ((!$upd && !$del) \|\| $upd \|\| $del))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	41	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	42	if (!$upd && !$del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	43	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	44	$sql = "SELECT contract_ID,contract_name,contract_s,contract_l,vtyp_ID,contract_begin,contract_end,
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	45	contract_autoend,contract_mon_notice,contract_file,Bemerkung
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	46	FROM fhiiqm.Vertrag WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	47	if ($result = $dbc ->queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	48	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	49	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	50	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	51	$vtr['cname'] = $row->contract_name;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	52	// $vtr['cshort'] = $row->contract_s;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	53	$vtr['clong'] = $row->contract_l;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	54	$vtr['vtyp'] = $row->vtyp_ID;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	55	$vtr['bjahr'] = substr($row->contract_begin,0,4);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	56	$vtr['bmon'] = substr($row->contract_begin,5,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	57	$vtr['btag'] = substr($row->contract_begin,8,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	58	$vtr['ejahr'] = substr($row->contract_end,0,4);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	59	$vtr['emon'] = substr($row->contract_end,5,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	60	$vtr['etag'] = substr($row->contract_end,8,2);
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	61	$vtr['cautoend']= $row->contract_autoend;
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	62	$vtr['cnot'] = $row->contract_mon_notice;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	63	$vtr['cfname'] = $row->contract_file;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	64	$vtr['cbem'] = $row->Bemerkung;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	65	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	66	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	67	// Bearbeiter
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	68	$sql = "SELECT persknr FROM Vertrag_Bearbeiter WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	69	if ($result = $dbc ->queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	70	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	71	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	72	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	73	$vtr['cpers'][] = $row->persknr;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	74	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	75	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	76	// Partner
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	77	$sql = "SELECT part_ID FROM Vertrag_Partner WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	78	if ($result = $dbc -> queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	79	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	80	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	81	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	82	$vtr['partid'] = $row->part_ID;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	83	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	84	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	85	// Produkt
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	86	$sql = "SELECT produkt_ID FROM Produkt_Vertrag WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	87	if ($result = $dbc -> queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	88	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	89	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	90	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	91	$vtr['prodid'] = $row->produkt_ID;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	92	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	93	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	94	// Kosten
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	95	if ($vtr['ejahr'])
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	96	$ejahr = $vtr['ejahr'];
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	97	elseif ($vtr["cautoend"] && !$vtr['ejahr']) // automatische Vertragsverlaengerung und kein Endjahr angegeben
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	98	$ejahr = date("Y");
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	99	else
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	100	$ejahr = null;
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	101	for ($i=(int)$vtr['bjahr']; $i< (int)$ejahr +1; $i++)
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	102	{ $ayear[] = $i; }
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	103	$sql = "SELECT k_year, kosten FROM Vertrag_Kosten WHERE contract_ID = $cid ORDER BY k_year ";
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	104	if ($result = $dbc -> queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	105	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	106	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	107	{
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	108	$j = array_search($row->k_year,$ayear);
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	109	if ( $j > -1 )
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	110	$vtr['kost'][$j] = str_replace('.',',',$row->kosten);
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	111	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	112	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	113
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	114	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	115
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	116	include_once("form/vertrag_form.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	117
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	118	if ($upd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	119	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	120	echo
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	121	"<tr>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	122	<td>Upload Vertragsdokument </td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	123	<td><input type=\"file\" name=\"vfile\" size=\"50\" maxlength=\"50\" value=\"" .
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	124	$_FILES["vfile"]["name"] . "\"/></td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	125	</tr>";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	126
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	127	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	128	if ($upd \|\| $del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	129	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	130	if ($upd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	131	$frage = "Alle Angaben ok?<br>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	132	erst wenn Haken gesetzt, Upload-File wählen!";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	133	elseif ($del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	134	$frage = "Vertrag wirklich löschen?";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	135	echo "<tr>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	136	<td class=\"red\" valign=\"top\" align=\"left\">$frage</td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	137	<td><input type=\"checkbox\" name=\"ok\" value=\"1\"";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	138	if ($ok) echo "checked";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	139	echo "></td>\n</tr>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	140	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	141
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	142	echo "<tr>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	143	echo "
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	144	<td> </td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	145	<td><input class=\"button\" type=\"submit\" value=\"ändern\" name=\"upd\" title=\"update\" />
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	146	<input class=\"button\" type=\"submit\" value=\"löschen\" name=\"del\" title=\"delete\" /></td>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	147	echo "</tr>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	148	echo "</table>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	149	echo "</div>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	150	echo "</form>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	151
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	152	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	153	elseif ($ok && $upd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	154	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	155	echo "<div align='center'>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	156	//daten speichern
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	157
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	158	//UPDATE Vertrag
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	159	/*
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	160	if ($vtr['vtyp']== -1 \|\| !(is_numeric($vtr['vtyp']))) $vtr['vtyp'] = "NULL";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	161	if ($vtr['bjahr'] && $vtr['bmon'] && $vtr['btag'])
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	162	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	163	$vbegin = $vtr['bjahr'] . "-" . $vtr['bmon'] . "-" . $vtr['btag'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	164	$vbegin = "'$vbegin'";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	165	$vbd = $vtr['btag'] . "." . $vtr['bmon'] . "." . $vtr['bjahr'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	166	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	167	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	168	$vbegin = "NULL";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	169	if ($vtr['ejahr'] && $vtr['emon'] && $vtr['etag'])
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	170	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	171	$vend = $vtr['ejahr'] . "-" . $vtr['emon'] . "-" . $vtr['etag'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	172	$vend = "'$vend'";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	173	$ved = $vtr['etag'] . "." . $vtr['emon'] . "." . $vtr['ejahr'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	174	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	175	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	176	$vend = "NULL";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	177	if (!is_numeric($vtr['cnot'])) $vtr['cnot'] = "NULL";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	178	if ($vtr['cbem']) $vtr['cbem'] = "'" . str_replace("'","\"",substr($vtr['cbem'],0,500)) . "'"; else $vtr['cbem']="NULL";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	179	*/
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	180	$vtr['cname'] = substr($vtr['cname'],0,50);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	181	// $vtr['cshort'] = substr($vtr['cshort'],0,50);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	182	$vtr['clong'] = substr($vtr['clong'],0,100);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	183	if ($vtr['vtyp']== -1 \|\| !(is_numeric($vtr['vtyp']))) $vtr['vtyp'] = null;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	184	$vbegin = date_obj($vtr['bjahr'], $vtr['bmon'], $vtr['btag']);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	185	$vend = date_obj($vtr['ejahr'], $vtr['emon'], $vtr['etag']);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	186	if (!is_numeric($vtr['cnot'])) $vtr['cnot'] = null;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	187	if ($vtr['cbem']) $vtr['cbem'] = substr($vtr['cbem'],0,500); else $vtr['cbem']=null;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	188	// Filename Vertrag
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	189	$vtr['cfname'] = substr($vtr['cfname'],0,50);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	190
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	191	if (!isset($dbc) \|\| !$dbc) $dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	192
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	193
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	194	// upload File, wenn vorhanden
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	195	if (is_uploaded_file($_FILES["vfile"]["tmp_name"]) && isset($_FILES["vfile"]["name"]) && $_FILES["vfile"]["name"] )
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	196	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	197	include ("inc/file_upload.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	198	$fname = gen_filename($vtr['cfname'],"vfile",$cid); // Dateinamen generieren
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	199	$retdf = mod_file("/var/www/fhiiqm/documents",$cid,"","del"); // Loeschen alte Datei
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	200	$retf = upload("vfile", $fname, $cid); // Datei prüfen und in Dokumentenverzeichnis verschieben
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	201	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	202
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	203	if (isset($fname) && $retf) $cfile = $cid . "_" . $fname; else $cfile = $vtr['cfname'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	204	/*
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	205	if (isset($fname) && $retf) $cfile = "contract_file = '" . $cid . "_" . $fname . "', ";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	206	$sql = "UPDATE fhiiqm.Vertrag SET
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	207	contract_name ='" . $vtr['cname'] ."',
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	208	-- contract_s ='" . $vtr['cshort'] ."',
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	209	contract_l ='" . $vtr['clong'] ."',
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	210	vtyp_ID = " . $vtr['vtyp'] . ",
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	211	contract_begin = $vbegin,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	212	contract_end = $vend,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	213	contract_mon_notice = " . $vtr['cnot'] . ", " .
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	214	$cfile .
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	215	"Bemerkung = " . $vtr['cbem'] ."
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	216	WHERE contract_ID = $cid" ;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	217	$retv = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	218	*/
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	219	$stmt = $dbc -> stmtinit();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	220	if (is_object($stmt))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	221	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	222	$stmt -> prepare("UPDATE fhiiqm.Vertrag SET
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	223	contract_name = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	224	contract_l = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	225	vtyp_ID = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	226	contract_begin = ?,
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	227	contract_end = ?,
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	228	contract_autoend = ?,
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	229	contract_mon_notice = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	230	contract_file = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	231	Bemerkung = ?
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	232	WHERE contract_ID = $cid") ;
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	233	$stmt -> bind_param('ssissiiss',$vtr["cname"],$vtr["clong"],$vtr['vtyp'],$vbegin,$vend,$vtr['cautoend'],$vtr['cnot'],$cfile,$vtr['cbem']);
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	234	$retv = $stmt -> execute();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	235	}
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	236	// echo "UPDATE-sql = \n";print_r($stmt); echo "<br />";
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	237	if (!$retv) echo "error update" . $dbc -> error ."<br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	238	if ($retv)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	239	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	240	// DELETE, INSERT n:m Tabellen
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	241	include ("inc/vertragtab_ins.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	242	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	243	// echo "retv=$retv, retb=$retb, retp=$retp, retd=$retd, retk=$retk<br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	244	if ($retv && $retb && $retp && $retd && $retk)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	245	{//Eingabe Daten, Upload File erfolgreich
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	246	echo "<p class='green'><b>Vertragsdaten zu ID '$cid' wurden erfolgreich gespeichert.</b></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	247	echo "<br /><br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	248
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	249	// Anzeigen gespeicherte Vertragsdaten
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	250	if ($fname)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	251	$cfile = $cid . "_" . $fname;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	252	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	253	$cfile = $vtr['cfname'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	254	include ("inc/vertrag_dat_show.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	255	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	256	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	257	elseif ($ok && $del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	258	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	259	// DELETE aus Tab Vertrag und abhaengigen Tabellen
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	260	echo "<div align='center'>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	261
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	262	$sql = "DELETE FROM Vertrag WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	263	$retvd = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	264	if ($retvd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	265	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	266	include ("inc/file_upload.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	267	$retdf = mod_file("/var/www/fhiiqm/documents",$cid,"","del"); // Loeschen Dokument
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	268	if ($retdf) echo "<p class='green'><b>Vertragsdokument zu ID '$cid' wurde gelöscht.</b></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	269	echo "<p class='green'><b>Vertragsdaten zu ID '$cid' wurden gelöscht.</b></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	270	echo "<br /><br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	271
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	272	// Anzeigen geloeschter Vertragsdaten
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	273	if ($fname)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	274	$cfile = $cid . "_" . $fname;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	275	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	276	$cfile = $vtr['cfname'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	277	include ("inc/vertrag_dat_show.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	278	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	279	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	280	if ($ok && ($upd \|\| $del))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	281	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	282	echo "</div><br /><br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	283	echo "<p>   <a href=\"vertrag_flist1.php\" target=\"_self\" title=\"Vertragsliste\">Zurück zur Vertragsliste</a></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	284	echo "<p>   <a href=\"vertrag_ins.php\" target=\"_self\" title=\"Vertrag erfassen\">Weiteren Vertrag erfassen</a></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	285	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	286
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	287	?>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	288
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	289	</body>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	290	</html>

author	Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
	Mon, 12 Sep 2011 10:34:07 +0200
changeset 8	908abe8cec4d
parent 1	6288d5685bff
child 9	f3ee378f9631
permissions	-rw-r--r--