fhiiqm/test/tab_info_ed.php
author Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
Fri, 16 Nov 2012 10:40:03 +0100
changeset 32 c2d325791e24
parent 31 0a1eb975fbd9
permissions -rw-r--r--
+ Mitarbeiter - Telefon
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 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
 * info_ed.php fuer tab
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
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    11
    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
    12
    header('Content-type: text/html; charset="iso-8859-1',true);    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    13
    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    14
    session_start();
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    15
    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
    16
    { 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    17
        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
    18
        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
    19
        exit;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    20
    }
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
    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
    23
    {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    24
        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
    25
        exit;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    26
    }    
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
    $ityp   = $_GET["t"];
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
    $infid  = $_GET["i"];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    31
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    32
    $zeil = $_GET["z"];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    33
    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
    34
    $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
    35
    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
    36
	$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
    37
    $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
    38
    $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
    39
    $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
    40
    // $_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
    41
    $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
    42
    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    43
    $del    = $_POST["del"];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    44
    $sub    = $_POST["eintragen"];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    45
    $dup    = $_POST["dup"];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    46
    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
    47
    $copy   = $_GET["c"];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    48
	$inf    = $_POST["inf"];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    49
    $ok		= $_POST["ok"];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    50
    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
    51
    $duptext="";
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
    52
    if (!$infid) $infid = $inf['infid'];
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    53
    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    54
