IQM: fhiiqm/vertrag_ed.php@d652bbba2d43 (annotated)

40 6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	1	<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	2
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	3	/**
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	4	* @author Bettina Schwarzer, Fritz-Haber-Institut
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	5	* @copyright 03/2013
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	6	*
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	7	* INSERT/UPDATE/DELETE Vertragsdaten
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	8	*/
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	9
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	10	error_reporting(E_ALL ^ E_NOTICE);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	11
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	12	session_start();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	13	if (! isset($_SESSION["userid"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	14	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	15	include_once ("inc/func_lib.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	16	login($_SERVER["PHP_SELF"]);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	17	exit;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	18	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	19
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	20	if (is_null($_SESSION["recht"]) \|\| (!is_null($_SESSION["recht"]) && !in_array("vr",$_SESSION["recht"]) && !in_array("ve",$_SESSION["recht"])))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	21	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	22	header("Location: start.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	23	exit;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	24	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	25
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	26	?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	27	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	28	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	29
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	30	<head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	31	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	32	<link href="css/db.css" rel="STYLESHEET" type="TEXT/CSS" media="screen"/>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	33	<link href="css/db_print.css" rel="STYLESHEET" type="TEXT/CSS" media="print"/>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	34	<link type="text/css" href="/fhiiqm/css/jquery/ui-lightness-1.8.21/jquery-ui-1.8.21.custom.css" rel="Stylesheet" />
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	35	<script type="text/javascript" src="/fhiiqm/js/jquery/jquery-1.7.2.min.js"></script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	36	<script type="text/javascript" src="/fhiiqm/js/jquery/jquery-ui-1.8.21.custom.min.js"></script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	37
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	38	<title>Aktualisieren Vertragsdaten</title>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	39
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	40	<script type="text/javascript">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	41	//<!--
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	42	var counter = 0;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	43	var limit = 99;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	44	function addInput(divId,anz){
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	45	if (counter == limit) {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	46	alert("Das Limit von " + counter + " zusätzlichen inputs ist erreicht");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	47	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	48	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	49	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	50	var cdiv = document.createElement('div');
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	51	var idl = "cbl_" + anz;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	52	cdiv.innerHTML = "<span></span>Dok-Name     <input name='vertrag[cfname][]' type='text' size='50' maxlength='50' value='' />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	53	cdiv.innerHTML += "     Schlagwort   <input type='text' name='vertrag[swort][]' size='30' maxlength='50' value='' />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	54	cdiv.innerHTML += "<img src='/fhiiqm/img/nixt.gif' border='0' height='100%' />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	55	//cdiv.innerHTML += "<span id='cbl'>   <input type='checkbox' id='del' name='vertrag[del][]' value='1'/></span>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	56	cdiv.innerHTML += "<span id='cbl'>   <input type='checkbox' id='del' name='vertrag[del][]' value='1'/>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	57	cdiv.innerHTML += "<label id='lb' for='del'> löschen</label></span>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	58	cdiv.innerHTML += "<br />Upload-Dokument     <input type='file' name='vfile[]' size='50' maxlength='50' value='' />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	59	document.getElementById(divId).appendChild(cdiv);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	60	var delcb = document.getElementById('del');
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	61	delcb.id = "del_" + anz;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	62	delcb.style.display = 'none';
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	63	var lcb = document.getElementById('lb');
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	64	lcb.id = "lb_" + anz;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	65	lcb.setAttribute("for", delcb.id);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	66	lcb.style.display = 'none';
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	67	counter++;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	68	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	69	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	70	function markdelInput(divId,anz){
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	71	for (i=1; i<anz; i++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	72	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	73	var id = "del_" + i;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	74	var delcb = document.getElementById(id);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	75	delcb.style.display = 'inline';
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	76	var idl = "lb_" + i;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	77	var lcb = document.getElementById(idl);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	78	lcb.style.display = 'inline';
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	79	/*
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	80	var newlabel = document.createElement("Label");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	81	var idl = "cbl_" + i;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	82	newlabel.setAttribute("for",id);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	83	newlabel.innerHTML = " löschen?";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	84	document.getElementById(idl).appendChild(newlabel);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	85	*/
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	86	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	87	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	88	function delInput(divId,anz){
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	89
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	90	var kn = document.getElementById(divId);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	91	while (kn.childNodes.length>0 && kn.lastChild.nodeName != "SPAN" && kn.lastChild.nodeName != "A")
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	92	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	93	var knc = kn.lastChild;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	94	document.getElementById(divId).removeChild(knc);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	95	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	96	if (kn.lastChild.nodeName == "SPAN") document.getElementById(divId).removeChild(kn.lastChild);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	97	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	98	//-->
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	99	</script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	100	</head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	101
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	102	<body>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	103
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	104	<script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	105	$(document).ready(function() {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	106	$("#bez").focus();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	107	$("#bdat").datepicker({
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	108	dateFormat: 'yy-mm-dd', //nur Datum
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	109	yearRange: '1990:2030',
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	110	changeMonth: true,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	111	changeYear: true,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	112	firstDay: 1,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	113	dayNamesMin: ['So','Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa' ],
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	114	monthNamesShort: ['Jan','Feb','Mar','Apr','Mai','Jun','Jul','Aug','Sep','Okt','Nov','Dez']
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	115	});
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	116	$("#edat").datepicker({
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	117	dateFormat: 'yy-mm-dd', //nur Datum
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	118	yearRange: '1990:2030',
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	119	changeMonth: true,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	120	changeYear: true,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	121	firstDay: 1,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	122	dayNamesMin: ['So','Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa' ],
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	123	monthNamesShort: ['Jan','Feb','Mar','Apr','Mai','Jun','Jul','Aug','Sep','Okt','Nov','Dez']
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	124	});
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	125	});
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	126	</script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	127	<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	128	echo " ";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	129	echo "<div class=\"float-br smaller\" valign='top'>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	130	echo "   user: " . $_SESSION["userid"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	131	echo "   <a class='sc' href='/fhiiqm/logout.php' title='Session beenden'>logout</a></div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	132	echo "<div class=\"float-r\"><img src=\"img/document_mark_as_final.png\" border=\"0\" alt=\"Vertragsdaten bearbeiten\" title=\"Vertragsdaten bearbeiten\"/></div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	133
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	134	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	135	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/func_lib.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	136	$dbc = new dbconnection();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	137
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	138	$cid = $_GET["uid"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	139	$zeil = $_GET["z"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	140	if (!$zeil) $zeil = 20; // Anzahl der gezeigten Zeilen
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	141	$start = $_GET["st"]; // Start bei DS $start+1
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	142	if (!$start) $start=0;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	143	$sort = $_GET["s"]; // Sortierung nach Spalte
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	144	$dir = $_GET["d"]; // Sortierrichtung
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	145	$fnum = $_GET["f"]; // Spaltennummer, nach der aktuell gefiltert wird
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	146	$filter = $_GET["b"]; // Filterbegriff
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	147	$teil = $_GET["t"]; // t = 2 zu Vertragsliste Teil 2 zurueck
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	148	$mfile = $_GET["g"]; // Multifile = mehrere Vertragsdokumente moeglich
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	149	if ($teil == 2) $tlist = "vertrag_flist12.php"; else $tlist = "vertrag_flist1.php";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	150	// $_GET-Parameter zurück zur Vertragliste mit den selben Einstellungen wie zuvor
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	151	$getp = "s=$sort&d=$dir&f=$fnum&b=$filter&st=$start&z=$zeil&g=$mfile";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	152
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	153	$ok = $_POST["ok"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	154	$sub = $_POST["edit"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	155	$del = $_POST["del"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	156	$vtr = $_POST["vertrag"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	157	if (!$vtr['okn']) $ok=false;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	158
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	159	//print_r($vtr); echo "cid = $cid<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	160	//print_r($_FILES); echo "<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	161
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	162	if (!$ok && ((!$sub && !$del) \|\| $sub \|\| $del))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	163	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	164	if (!$sub && !$del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	165	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	166	$sql = "SELECT contract_ID,contract_name,contract_s,contract_l,vtyp_ID,contract_begin,contract_end,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	167	contract_autoend,contract_mon_notice,contract_file,Bemerkung,email_send,timestamp,userid
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	168	FROM fhiiqm.Vertrag WHERE contract_ID = $cid";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	169	if ($result = $dbc ->queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	170	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	171	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	172	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	173	$vtr['cname'] = $row->contract_name;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	174	// $vtr['cshort'] = $row->contract_s;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	175	$vtr['clong'] = $row->contract_l;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	176	$vtr['vtyp'] = $row->vtyp_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	177	$vtr['bdat'] = $row->contract_begin;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	178	$vtr['edat'] = $row->contract_end;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	179	$vtr['cautoend']= $row->contract_autoend;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	180	$vtr['cnot'] = $row->contract_mon_notice;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	181	// $vtr['cfname'][0] = $row->contract_file;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	182	$vtr['cbem'] = $row->Bemerkung;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	183	$vtr['email'] = $row->email_send;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	184	$vtr['tstmp'] = $row->timestamp;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	185	$vtr['uid'] = $row->userid;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	186	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	187	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	188	// Bearbeiter
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	189	$sql = "SELECT persknr FROM Vertrag_Bearbeiter WHERE contract_ID = $cid";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	190	if ($result = $dbc ->queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	191	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	192	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	193	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	194	$vtr['cpers'][] = $row->persknr;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	195	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	196	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	197	// Partner
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	198	$sql = "SELECT part_ID FROM Vertrag_Partner WHERE contract_ID = $cid";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	199	if ($result = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	200	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	201	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	202	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	203	$vtr['partid'] = $row->part_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	204	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	205	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	206	// Produkt
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	207	$sql = "SELECT produkt_ID FROM Produkt_Vertrag WHERE contract_ID = $cid";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	208	if ($result = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	209	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	210	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	211	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	212	$vtr['prodid'] = $row->produkt_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	213	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	214	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	215	// Kosten
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	216	if ($vtr['edat'])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	217	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	218	$jahr = new DateTime($vtr['edat']);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	219	$ejahr = $jahr->format('Y');
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	220	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	221	elseif ($vtr["cautoend"] && !$vtr['edat']) // automatische Vertragsverlaengerung und kein Endjahr angegeben
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	222	$ejahr = date("Y");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	223	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	224	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	225	$jahr = new DateTime($vtr['bdat']); // Kosten nur im Startjahr
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	226	$ejahr = $jahr->format('Y');
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	227	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	228	if ($vtr['bdat'])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	229	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	230	$jahr = new DateTime($vtr['bdat']);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	231	$bjahr = $jahr->format('Y');
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	232	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	233	for ($i=(int)$bjahr; $i< (int)$ejahr +1; $i++)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	234	{ $ayear[] = $i; }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	235	$sql = "SELECT k_year, kosten FROM Vertrag_Kosten WHERE contract_ID = $cid ORDER BY k_year ";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	236	if ($result = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	237	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	238	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	239	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	240	$j = array_search($row->k_year,$ayear);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	241	if ( $j > -1 )
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	242	$vtr['kost'][$j] = str_replace('.',',',$row->kosten);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	243	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	244	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	245	// Dokumente
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	246	$sql = "SELECT cf_filename, cf_schlagwort FROM Vertrag_File WHERE contract_ID = $cid ORDER BY cf_ID";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	247	if ($result = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	248	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	249	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	250	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	251	$vtr['cfname'][] = $row->cf_filename;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	252	$vtr['swort'][] = $row->cf_schlagwort;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	253	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	254	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	255	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	256
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	257	include_once("form/vertragmf_form.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	258
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	259	if ($sub \|\| $del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	260	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	261	if ($sub)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	262	$frage = "Alle Angaben ok?<br>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	263	erst wenn Haken gesetzt, Upload-Files wählen!";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	264	elseif ($del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	265	$frage = "Vertrag wirklich löschen?";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	266	echo "<tr>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	267	<td class=\"red\" valign=\"top\" align=\"left\">$frage</td>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	268	<td><input type=\"checkbox\" name=\"ok\" value=\"1\"";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	269	if ($ok) echo "checked";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	270	echo "></td>\n</tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	271	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	272
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	273	if (!is_null($_SESSION["recht"]) && in_array("ve",$_SESSION["recht"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	274	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	275	echo "<tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	276	echo "
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	277	<td> </td>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	278	<td><input class=\"button\" type=\"submit\" value=\"eintragen\" name=\"edit\" title=\"eintragen\" />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	279	if ($cid)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	280	echo "   <input class=\"buttonr\" type=\"submit\" value=\"löschen\" name=\"del\" title=\"delete\" />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	281	echo "</td>\n</tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	282	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	283	echo "</table>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	284	echo "</div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	285	// if (!is_null($_SESSION["recht"]) && !in_array("ve",$_SESSION["recht"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	286	echo "<p class='sc'>   <a href=\"$tlist?$getp\" target=\"_self\" title=\"Vertragsliste\">« zur Vertragsliste</a></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	287	echo "</form>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	288
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	289	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	290	elseif ($ok && $sub)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	291	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	292	echo "<div align='center'>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	293	//daten speichern
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	294	$userid = $_SESSION["userid"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	295
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	296	$vtr['cname'] = substr($vtr['cname'],0,50);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	297	// $vtr['cshort'] = substr($vtr['cshort'],0,50);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	298	$vtr['clong'] = substr($vtr['clong'],0,100);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	299	if ($vtr['vtyp']== -1 \|\| !(is_numeric($vtr['vtyp']))) $vtr['vtyp'] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	300	if ($vtr["bdat"] == "") $vtr["bdat"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	301	if ($vtr["edat"] == "") $vtr["edat"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	302	if (!is_numeric($vtr['cnot'])) $vtr['cnot'] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	303	if ($vtr['cbem']) $vtr['cbem'] = substr($vtr['cbem'],0,500); else $vtr['cbem']=null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	304
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	305	if (!isset($dbc) \|\| !$dbc) $dbc = new dbconnection();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	306	include_once ("inc/file_upload.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	307
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	308	$stmt = $dbc -> stmtinit();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	309	if (is_object($stmt))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	310	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	311	// contract_file = ?, $cfile
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	312	if ($cid)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	313	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	314	$stmt -> prepare("UPDATE fhiiqm.Vertrag SET
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	315	contract_name = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	316	contract_l = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	317	vtyp_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	318	contract_begin = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	319	contract_end = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	320	contract_autoend = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	321	contract_mon_notice = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	322	Bemerkung = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	323	email_send = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	324	userid = ?
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	325	WHERE contract_ID = $cid") ;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	326	$stmt -> bind_param('ssissiisis',$vtr["cname"],$vtr["clong"],$vtr['vtyp'],$vtr['bdat'],$vtr['edat'],$vtr['cautoend'],$vtr['cnot'],$vtr['cbem'],$vtr["email"],$userid);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	327	$retv = $stmt -> execute();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	328	if (!$retv) echo "UPDATE Vertrag, error: " . $stmt->errno . " - ". $stmt->error ."<br />\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	329	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	330	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	331	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	332	$stmt -> prepare("INSERT INTO Vertrag (contract_name, contract_l,vtyp_ID,contract_begin, contract_end, contract_autoend,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	333	contract_mon_notice, bemerkung,email_send,userid)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	334	VALUES(?,?,?,?,?,?,?,?,?,?)");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	335	$stmt -> bind_param('ssissiisis',$vtr["cname"],$vtr["clong"],$vtr['vtyp'],$vtr['bdat'],$vtr['edat'],$vtr['cautoend'],$vtr['cnot'],$vtr['cbem'],$vtr["email"],$userid);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	336	$retv = $stmt -> execute();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	337	if (!$retv \|\| $stmt->error) echo "INSERT Vertrag, error: " . $stmt->errno . " - ". $stmt->error . "<br><br>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	338	if ($retv)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	339	{ // INSERT o.k.
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	340	// contract_ID ermitteln
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	341	$cid = $dbc -> insertId();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	342	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	343	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	344	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	345	if ($cid)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	346	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	347	$len = strlen($cid)+1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	348	// alte Namen Vertragsdocument
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	349	$sql = "SELECT cf_filename FROM Vertrag_File WHERE contract_ID = $cid ORDER BY cf_ID";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	350	if ($res = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	351	foreach ($res as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	352	$vfile_old[] = $row->cf_filename;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	353
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	354	// zu loeschende docs auf Server
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	355	foreach ($vtr['cfname'] as $key => &$val)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	356	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	357	if (isset($vtr['del'][$key]) && $vtr['del'][$key])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	358	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	359	$retf = $retf && mod_file("/var/www/fhiiqm/documents",$cid,"","del",$val); // Loeschen altes File auf Server
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	360	$val = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	361	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	362	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	363	// upload File, wenn vorhanden
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	364	$retf = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	365	if (isset($_FILES) && is_array($_FILES))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	366	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	367	foreach ($vtr['cfname'] as $key => &$filena)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	368	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	369	$filena = gen_filename($filena,$_FILES['vfile']['name'][$key],$cid,0);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	370	if ($_FILES["vfile"]["error"][$key] == UPLOAD_ERR_NO_FILE)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	371	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	372	if ($filena > "!" && $cid."_".$filena != $vfile_old[$key])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	373	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	374	if (substr($filena,0,$len) != "$cid_") $filenam = $cid . "_" . $filena; else $filenam = $filena;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	375	$retf = $retf && mod_file("/var/www/fhiiqm/documents",$cid,$filenam,"upd",$vfile_old[$key]); // Umbenennen alte Datei
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	376	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	377	elseif (!$filena \|\| $filena == '')
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	378	$retf = $retf && mod_file("/var/www/fhiiqm/documents",$cid,"","del",$vfile_old[$key]); // Loeschen alte Datei
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	379	else //kein Upload, keine Dateinamenaenderung
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	380	$retf = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	381	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	382	if ($_FILES["vfile"]["error"][$key] == UPLOAD_ERR_OK)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	383	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	384	if (isset($vfile_old[$key]) && $filena > "!" && $cid."_".$filena != $vfile_old[$key])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	385	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	386	$retf = $retf && mod_file("/var/www/fhiiqm/documents",$cid,"","del",$vfile_old[$key]); // Loeschen alte Datei
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	387	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	388	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	389	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	390	if (isset($_FILES['vfile']['error']) && is_array($_FILES['vfile']['error']) && in_array(0,$_FILES['vfile']['error']))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	391	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	392	$ret = upload_multif("vfile", $vtr['cfname'], $cid, $dir="documents");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	393	if ($ret) echo "<p class='green'><b>Dateien zu ID '$cid' wurden erfolgreich hochgeladen.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	394	else echo "<p class='red'><b>Upload für einige Dateien zu ID '$cid' ist fehlgeschlagen.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	395	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	396	else $ret = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	397	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	398
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	399	if ($retv && $ret && $retf)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	400	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	401	// DELETE, INSERT n:m Tabellen
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	402	include ("inc/vertragtab_ins.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	403	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	404
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	405	if ($retv && $retb && $retp && $retd && $retk && $retf && $retl)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	406	{//Eingabe Daten, Upload File erfolgreich
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	407	echo "<p class='green'><b>Vertragsdaten zu ID '$cid' wurden erfolgreich gespeichert.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	408	echo "<br /><br />\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	409
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	410	// Anzeigen gespeicherte Vertragsdaten
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	411	include ("inc/vertrag_dat_show.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	412	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	413	else echo "retv=$retv,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	414	retb=$retb,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	415	retp=$retp,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	416	retd=$retd,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	417	retk=$retk,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	418	retf=$retf,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	419	retl=$retl<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	420	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	421	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	422	elseif ($ok && $del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	423	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	424	// DELETE aus Tab Vertrag und abhaengigen Tabellen
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	425	echo "<div align='center'>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	426
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	427	// alte Namen Vertragsdocument
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	428	$sql = "SELECT cf_filename FROM Vertrag_File WHERE contract_ID = $cid ORDER BY cf_ID";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	429	if ($res = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	430	foreach ($res as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	431	$vfile_old[] = $row->cf_filename;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	432	$sql = "DELETE FROM Vertrag WHERE contract_ID = $cid";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	433	$retvd = $dbc -> execute($sql);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	434	if ($retvd)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	435	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	436	foreach ($vtr['cfname'] as $key => $filename)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	437	$retf = $retf && mod_file("/var/www/fhiiqm/documents",$cid,"","del",$vfile_old[$key]); // Loeschen alte Datei
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	438	if ($retdf) echo "<p class='green'><b>Vertragsdokumente zu ID '$cid' wurde gelöscht.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	439	echo "<p class='green'><b>Vertragsdaten zu ID '$cid' wurden gelöscht.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	440	echo "<br /><br />\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	441
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	442	// Anzeigen geloeschter Vertragsdaten
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	443	include ("inc/vertrag_dat_show.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	444	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	445	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	446	if ($ok && ($sub \|\| $del))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	447	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	448	/*
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	449	// nicht mehr notwendige Dateien auf Server löschen
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	450	if (count($vtr['cfname']) != count($vfile_old))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	451	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	452	foreach ($vfile_old as $key => $val)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	453	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	454	print_r($vtr['cfname']); echo "$val in delete<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	455	$valk = substr($val,$len);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	456	if (!in_array($valk,$vtr['cfname']))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	457	$retf = $retf && mod_file("/var/www/fhiiqm/documents",$cid,"","del",$val); // Loeschen alte Datei
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	458	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	459	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	460	print_r($vtr['cfname']); echo "nach delete?<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	461	*/
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	462	echo "</div><br /><br />\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	463	echo "<p class='sc'>   <a href=\"$tlist?$getp\" target=\"_self\" title=\"Vertragsliste\">Zurück zur Vertragsliste</a></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	464	echo "<p class='sc'>   <a href=\"vertrag_ed.php\" target=\"_self\" title=\"Vertrag erfassen\">Weiteren Vertrag erfassen</a></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	465	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	466
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	467	?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	468
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 36 diff changeset	469	</body>
35 679bc22e37e2 + Vertrag mehrere Dokumente, Projektreports Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	470	</html>

author	Bettina Schwarzer
	Fri, 05 Feb 2016 14:03:40 +0100
changeset 44	d652bbba2d43
parent 40	6f4b105daa24
permissions	-rw-r--r--