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

40 6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	1	<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	2
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	3	/**
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	4	* @author Bettina Schwarzer, Fritz-Haber-Institut
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	5	* @copyright 12/2011, 01/2012
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	6	*
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	7	* Laser INSERT, UPDATE, DELETE, COPY
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	8	*/
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	9
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	10	error_reporting(E_ALL ^ E_NOTICE);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	11
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	12	session_start();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	13	if (! isset($_SESSION["userid"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	14	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	15	include_once ("inc/func_lib.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	16	login($_SERVER["PHP_SELF"]);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	17	exit;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	18	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	19
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	20	if (is_null($_SESSION["recht"]) \|\| (!is_null($_SESSION["recht"]) && !in_array("lr",$_SESSION["recht"]) && !in_array("le",$_SESSION["recht"])))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	21	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	22	header("Location: start.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	23	exit;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	24	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	25
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	26	include_once($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/inc/dbconnect.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	27	if (!isset($dbc) \|\| !$dbc) $dbc = new dbconnection();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	28
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	29
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	30	$la = $_POST["la"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	31	$laid = $_GET["i"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	32	$copy = $_GET["c"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	33	$sub = $_POST["eintragen"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	34	$del = $_POST["del"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	35	$dup = $_POST["dup"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	36	if (!$dup) $dup = $_GET["dp"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	37	$ok = $_POST["ok"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	38	if (!$la['okn']) $ok=false;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	39	$duptext="";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	40	$start = $_GET["st"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	41	$zeil = $_GET["z"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	42	$sort = $_GET["s"]; // Sortierung nach Spalte
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	43	$dir = $_GET["d"]; // Sortierrichtung
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	44	$fnum = $_GET["f"]; // Spaltennummer, nach der aktuell gefiltert wird
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	45	$filter = $_GET["b"]; // Filterbegriff
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	46	// $_GET-Parameter zurück zur Laserliste mit den selben Einstellungen wie zuvor
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	47	$getp = "s=$sort&d=$dir&f=$fnum&b=$filter&st=$start&z=$zeil";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	48
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	49	if ($dup)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	50	{ // Anlage duplizieren
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	51	include_once ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/inc/func_lib.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	52	$tab = "Laser";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	53	$key = "las_ID";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	54	$val = $laid;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	55	// $ret=1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	56	$ret = duplicate_record ($tab, $key, $val);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	57	if ($ret)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	58	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	59	$laid=$ret;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	60	$addr = $_SERVER["PHP_SELF"] . "?i=$laid&c=1&$getp";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	61	header("Location: $addr");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	62	exit;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	63	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	64	else $duptext = " - Fehler beim Duplizieren von ". $la["lbez"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	65	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	66
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	67	?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	68
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	69	<!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: 34 diff changeset	70	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	71
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	72	<head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	73	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	74	<link type="text/css" href="/fhiiqm/css/db.css" rel="Stylesheet" media="screen"/>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	75	<link type="text/css" href="/fhiiqm/css/db_print.css" rel="Stylesheet" media="print"/>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	76	<!--
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	77	<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: 34 diff changeset	78	<script type="text/javascript" src="/fhiiqm/js/jquery/jquery-1.6.2.min.js"></script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	79	<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: 34 diff changeset	80	-->
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	81	<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: 34 diff changeset	82	<script type="text/javascript" src="/fhiiqm/js/jquery/jquery-1.7.2.min.js"></script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	83	<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: 34 diff changeset	84	<title>Laser</title>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	85	</head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	86
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	87	<body>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	88
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	89	<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	90	echo " ";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	91	echo "<div class=\"float-br smaller\" valign='top'>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	92	echo "   user: " . $_SESSION["userid"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	93	echo "   <a class='sc' href='/fhiiqm/logout.php' title='Session beenden'>logout</a></div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	94	echo "<div class=\"float-r\"><img src=\"img/laser.png\" border=\"0\" alt=\"Laser\" title=\"Laser\"/></div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	95	?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	96
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	97	<div align='center'>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	98
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	99	<script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	100	$(document).ready(function() {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	101	$("#lbez").focus();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	102	$("#persknr").autocomplete({
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	103	source: "/fhiiqm/inc/ma_list_ac.inc.php?s=a",
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	104	minLength: 2,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	105	select: function(event,ui){$("#pid").val(ui.item.id);}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	106	});
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	107	$("input").persknr("long20").addClass("long20");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	108	});
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	109	</script>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	110
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	111	<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	112	// print_r($al);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	113
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	114	if ($laid) $text = "editieren"; else $text = "erfassen";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	115	if ($copy) $duptext = " (Kopie)";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	116	echo "<h3>Laser $text$duptext<h3>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	117
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	118	echo "</div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	119
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	120	if (!$ok \|\| (!$sub && !$del && !$dup))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	121	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	122	if ($laid && (!$sub \|\| !$del) && !isset($la))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	123	{ // update
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	124	$sql = "SELECT las_ID, las_bez, las_welle_von, las_welle_bis,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	125	las_art_ID, las_klasse_ID, las_typ_ID, leistung, einheit_leistung,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	126	apertur, einheit_apertur, energie, einheit_energie, frequenz, einheit_frequenz,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	127	impulsbreite, einheit_impulsbreite, l.las_hersteller_ID, schutzst_ID,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	128	l.aktiv, l.persknr, l.raum_ID, geb_ID, las_info,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	129	CONCAT(nachname,', ',vorname) AS vname, las_hersteller_bez,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	130	inventar_nr,maxleistung, einheit_maxleist,schutzst_od_ID,las_ref_ID,l.timestamp,l.userid
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	131	FROM fhiiqm.Laser l LEFT OUTER JOIN fhiiqm.Mitarbeiter m
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	132	ON l.persknr=m.persknr LEFT OUTER JOIN fhiiqm.Laser_Hersteller h
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	133	ON l.las_hersteller_ID=h.las_hersteller_ID LEFT OUTER JOIN fhiiqm.Raum r
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	134	ON l.raum_ID=r.Raum_ID
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	135	WHERE las_ID = '$laid'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	136	if ($result = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	137	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	138	foreach ($result as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	139	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	140	$la["lid"] = $laid;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	141	$la["lbez"] = $row->las_bez;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	142	// $la['wvon'] = str_replace(".",",",$row->las_welle_von);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	143	$la['wvon'] = str_replace(".",",",str_replace(".00","",$row->las_welle_von));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	144	$la['wbis'] = str_replace(".",",",str_replace(".00","",$row->las_welle_bis));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	145	$la["lart"] = ($row->las_art_ID) ? $row->las_art_ID : -1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	146	$la['lkla'] = ($row->las_klasse_ID) ? $row->las_klasse_ID : -1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	147	$la['ltyp'] = ($row->las_typ_ID) ? $row->las_typ_ID : -1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	148	$la['leist'] = str_replace(".",",",str_replace(".00","",$row->leistung));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	149	$la['eleist'] = $row->einheit_leistung;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	150	$la["apt"] = str_replace(".",",",str_replace(".00","",$row->apertur));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	151	$la["eapt"] = $row->einheit_apertur;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	152	$la["eng"] = str_replace(".",",",str_replace(".00","",$row->energie));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	153	$la["eeng"] = $row->einheit_energie;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	154	$la["frq"] = str_replace(".",",",str_replace(".00","",$row->frequenz));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	155	$la["efrq"] = $row->einheit_frequenz;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	156	$la["ipb"] = str_replace(".",",",str_replace(".00","",$row->impulsbreite));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	157	$la["eipb"] = $row->einheit_impulsbreite;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	158	$la["akt"] = $row->aktiv;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	159	$la["hstid"] = $row->las_hersteller_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	160	if (!$la["hstid"]) $la["hstid"] = -1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	161	$la["suid"] = ($row->schutzst_ID)? $row->schutzst_ID : -1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	162	$la["akt"] = $row->aktiv;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	163	$la["persknr"] = $row->vname;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	164	$la["pid"] = ($row->persknr) ? $row->persknr : null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	165	$la["geb"] = $row->geb_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	166	$la["raum"] = ($row->raum_ID) ? $row->raum_ID : -1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	167	$la["linfo"] = $row->las_info;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	168	$la["invnr"] = $row->inventar_nr;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	169	$la["leistmax"] = str_replace(".",",",str_replace(".00","",$row->maxleistung));
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	170	$la["eleistmax"]= $row->einheit_maxleist;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	171	$la["suodid"] = $row->schutzst_od_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	172	$la["lidref"] = $row->las_ref_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	173	$la["tstmp"] = $row->timestamp;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	174	$la["uid"] = $row->userid;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	175	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	176	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	177	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	178	include ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/form/laser_form.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	179	if ($sub \|\| $del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	180	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	181	if ($sub)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	182	$frage = "Alle Angaben ok?";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	183	elseif ($del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	184	$frage = "Laser wirklich löschen?";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	185	echo "<tr>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	186	<td class=\"red\" valign=\"top\" align=\"left\">$frage</td>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	187	<td><input type=\"checkbox\" name=\"ok\" value=\"1\"";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	188	if ($ok) echo "checked=\"checked\"";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	189	echo " /></td>\n</tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	190	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	191	if (!is_null($_SESSION["recht"]) && in_array("le",$_SESSION["recht"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	192	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	193	echo "
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	194	<tr><td> </td>\n
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	195	<td><input class=\"button\" type=\"submit\" name=\"eintragen\" value=\" eintragen \" />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	196	if ($laid)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	197	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	198	echo "   <input class=\"buttonr\" type=\"submit\" value=\"löschen\" name=\"del\" title=\"delete\" />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	199	echo "   <input class=\"button\" type=\"submit\" value=\"duplizieren\" name=\"dup\" title=\"delete\" />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	200	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	201	echo "</td></tr>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	202	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	203	echo "</table>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	204	echo "</div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	205	// if (!is_null($_SESSION["recht"]) && !in_array("le", $_SESSION["recht"]))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	206	echo "<p class='sc'>   <a href=\"laser_flist.php?$getp\" target=\"_self\" title=\"Laser\">« zur Laserliste</a></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	207	echo "</form>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	208
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	209
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	210	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	211	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	212	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	213	echo "<div align='center'>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	214	$userid = $_SESSION["userid"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	215
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	216	if ($del)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	217	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	218	$sql = "DELETE FROM Laser WHERE las_ID = '$laid'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	219	$retld = $dbc -> execute($sql);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	220	if ($retld)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	221	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	222	echo "<p class='green'><b>DELETE: Daten zu '".$la["lbez"]."' wurden erfolgreich gelöscht.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	223	include ("inc/laser_dat_show.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	224	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	225	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	226	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	227	echo "<p class='red'><b>DELETE: Daten zu '".$la["lbez"]."' konnten nicht gelöscht werden!</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	228	echo "sql = $sql<br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	229	echo "error DELETE: " . $dbc->error . "<br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	230	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	231	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	232	else //INSERT oder UPDATE
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	233	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	234	if ($la["lbez"]) $la["lbez"] = substr($la["lbez"],0,250); else $la["lbez"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	235	if ($la["linfo"]) $la["linfo"] = substr($la["linfo"],0,500); else $la["linfo"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	236	if ($la["lart"] == -1) $la["lart"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	237	if ($la["lkla"] == -1) $la["lkla"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	238	if ($la["ltyp"] == -1) $la["ltyp"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	239	if ($la["suid"] == -1) $la["suid"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	240	if ($la["suodid"] == -1) $la["suodid"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	241	if ($la["lidref"] == -1) $la["lidref"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	242	if ($la["raum"] == -1) $la["raum"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	243	// print_r($la); echo "<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	244
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	245	if ($la["hstid"] == -1)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	246	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	247	if ($la["herst"] > "!") // neuer Hersteller?
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	248	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	249	$sql = "SELECT las_hersteller_ID FROM Laser_Hersteller WHERE las_hersteller_bez = '" . ltrim($la["herst"]) . "'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	250	if ($res = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	251	{ // Hersteller vorhanden
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	252	foreach ($res as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	253	$la["hstid"] = $row->las_hersteller_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	254	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	255	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	256	{ // Hersteller neu
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	257	$sql = "INSERT INTO Laser_Hersteller (las_hersteller_bez) VALUES (LEFT(TRIM('" . $la["herst"] . "'),50))";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	258	$reth = $dbc -> execute($sql);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	259	if ($reth) $la["hstid"] = $dbc -> insertId(); else $la["hstid"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	260	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	261	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	262	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	263	$la["hstid"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	264	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	265
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	266	if ($la["lart"] == -1)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	267	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	268	if ($la["lartnew"] > "!") // neue Laserart?
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	269	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	270	$sql = "SELECT las_art_ID FROM Laser_Art WHERE las_art_bez = '" . ltrim($la["lartnew"]) . "'";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	271	if ($res = $dbc -> queryObjectArray($sql))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	272	{ // Hersteller vorhanden
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	273	foreach ($res as $row)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	274	$la["lart"] = $row->las_art_ID;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	275	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	276	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	277	{ // Laserart neu
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	278	$sql = "INSERT INTO Laser_Art (las_art_bez) VALUES (LEFT(TRIM('" . $la["lartnew"] . "'),50))";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	279	$reth = $dbc -> execute($sql);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	280	if ($reth) $la["lart"] = $dbc -> insertId(); else $la["lart"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	281	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	282	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	283	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	284	$la["lart"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	285	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	286
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	287	foreach ($la as $key=>$value)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	288	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	289	if (is_null($value) \|\| $value < "!") $la["$key"] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	290	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	291	// "," -> "." fuer decimal-Felder
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	292	if (is_null($la["persknr"])) $la[pid] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	293	if (is_numeric(str_replace(",",".",$la["wvon"]))) $la["wvon"] = round(str_replace(",",".",$la["wvon"]),2);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	294	if (is_numeric(str_replace(",",".",$la["wbis"]))) $la["wbis"] = round(str_replace(",",".",$la["wbis"]),2);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	295	if (is_numeric(str_replace(",",".",$la["leist"]))) $la["leist"] = round(str_replace(",",".",$la["leist"]),2);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	296	if (is_numeric(str_replace(",",".",$la["leistmax"]))) $la["leistmax"] = round(str_replace(",",".",$la["leistmax"]),2);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	297	if (is_numeric(str_replace(",",".",$la["eng"]))) $la["eng"] = round(str_replace(",",".",$la["eng"]),2);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	298	if (is_numeric(str_replace(",",".",$la["apt"]))) $la["apt"] = round(str_replace(",",".",$la["apt"]),2);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	299	if (is_numeric(str_replace(",",".",$la["frq"]))) $la["frq"] = round(str_replace(",",".",$la["frq"]),2);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	300	if (is_numeric(str_replace(",",".",$la["ipb"]))) $la["ipb"] = round(str_replace(",",".",$la["ipb"]),2);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	301
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	302	// Einheiten = NULL, wenn decimal-Felder NULL
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	303	if (is_null($la['leist'])) $la['eleist'] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	304	if (is_null($la['leistmax'])) $la['eleistmax'] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	305	if (is_null($la['eng'])) $la['eeng'] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	306	if (is_null($la['apt'])) $la['eapt'] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	307	if (is_null($la['frq'])) $la['efrq'] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	308	if (is_null($la['ipb'])) $la['eipb'] = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	309
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	310	$stmt = $dbc -> stmtinit();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	311	if (is_object($stmt))
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	312	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	313	if ($laid)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	314	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	315	//update
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	316	$stmt -> prepare("UPDATE fhiiqm.Laser SET
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	317	las_bez = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	318	las_welle_von = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	319	las_welle_bis = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	320	las_art_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	321	las_klasse_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	322	las_typ_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	323	leistung = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	324	einheit_leistung = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	325	energie = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	326	einheit_energie = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	327	apertur = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	328	einheit_apertur = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	329	frequenz = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	330	einheit_frequenz = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	331	impulsbreite = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	332	einheit_impulsbreite = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	333	las_hersteller_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	334	schutzst_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	335	aktiv = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	336	persknr = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	337	raum_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	338	las_info = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	339	inventar_nr = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	340	maxleistung = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	341	einheit_maxleist = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	342	schutzst_od_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	343	las_ref_ID = ?,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	344	userid = ?
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	345	WHERE las_ID = '$laid'");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	346	$stmt -> bind_param('sddisidididididiiiiiissdiiis',$la["lbez"],$la['wvon'],$la['wbis'],$la["lart"],$la['lkla'],
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	347	$la['ltyp'],$la['leist'],$la["eleist"],$la["eng"],$la["eeng"],$la["apt"],$la["eapt"],$la["frq"],$la["efrq"],
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	348	$la["ipb"],$la["eipb"],$la["hstid"],$la["suid"],$la["akt"],$la["pid"],$la["raum"],$la["linfo"],
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	349	$la["invnr"],$la["leistmax"],$la["eleistmax"],$la["suodid"],$la["lidref"],$userid);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	350
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	351	$res = $stmt -> execute();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	352	if ($stmt->error) echo "UPDATE Laser, error: " . $stmt->errno . " - ". $stmt->error . "<br><br>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	353	if ($res)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	354	echo "<p class='green'><b>UPDATE: Daten zu '".$la["lbez"]."' wurden erfolgreich gespeichert.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	355	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	356	echo "<p class='red'><b>UPDATE: Daten zu '".$la["lbez"]."' konnten nicht gespeichert werden!</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	357
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	358	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	359	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	360	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	361	//insert
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	362	$stmt -> prepare("INSERT INTO fhiiqm.Laser (las_bez, las_welle_von, las_welle_bis, las_art_ID,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	363	las_klasse_ID, las_typ_ID, leistung, einheit_leistung, energie, einheit_energie,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	364	apertur, einheit_apertur, frequenz, einheit_frequenz, impulsbreite, einheit_impulsbreite,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	365	las_hersteller_ID, schutzst_ID, aktiv, persknr, raum_ID, las_info,
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	366	inventar_nr,maxleistung, einheit_maxleist,schutzst_od_ID,las_ref_ID,userid)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	367	VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	368	$stmt -> bind_param('sddisidididididiiiiiissdiiis',$la["lbez"],$la['wvon'],$la['wbis'],$la["lart"],$la['lkla'],
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	369	$la['ltyp'],$la['leist'],$la["eleist"],$la["eng"],$la["eeng"],$la["apt"],$la["eapt"],$la["frq"],$la["efrq"],
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	370	$la["ipb"],$la["eipb"],$la["hstid"],$la["suid"],$la["akt"],$la["pid"],$la["raum"],$la["linfo"],
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	371	$la["invnr"],$la["leistmax"],$la["eleistmax"],$la["suodid"],$la["lidref"],$userid);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	372	$res = $stmt -> execute();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	373	// print_r($stmt); echo "<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	374	if ($stmt->error) echo "INSERT Laser, error: " . $stmt->errno . " - ". $stmt->error . "<br><br>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	375	if ($res)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	376	{
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	377	$la["lid"] = $dbc -> insertId();
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	378	echo "<p class='green'><b>INSERT: Daten zu '".$la["lbez"]."' wurden erfolgreich gespeichert.</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	379	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	380	else
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	381	echo "<p class='red'><b>INSERT: Daten zu '".$la["lbez"]."' konnten nicht gespeichert werden!</b></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	382	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	383	if ($res) include ("inc/laser_dat_show.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	384	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	385
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	386	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	387	echo "</div>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	388	echo "<p class=\"sc\">   <a href=\"".$_SERVER["PHP_SELF"]."\" target=\"_self\" title=\"Laser erfassen\">Weiteren Laser erfassen</a></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	389	echo "<p class=\"sc\">   <a href=\"laser_flist.php?$getp\" target=\"_self\" title=\"Laser\">Laserliste</a></p>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	390	}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	391	?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	392	</body>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung Bettina Schwarzer parents: 34 diff changeset	393	</html>

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