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

40 6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	1	<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	2
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	3	/**
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	4	* @author Bettina Schwarzer, Fritz-Haber-Institut
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	5	* @copyright 10/2011
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	6	*
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	7	* INSERT/UPDATE/DELETE Rechte
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	8	*/
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	9
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	10	error_reporting(E_ALL ^ E_NOTICE);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	11
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	12	session_start();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	13	if (! isset($_SESSION["userid"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	14	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	15	include_once ("inc/func_lib.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	16	login($_SERVER["PHP_SELF"]);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	17	exit;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	18	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	19
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	20	if (is_null($_SESSION["recht"]) \|\| (!is_null($_SESSION["recht"]) && !in_array("rte",$_SESSION["recht"]) && !in_array("rtr",$_SESSION["recht"])))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	21	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	22	header("Location: start.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	23	exit;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	24	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	25
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	26	?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 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: 28 diff changeset	28	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	29
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	30	<head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	31	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	32	<link type="text/css" href="/fhiiqm/css/db.css" rel="Stylesheet" media="screen"/>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	33	<link type="text/css" href="/fhiiqm/css/db_print.css" rel="Stylesheet" media="print"/>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	34	<!--
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	35	<link type="text/css" href="/fhiiqm/css/jquery/ui-lightness/jquery-ui-1.8.16.custom.css" rel="Stylesheet" />
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	36	<script type="text/javascript" src="/fhiiqm/js/jquery/jquery-1.6.2.min.js"></script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	37	<script type="text/javascript" src="/fhiiqm/js/jquery/jquery-ui-1.8.16.custom.min.js"></script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	38	-->
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	39	<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: 28 diff changeset	40	<script type="text/javascript" src="/fhiiqm/js/jquery/jquery-1.7.2.min.js"></script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	41	<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: 28 diff changeset	42	<title>Nutzer & Rechte</title>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	43	</head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	44
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	45	<body>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	46
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	47	<script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	48	$(document).ready(function() {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	49	$("#persknr").focus();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	50	$("#persknr").autocomplete({
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	51	source: "/fhiiqm/inc/ma_list_ac.inc.php",
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	52	minLength: 2,
43 70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	53	select: function(event,ui){
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	54	$("#pid").val(ui.item.id);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	55	$("#sn").val(ui.item.sn);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	56	$("#gn").val(ui.item.gn);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	57	}
40 6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	58	});
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	59	$("input").filter("long20").addClass("long20");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	60	});
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	61	</script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	62
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	63	<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	64	echo " ";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	65	echo "<div class=\"float-br smaller\" valign='top'>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	66	echo "   user: " . $_SESSION["userid"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	67	echo "   <a class='sc' href='/fhiiqm/logout.php' title='Session beenden'>logout</a></div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	68	echo "<div class=\"float-r\"><img src=\"img/user_go.png\" border=\"0\" alt=\"User, Rechte eingeben\" title=\"User, Rechte eingeben\"/></div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	69
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	70	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
43 70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	71	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/func_lib.inc.php");
40 6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	72	if (!isset($dbc) \|\| !$dbc) $dbc = new dbconnection();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	73
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	74	$pget = $_GET["pid"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	75	$ok = $_POST["ok"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	76	$ins = $_POST["ins"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	77	$del = $_POST["del"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	78	$rt = $_POST["rt"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	79	if (!$rt['okn']) $ok=false;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	80	// print_r($rt); echo "$ins, $del<br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	81	if (!$ok \|\| (!$ins && !$del))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	82	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	83	if ($pget && !$ins && !$del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	84	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	85	// Daten zu Mitarbeiter bereitstellen
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	86	$rt["pid"] = $pget;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	87	$sql = "SELECT userid FROM fhiiqm.userweb WHERE persknr = $pget";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	88	if ($userid = $dbc->querySingleItem($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	89	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	90	$rt["userid"] = $userid;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	91	$sql = "SELECT CONCAT (nachname, ', ',vorname) AS ma FROM fhiiqm.Mitarbeiter WHERE persknr = $pget";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	92	if ($result = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	93	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	94	$rt["pers"] = $row->ma;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	95	$sql = "SELECT recht_ID FROM fhiiqm.user_recht WHERE userid = '$userid'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	96	if ($resr = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	97	foreach ($resr as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	98	$rt["recht"][] = $row->recht_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	99	$sql = "SELECT prod_group_ID FROM fhiiqm.user_prodgroup WHERE userid = '$userid'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	100	if ($resg = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	101	foreach ($resg as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	102	$rt["prodg"][] = $row->prod_group_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	103	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	104	}
43 70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	105	if (isset($rt["sn"]) && $rt["sn"]>"!") // nachname
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	106	{
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	107	$sn = substr($rt["sn"],0, strpos($rt["sn"],","));
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	108	$info = ldap_search_uid($sn,$rt["gn"]);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	109	if (isset($info) && count($info))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	110	{
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	111	for ($i=0; $i<count($info); $i++)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	112	{
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	113	$rt["userid"] = $info[$i][0];
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	114	}
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	115	}
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen Bettina Schwarzer parents: 40 diff changeset	116	}
40 6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	117
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	118	include_once("form/recht_form.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	119
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	120	if ($ins \|\| $del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	121	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	122
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	123	if ($ins) $frage = "Alle Angaben ok?"; else $frage = "Nutzer und seine Rechte wirklich löschen?";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	124	echo "<tr>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	125	<td class=\"red\" valign=\"top\" align=\"left\">$frage</td>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	126	<td><input type=\"checkbox\" name=\"ok\" value=\"1\"";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	127	if ($ok) echo "checked";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	128	echo "></td>\n</tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	129	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	130
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	131	if (!is_null($_SESSION["recht"]) && in_array("rte", $_SESSION["recht"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	132	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	133	if ($pget \|\| $rt["pget"]) $sub = "ändern"; else $sub = "eingeben";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	134
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	135	echo "<tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	136	echo "
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	137	<td> </td>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	138	<td><input class=\"button\" type=\"submit\" value=\"$sub\" name=\"ins\" title=\"$sub\" />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	139	if ($pget \|\| $rt["pget"])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	140	echo "   <input class=\"buttonr\" type=\"submit\" value=\"löschen\" name=\"del\" title=\"delete\" />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	141	echo "</td>\n";;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	142	echo "</tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	143	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	144	echo "</table>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	145	echo "</div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	146	// if (!is_null($_SESSION["recht"]) && !in_array("rte", $_SESSION["recht"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	147	echo "<p class='sc'>   <a href=\"recht_list.php\" target=\"_self\" title=\"Nutzerliste\">« zur Nutzerliste</a></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	148	echo "</form>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	149
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	150	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	151	elseif ($ok && ($ins \|\| $del))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	152	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	153	echo "<div align='center'>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	154	//daten speichern
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	155
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	156	if ($ins == "eingeben")
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	157	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	158	$resu=1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	159	// pruefen, ob userid schon existiert
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	160	$sql = "SELECT persknr, userid FROM fhiiqm.userweb WHERE userid = '" . $rt["userid"] . "'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	161	if ($result = $dbc ->queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	162	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	163	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	164	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	165	echo "<p class='red'>User-ID '<b>" . $rt["userid"] ."</b>' ist schon vorhanden!</p>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	166	$erruid = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	167	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	168	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	169	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	170	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	171	{ //update
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	172	$sql = "SELECT userid FROM fhiiqm.userweb WHERE persknr = $pget";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	173	if ($userid = $dbc->querySingleItem($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	174	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	175	$resu=1; $resr=1; $resp=1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	176	if ($userid != $rt["userid"])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	177	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	178	// alte userid und Rechte dazu loeschen -> CASCADE DELETE
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	179	$resu = $dbc -> execute("DELETE FROM fhiiqm.userweb WHERE userid ='" . $userid . "'");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	180	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	181	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	182	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	183	// alte Rechte loeschen
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	184	$sql = "DELETE FROM fhiiqm.user_recht WHERE userid ='" . $userid . "'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	185	$resr = $dbc -> execute($sql);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	186	$sql = "DELETE FROM fhiiqm.user_prodgroup WHERE userid ='" . $userid . "'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	187	$resp = $dbc -> execute($sql);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	188	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	189	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	190	if (!$resu \|\| !$resr \|\| !$resp) $erruid = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	191
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	192	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	193	if ($del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	194	{
44 d652bbba2d43 fhiiqm: achilleus -> db2, Korrekturen Bettina Schwarzer parents: 43 diff changeset	195	echo "userid=". $rt["userid"] . "<br />";
40 6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	196	// User loeschen
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	197	$sql = "DELETE FROM fhiiqm.userweb WHERE userid ='" . $rt["userid"] . "'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	198	$res = $dbc -> execute($sql);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	199	if ($res)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	200	echo "<p class='green'><b>User-ID '".$rt["userid"]."' und zugeordete Rechte wurden gelöscht.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	201	else
44 d652bbba2d43 fhiiqm: achilleus -> db2, Korrekturen Bettina Schwarzer parents: 43 diff changeset	202	echo "<p class='red'><b>Löschen von User-ID '".$rt["userid"]."' und zugeordeter Rechte ist fehlgeschlagen.</b><br />".$dbc->error."</p>\n";
40 6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	203	$erruid = 1; //
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	204	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	205	if (!$erruid)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	206	{ // Rechte speichern
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	207	$stmt = $dbc -> stmtinit();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	208	if (is_object($stmt))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	209	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	210	$result = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	211	if ($ins == "eingeben" \|\| $userid != $rt["userid"])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	212	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	213	$stmt -> prepare("INSERT INTO fhiiqm.userweb (persknr, userid) VALUES (?,?)");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	214	$stmt -> bind_param('is',$rt["pid"],$rt["userid"]);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	215	$result = $stmt -> execute();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	216	if ($stmt->error) echo "error userweb: " . $stmt->errno." -> ".$stmt->error . "<br><br>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	217	$stmt -> reset();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	218	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	219	if ($result)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	220	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	221	$resr = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	222	if (is_array($rt["recht"]) && !is_null($rt["recht"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	223	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	224	$stmt -> prepare("INSERT INTO fhiiqm.user_recht (userid,recht_ID) VALUES (?,?)");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	225	foreach ($rt["recht"] as $re)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	226	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	227	$stmt -> bind_param('ss',$rt["userid"],$re);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	228	$resr = $stmt -> execute();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	229	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	230	if ($stmt->error) echo "error user_recht: " . $stmt->errno." -> ".$stmt->error . "<br><br>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	231	$stmt -> reset();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	232	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	233	$resp = 1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	234	if (is_array($rt["prodg"]) && !is_null($rt["prodg"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	235	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	236	$stmt -> prepare("INSERT INTO fhiiqm.user_prodgroup (userid,prod_group_ID) VALUES (?,?)");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	237	foreach ($rt["prodg"] as $re)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	238	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	239	$stmt -> bind_param('ss',$rt["userid"],$re);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	240	$resp = $stmt -> execute();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	241	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	242	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	243	if ($stmt->error) echo "error user_prodgroup: " . $stmt->errno." -> ".$stmt->error . "<br><br>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	244
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	245	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	246	// $stmt -> close();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	247	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	248	if ($result && $resu && $resr && $resp)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	249	echo "<p class='green'><b>User-ID '".$rt["userid"]."' und zugeordete Rechte wurden erfolgreich gespeichert.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	250	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	251	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	252	echo "<p class='red'><b>Speichern von User-ID '".$rt["userid"]."' und zugeordeter Rechte war nicht erfolgreich.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	253	echo "result = $result, resu=$res, resr=$resr, resp=$resp<br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	254	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	255	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	256	$dbc -> close();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	257	echo "</div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	258	echo "<p class='sc'>   <a href=\"".$_SERVER["PHP_SELF"]."\" target=\"_self\" title=\"Rechte erfassen\">Weiteren Nutzer & Rechte erfassen</a></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	259	echo "<p class='sc'>   <a href='/fhiiqm/recht_list.php' title='Nutzerliste'>zur Nutzerliste</a></p>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	260	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	261	?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 28 diff changeset	262	</body>
16 3ebe66308a00 nochmal Recht, Prodgroup->Vertrag edit Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	263	</html>

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