IQM: fhiiqm/info_upd.php@6288d5685bff (annotated)

1 6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	1	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	2	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	3
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	4	<head>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	5	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	6	<link href="css/db.css" rel="STYLESHEET" type="TEXT/CSS" />
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	7
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	8	<title>Eingabe Informationen</title>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	9	</head>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	10
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	11	<body>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	12	<div class="float-r"><img src="img/document_image_ver.png" border="0" alt="Informationen eingeben" title="Informationen eingeben"/></div>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	13
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	14	<?php
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	15
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	16	/**
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	17	* @author Bettina Schwarzer, Fritz-Haber-Institut
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	18	* @copyright 08/2011
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	19	*
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	20	* INSERT Informationen
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	21	*/
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	22
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	23	error_reporting(E_ALL ^ E_NOTICE);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	24
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	25	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	26	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/func_lib.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	27	$dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	28
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	29	$infid = $_GET["uid"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	30	if (!$inf) $inf=1;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	31	$upd = $_POST["upd"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	32	$del = $_POST["del"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	33	$inf = $_POST["inf"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	34	$ok = $_POST["ok"];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	35	if (!$inf["okn"]) $ok = false;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	36
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	37	if (!$ok && ((!$upd && !$del) \|\| $upd \|\| $del))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	38	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	39	if (!$upd && !$del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	40	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	41	$sql = "SELECT info_ID,info_name_s,info_name_l,info_date,info_valid_from,info_valid_to,infotyp_ID,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	42	persknr,lang,info_file,info_rel_ID,info_freigabe FROM fhiiqm.Info WHERE info_ID = $infid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	43	if ($result = $dbc -> queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	44	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	45	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	46	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	47	$inf["infid"] = $infid;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	48	$inf["iname"] = $row->info_name_s;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	49	$inf["ilong"] = $row->info_name_l;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	50	$inf["ityp"] = $row->infotyp_ID;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	51	$inf["ijahr"] = substr($row->info_date,0,4);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	52	$inf["imon"] = substr($row->info_date,5,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	53	$inf["itag"] = substr($row->info_date,8,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	54	$inf["bjahr"] = substr($row->info_valid_from,0,4);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	55	$inf["bmon"] = substr($row->info_valid_from,5,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	56	$inf["btag"] = substr($row->info_valid_from,8,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	57	$inf["ejahr"] = substr($row->info_valid_to,0,4);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	58	$inf["emon"] = substr($row->info_valid_to,5,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	59	$inf["etag"] = substr($row->info_valid_to,8,2);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	60	$inf["pers"] = $row->persknr;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	61	$inf["infrel"] = $row->info_rel_ID;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	62	$inf["ifname"] = $row->info_file;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	63	$inf["lang"] = $row->lang;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	64	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	65	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	66	// Produkt
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	67	$sql = "SELECT produkt_ID FROM Info_Produkt WHERE info_ID = $infid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	68	if ($result = $dbc -> queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	69	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	70	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	71	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	72	$inf['prid'][] = $row->produkt_ID;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	73	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	74	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	75	// Adressat
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	76	$sql = "SELECT info_adr_ID FROM Info_Adressat WHERE info_id = $infid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	77	if ($result = $dbc->queryObjectArray($sql))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	78	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	79	foreach ($result as $row)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	80	$inf["adr"][] = $row->info_adr_ID;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	81	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	82
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	83	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	84	include_once("form/info_form.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	85
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	86	if ($upd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	87	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	88	echo
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	89	"<tr>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	90	<td>Upload Infodokument </td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	91	<td><input type=\"file\" name=\"ifile\" size=\"50\" maxlength=\"50\" value=\"" .
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	92	$_FILES["ifile"]["name"] . "\"/></td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	93	</tr>";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	94
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	95	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	96	if ($upd \|\| $del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	97	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	98	if ($upd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	99	$frage = "Alle Angaben ok?<br>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	100	erst wenn Haken gesetzt, Upload-File wählen!";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	101	elseif ($del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	102	$frage = "Information wirklich löschen?";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	103	echo "<tr>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	104	<td class=\"red\" valign=\"top\" align=\"left\">$frage</td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	105	<td><input type=\"checkbox\" name=\"ok\" value=\"1\"";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	106	if ($ok) echo "checked";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	107	echo "></td>\n</tr>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	108	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	109
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	110	echo "<tr>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	111	echo "
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	112	<td> </td>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	113	<td><input class=\"button\" type=\"submit\" value=\"ändern\" name=\"upd\" title=\"update\" />
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	114	<input class=\"button\" type=\"submit\" value=\"löschen\" name=\"del\" title=\"delete\" /></td>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	115	echo "</tr>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	116	echo "</table>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	117	echo "</div>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	118	echo "</form>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	119
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	120
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	121	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	122	elseif ($ok && $upd)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	123	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	124	echo "<div align='center'>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	125	//daten speichern
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	126	$inf["iname"] = substr($inf["iname"],0,300);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	127	$inf["ilong"] = substr($inf["ilong"],0,8000);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	128	if ($inf["ityp"] == -1) $inf["ityp"] = null;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	129
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	130	//Datumswerte validieren
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	131	$idat = date_obj($inf["ijahr"], $inf["imon"], $inf["itag"]);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	132	$bdat = date_obj($inf["bjahr"], $inf["bmon"], $inf["btag"]);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	133	$edat = date_obj($inf["ejahr"], $inf["emon"], $inf["etag"]);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	134
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	135	if ($inf["pers"] == -1) $inf["pers"] = null;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	136	if ($inf["infrel"] == -1) $inf["infrel"] = null;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	137	if ($inf["lang"] == -1) $inf["lang"] = null;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	138	//echo "datcreate: $idat, datevalidfrom: $bdat, datevalidto: $edat, author: " . $inf["pers"] . "<br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	139
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	140	if (!isset($dbc) \|\| !$dbc) $dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	141	$stmt = $dbc -> stmtinit();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	142	if (is_object($stmt))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	143	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	144	$stmt -> prepare("UPDATE fhiiqm.Info SET
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	145	info_name_s = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	146	info_name_l = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	147	info_date = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	148	info_valid_from = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	149	info_valid_to = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	150	infotyp_ID = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	151	persknr = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	152	lang = ?,
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	153	info_rel_ID = ? WHERE info_ID = $infid");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	154	$stmt -> bind_param('sssssiisi',$inf["iname"],$inf["ilong"],$idat,$bdat,$edat,$inf["ityp"],$inf["pers"],$inf["lang"],$inf["infrel"]);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	155	$result = $stmt -> execute();
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	156	// print_r($stmt);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	157	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	158	if ($dbc->error) echo "error: " . $dbc->error . "<br><br>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	159	if ($result)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	160	{ // UPDATE o.k.
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	161
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	162	// n:m Tabellen INSERT
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	163	include ("inc/info_tab_ins.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	164
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	165	// upload File
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	166	// echo "upload-error: " . $_FILES["ifile"]["error"] . "<br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	167	if (is_uploaded_file($_FILES["ifile"]["tmp_name"]) && isset($_FILES["ifile"]["name"]) && $_FILES["ifile"]["name"] )
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	168	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	169	echo "file hochgeladen: " . $_FILES["ifile"]["name"] ."<br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	170	include ("inc/file_upload.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	171	$fname = gen_filename($inf['ifname'],"ifile",$infid);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	172	$retdf = mod_file("/var/www/fhiiqm/infos",$infid,"","del"); // Loeschen alte Datei
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	173	$retf = upload("ifile", $fname, $infid, "infos"); // Datei prüfen und in Dokumentenverzeichnis verschieben
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	174
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	175	if ($retf)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	176	{ // upload o.k.
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	177	//UPDATE des Filenamens
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	178	$sql = "UPDATE Info SET info_file = '" . $infid . "_" . $fname ."' WHERE info_ID=$infid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	179	$retv=$dbc->execute($sql);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	180	if (!$retv)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	181	echo $dbc -> error . "<br>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	182	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	183
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	184	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	185	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	186	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	187	$retf=1; //kein Infodoc hochgeladen
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	188	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	189	if ($result && $retf && $reta && $retp) // INSERT Raum
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	190	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	191	//Eingabe Daten, Upload File erfolgreich
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	192	echo "<p class='green'><b>Infodaten zu ID '$infid' wurden erfolgreich gespeichert.</b></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	193	echo "<br /><br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	194
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	195	// Anzeigen gespeicherte Raumdaten
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	196	if ($fname)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	197	$ifile = $infid . "_" . $fname;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	198	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	199	$ifile = $inf['ifname'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	200	include ("inc/info_dat_show.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	201	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	202	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	203	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	204	elseif ($ok & $del)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	205	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	206	// DELETE aus Tab Info und abhaengigen Tabellen
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	207	echo "<div align='center'>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	208
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	209	$idat = date_obj($inf["ijahr"], $inf["imon"], $inf["itag"]);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	210	$bdat = date_obj($inf["bjahr"], $inf["bmon"], $inf["btag"]);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	211	$edat = date_obj($inf["ejahr"], $inf["emon"], $inf["etag"]);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	212
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	213	$sql = "DELETE FROM Info WHERE info_ID = $infid";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	214	$retid = $dbc -> execute($sql);
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	215	if ($retid)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	216	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	217	include ("inc/file_upload.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	218	$retdf = mod_file("/var/www/fhiiqm/infos",$infid,"","del"); // Loeschen Dokument
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	219	if ($retdf) echo "<p class='green'><b>Infodokument zu ID '$infid' wurde gelöscht.</b></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	220	echo "<p class='green'><b>Infodaten zu ID '$infid' wurden gelöscht.</b></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	221	echo "<br /><br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	222
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	223	// Anzeigen geloeschter Vertragsdaten
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	224	if ($fname)
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	225	$ifile = $infid . "_" . $fname;
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	226	else
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	227	$ifile = $inf['ifname'];
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	228	include ("inc/info_dat_show.inc.php");
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	229	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	230
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	231	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	232	if ($ok && ($upd \|\| $del))
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	233	{
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	234	echo "</div><br /><br />\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	235	echo "<p>   <a href=\"info_flist.php\" target=\"_self\" title=\"Infoliste\">Zurück zur Infoliste</a></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	236	echo "<p>   <a href=\"info_ins.php\" target=\"_self\" title=\"Info erfassen\">Weitere Info erfassen</a></p>\n";
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	237	}
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	238
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	239	?>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	240	</body>
6288d5685bff Stand v. 31.08.2011 Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de> parents: diff changeset	241	</html>

author	Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
	Wed, 31 Aug 2011 14:22:19 +0200
changeset 1	6288d5685bff
child 8	908abe8cec4d
permissions	-rw-r--r--