fhiiqm/vertrag_flist1.php
author Bettina Schwarzer
Fri, 05 Feb 2016 14:03:40 +0100
changeset 44 d652bbba2d43
parent 43 70cea8f0e807
permissions -rw-r--r--
fhiiqm: achilleus -> db2, Korrekturen
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
43
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     1
<?php
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     2
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     3
/**
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     4
 * @author Bettina Schwarzer, Fritz-Haber-Institut
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     5
 * @copyright 7/2011
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     6
 * 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     7
 * Liste Vertragsdaten mit Sortierung und Filter
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     8
 */
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
     9
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    10
    error_reporting(E_ALL ^ E_NOTICE);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    11
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    12
    session_start();
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    13
    if (! isset($_SESSION["userid"]))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    14
    { 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    15
        include_once ("inc/func_lib.inc.php");	
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    16
        login("vertrag_flist1.php?g=1");
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    17
        exit;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    18
    }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    19
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    20
    if (is_null($_SESSION["recht"]) || (!is_null($_SESSION["recht"]) && !in_array("vr",$_SESSION["recht"]) && !in_array("ve",$_SESSION["recht"])))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    21
    {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    22
        header("Location: start.php");
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    23
        exit;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    24
    }    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    25
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    26
?>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    27
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    28
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    29
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    30
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    31
<head>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    32
	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    33
   	<link href="/fhiiqm/css/db.css" rel="STYLESHEET" type="TEXT/CSS" media="screen" /> 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    34
   	<link href="/fhiiqm/css/db_print.css" rel="STYLESHEET" type="TEXT/CSS" media="print" /> 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    35
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    36
	<title>Liste Vertragsdaten</title>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    37
    <script type="text/javascript">
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    38
        function winopen (addr,title) 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    39
        {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    40
          mywin = window.open(addr,title, "width=1400,height=700,left=400,top=300,menubar=yes,status=yes,scrollbars=yes,resizable=yes,toolbar=yes");
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    41
          mywin.focus();
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    42
        }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    43
    </script>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    44
