astdlib_mail.php
za
var $kodovani_dat=''; // vychozi kodovani zpracovavaneho obsahu
přidat
var $level; // nastaveni levelu ctenaru pri odesilani mailu z clanku
==
function Reset() tam za
$this->stav_seznam_ctenaru=0;
přidat
$this->level=NactiConfigProm('default_reg_level',0);
==
function Nastav() tam za
case "hlavicka": $this->hlavicka=$hodnota; break;
přidat
case "level": $this->level=$hodnota; break;
==
function NactiCtenare() upravit
$dotazmail=phprs_sql_query("select email from ".$GLOBALS["rspredpona"]."ctenari where info='1'",$GLOBALS["dbspojeni"]);
na
$dotazmail=phprs_sql_query("select email from ".$GLOBALS["rspredpona"]."ctenari where info='1' and level_ctenare>='".$this->level."'",$GLOBALS["dbspojeni"]);
====
aarticles.php
function InfoDopis()
za
<input type=\"hidden\" name=\"akce\" value=\"AcInfoDopis\" />
přidat
<input type=\"hidden\" name=\"level\" value=\"".$pole_data['level_clanku']."\" />
==
upravit
$dotazcla=phprs_sql_query("select titulek from ".$GLOBALS["rspredpona"]."clanky where link='".$GLOBALS["cisloclanku"]."'",$GLOBALS["dbspojeni"]);
na
$dotazcla=phprs_sql_query("select titulek,level_clanku from ".$GLOBALS["rspredpona"]."clanky where link='".$GLOBALS["cisloclanku"]."'",$GLOBALS["dbspojeni"]);
==
function AcInfoDopis()
za
$odeslani_posty->Nastav("obsah",$GLOBALS['probsah']);
přidat
$odeslani_posty->Nastav("level",$GLOBALS['level']);
=====
Je to jenom napsaný a není to otestovaný, nemám nikde nic kde bych to mohl vyzkoušet, na locale mi mail server nejede. Ale teoreticky by to mělo fachat. Dej vědět jestli funguje/nefunguje, případně kde přesně a poladíme.
--
[ SAFUS.EU | OFFLINE | FOREVER ]