fhiiqm/inc/func_lib.inc.php
author Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
Thu, 12 Jul 2012 13:29:11 +0200
changeset 28 8d8bce56918f
parent 26 3c1e3ac7089f
child 29 72f79dab938e
permissions -rw-r--r--
+ Arbeitssicherheit, Listen, Reports, Korrekturen
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     1
<?php
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     2
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     3
/**
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     4
 * @author Bettina Schwarzer,  Fritz-Haber-Institut
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     5
 * @copyright 06/2011
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     6
 * 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     7
 * 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     8
 */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
     9
28
8d8bce56918f + Arbeitssicherheit, Listen, Reports, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 26
diff changeset
    10
    function tab_column($colnum=2,$bez,$sort,$dir,$fcol=0,$fanr=0,$filtb="",$start="",$anzds="25",$id="",$g=0)
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    11
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    12
      /** beliebige Tabellenspalte mit Sortier-/Filtersymbolen und Links generieren
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    13
        * Parameter
14
32203b8f40ee Rechteverwaltung II, vertrag_flist-Spaltenreihenfolge
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 13
diff changeset
    14
        * $colnum   SpaltenNr. in SELECT-Statement 
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    15
        * $bez      Spaltenbezeichnung
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    16
        * $sort     aktuelle SortspaltenNr.
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    17
        * $dir      Sortrichtung (ASC/DESC)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    18
        * $fcol     SpaltenNr. Filter (=0, wenn nicht gefiltert werden soll)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    19
        * $fanr     aktuelle FilterspaltenNr.
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    20
        * $filtb    Filterbegriff
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    21
        * $start    ab Datensatz $start+1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    22
        * $anzds    Anzahl angezeigter Datensaetze
28
8d8bce56918f + Arbeitssicherheit, Listen, Reports, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 26
diff changeset
    23
        * $id       fuer spezielle ID als zusaetzl. Filter (Laser-Log)
8d8bce56918f + Arbeitssicherheit, Listen, Reports, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 26
diff changeset
    24
        * $g        Gesamtansicht (rag-gefahr-massnahmen-vorsorge)
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    25
        */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    26
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    27
        if ($colnum == $sort)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    28
            if ($dir == 'DESC')
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    29
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    30
                $auf = "auf";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    31
                $ab = "ab_activ";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    32
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    33
            else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    34
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    35
                $auf = "auf_activ";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    36
                $ab = "ab";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    37
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    38
        else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    39
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    40
                $auf = "auf";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    41
                $ab = "ab";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    42
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    43
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    44
        if ($bez == "Haus") $tip = "Haus: A, B, C, D, E, F, FAB, HAR, K, L, M, N, P, Q, R, S, T, U"; else $tip = "Filter";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    45
        if ($fcol>0 && $fanr>0) // Filtern nach Spalte moeglich
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    46
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    47
            if ($fcol == $fanr) $filt = "filter_activ"; else $filt = "filter"; 
28
8d8bce56918f + Arbeitssicherheit, Listen, Reports, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 26
diff changeset
    48
            $filt = "&nbsp;<a href='".$_SERVER['PHP_SELF']."?f=$fcol&s=$sort&d=$dir&st=$start&z=$anzds&i=$id&g=$g'><img src='/fhiiqm/img/$filt.gif' border='0' width='14' hight='11' alt='$tip' title='$tip'></a>";
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    49
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    50
        else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    51
            $filt="";