//    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
    55
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    56
	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
    57
    include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/func_lib.inc.php");
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
    58
	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    59
    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    60
    if ($dup)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    61
    {   // Info duplizieren
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    62
        $tab = "Info";
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    63
        $key = "info_ID";
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    64
        $val =  $infid;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    65
//        $ret=1;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    66
        $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
    67
        if ($ret)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    68
        { 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    69
            $infid_new=$ret;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    70
            // Infofilename loeschen
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    71
            $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
    72
            $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
    73
            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
    74
            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    75
            // duplizieren Produkte
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    76
            $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
    77
            $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
    78
            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
    79
            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    80
            // duplizieren Adressat
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    81
            $sql = "INSERT INTO Info_Adressat SELECT $infid_new,info_adr_ID FROM Info_Adressat 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
    82
            $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
    83
            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
    84
            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    85
            // duplizieren Verantwortliche
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    86
            $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
    87
            $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
    88
            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
    89
            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    90
            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
    91
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    92
                $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
    93
                header("Location: $addr");
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    94
                exit;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    95
            }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    96
            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
    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
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
    <script>
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   103
        function split( val ) {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   104
        	return val.split( /;\s*/ );
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   105
        }
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   106
        function extractLast( term ) {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   107
        	return split( term ).pop();
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   108
        }
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   109
      $(document).ready(function() {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   110
        $("#titel").focus();
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   111
        $("#persknr").autocomplete({
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   112
                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
   113
    			minLength: 2,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   114
                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
   115
    		});
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   116
        $("#vpers")
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   117
                .bind( "keydown", function( event ) {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   118
				if ( event.keyCode === $.ui.keyCode.TAB &&
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   119
						$( this ).data( "autocomplete" ).menu.active ) {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   120
					event.preventDefault();
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   121
                    alert ("bind: "+event.keyCode);
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   122
				    }
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   123
                })
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   124
                .autocomplete({
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   125
//              source: "/fhiiqm/inc/ma_list_ac.inc.php",
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   126
//              minLength: 2,
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   127
//              select: function(event,ui){$("#pid").val(ui.item.id);}
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   128
				source: function( request, response ) {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   129
					$.getJSON( "/fhiiqm/inc/ma_list_ac.inc.php", {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   130
						term: extractLast( request.term )
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   131
					}, response );
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   132
				},				
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   133
                focus: function() {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   134
					// prevent value inserted on focus
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   135
					return false;
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   136
				},
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   137
				select: function( event, ui ) {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   138
                    if (this.value.length < 6)  // zuvor Feld-id 'vpers' geleert und bis zu 5 Zeichen eingegeben 
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   139
                    {   $("#vpid").val("");
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   140
//                        alert ("change2: "+ui.item.value+", vpid = "+ $("#vpid").val());
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   141
                    }
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   142
					var terms = split( this.value );
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   143
//                    alert ("eingabe: "+terms+ ", ids="+idstr.valueOf());
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   144
//                    alert ("eingabe: "+terms+ ", ids="+$("#vpid").val());
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   145
					// remove the current input
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   146
					terms.pop();
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   147
					// add the selected item
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   148
					terms.push( ui.item.value );
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   149
					// add placeholder to get the comma-and-space at the end
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   150
					terms.push( "" );
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   151
//                    alert ("select: "+terms+ ", ids = "+$("#vpid").val());
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   152
					this.value = terms.join( "; " );
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   153
                    
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   154
                    var ids = $("#vpid").val().split(",");
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   155
                    ids.push(ui.item.id);
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   156
                    ids.join(",");
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   157
//                    alert ("ids = "+ids);
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   158
                    $("#vpid").val(ids);
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   159
					return false;
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   160
				},
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   161
                change: function(event, ui){
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   162
//                        alert ("change1: ui.item.id = "+ ui.item.id);
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   163
                },
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   164
				search: function() {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   165
					// custom minLength
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   166
					var term = extractLast( this.value );
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   167
					if ( term.length < 2 ) {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   168
						return false;
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   169
					}
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   170
                }    		
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   171
                });
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   172
        $("#cdat").datepicker({
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   173
            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
   174
            yearRange: '2000:2025',
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   175
            changeMonth: true,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   176
			changeYear: true,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   177
            firstDay: 1,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   178
            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
   179
            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
   180
        });
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   181
        $("#vdat").datepicker({
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   182
            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
   183
            yearRange: '2000:2025',
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   184
            changeMonth: true,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   185
			changeYear: true,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   186
            firstDay: 1,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   187
            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
   188
            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
   189
        });
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   190
        $("#bdat").datepicker({
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   191
            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
   192
            yearRange: '2000:2025',
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   193
            changeMonth: true,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   194
			changeYear: true,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   195
            firstDay: 1,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   196
            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
   197
            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
   198
        });
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   199
        $("input[id='persknr']").addClass("long20");
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   200
        $("input[id='cdat']").addClass("long10");
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   201
        $("input[id='vdat']").addClass("long10");
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   202
        $("input[id='bdat']").addClass("long10");
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   203
        });
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   204
    </script>
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   205
<?php
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   206
    echo "&nbsp;";  
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   207
    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
   208
    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
   209
    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
   210
    echo "<div class=\"float-r\"><img src=\"/fhiiqm/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
   211
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   212
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   213
    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
   214
    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
   215
    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
   216
    echo "<h3>Information $text$duptext<h3>";
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
    echo "</div>\n";
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 (!$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
   221
    {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   222
        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
   223
        { // update
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   224
            $sql = "SELECT info_ID,info_name_s,info_name_l,info_date,info_valid_from,info_valid_to,infotyp_ID,
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   225
                                i.persknr,lang,info_file,info_rel_ID,info_freigabe_ID,info_sort,info_sort,betrag, 
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   226
                                CONCAT(nachname,', ',vorname) AS aname 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   227
                                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
   228
                                ON i.persknr=m.persknr 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   229
                                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
   230
            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
   231
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   232
                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
   233
                {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   234
                    $inf["infid"]   = $infid;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   235
                    $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
   236
                    $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
   237
                    $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
   238
                    $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
   239
                    $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
   240
                    $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
   241
                    $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
   242
                    $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
   243
                    $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
   244
                    $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
   245
                    $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
   246
                    $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
   247
                    $inf["sort"]    = $row->info_sort;     
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   248
                    $inf["betr"]    = str_replace('.',',',$row->betrag);     
29
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
            // Adressat
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   261
            $sql = "SELECT info_adr_ID FROM Info_Adressat 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
   262
            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
   263
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   264
                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
   265
                $inf["adr"][] = $row->info_adr_ID;
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
            // Verantwortlicher
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   268
            $sql = "SELECT iv.persknr,prioritaet, CONCAT (nachname, ', ',vorname) as ma 
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   269
                    FROM Info_Verantwortlich iv INNER JOIN Mitarbeiter m ON iv.persknr=m.persknr
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   270
                    WHERE info_id = $infid
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   271
                    ORDER BY 3";
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   272
            if ($result = $dbc->queryObjectArray($sql))
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   273
            {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   274
                foreach ($result as $row)
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   275
                {
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   276
                    $inf["vpers"] .= $row->ma . "; ";
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   277
                    $inf["vpn"]  .= $row->persknr .",";   
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   278
//                    $inf["prio"][]  = $row->prioritaet;
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   279
                    $inf["prio"][$row->persknr]  = $row->prioritaet;
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   280
                }
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   281
                $inf["vpn"] = substr($inf["vpn"],0,strlen($inf["vpn"])-1);
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   282
            }
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   283
/*
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   284
            $sql = "SELECT iv.persknr,prioritaet, CONCAT (nachname, ', ',vorname) 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   285
                    FROM Info_Verantwortlich iv INNER JOIN Mitarbeiter m ON iv.persknr=m.persknr
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   286
                    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
   287
                    ORDER BY 3";
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   288
            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
   289
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   290
                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
   291
                {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   292
                    $inf["vpers"][] = $row->persknr;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   293
//                    $inf["prio"][]  = $row->prioritaet;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   294
                    $inf["prio"][$row->persknr]  = $row->prioritaet;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   295
                }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   296
            }
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   297
*/
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   298
//    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
   299
            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   300
        }
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   301
        echo "<div>";
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   302
        include($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/form/info_form3.inc.php");     
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   303
        if ($sub)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   304
		{
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   305
            echo            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   306
            "<tr>
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   307
        		<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
   308
        		<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
   309
            $_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
   310
            </tr>";
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
		}
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   313
        if ($sub || $del)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   314
		{
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   315
		  	if ($sub)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   316
                $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
   317
            elseif ($del)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   318
                $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
   319
			echo "<tr>
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   320
			  <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
   321
			        <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
   322
			        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
   323
			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
   324
		}
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   325
        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
   326
        {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   327
            echo "
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   328
           	<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
   329
            	<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
   330
            if ($infid)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   331
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   332
                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
   333
                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
   334
            }    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   335
           	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
   336
        }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   337
        echo "</table>\n";
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   338
        echo "</div>\n";
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   339
//            if (!is_null($_SESSION["recht"]) && !in_array("le", $_SESSION["recht"]))
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   340
        echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"".$_SERVER["PHP_SELF"]."\" target=\"_self\" title=\"Info erfassen\">Weitere Info erfassen</a></p>\n";    
30
d02d02efc55a + tab-Test, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 29
diff changeset
   341
        echo "</form>\n";
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   342
        echo "</div>\n";
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 "<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
   347
        
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   348
        if ($del)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   349
        {   // 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
   350
            $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
   351
            $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
   352
            if ($retdi)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   353
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   354
                include ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/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
   355
                $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
   356
                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
   357
                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
   358
                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
   359
    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   360
                // Anzeigen geloeschter Infodaten
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   361
                if ($fname)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   362
                    $ifile = $infid . "_" . $fname;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   363
                else
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   364
                    $ifile = $inf['ifname'];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   365
                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
   366
                include ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/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
   367
            }                
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   368
            else
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   369
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   370
                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
   371
                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
   372
                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
   373
            }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   374
        }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   375
        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
   376
        {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   377
            //daten speichern
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   378
            $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
   379
            $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
   380
            $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
   381
            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
   382
            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   383
            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
   384
            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
   385
            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
   386
            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
   387
            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   388
            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
   389
            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
   390
            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
   391
            if ($inf["fg"] == -1) $inf["fg"] = null;
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   392
            if (isset($inf['betr']) && $inf['betr']) $betrag = dbformat_wert($inf['betr']); else $betrag = null;   
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   393
    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   394
            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
   395
            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   396
            $stmt = $dbc -> stmtinit();
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   397
            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
   398
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   399
                if ($infid)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   400
                {   //UPDATE
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   401
                    // alter Name Infofile
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   402
                    $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
   403
                    $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
   404
                    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   405
                    $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
   406
                                info_name_s = ?, 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   407
                                info_name_l = ?, 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   408
                                info_date = ?, 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   409
                                info_valid_from = ?, 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   410
                                info_valid_to = ?, 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   411
                                infotyp_ID = ?, 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   412
                                persknr = ?, 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   413
                                lang = ?,
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   414
                                info_freigabe_ID = ?, 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   415
                                info_sort = ?, 
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   416
                                info_rel_ID = ?, 
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   417
                                betrag = ?  WHERE info_ID = $infid");
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   418
                    $stmt -> bind_param('sssssiisisid',$inf["iname"],$inf["ilong"],$inf["cdat"],$inf["vdat"],$inf["bdat"],$inf["ityp"],$inf["pers"],$inf["lang"],$inf["fg"],$inf["sort"],$inf["infrel"],$betrag);
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   419
                    $result = $stmt -> execute();
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   420
                    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
   421
                }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   422
                else
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   423
                {   //INSERT
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   424
                    $stmt -> prepare ("INSERT INTO Info (info_name_s,info_name_l,info_date,info_valid_from,info_valid_to,
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   425
                                infotyp_ID,persknr,lang,info_freigabe_ID,info_sort,info_rel_ID,betrag) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)");
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   426
                    $stmt -> bind_param('sssssiisisid', $inf["iname"],$inf["ilong"],$inf["cdat"],$inf["vdat"],$inf["bdat"],$inf["ityp"],$inf["pers"],$inf["lang"],$inf["fg"],$inf["sort"],$inf["infrel"],$betrag);
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   427
                    $result = $stmt -> execute();      
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   428
                
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   429
                    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
   430
                    if ($result)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   431
                    { // INSERT o.k.
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   432
                      // info_ID ermitteln
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   433
                        $infid = $dbc -> insertId();
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   434
                    }    
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   435
                } 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   436
            }   // stmt-Objekt
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   437
            if ($result)
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
                 // 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
   440
                include ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/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
   441
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   442
                // upload File
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   443
                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
   444
                {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   445
                    include ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/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
   446
                    $fname  = gen_filename($inf['ifname'],"ifile",$infid);
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   447
                    $retdf  = mod_file("/var/www/fhiiqm/infos",$infid,"","del");        // Loeschen alte Datei
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   448
                    $retf   = upload("ifile", $fname, $infid, "/var/www/fhiiqm/infos"); // Datei prüfen und in Dokumentenverzeichnis (vollstaendiger Pfad)) verschieben
29
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
                    if ($retf)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   451
                    {   // upload o.k.
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   452
                        //UPDATE des Filenamens
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 = '" . $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
   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
                    }
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
                else
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   461
                {// nur Aenderung Dateiname
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   462
                    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
   463
                    {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   464
                        include ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/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
   465
                        $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
   466
                        $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
   467
                        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
   468
                        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
   469
                        {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   470
                            $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
   471
                            if ($retf) 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   472
                            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   473
                                $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
   474
                                $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
   475
                                if (!$reti) 
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   476
                                    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
   477
                                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
   478
                            }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   479
                            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   480
                        }
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
                        {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   483
                            //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
   484
                            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
   485
                            $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
   486
                        }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   487
                    }
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   488
                    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
   489
                    {$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
   490
                }
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
            if ($result && $retf && $reti && $reta && $retp && $retv) // INSERT/UPDATE Info
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   493
            {
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   494
                //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
   495
                    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
   496
                    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
   497
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   498
                // Anzeigen gespeicherte Infodaten
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   499
                if ($fname)
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   500
                    $ifile = $infid . "_" . $fname;
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   501
                else
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   502
                    $ifile = $inf['ifname'];
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   503
                include ($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/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
   504
            }            
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   505
        }   // INSERT / UPDATE
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   506
        echo "</div>";
31
0a1eb975fbd9 + Raumverantwortliche
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 30
diff changeset
   507
//        echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"/fhiiqm/info_flist.php?$getp\" target=\"_self\" title=\"Infoliste\">Infoliste</a></p>\n"; 
29
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   508
        echo "<p class='sc'>&nbsp;&nbsp;&nbsp;<a href=\"".$_SERVER["PHP_SELF"]."\" target=\"_self\" title=\"Info erfassen\">Weitere Info 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
   509
        
72f79dab938e + Infotyp 7,8,81, Info-Report, Reports AS, Menu anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   510
    }   // 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
   511
?>