fhiiqm/info_ed.php
author Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
Fri, 02 Mar 2012 13:54:32 +0100
changeset 24 15f33315f045
child 25 482252ff12fd
permissions -rw-r--r--
+ Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
24
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     1
<?php
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     2
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     3
/**
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     4
 * @author Bettina Schwarzer, Fritz-Haber-Institut
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     5
 * @copyright 02/2012
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     6
 *
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     7
 * INSERT,UPDATE Informationen Geschaeftverteilungsplan   
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     8
 */
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     9
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    10
    error_reporting(E_ALL ^ E_NOTICE);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    11
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    12
    session_start();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    13
    if (! isset($_SESSION["userid"]))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    14
    { 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    15
        include_once ("inc/func_lib.inc.php");	
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    16
        login($_SERVER["PHP_SELF"]);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    17
        exit;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    18
    }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    19
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    20
    if (is_null($_SESSION["recht"]) || (!is_null($_SESSION["recht"]) && !in_array("ir",$_SESSION["recht"]) && !in_array("ie",$_SESSION["recht"])))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    21
    {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    22
        header("Location: start.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    23
        exit;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    24
    }    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    25
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    26
    $ityp   = $_GET["t"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    27
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    28
    $infid  = $_GET["i"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    29
    $del    = $_POST["del"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    30
    $sub    = $_POST["eintragen"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    31
    $dup    = $_POST["dup"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    32
    if (!$dup) $dup = $_GET["d"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    33
    $copy   = $_GET["c"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    34
	$inf    = $_POST["inf"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    35
    $ok		= $_POST["ok"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    36
    if (!$inf["okn"]) $ok = false;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    37
    $duptext="";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    38
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    39
//    print_r($inf); echo "<br /><br />";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    40
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    41
	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    42
    include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/func_lib.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    43
	$dbc = new dbconnection();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    44
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    45
    if ($dup)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    46
    {   // Info duplizieren
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    47
        $tab = "Info";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    48
        $key = "info_ID";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    49
        $val =  $infid;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    50
//        $ret=1;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    51
        $ret = duplicate_record ($tab, $key, $val);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    52
        if ($ret)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    53
        { 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    54
            $infid_new=$ret;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    55
            // Infofilename loeschen
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    56
            $sql = "UPDATE fhiiqm.Info SET info_file = NULL WHERE info_ID = $infid_new";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    57
            $retf = $dbc -> execute($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    58
            if ($dbc->error) echo "<p  class='red'>error loeschen Info-File: " . $dbc->error . "</p>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    59
            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    60
            // duplizieren Produkte
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    61
            $sql = "INSERT INTO Info_Produkt SELECT $infid_new,produkt_ID FROM Info_Produkt WHERE info_ID = $infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    62
            $retp = $dbc -> execute($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    63
            if ($dbc->error) echo "<p  class='red'>error copy Info_Produkt: " . $dbc->error . "</p>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    64
            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    65
            // duplizieren Adressat
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    66
            $sql = "INSERT INTO Info_Adressat SELECT $infid_new,info_adr_ID FROM Info_Adressat WHERE info_ID = $infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    67
            $reta = $dbc -> execute($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    68
            if ($dbc->error) echo "<p  class='red'>error copy Info_Adressat: " . $dbc->error . "</p>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    69
            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    70
            // duplizieren Verantwortliche
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    71
            $sql = "INSERT INTO Info_Verantwortlich SELECT $infid_new,persknr,prioritaet FROM Info_Verantwortlich WHERE info_ID = $infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    72
            $retv = $dbc -> execute($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    73
            if ($dbc->error) echo "<p  class='red'>error copy Info_Verantwortlich: " . $dbc->error . "</p>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    74
            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    75
            if ($ret && $retf)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    76
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    77
                $addr = $_SERVER["PHP_SELF"] . "?i=$infid_new&c=1";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    78
                header("Location: $addr");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    79
                exit;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    80
            }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    81
            else $duptext = " - Fehler beim Duplizieren von ". $inf["iname"];    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    82
        }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    83
        else $duptext = " - Fehler beim Duplizieren von ". $inf["iname"];    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    84
    }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    85
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    86
?>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    87
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    88
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    89
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    90
<head>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    91
	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    92
   	<link href="css/db.css" rel="STYLESHEET" type="TEXT/CSS" media="screen"/> 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    93
   	<link href="css/db_print.css" rel="STYLESHEET" type="TEXT/CSS" media="print"/> 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    94
    <link type="text/css" href="/fhiiqm/css/jquery/ui-lightness/jquery-ui-1.8.16.custom.css" rel="Stylesheet" />	
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    95
    <script type="text/javascript" src="/fhiiqm/js/jquery/jquery-1.6.2.min.js"></script>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    96
    <script type="text/javascript" src="/fhiiqm/js/jquery/jquery-ui-1.8.16.custom.min.js"></script>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    97
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    98
	<title>Edit Informationen</title>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    99
</head>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   100
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   101
<body>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   102
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   103
    <script>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   104
      $(document).ready(function() {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   105
        $("#titel").focus();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   106
        $("#persknr").autocomplete({
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   107
                source: "/fhiiqm/inc/ma_list_ac.inc.php",
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   108
    			minLength: 2,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   109
                select: function(event,ui){$("#pid").val(ui.item.id);}
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   110
    		});
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   111
        $("#cdat").datepicker({
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   112
            dateFormat: 'yy-mm-dd', //nur Datum
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   113
            yearRange: '2000:2025',
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   114
            changeMonth: true,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   115
			changeYear: true,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   116
            firstDay: 1,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   117
            dayNamesMin: ['So','Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa' ],
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   118
            monthNamesShort: ['Jan','Feb','Mar','Apr','Mai','Jun','Jul','Aug','Sep','Okt','Nov','Dez'] 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   119
        });
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   120
        $("#vdat").datepicker({
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   121
            dateFormat: 'yy-mm-dd', //nur Datum
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   122
            yearRange: '2000:2025',
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   123
            changeMonth: true,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   124
			changeYear: true,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   125
            firstDay: 1,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   126
            dayNamesMin: ['So','Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa' ],
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   127
            monthNamesShort: ['Jan','Feb','Mar','Apr','Mai','Jun','Jul','Aug','Sep','Okt','Nov','Dez'] 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   128
        });
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   129
        $("#bdat").datepicker({
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   130
            dateFormat: 'yy-mm-dd', //nur Datum
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   131
            yearRange: '2000:2025',
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   132
            changeMonth: true,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   133
			changeYear: true,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   134
            firstDay: 1,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   135
            dayNamesMin: ['So','Mo', 'Di', 'Mi', 'Do', 'Fr', 'Sa' ],
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   136
            monthNamesShort: ['Jan','Feb','Mar','Apr','Mai','Jun','Jul','Aug','Sep','Okt','Nov','Dez'] 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   137
        });
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   138
        $("input").persknr("long20").addClass("long20");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   139
        $("input").cdat("long10").addClass("long10");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   140
        $("input").vdat("long10").addClass("long10");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   141
        $("input").bdat("long10").addClass("long10");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   142
        });
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   143
    </script>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   144
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   145
<?php
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   146
    echo "&nbsp;";  
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   147
    echo "<div class=\"float-br smaller\" valign='top'>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   148
    echo "&nbsp;&nbsp;&nbsp;user: " . $_SESSION["userid"];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   149
    echo "&nbsp;&nbsp;&nbsp;<a class='sc' href='/fhiiqm/logout.php' title='Session beenden'>logout</a></div>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   150
    echo "<div class=\"float-r\"><img src=\"img/document_image_ver.png\" border=\"0\" alt=\"Infodaten &auml;ndern\" title=\"Infodaten &auml;ndern\"/></div>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   151
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   152
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   153
    echo "<div align='center'>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   154
    if ($infid) $text = "editieren"; else $text = "erfassen";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   155
    if ($copy) $duptext = " (Kopie)";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   156
    echo "<h3>Information $text$duptext<h3>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   157
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   158
    echo "</div>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   159
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   160
    if (!$ok || (!$sub && !$del && !$dup))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   161
    {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   162
        if ($infid && (!$sub || !$del) && !isset($inf))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   163
        { // update
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   164
            $sql = "SELECT info_ID,info_name_s,info_name_l,info_date,info_valid_from,info_valid_to,infotyp_ID,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   165
                                i.persknr,lang,info_file,info_rel_ID,info_freigabe,info_sort, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   166
                                CONCAT(nachname,', ',vorname) AS aname 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   167
                                FROM fhiiqm.Info i LEFT OUTER JOIN fhiiqm.Mitarbeiter m 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   168
                                ON i.persknr=m.persknr 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   169
                                WHERE info_ID = $infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   170
            if ($result = $dbc -> queryObjectArray($sql))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   171
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   172
                foreach ($result as $row)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   173
                {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   174
                    $inf["infid"]   = $infid;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   175
                    $inf["iname"]   = $row->info_name_s;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   176
                    $inf["ilong"]   = $row->info_name_l;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   177
                    $inf["cdat"]    = $row->info_date;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   178
                    $inf["vdat"]    = $row->info_valid_from;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   179
                    $inf["bdat"]    = $row->info_valid_to;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   180
                    $inf["ityp"]    = $row->infotyp_ID;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   181
                    $inf["persknr"] = $row->aname;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   182
                    $inf["pers"]    = $row->persknr;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   183
                    $inf["infrel"]  = $row->info_rel_ID;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   184
                    $inf["ifname"]  = $row->info_file;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   185
                    $inf["lang"]    = $row->lang;     
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   186
                    $inf["sort"]    = $row->info_sort;     
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   187
                }            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   188
            }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   189
            // Produkt
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   190
            $sql = "SELECT produkt_ID FROM Info_Produkt WHERE info_ID = $infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   191
            if ($result = $dbc -> queryObjectArray($sql))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   192
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   193
                foreach ($result as $row)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   194
                {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   195
                    $inf['prid'][] = $row->produkt_ID;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   196
                }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   197
            }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   198
            // Adressat
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   199
            $sql = "SELECT info_adr_ID FROM Info_Adressat WHERE info_id = $infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   200
            if ($result = $dbc->queryObjectArray($sql))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   201
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   202
                foreach ($result as $row)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   203
                $inf["adr"][] = $row->info_adr_ID;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   204
            }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   205
            // Verantwortlicher
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   206
            $sql = "SELECT iv.persknr,prioritaet, CONCAT (nachname, ', ',vorname) 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   207
                    FROM Info_Verantwortlich iv INNER JOIN Mitarbeiter m ON iv.persknr=m.persknr
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   208
                    WHERE info_id = $infid
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   209
                    ORDER BY 3";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   210
            if ($result = $dbc->queryObjectArray($sql))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   211
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   212
                foreach ($result as $row)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   213
                {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   214
                    $inf["vpers"][] = $row->persknr;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   215
                    $inf["prio"][]  = $row->prioritaet;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   216
                }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   217
            }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   218
//    print_r($inf); echo "<br /><br />";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   219
            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   220
        }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   221
        include($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/form/info_form2.inc.php");     
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   222
        if ($sub)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   223
		{
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   224
            echo            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   225
            "<tr>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   226
        		<td>Upload Infodokument </td>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   227
        		<td><input type=\"file\" name=\"ifile\" size=\"50\" maxlength=\"50\" value=\"" .
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   228
            $_FILES["ifile"]["name"] . "\"/></td>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   229
            </tr>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   230
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   231
		}
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   232
        if ($sub || $del)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   233
		{
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   234
		  	if ($sub)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   235
                $frage = "Alle Angaben ok?";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   236
            elseif ($del)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   237
                $frage = "Information wirklich l&ouml;schen?";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   238
			echo "<tr>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   239
			  <td class=\"red\" valign=\"top\" align=\"left\">$frage</td>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   240
			        <td><input type=\"checkbox\" name=\"ok\" value=\"1\"";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   241
			        if ($ok)  echo "checked=\"checked\""; 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   242
			echo " /></td>\n</tr>\n"; 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   243
		}
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   244
        if (!is_null($_SESSION["recht"]) && in_array("ie",$_SESSION["recht"]))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   245
        {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   246
            echo "
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   247
           	<tr><td>&nbsp;</td>\n
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   248
            	<td><input  class=\"button\" type=\"submit\" name=\"eintragen\" value=\"  eintragen  \" />";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   249
            if ($infid)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   250
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   251
                echo "&nbsp;&nbsp;&nbsp;<input class=\"buttonr\" type=\"submit\" value=\"l&ouml;schen\" name=\"del\" title=\"delete\" />";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   252
                echo "&nbsp;&nbsp;&nbsp;<input class=\"button\" type=\"submit\" value=\"duplizieren\" name=\"dup\" title=\"delete\" />";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   253
            }    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   254
           	echo "</td></tr>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   255
        }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   256
        echo "</table>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   257
        echo "</div>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   258
//            if (!is_null($_SESSION["recht"]) && !in_array("le", $_SESSION["recht"]))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   259
            echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"info_flist.php\" target=\"_self\" title=\"Infoliste\">&laquo; zur Infoliste</a></p>\n"; 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   260
        echo "</form>\n";   
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   261
    }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   262
    else
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   263
    {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   264
        echo "<div align='center'>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   265
        
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   266
        if ($del)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   267
        {   // loescht auch m:n - Tabellen wegen Loeschweitergabe
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   268
            $sql = "DELETE FROM Info WHERE info_ID = '$infid'";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   269
            $retdi = $dbc -> execute($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   270
            if ($retdi)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   271
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   272
                include ("inc/file_upload.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   273
                $retdf  = mod_file("/var/www/fhiiqm/infos",$infid,"","del");  // Loeschen Dokument
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   274
                if ($retdf) echo "<p class='green'><b>Infodokument zu ID '$infid' wurde gel&ouml;scht.</b></p>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   275
                echo "<p class='green'><b>Infodaten zu ID '$infid' wurden gel&ouml;scht.</b></p>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   276
                echo "<br /><br />\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   277
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   278
                // Anzeigen geloeschter Infodaten
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   279
                if ($fname)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   280
                    $ifile = $infid . "_" . $fname;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   281
                else
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   282
                    $ifile = $inf['ifname'];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   283
                echo "<p class='green'><b>DELETE: Daten  zu '".$inf["iname"]."' wurden erfolgreich gel&ouml;scht.</b></p>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   284
                include ("inc/info_dat_show.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   285
            }                
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   286
            else
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   287
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   288
                echo "<p class='red'><b>DELETE: Daten  zu '".$inf["iname"]."' konnten nicht gel&ouml;scht werden!</b></p>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   289
                echo "sql = $sql<br />";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   290
                echo "error DELETE: " . $dbc->error . "<br />";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   291
            }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   292
        }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   293
        else //INSERT oder UPDATE
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   294
        {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   295
            //daten speichern
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   296
            $inf["iname"] = substr($inf["iname"],0,300);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   297
            $inf["ilong"] = substr($inf["ilong"],0,8000);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   298
            $inf["sort"] = substr($inf["sort"],0,5);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   299
            if ($inf["ityp"] == -1) $inf["ityp"] = null;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   300
            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   301
            if ($inf["persknr"] < "!") $inf["pers"] = null;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   302
            if ($inf["infrel"] == -1) $inf["infrel"] = null;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   303
            if ($inf["lang"] == -1) $inf["lang"] = null;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   304
            if ($inf["ifname"] < "!") $inf["ifname"] = null;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   305
            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   306
            if ($inf["cdat"] == "") $inf["cdat"] = null; 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   307
            if ($inf["vdat"] == "") $inf["vdat"] = null; 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   308
            if ($inf["bdat"] == "") $inf["bdat"] = null; 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   309
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   310
            if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   311
            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   312
            $stmt = $dbc -> stmtinit();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   313
            if (is_object($stmt))
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   314
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   315
                if ($infid)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   316
                {   //UPDATE
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   317
                    // alter Name Infofile
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   318
                    $sql = "SELECT info_file FROM Info WHERE info_ID = $infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   319
                    $ifile_old = $dbc -> querySingleItem($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   320
                    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   321
                    $stmt -> prepare("UPDATE fhiiqm.Info SET
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   322
                                info_name_s = ?, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   323
                                info_name_l = ?, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   324
                                info_date = ?, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   325
                                info_valid_from = ?, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   326
                                info_valid_to = ?, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   327
                                infotyp_ID = ?, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   328
                                persknr = ?, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   329
                                lang = ?,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   330
                                info_sort = ?, 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   331
                                info_rel_ID = ? WHERE info_ID = $infid");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   332
                    $stmt -> bind_param('sssssiissi',$inf["iname"],$inf["ilong"],$inf["cdat"],$inf["vdat"],$inf["bdat"],$inf["ityp"],$inf["pers"],$inf["lang"],$inf["sort"],$inf["infrel"]);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   333
                    $result = $stmt -> execute();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   334
                    if ($stmt->error) echo "error UPDATE Info: " . $stmt->error . "<br><br>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   335
                }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   336
                else
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   337
                {   //INSERT
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   338
                    $stmt -> prepare ("INSERT INTO Info (info_name_s,info_name_l,info_date,info_valid_from,info_valid_to,
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   339
                                infotyp_ID,persknr,lang,info_sort,info_rel_ID) VALUES (?,?,?,?,?,?,?,?,?,?)");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   340
                    $stmt -> bind_param('sssssiissi', $inf["iname"],$inf["ilong"],$inf["cdat"],$inf["vdat"],$inf["bdat"],$inf["ityp"],$inf["pers"],$inf["lang"],$inf["sort"],$inf["infrel"]);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   341
                    $result = $stmt -> execute();      
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   342
                
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   343
                    if ($stmt->error) echo "error INSERT Info: " . $stmt->error . "<br><br>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   344
                    if ($result)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   345
                    { // INSERT o.k.
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   346
                      // info_ID ermitteln
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   347
                        $infid = $dbc -> insertId();
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   348
                    }    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   349
                } 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   350
            }   // stmt-Objekt
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   351
            if ($result)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   352
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   353
                 // n:m Tabellen INSERT
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   354
                include ("inc/info_tab_ins.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   355
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   356
                // upload File
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   357
                if (is_uploaded_file($_FILES["ifile"]["tmp_name"]) && isset($_FILES["ifile"]["name"]) && $_FILES["ifile"]["name"] )
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   358
                {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   359
                    include ("inc/file_upload.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   360
                    $fname = gen_filename($inf['ifname'],"ifile",$infid);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   361
                    $retf   = upload("ifile", $fname, $infid, "infos");              // Datei prüfen und in Dokumentenverzeichnis verschieben
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   362
                    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   363
                    if ($retf)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   364
                    {   // upload o.k.
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   365
                        //UPDATE des Filenamens
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   366
                        $sql = "UPDATE Info SET info_file = '" . $infid . "_" . $fname ."' WHERE info_ID=$infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   367
                        $reti=$dbc->execute($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   368
                        if (!$reti) 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   369
                            echo $dbc -> error . "<br>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   370
                    }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   371
                   
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   372
                }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   373
                else
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   374
                {// nur Aenderung Dateiname
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   375
                    if ($inf["ifname"]) // Dateiname vergeben
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   376
                    {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   377
                        include ("inc/file_upload.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   378
                        $fname = gen_filename($inf["ifname"],$ifile_old,$infid,0);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   379
                        $len = strlen($infid)+1;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   380
                        if (substr($fname,0,$len) != "$infid" . "_") $fname = $infid . "_" . $fname;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   381
                        if ($inf["ifname"] != $ifile_old)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   382
                        {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   383
                            $retf  = mod_file("/var/www/fhiiqm/infos",$infid,$fname,"upd");  // Umbenennen alte Datei
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   384
                            if ($retf) 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   385
                            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   386
                                $sql = "UPDATE Info SET info_file = '" . $fname . "' WHERE info_ID=$infid";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   387
                                $reti=$dbc->execute($sql);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   388
                                if (!$reti) 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   389
                                    echo $dbc -> error . "<br>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   390
                                if (substr($fname,0,$len) == "$infid" . "_") $fname = substr($fname,$len,50);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   391
                            }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   392
                            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   393
                        }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   394
                        else
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   395
                        {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   396
                            //kein Upload, keine Dateinamenaenderung
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   397
                            if (substr($fname,0,$len) == "$infid" . "_") $fname = substr($fname,$len,50);
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   398
                            $retf=1; $reti=1;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   399
                        }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   400
                    }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   401
                    else // kein Dateiname angegeben
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   402
                    {$retf=1; $reti=1;}
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   403
                }
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   404
            }            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   405
            if ($result && $retf && $reti && $reta && $retp && $retv) // INSERT/UPDATE Info
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   406
            {
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   407
                //Eingabe Daten, Upload File erfolgreich 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   408
                    echo "<p class='green'><b>Infodaten zu ID '$infid' wurden erfolgreich gespeichert.</b></p>\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   409
                    echo "<br /><br />\n";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   410
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   411
                // Anzeigen gespeicherte Infodaten
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   412
                if ($fname)
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   413
                    $ifile = $infid . "_" . $fname;
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   414
                else
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   415
                    $ifile = $inf['ifname'];
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   416
                include ("inc/info_dat_show.inc.php");
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   417
            }            
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   418
        }   // INSERT / UPDATE
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   419
        echo "</div>";
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   420
        echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"info_flist.php\" target=\"_self\" title=\"Infoliste\">Infoliste</a></p>\n"; 
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   421
        echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"".$_SERVER["PHP_SELF"]."\" target=\"_self\" title=\"Info erfassen\">Weitere Info erfassen</a></p>\n";    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   422
        
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   423
    }   // Form o.k. und submit
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   424
?>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   425
    
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   426
</body>
15f33315f045 + Info GVP, Raum-Reinigung, Vertrag: Email vor Ende, Test Hierarchie
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   427
</html>