fhiiqm/keytyp_ed.php
author Bettina Schwarzer
Fri, 05 Feb 2016 14:03:40 +0100
changeset 44 d652bbba2d43
parent 39 4ce411ed28b6
permissions -rw-r--r--
fhiiqm: achilleus -> db2, Korrekturen
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
38
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     1
<?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     2
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     3
/**
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     4
 * @author Bettina Schwarzer, Fritz-Haber-Institut
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     5
 * @copyright 05/2013
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     6
 * 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     7
 * INSERT, UPDATE Keytype
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     8
 */
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
     9
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    10
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    11
    error_reporting(E_ALL ^ E_NOTICE);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    12
    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    13
    session_start();
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    14
    if (! isset($_SESSION["userid"]))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    15
    { 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    16
        include_once ("inc/func_lib.inc.php");	
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    17
        login($_SERVER["PHP_SELF"]);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    18
        exit;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    19
    }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    20
    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    21
    if (is_null($_SESSION["recht"]) || (!is_null($_SESSION["recht"]) && !in_array("kr",$_SESSION["recht"]) && !in_array("ke",$_SESSION["recht"])))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    22
    {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    23
        header("Location: start.php");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    24
        exit;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    25
    }    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    26
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    27
	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    28
	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    29
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    30
    // userid: Depot 'FHI', 'edit' = 1 -> Keytyp bearbeitbar
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    31
    $redit = 0;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    32
    $uid = $_SESSION["userid"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    33
    $sql = "SELECT edit FROM KeyDepot_userweb WHERE depot_ID = 'FHI' AND userid = '$uid'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    34
    $redit = $dbc -> querySingleItem($sql);   
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    35
    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    36
    $sub = $_POST["eintragen"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    37
    $del = $_POST["del"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    38
    $ky  = $_POST["ky"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    39
    $okn = $ky["okn"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    40
    $ok  = $_POST["ok"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    41
    if (!$okn) $ok=0;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    42
    $kid = $_GET["i"]; // keytyp
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    43
    $getp = "s=1&k=$kid"
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    44
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    45
?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    46
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    47
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    48
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    49
<head>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    50
	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    51
   	<link href="/fhiiqm/css/db.css" rel="STYLESHEET" type="TEXT/CSS" media="screen"/> 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    52
   	<link href="/fhiiqm/css/db_print.css" rel="STYLESHEET" type="TEXT/CSS" media="print"/> 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    53
	<title>Keytyp bearbeiten</title>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    54
</head>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    55
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    56
<body>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    57
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    58
<?php
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    59
    echo "&nbsp;";  
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    60
    echo "<div class=\"float-br smaller\" valign='top'>";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    61
    echo "&nbsp;&nbsp;&nbsp;user: " . $_SESSION["userid"];
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    62
    echo "&nbsp;&nbsp;&nbsp;<a class='sc' href='/fhiiqm/logout.php' title='Session beenden'>logout</a></div>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    63
    echo "<div class=\"float-r\"><img src=\"img/key.png\" border=\"0\" alt=\"Keytyp bearbeiten\" title=\"Schl&uuml;sseltyp bearbeiten\"/></div>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    64
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    65
    if ($redit)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    66
        if ($kid) $text = "editieren"; else $text = "erfassen";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    67
    else $text = "Ansicht";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    68
    echo "<div align=\"center\">";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    69
    echo "<h3>Schl&uuml;sseltyp $text</h3>";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    70
    echo "</div>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    71
    if ((!$sub && !$del) || !isset($ky) || !$ok) 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    72
    {
39
4ce411ed28b6 + Keytyp: delDepot, userVW; Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 38
diff changeset
    73
        if ($kid && (!$sub || !$del) && !isset($ky))
38
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    74
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    75
            $sql = "SELECT keytyp_ID,key_level,key_parent,key_hiertyp_ID,keytyp_bez,key_anl_ID FROM Keytyp WHERE keytyp_ID='$kid'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    76
            if ($result = $dbc -> queryObjectArray($sql))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    77
                foreach ($result as $row)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    78
                {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    79
                    $ky['typ']      = $row->keytyp_ID;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    80
                    $ky['level']    = $row->key_level;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    81
                    $ky['parent']   = $row->key_parent;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    82
                    $ky['hier']     = $row->key_hiertyp_ID;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    83
                    $ky['bez']      = $row->keytyp_bez;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    84
                    $ky['anl']      = $row->key_anl_ID;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    85
                }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    86
        }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    87
        include ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/form/keytyp_form.inc.php");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    88
        
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    89
	  	if ($sub || $del)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    90
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    91
		  	if ($sub)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    92
                $frage = "Alle Angaben ok?";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    93
            elseif ($del)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    94
                $frage = "Schl&uuml;sseltyp wirklich l&ouml;schen?";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    95
			echo "<tr>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    96
			  <td class=\"red\" valign=\"top\" align=\"left\">$frage</td>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    97
			        <td><input type=\"checkbox\" name=\"ok\" value=\"1\"";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    98
			        if ($ok)  echo "checked=\"checked\""; 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
    99
			echo " /></td>\n</tr>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   100
        }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   101
        if (!is_null($_SESSION["recht"]) && in_array("ke",$_SESSION["recht"]) && $redit)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   102
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   103
            echo "
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   104
           	<tr><td>&nbsp;</td>\n
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   105
            	<td><input  class=\"button\" type=\"submit\" name=\"eintragen\" value=\"  eintragen  \" />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   106
            if ($kid)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   107
            {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   108
                echo "&nbsp;&nbsp;&nbsp;<input class=\"buttonr\" type=\"submit\" value=\"l&ouml;schen\" name=\"del\" title=\"delete\" />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   109
//                echo "&nbsp;&nbsp;&nbsp;<input class=\"button\" type=\"submit\" value=\"duplizieren\" name=\"dup\" title=\"delete\" />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   110
            }    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   111
           	echo "</td></tr>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   112
        }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   113
        echo "</table>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   114
        echo "</div>\n";
39
4ce411ed28b6 + Keytyp: delDepot, userVW; Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 38
diff changeset
   115
    echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"keytyp_search.php?$getp\" target=\"_self\" title=\"Schl&uuml;sseltyp-Hierarchie\">&laquo; zur Schl&uuml;sseltyp-Hierarchie</a></p>\n"; 
38
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   116
    echo "</form>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   117
    }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   118
    else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   119
    {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   120
        echo "<div align='center'>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   121
        
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   122
        if ($del)
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   123
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   124
            $sql = "DELETE FROM Keytyp WHERE keytyp_ID='$kid'";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   125
            if ($dbc -> execute($sql))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   126
                echo "<p class='green'><b>DELETE: Daten  zu '$kid' wurden erfolgreich gel&ouml;scht.</b></p>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   127
            else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   128
            {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   129
                echo "<p class='red'><b>DELETE: Daten  zu '$kid' konnten nicht gel&ouml;scht werden!</b></p>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   130
                echo "sql = $sql<br />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   131
                echo "error DELETE: " . $dbc->error . "<br />";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   132
            }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   133
            include ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/keytyp_dat_show.inc.php");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   134
        }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   135
        else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   136
        {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   137
            if ($ky['hier'] == -1) $ky['hier'] = null;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   138
            if ($ky['anl'] == -1) $ky['anl'] = null;
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   139
            foreach ($ky as &$elem) if (!$elem) $elem = null;  // NULL-Eintrag in Leerfelder
39
4ce411ed28b6 + Keytyp: delDepot, userVW; Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 38
diff changeset
   140
            if (is_null($ky['level'])) $ky['level'] = '';
38
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   141
            $stmt = $dbc -> stmtinit();
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   142
            if (is_object($stmt))
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   143
            {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   144
                if ($kid)  // UPDATE
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   145
                {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   146
                    $stmt -> prepare("UPDATE Keytyp SET
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   147
                                        key_level = ?,
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   148
                                        key_parent = ?,
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   149
                                        key_hiertyp_ID = ?,
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   150
                                        keytyp_bez = ?,
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   151
                                        key_anl_ID = ?
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   152
                                        WHERE keytyp_ID = '$kid'");                   
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   153
                    $stmt -> bind_param('sssss',$ky['level'],$ky['parent'],$ky['hier'],$ky['bez'],$ky['anl']);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   154
//                    echo "UPDATE: ". var_dump($stmt);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   155
                    $result = $stmt -> execute();
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   156
                    if ($stmt->error) echo "error UPDATE Keytyp: " . $stmt->error . "<br><br>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   157
                }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   158
                else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   159
                {
39
4ce411ed28b6 + Keytyp: delDepot, userVW; Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 38
diff changeset
   160
                    $stmt -> prepare("INSERT INTO Keytyp (keytyp_ID,key_level,key_parent,key_hiertyp_ID,keytyp_bez,key_anl_ID) VALUES(?,?,?,?,?,?)");
38
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   161
                    $stmt -> bind_param('ssssss',$ky['typ'],$ky['level'],$ky['parent'],$ky['hier'],$ky['bez'],$ky['anl']);
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   162
                    $result = $stmt -> execute();
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   163
                    if ($stmt->error) echo "error INSERT Keytyp: " . $stmt->error . "<br><br>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   164
                }  
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   165
                if ($result) // INSERT/UPDATE Keytyp
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   166
                {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   167
                    //Eingabe Daten erfolgreich 
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   168
                        echo "<p class='green'><b>Keytypdaten zu '" . $ky['typ']. "', Level = '". $ky['level'] . "' wurden erfolgreich gespeichert.</b></p>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   169
                        echo "<br /><br />\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   170
                }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   171
                else
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   172
                {
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   173
                        echo "<p class='red'><b>Keytypdaten zu '" . $ky['typ']. "', Level = '". $ky['level'] . "' konnten nicht gespeichert werden.</b></p>\n";
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   174
                        echo "<br /><br />\n";                
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   175
                }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   176
                include ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/keytyp_dat_show.inc.php");
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   177
            }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   178
              
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   179
        }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   180
        echo "</div>";
39
4ce411ed28b6 + Keytyp: delDepot, userVW; Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 38
diff changeset
   181
        echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"keytyp_search.php?$getp\" target=\"_self\" title=\"Schl&uuml;sseltyp-Hierarchie\">&laquo; zur Schl&uuml;sseltyp-Hierarchie</a></p>\n"; 
38
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   182
        echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"".$_SERVER["PHP_SELF"]."\" target=\"_self\" title=\"Schl&uuml;sseltyp erfassen\">Neuen Schl&uuml;sseltyp erfassen</a></p>\n";    
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   183
    }
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   184
?>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   185
</body>
45c139f74ea4 + Laborinfo; Keytyp-Verwaltung
schwarzer@hyperion.rz-berlin.mpg.de
parents:
diff changeset
   186
</html>