<?php
/* Š Copyright Honza Dolejsi 2001, All Rights Reserved.
   CVS VERSION: $Revision: 1.2 $ $Source: v:/cvsroot/kmlinux/sbor/private/seznam.inc,v $  */

$included["seznam.inc"]=true;
    if (!$included["database.inc"]) {include ("database.inc");}


function seznamUpdate ($conn,$group_name,$action,$email)
{   
    if (!$included["define.inc"]) {include ("./define.inc");}
    $CurrentGroup = GetObjectWhere($conn,"skupiny","jmeno='$group_name'");

    switch ($action)
    { case "insert":
        if (!ExistRow ($conn,$db_name,"seznam","email='$email' and group_id='$CurrentGroup->id'"))
        {
//pridavani zaznamu
          $MaxID=GetNewID($conn,seznam);
          $cas=time();
          $sql = "INSERT INTO seznam (id, cas, email, group_id) VALUES ('$MaxID','$cas','$email','$CurrentGroup->id')";
          if (db_query ($conn, $sql))
            print "Záznam byl přidán.";
          else
            echo "Nastala nŘjak  chyba";
        }
        else  
          print "Záznam již existuje.";     
        break;
      case "delete";
          $sql = "DELETE FROM seznam WHERE email='$email' and group_id='$CurrentGroup->id'";
          if (db_query ($conn, $sql))
            print "Záznam byl smazán.";
          else
            print "Z znam nebyl nalezen.";
  
        break;
    }

}

?>