28
8d8bce56918f + Arbeitssicherheit, Listen, Reports, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 26
diff changeset
    52
        if ($filtb>'!') $where = "&f=$fanr&b=$filtb&i=$id&g=$g"; else $where="&i=$id&g=$g";
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    53
        echo "<th>$bez&nbsp;<a href='".$_SERVER['PHP_SELF']."?s=$colnum$where&st=$start&z=$anzds'><img src='/fhiiqm/img/$auf.gif' border='0' width='11' hight='11' alt='sort aufsteigend' title='sort aufsteigend'></a>            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    54
                  <a href='".$_SERVER['PHP_SELF']."?s=$colnum&d=DESC$where&st=$start&z=$anzds'><img src='/fhiiqm/img/$ab.gif' border='0' width='11' hight='11' alt='sort absteigend' title='sort absteigend'></a>$filt</th>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    55
    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    56
    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    57
    function date_obj($jahr,$mon,$tag)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    58
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    59
       /** prueft auf valides Datum und erstellt DateTime-Objekt, wenn o.k.
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    60
        *  Voraussetzung: Klasse 'DateTime_s' ist included
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    61
        */  
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    62
        include_once ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    63
        if ($jahr && $mon && $tag)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    64
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    65
            $dat = $jahr."-".$mon."-".$tag;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    66
            // Datum valid?
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    67
            if (!$dat = new DateTime_s($dat)) $dat = null;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    68
        }    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    69
        else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    70
            $dat = null;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    71
        return $dat;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    72
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    73
    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    74
    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    75
    function liste_links($start,$zeil,$anz,$liste)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    76
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    77
       /** erstellt links zu Seiten einer Liste
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    78
         * Parameter
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    79
         * $start   Beginn bei DS $start+1 (1.DS -> $start=0)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    80
         * $zeil    Anzahl Zeilen pro Seite
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    81
         * $anz     Anzahl DS gesamt
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    82
         * $liste   weitere Inhalte fuer $_GET-Array
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    83
         */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    84
        $page = 1;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    85
        while (($page-1)*$zeil < $anz)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    86
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    87
            $be = ($page-1)*$zeil+1;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    88
            if (($page-1)*$zeil+$zeil < $anz) $en = ($page-1)*$zeil+$zeil; else $en = $anz;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    89
            $st = ($page-1)*$zeil;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    90
            if ($start == $be-1)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    91
                echo "$be - $en";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    92
            else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    93
                echo "<a href=\"" . $_SERVER['PHP_SELF'] . "?st=$st$liste\"  class=\"sc\">$be - $en</a>";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    94
            if (($page-1)*$zeil+$zeil < $anz) echo "<span class=\"sc\"> | </span>";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    95
            $page++;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    96
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    97
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    98
    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
    99
    
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   100
    function login($target, $headl="")
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   101
    {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   102
       /** zeigt Login-Form, prueft userid und passwort, leitet zu gewuenschter Seite weiter
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   103
        *   Parameter
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   104
        *   $target     Zieladresse
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   105
        *   $headl      Ueberschrift Loginform
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   106
        */
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   107
          
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   108
       session_start();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   109
       if ($_SESSION["userid"]) 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   110
        	{
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   111
        	header("Location: $target");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   112
        	exit;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   113
        	}
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   114
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   115
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   116
        
19
33ee23fafd4d + Anlage Pruefung, Anlage Risiko, Menue anpassen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 15
diff changeset
   117
        $login  = $_POST["login"];
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   118
        $log    = $_POST["log"];
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   119
        
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   120
        if ($login)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   121
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   122
        	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   123
        	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   124
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   125
            $stmt = $dbc -> stmtinit();
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   126
            if (is_object($stmt))
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   127
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   128
                $stmt -> prepare("SELECT userid, pwd FROM userweb WHERE userid = ?");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   129
                $stmt -> bind_param('s',$log["user"]);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   130
                $result = $stmt -> execute();
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   131
                // $stmt -> store_result();    // wegen weiterer query dies oder $stmt -> free_result();
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   132
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   133
            if ($result)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   134
            {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   135
                $stmt->bind_result($userid, $pwdmd5);
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   136
                if ($stmt->fetch()) 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   137
                {
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   138
                    if ($pwdmd5 == md5($log["pass"]) || $log["pass"]==null)
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   139
                    {
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   140
                        $_SESSION = array();
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   141
                        $_SESSION["userid"] = $userid;
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   142
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   143
                        // Recht
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   144
                        $stmt -> free_result(); // wegen weiterer query
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   145
                        $sql = "SELECT recht_ID FROM user_recht WHERE userid = '$userid'";
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   146
                        if ($res = $dbc -> queryObjectArray($sql))
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   147
                        {
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   148
                            $arecht = array();
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   149
                            foreach ($res as $row)
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   150
                            {    $arecht[] = $row->recht_ID;}
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   151
                            if (count($arecht)>0)
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   152
                                $_SESSION["recht"] = $arecht;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   153
                            else 
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   154
                                $_SESSION["recht"] = null;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   155
                        }
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   156
                        else 
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   157
                        {
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   158
                            $_SESSION["recht"] = null;
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   159
//                            echo "error_recht: " . $dbc->error . "<br />";
15
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   160
                        }
13
741b35e9ebbe Rechteverwaltung I
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 12
diff changeset
   161
//                        print_r($arecht);
15
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   162
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   163
                        // Recht Produkt-Gruppe
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   164
                        $sql = "SELECT prod_group_ID FROM user_prodgroup WHERE userid = '$userid'";   
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   165
                        if ($re = $dbc -> queryObjectArray($sql))
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   166
                        {
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   167
                            $pgrecht = array();
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   168
                            foreach ($re as $row)
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   169
                            {    $pgrecht[] = $row->prod_group_ID;}
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   170
                            if (count($pgrecht)>0)
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   171
                                $_SESSION["prodg"] = $pgrecht;
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   172
                            else 
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   173
                                $_SESSION["prodg"] = null;
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   174
                        }
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   175
                        else 
1ed6fbdf4237 +Rechte Produktgruppe
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 14
diff changeset
   176
                            $_SESSION["prodg"] = null;
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   177
                		header("Location: $target");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   178
                		exit;
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   179
                    }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   180
                    else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   181
                        $err2 = "<br /><span class=\"red\">Passwort ist nicht korrekt</span>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   182
                }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   183
                else
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   184
                    $err1 = "<br /><span class=\"red\">Username ist nicht korrekt</span>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   185
       
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   186
            }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   187
        }
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   188
        if ($err1 || $err2 || !$log)
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   189
        {
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   190
            ?>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   191
            <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   192
            <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   193
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   194
            <head>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   195
            	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   196
               	<link href="/fhiiqm/css/db.css" rel="STYLESHEET" type="TEXT/CSS" /> 
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   197
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   198
            	<title>Login fhiiqm</title>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   199
            </head>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   200
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   201
            <body onload="document.flogin.user.focus();">
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   202
            <!--    <div class="float-r"><img src="img/document_mark_as_final.png" border="0" alt="Vertr&auml;ge" title="Vertr&auml;ge"/></div> -->
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   203
            
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   204
            <?php
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   205
                include ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/form/login_form.inc.php");
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   206
            echo "</body>
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   207
            </html>\n";
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   208
        }    
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   209
    }
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   210
    
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   211
    function duplicate_record ($table, $key_name, $key_value, $auto=1) 
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   212
    {
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   213
       /** dupliziert Datensatz in table
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   214
        *   Parameter
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   215
        *   $table      Tabellenname
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   216
        *   $key_name   Name ID-Spalte
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   217
        *   $key_value  Wert ID des DSes, der dupliziert werden soll
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   218
        *   $auto       ID ist Auto-Wert
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   219
        */
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   220
         
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   221
    	include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   222
        global $dbc; // Verbindung ist schon da? 
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   223
    	if (!isset($dbc) || !$dbc) $dbc = new dbconnection();
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   224
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   225
        // erfragen Namen aller Felder in $table
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   226
        $sql = 'SHOW COLUMNS FROM ' . $table . ';';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   227
        $result = $dbc -> queryObjectArray($sql);
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   228
        
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   229
        // Generieren der INSERT-Abfrage mit allen Feldern ausser ID-Feld
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   230
        $query = 'INSERT INTO ' . $table . ' (SELECT ';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   231
        
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   232
        foreach ($result as $row) 
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   233
        {
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   234
            if ($row->Field == $key_name && $auto) {
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   235
            $query .= 'NULL, ';
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   236
            }
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   237
            elseif ($row->Field == $key_name && !$auto) 
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   238
                {$query .= '"'. $key_value . '_COPY", ';}
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   239
            else {
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   240
            $query .= $row->Field . ', ';
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   241
            } // END IF
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   242
        } 
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   243
        
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   244
        $query = substr($query, 0, strlen($query) - 2);
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   245
        $query .= ' FROM ' . $table . ' WHERE ' . $key_name . ' = "' . $key_value . '")';
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   246
//        echo "$query<br />";
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   247
        $ret = $dbc -> execute($query);
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   248
        if ($ret && $auto)
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   249
        { 
21
97dba0fe820c +Anlage-Vertrag, Form Laser
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 20
diff changeset
   250
            // Return new id
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   251
            $new_id = $dbc -> insertId();
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   252
            return $new_id;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   253
        }
22
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   254
        elseif ($ret && !$auto)
aae5b0ecc47b + Laser iud+copy, Laserliste, Rechte/Nutzer-Tab
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 21
diff changeset
   255
            return $key_value . "_COPY";
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   256
        else
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   257
            return false;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   258
/*
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   259
        return $query;
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   260
*/    
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   261
    }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   262
    
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   263
    function dbformat_wert($wert)
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   264
    {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   265
        /** wandelt Dezimalzahl mit Komma und Tausender-Trennzeichen in Datenbankformat
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   266
         * 
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   267
         * Parameter
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   268
         * $wert    -   zu konvertierende Zahl
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   269
         */
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   270
         
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   271
        if (isset($wert) && $wert<>0)
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   272
        {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   273
            if (strpos($wert,',') >0) 
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   274
            {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   275
                $wert = str_replace(',','.',$wert);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   276
                $aw = explode('.',$wert);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   277
                if (count($aw) > 2) // mit Dezimalpunkt und Tausendertrennzeichen
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   278
                {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   279
                    for ($i=0; $i<count($aw)-1; $i++)
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   280
                    {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   281
                        $dbw .= $aw[$i];
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   282
                    }    
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   283
                    $dbw .= "." .$aw[count($aw)-1];
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   284
                }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   285
                else // kein Dezimalpunkt,nur Kommastellen
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   286
                    $dbw = $wert;
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   287
            }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   288
            else
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   289
            {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   290
                $aw = explode('.',$wert);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   291
                if (strlen($aw[count($aw)-1]) == 2)
25
482252ff12fd + Prozesse edit, Liste; Reports Info, GVP
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 23
diff changeset
   292
                {   // Dezimalpunkt mit 2 Stellen danach (= .nn)
23
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   293
                    for ($i=0; $i<count($aw)-1; $i++)
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   294
                    {
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   295
                        $dbw .= $aw[$i];
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   296
                    }    
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   297
                    $dbw .= "." .$aw[count($aw)-1];
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   298
                }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   299
                else
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   300
                    $dbw = str_replace('.','',$wert);
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   301
            }    
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   302
            return $dbw;            
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   303
        }
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   304
        else
a382de56a8e4 + Laser-Log-List, edit Raum-Reinigung, insert/edit Kosten mit 1000-Trennz.eichen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 22
diff changeset
   305
            return 0;
20
5877137431e4 + Anlage duplizieren, Voreinstellungen edit, Korrekturen
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents: 19
diff changeset
   306
    } 
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   307
       
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   308
?>