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