</head>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    45
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    46
<body onload="document.ffilter.filter.focus();">
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    47
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    48
<?php
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    49
    echo "&nbsp;";  
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    50
    echo "<div class=\"float-br smaller\" valign='top'>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    51
    echo "&nbsp;&nbsp;&nbsp;user: " . $_SESSION["userid"];
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    52
    echo "&nbsp;&nbsp;&nbsp;<a class='sc' href='/fhiiqm/logout.php' title='Session beenden'>logout</a></div>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    53
    echo "<div class=\"float-r\">&nbsp;&nbsp;&nbsp;<img src=\"img/document_mark_as_final.png\" border=\"0\" alt=\"Vertr&auml;ge\" title=\"Vertr&auml;ge\"/></div>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    54
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    55
    $mfile = $_GET['g']; // Multifile = mehrere Vertragsdokumente moeglich
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    56
    if (!$mfile) $mfile = $_POST['g']; 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    57
    $zeil = $_GET["z"];
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    58
    if (!$zeil) $zeil = $_POST["z"];
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    59
    if (!$zeil) $zeil = 20; // Anzahl der gezeigten Zeilen
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    60
    $start = $_GET["st"];   // Start bei DS $start+1
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    61
    if (!$start) $start=0;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    62
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    63
    // Felder, nach denen gefiltert werden kann
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    64
    $fields = array(2=>"Bezeichnung",4=>"Bearbeiter",6=>"Vertragstyp",7=>"Produkt",8=>"Partner");
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    65
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    66
	$sort   = $_GET["s"];   // Sortierung nach Spalte
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    67
    if (!isset($sort) && !$sort) $sort = $_POST["s"];      
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    68
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    69
    $dir    = $_GET["d"];   // Sortierrichtung
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    70
    if (!isset($dir) && !$dir) $dir = $_POST["d"];
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    71
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    72
    $fnum   = $_GET["f"];   // Spaltennummer, nach der aktuell gefiltert wird
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    73
    if (!isset($fnum) && !$fnum) $fnum = $_POST["f"];
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    74
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    75
    $filter = $_POST["filter"];
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    76
    if (!isset($filter) && !$filter) $filter = $_GET["b"];   
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    77
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    78
    $subf   = $_POST["subf"]; // submit
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    79
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    80
    if (!isset($fnum) || !$fnum) $fnum = 1;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    81
    if (!isset($sort) || !$sort) $sort = 2;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    82
    if (!isset($dir) || !$dir)  $dir = "";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    83
    // $_GET-Parameter zurueck zur Vertragliste mit den selben Einstellungen wie zuvor fuer Update
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    84
    $getp = "s=$sort&d=$dir&f=$fnum&b=$filter&st=$start&z=$zeil&g=$mfile";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    85
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    86
    // Recht Produktgruppe beruecksichtigen
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    87
    if (is_array($_SESSION["prodg"]))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    88
    {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    89
            foreach ($_SESSION["prodg"] as $val)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    90
                $listg .= "," .$val;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    91
            $listg = substr($listg,1);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    92
    }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    93
    else $listg = "";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    94
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    95
//    echo "sort=$sort, fnum=$fnum, filter=$filter <br />";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    96
    include_once($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/dbconnect.inc.php");
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    97
    include_once ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/inc/func_lib.inc.php");
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    98
	$dbc = new dbconnection();
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
    99
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   100
    echo "<div align='center'>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   101
//echo "$sort, $dir, $fnum, $filter<br><br>\n";    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   102
//    $sql = "CALL fhiiqm.vertrag_flist1(" . $sort . ",'" . $dir . "', " . $fnum . ", '" . $filter . "',$start,$zeil, @anz)";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   103
    if ($mfile)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   104
        $sql = "CALL fhiiqm.vertrag_flist1_mf(" . $sort . ",'" . $dir . "', " . $fnum . ", '" . $filter . "', '" . $listg . "', $start,$zeil, @anz)";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   105
    else
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   106
        $sql = "CALL fhiiqm.vertrag_flist1_1(" . $sort . ",'" . $dir . "', " . $fnum . ", '" . $filter . "', '" . $listg . "', $start,$zeil, @anz)";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   107
    // Parameter: Nr. Sortfelf, Sortierrichtung, Nr. Filterfeld, Filterbegriff, Liste der berechtigten prodgroup, Start bei DS $start+1, Anzahl DS/Seite, Anzahl gefundener Vertraege
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   108
    // liefert Felder: contract_ID,cname,clong,bearb,doc,typ,prod
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   109
    $result = $dbc -> queryObjectArray($sql);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   110
    if ($result)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   111
    {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   112
		$bg1 = "#F8F8F8";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   113
		$bg2 = "#DEDFE1";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   114
		$bg = "#FFFFFF";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   115
        
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   116
        $heute = new DateTime();
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   117
        
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   118
        $vanz = $dbc -> querySingleItem("SELECT @anz");
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   119
        
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   120
        echo "<p><b>Vertr&auml;ge - &Uuml;bersicht</b></p>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   121
        echo "<table border='0' cellspacing='0'>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   122
        echo "<tr><td class='bigger'>Mittels '<img src='/fhiiqm/img/auf.gif' border='0' width='11' hight='11' />' / '<img src='/fhiiqm/img/ab.gif' border='0' width='11' hight='11' />' 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   123
            können Sie nach jeder Spalte auf- bzw. absteigend sortieren</td></tr>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   124
            <tr><td class='bigger'>'<img src='/fhiiqm/img/filter.gif' border='0' width='14' hight='11' />' erm&ouml;glicht das Filtern nach ausgew&auml;hlten Spalten der Liste</td></tr>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   125
            <tr><td class='bigger'>Klick auf '<img src='/fhiiqm/img/edit.gif' border='0' hight='11'>' - Bearbeiten der Vertragsdaten, 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   126
            '<img src='/fhiiqm/img/file_extension_xls.png' border='0' hight='11'>' - Excel-Export</td></tr>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   127
        echo "</table>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   128
        printf ("<p>Anzahl Vertr&auml;ge: %s </p>", $vanz);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   129
        echo "</div>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   130
        echo "<p>&nbsp;&nbsp;&nbsp;<a href=\"/fhiiqm/vertrag_flist12.php?$getp\" class=\"sc\" title=\"Vertragliste 2\" onclick=\"winopen(this.href,'Vertragsliste 2'); return false\">Vertr&auml;ge Teil 2</a></p>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   131
        echo "<div align='center'>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   132
        
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   133
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   134
        if (isset($fnum) && $fnum>1 && !$filter && !$subf)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   135
        {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   136
            // Formular anzeigen fuer Filterbegriff
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   137
            $text = $fields[$fnum];
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   138
            $azeil = array(10=>'10',20=>'20',25=>'25',50=>'50',100=>'100',9999=>'alle'); // Anzahl gezeigter rows
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   139
            echo "<form action=" . $_SERVER['PHP_SELF'] . " method='post' enctype='application/x-www-form-urlencoded' id='ffilter' name='ffilter' target='_self'>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   140
            echo "<input type='hidden' name='s' value='$sort'>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   141
            echo "<input type='hidden' name='d' value='$dir'>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   142
            echo "<input type='hidden' name='f' value='$fnum'>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   143
            echo "<input type='hidden' name='g' value='$mfile'>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   144
            echo "<table width=\"40%\" border=\"0\">\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   145
            echo "<tr><td>filtern nach $text: </td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   146
            echo "<td><input id='filter' name='filter' type=\"text\" size=\"30\" maxlength=\"30\" value=\"$filter\"";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   147
            if ($fnum == 6)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   148
            {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   149
                $sql = "SELECT vtyp_kurz, vtyp_bezeichnung FROM Vertrag_Typ ORDER BY 1";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   150
                if ($res = $dbc->queryObjectArray($sql))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   151
                {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   152
                    foreach ($res as $row)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   153
                       $title .= ", " . $row->vtyp_kurz." - ".$row->vtyp_bezeichnung; 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   154
                    echo "title='".substr($title,2)."' ";            
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   155
                }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   156
            }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   157
            echo "/></td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   158
            echo "<td>Zeilen/Seite?   <select name='z'>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   159
            foreach ($azeil as $key=>$val)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   160
            {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   161
                if ($key == $zeil) $select = "selected"; else $select = "";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   162
                echo "<option $select value='$key'>$val</option>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   163
            }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   164
            echo "</select></td>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   165
            echo "<td><input class=\"button\" type=\"submit\" value=\"finden\" name=\"subf\" title=\"subf\" /></td></tr></table>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   166
            echo "</form>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   167
            echo "<p>&nbsp;&nbsp;&nbsp;</p>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   168
        }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   169
        echo "<table width='99%'>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   170
        
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   171
        if ($filter>'!') echo "<tr><td class='bigger' colspan=6>Filter: ". $fields["$fnum"] . " wie '$filter'</td><tr>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   172
//        echo "<tr bgcolor='#CFDEF0'><th>Bezeichnung</th><th>Titel</th><th>Beschreibung</th><th>Typ</th><th>Beginn</th><th>Ende</th><th>K&uuml;nd.frist(mon)</th>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   173
//                <th>Dokument</th><th>Bemerkung</th><th>&nbsp;</th></tr>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   174
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   175
        echo "<tr bgcolor='#68ACBF'>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   176
        tab_column(8,"Partner",$sort,$dir,8,$fnum,$filter,$start,$zeil,"",$mfile);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   177
        tab_column(2,"Bezeichnung",$sort,$dir,2,$fnum,$filter,$start,$zeil,"",$mfile);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   178
        tab_column(3,"Beschreibung",$sort,$dir,0,$fnum,$filter,$start,$zeil,"",$mfile);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   179
        tab_column(6,"Typ",$sort,$dir,6,$fnum,$filter,$start,$zeil,"",$mfile);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   180
        tab_column(7,"zu Produkt",$sort,$dir,7,$fnum,$filter,$start,$zeil,"",$mfile);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   181
        tab_column(4,"Bearbeiter",$sort,$dir,4,$fnum,$filter,$start,$zeil,"",$mfile);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   182
        if ($mfile)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   183
            tab_column(5,"Dokument, Schlagwort",$sort,$dir,5,$fnum,$filter,$start,$zeil,"",$mfile);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   184
        else
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   185
            tab_column(5,"Dokument",$sort,$dir,0,$fnum,$filter,$start,$zeil);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   186
        echo "<th>&nbsp;</th></tr>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   187
        foreach ($result as $row)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   188
        {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   189
			if ($bg == $bg1) $bg = $bg2; else $bg = $bg1;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   190
            echo "<tr bgcolor='" . $bg . "'>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   191
            echo "<td>$row->partfirma</td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   192
            if ($row->cend)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   193
            {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   194
                $ce = new DateTime($row->cend);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   195
                if ((!$row->cauto || is_null($row->cauto)) && $heute > $ce) $class="class='red'"; else $class="";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   196
            }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   197
            else $class="";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   198
            echo "<td width='17%' $class><b>$row->cname<br /></b></td>";    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   199
//            echo "<td>$row->contract_s</td>";    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   200
            echo "<td width='22%'>" . nl2br($row->clong) . "</td>";    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   201
            echo "<td>$row->typ</td>";    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   202
            echo "<td>$row->prod</td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   203
            echo "<td>$row->bearb</td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   204
            if ($mfile)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   205
            {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   206
                $docsw = explode("; ", $row->doc);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   207
                if (isset($docsw) && is_array($docsw))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   208
                {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   209
                    echo "<td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   210
                    foreach ($docsw as $val)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   211
                    {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   212
                        $file = substr($val,0,strpos($val,'|'));
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   213
                        $sw   = substr($val,strpos($val,'|')+1);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   214
                        if ($fnum == 5 && $filter > '!') // Filterbegriff in Schlagwort hervorheben
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   215
                        { 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   216
                            $sw = str_replace(lcfirst($filter),"<b>".lcfirst($filter)."</b>",$sw);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   217
                            $sw = str_replace(ucfirst($filter),"<b>".ucfirst($filter)."</b>",$sw);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   218
                        } 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   219
                        if ($sw) $sw =  " &rarr; <em>$sw</em>"; else $sw = "";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   220
                        if (file_exists("documents/$file"))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   221
                        {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   222
                            $doc = substr($file,strpos($file,"_")+1);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   223
                            echo "<a href='documents/$file'>$doc</a>$sw<br />";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   224
                        }    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   225
                        else 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   226
                            echo "$file$sw<br />";   
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   227
                    }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   228
                    echo "</td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   229
                }       
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   230
            }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   231
            else
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   232
            {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   233
                if (file_exists("documents/".$row->doc))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   234
                {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   235
                    $doc = substr($row->doc,strpos($row->doc,"_")+1); 
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   236
                    echo "<td><a href='documents/$row->doc'>$doc</a></td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   237
                }    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   238
                else    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   239
                    echo "<td>$row->doc</td>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   240
            }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   241
            if ($mfile) $part = "ed"; else $part = "upd";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   242
            echo "<td><a href='/fhiiqm/vertrag_$part.php?uid=$row->contract_ID&$getp'><img src=\"/fhiiqm/img/edit.gif\" alt='edit' title='edit' border='0'/></a></td></tr>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   243
       }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   244
        echo "</table></div>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   245
        echo "<br />&nbsp;&nbsp;&nbsp;";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   246
        
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   247
        // Sortierung und Filter aus $_GET fuer weitere Seiten
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   248
        foreach ($_GET as $key=>$val)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   249
        {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   250
            if ($key != "st") $liste .= "&" . $key ."=".$val;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   251
        }    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   252
        // Sortierung und Filter aus $_POST fuer weitere Seiten
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   253
        if ($subf)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   254
        foreach ($_POST as $key=>$val)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   255
        {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   256
            if ($key != "st" && $key != "subf" && $key != "filter") $liste .= "&" . $key ."=".$val;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   257
            if ($key == "filter") $liste .= "&b=" . $val;
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   258
        }    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   259
        
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   260
        // Links auf andere Seiten generieren
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   261
        liste_links($start,$zeil,$vanz,$liste);
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   262
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   263
        // Export csv-Datei
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   264
        echo "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class='sc'><a href='/fhiiqm/vertrag_list12_csv.php?$getp'>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   265
            <img src='/fhiiqm/img/file_extension_xls.png' border='0' title='Export dieser Auswahl nach Excel(csv)' /></a></span>";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   266
    }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   267
    else
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   268
    {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   269
        echo "<p class='red'>Leider wurde nichts gefunden mit Ihrem Suchbegriff '$filter'!</p>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   270
        echo "<p><a href=\"vertrag_flist1.php?g=1\" title=\"Vertragliste 1\" >Vertragsliste zeigen</a></p>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   271
        echo "</div>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   272
    }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   273
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   274
    $dbc -> close();
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   275
    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   276
    echo "<p>&nbsp;&nbsp;&nbsp;<a href=\"/fhiiqm/vertrag_flist12.php?$getp\" class=\"sc\" title=\"Vertragliste 2\" onclick=\"winopen(this.href,'Vertragsliste 2'); return false\">Vertr&auml;ge Teil 2</a></p>\n";
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   277
    if (!is_null($_SESSION["recht"]) && in_array("ve",$_SESSION["recht"]))
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   278
    {
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   279
        if ($mfile)
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   280
            echo "<p>&nbsp;&nbsp;&nbsp;<a href=\"/fhiiqm/vertrag_ed.php?$getp\" target=\"_self\" class=\"sc\" title=\"Vertrag erfassen\">Weiteren Vertrag erfassen</a></p>\n";    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   281
        else
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   282
            echo "<p>&nbsp;&nbsp;&nbsp;<a href=\"/fhiiqm/vertrag_ins.php\" target=\"_self\" class=\"sc\" title=\"Vertrag erfassen\">Weiteren Vertrag erfassen</a></p>\n";    
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   283
    }
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   284
?>
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   285
70cea8f0e807 + Arbeitsgruppen List,Edit; Korrekturen
Bettina Schwarzer
parents: 35
diff changeset
   286
</body>
1
6288d5685bff Stand v. 31.08.2011
Bettina Schwarzer <schwarzer@fhi-berlin.mpg.de>
parents:
diff changeset
   287
</html>