IQM: fhiiqm/vertrag_upd.php@97dba0fe820c (annotated)

13 741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	1	<?php
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	2
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	3	/**
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	4	* @author Bettina Schwarzer, Fritz-Haber-Institut
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	5	* @copyright 05/2011
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	6	*
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	7	* UPDATE/DELETE Vertragsdaten
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	8	*/
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	9
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	10	error_reporting(E_ALL ^ E_NOTICE);
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	11
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	12	session_start();
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	13	if (! isset($_SESSION["userid"]))
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	14	{
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	15	include_once ("inc/func_lib.inc.php");
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	16	login("vertrag_upd.php");
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	17	exit;
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	18	}
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	19
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	20	if (is_null($_SESSION["recht"]) \|\| (!is_null($_SESSION["recht"]) && !in_array("vr",$_SESSION["recht"]) && !in_array("ve",$_SESSION["recht"])))
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	21	{
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	22	header("Location: start.php");
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	23	exit;
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	24	}
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	25
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	26	?>
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	27	<!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	28	<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	29
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	30	<head>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	31	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
20 5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 16 diff changeset	32	<link href="css/db.css" rel="STYLESHEET" type="TEXT/CSS" media="screen"/>
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 16 diff changeset	33	<link href="css/db_print.css" rel="STYLESHEET" type="TEXT/CSS" media="print"/>
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	34
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	35	<title>Aktualisieren Vertragsdaten</title>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	36	</head>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	37
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	38	<body>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	39
13 741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	40	<?php
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	41	echo " ";
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	42	echo "<div class=\"float-br smaller\" valign='top'>";
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	43	echo "   user: " . $_SESSION["userid"];
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	44	echo "   <a class='sc' href='/fhiiqm/logout.php' title='Session beenden'>logout</a></div>\n";
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	45	echo "<div class=\"float-r\"><img src=\"img/document_mark_as_final.png\" border=\"0\" alt=\"Vertragsdaten bearbeiten\" title=\"Vertragsdaten bearbeiten\"/></div>\n";
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	46
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	47	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	48	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	49	$dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	50	$cid = $_GET["uid"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	51	if (!$cid) $cid=3;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	52	$ok = $_POST["ok"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	53	$upd = $_POST["upd"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	54	$del = $_POST["del"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	55	$vtr = $_POST["vertrag"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	56	if (!$vtr['okn']) $ok=false;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	57
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	58	// print_r($vtr);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	59	// echo "<br><br>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	60	// echo "Vertragsbezeichnung: " . $vtr['cname'] ."<br><br>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	61
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	62	if (!$ok && ((!$upd && !$del) \|\| $upd \|\| $del))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	63	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	64	if (!$upd && !$del)
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	$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	67	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	68	FROM fhiiqm.Vertrag 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['cname'] = $row->contract_name;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	74	// $vtr['cshort'] = $row->contract_s;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	75	$vtr['clong'] = $row->contract_l;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	76	$vtr['vtyp'] = $row->vtyp_ID;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	77	$vtr['bjahr'] = substr($row->contract_begin,0,4);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	78	$vtr['bmon'] = substr($row->contract_begin,5,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	79	$vtr['btag'] = substr($row->contract_begin,8,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	80	$vtr['ejahr'] = substr($row->contract_end,0,4);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	81	$vtr['emon'] = substr($row->contract_end,5,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	82	$vtr['etag'] = substr($row->contract_end,8,2);
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	83	$vtr['cautoend']= $row->contract_autoend;
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	84	$vtr['cnot'] = $row->contract_mon_notice;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	85	$vtr['cfname'] = $row->contract_file;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	86	$vtr['cbem'] = $row->Bemerkung;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	87	}
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	// Bearbeiter
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	90	$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	91	if ($result = $dbc ->queryObjectArray($sql))
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	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	94	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	95	$vtr['cpers'][] = $row->persknr;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	96	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	97	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	98	// Partner
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	99	$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	100	if ($result = $dbc -> queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	101	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	102	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	103	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	104	$vtr['partid'] = $row->part_ID;
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	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	107	// Produkt
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	108	$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	109	if ($result = $dbc -> queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	110	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	111	foreach ($result as $row)
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	$vtr['prodid'] = $row->produkt_ID;
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	// Kosten
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	117	if ($vtr['ejahr'])
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	118	$ejahr = $vtr['ejahr'];
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	119	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	120	$ejahr = date("Y");
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	121	else
9 f3ee378f9631 + cssMenu, kleinere ?nderungen Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 8 diff changeset	122	$ejahr = $vtr['bjahr']; // Kosten nur im Startjahr
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	123	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	124	{ $ayear[] = $i; }
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	125	$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	126	if ($result = $dbc -> queryObjectArray($sql))
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	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	129	{
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	130	$j = array_search($row->k_year,$ayear);
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	131	if ( $j > -1 )
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	132	$vtr['kost'][$j] = str_replace('.',',',$row->kosten);
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	133	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	134	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	135
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	136	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	137
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	138	include_once("form/vertrag_form.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	139
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	140	if ($upd)
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
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	143	"<tr>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	144	<td>Upload Vertragsdokument </td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	145	<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	146	$_FILES["vfile"]["name"] . "\"/></td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	147	</tr>";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	148
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	149	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	150	if ($upd \|\| $del)
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	if ($upd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	153	$frage = "Alle Angaben ok?<br>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	154	erst wenn Haken gesetzt, Upload-File wählen!";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	155	elseif ($del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	156	$frage = "Vertrag wirklich löschen?";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	157	echo "<tr>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	158	<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	159	<td><input type=\"checkbox\" name=\"ok\" value=\"1\"";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	160	if ($ok) echo "checked";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	161	echo "></td>\n</tr>\n";
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
13 741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	164	if (!is_null($_SESSION["recht"]) && in_array("ve",$_SESSION["recht"]))
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	165	{
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	166	echo "<tr>\n";
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	167	echo "
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	168	<td> </td>
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	169	<td><input class=\"button\" type=\"submit\" value=\"ändern\" name=\"upd\" title=\"update\" />
21 97dba0fe820c +Anlage-Vertrag, Form Laser Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 20 diff changeset	170	<input class=\"buttonr\" type=\"submit\" value=\"löschen\" name=\"del\" title=\"delete\" /></td>\n";
13 741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	171	echo "</tr>\n";
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	172	}
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	173	echo "</table>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	174	echo "</div>\n";
13 741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	175	if (!is_null($_SESSION["recht"]) && !in_array("ve",$_SESSION["recht"]))
20 5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 16 diff changeset	176	echo "<p class='sc'>   <a href=\"vertrag_flist1.php\" target=\"_self\" title=\"Vertragsliste\">« zur Vertragsliste</a></p>\n";
13 741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	177	echo "</form>\n";
741b35e9ebbe Rechteverwaltung I Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 9 diff changeset	178
1 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	elseif ($ok && $upd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	181	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	182	echo "<div align='center'>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	183	//daten speichern
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	184
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	185	//UPDATE Vertrag
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	186	/*
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	187	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	188	if ($vtr['bjahr'] && $vtr['bmon'] && $vtr['btag'])
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	189	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	190	$vbegin = $vtr['bjahr'] . "-" . $vtr['bmon'] . "-" . $vtr['btag'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	191	$vbegin = "'$vbegin'";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	192	$vbd = $vtr['btag'] . "." . $vtr['bmon'] . "." . $vtr['bjahr'];
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	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	195	$vbegin = "NULL";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	196	if ($vtr['ejahr'] && $vtr['emon'] && $vtr['etag'])
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	197	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	198	$vend = $vtr['ejahr'] . "-" . $vtr['emon'] . "-" . $vtr['etag'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	199	$vend = "'$vend'";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	200	$ved = $vtr['etag'] . "." . $vtr['emon'] . "." . $vtr['ejahr'];
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	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	203	$vend = "NULL";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	204	if (!is_numeric($vtr['cnot'])) $vtr['cnot'] = "NULL";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	205	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	206	*/
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	207	$vtr['cname'] = substr($vtr['cname'],0,50);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	208	// $vtr['cshort'] = substr($vtr['cshort'],0,50);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	209	$vtr['clong'] = substr($vtr['clong'],0,100);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	210	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	211	$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	212	$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	213	if (!is_numeric($vtr['cnot'])) $vtr['cnot'] = null;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	214	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	215	// Filename Vertrag
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	216	$vtr['cfname'] = substr($vtr['cfname'],0,50);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	217
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	218	if (!isset($dbc) \|\| !$dbc) $dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	219
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	220
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	221	// upload File, wenn vorhanden
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	222	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	223	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	224	include ("inc/file_upload.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	225	$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	226	$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	227	$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	228	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	229
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	230	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	231	/*
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	232	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	233	$sql = "UPDATE fhiiqm.Vertrag SET
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	234	contract_name ='" . $vtr['cname'] ."',
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	235	-- contract_s ='" . $vtr['cshort'] ."',
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	236	contract_l ='" . $vtr['clong'] ."',
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	237	vtyp_ID = " . $vtr['vtyp'] . ",
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	238	contract_begin = $vbegin,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	239	contract_end = $vend,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	240	contract_mon_notice = " . $vtr['cnot'] . ", " .
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	241	$cfile .
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	242	"Bemerkung = " . $vtr['cbem'] ."
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	243	WHERE contract_ID = $cid" ;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	244	$retv = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	245	*/
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	246	$stmt = $dbc -> stmtinit();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	247	if (is_object($stmt))
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	$stmt -> prepare("UPDATE fhiiqm.Vertrag SET
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	250	contract_name = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	251	contract_l = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	252	vtyp_ID = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	253	contract_begin = ?,
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	254	contract_end = ?,
908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	255	contract_autoend = ?,
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	256	contract_mon_notice = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	257	contract_file = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	258	Bemerkung = ?
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	259	WHERE contract_ID = $cid") ;
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	260	$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	261	$retv = $stmt -> execute();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	262	}
8 908abe8cec4d + Automatische Verlaengerung Vertrag Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 1 diff changeset	263	// 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	264	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	265	if ($retv)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	266	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	267	// DELETE, INSERT n:m Tabellen
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	268	include ("inc/vertragtab_ins.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	269	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	270	// 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	271	if ($retv && $retb && $retp && $retd && $retk)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	272	{//Eingabe Daten, Upload File erfolgreich
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	273	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	274	echo "<br /><br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	275
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	276	// Anzeigen gespeicherte Vertragsdaten
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	277	if ($fname)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	278	$cfile = $cid . "_" . $fname;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	279	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	280	$cfile = $vtr['cfname'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	281	include ("inc/vertrag_dat_show.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	282	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	283	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	284	elseif ($ok && $del)
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	// DELETE aus Tab Vertrag und abhaengigen Tabellen
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	287	echo "<div align='center'>\n";
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	$sql = "DELETE FROM Vertrag WHERE contract_ID = $cid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	290	$retvd = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	291	if ($retvd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	292	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	293	include ("inc/file_upload.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	294	$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	295	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	296	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	297	echo "<br /><br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	298
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	299	// Anzeigen geloeschter Vertragsdaten
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	300	if ($fname)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	301	$cfile = $cid . "_" . $fname;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	302	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	303	$cfile = $vtr['cfname'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	304	include ("inc/vertrag_dat_show.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	305	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	306	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	307	if ($ok && ($upd \|\| $del))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	308	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	309	echo "</div><br /><br />\n";
20 5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 16 diff changeset	310	echo "<p class='sc'>   <a href=\"vertrag_flist1.php\" target=\"_self\" title=\"Vertragsliste\">Zurück zur Vertragsliste</a></p>\n";
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: 16 diff changeset	311	echo "<p class='sc'>   <a href=\"vertrag_ins.php\" target=\"_self\" title=\"Vertrag erfassen\">Weiteren Vertrag erfassen</a></p>\n";
1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	312	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	313
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	314	?>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	315
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	316	</body>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	317	</html>

author	Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
	Fri, 23 Dec 2011 15:03:37 +0100
changeset 21	97dba0fe820c
parent 20	5877137431e4
child 24	15f33315f045
permissions	-rw-r--r--