PHP ic Examples

Example #1

File: admin_ic_ed.php Project: bireme/proethos

require 'cab.php';
/* Admin Common */
$ok = ($perfil->valid('#ADM') or $perfil->valid('#SCR') or $perfil->valid('#COO'));
if ($ok == 0) {
    redirecina('main.php');
}
require '_class/_class_ic.php';
$ln = new message();
global $acao, $dd, $cp, $tabela;
require $include . 'sisdoc_colunas.php';
require $include . '_class_form.php';
$form = new form();
require 'form_css.php';
require $include . 'sisdoc_data.php';
require $include . 'sisdoc_debug.php';
$cl = new ic();
$cp = $cl->cp();
$tabela = $cl->tabela;
$http_edit = 'admin_ic_ed.php';
$http_redirect = '';
$tit = msg("tit" . $tabela);
/** Comandos de Edicao */
$tela = $form->editar($cp, $tabela);
/** Caso o registro seja validado */
if ($form->saved > 0) {
    echo 'Salvo';
    //$cl->updatex();
    redirecina('admin_ic.php');
} else {
    echo $tela;
}

Example #2

File: _class_cep.php Project: bireme/proethos

 function communication_members($msg)
 {
     $ic = new ic();
     $msg = $ic->ic('survey_email');
     $title = $this->line['cep_titulo'];
     $email_title = $msg['title'];
     $email_body = $msg['text'];
     $email_body = mst(troca($email_body, '$TITLE', $titulo));
     $sql = "SELECT * FROM usuario_perfis_ativo\n\t\t\t\t\t\tinner join usuario on up_usuario  = us_cracha\n\t\t\t\t\twhere up_perfil = '#MEM' and up_ativo = 1\n\t\t\t\t";
     $rlt = db_query($sql);
     $sx .= '<h4>' . msg('members') . '</h4>';
     $sx .= '<font class="lt1">';
     while ($line = db_read($rlt)) {
         $email = trim($line['us_email']);
         $sx .= msg('communicate') . ' ' . trim($line['us_nome']) . ' ';
         if (strlen($email)) {
             $sx .= '<font color="green">ok</font><BR>';
             enviaremail($email, '', $email_title, $email_body);
         } else {
             $sx .= '<font color="red">error</font><BR>';
         }
     }
     return $sx;
 }

Example #3

File: admin_ic.php Project: bireme/proethos

 * @version v0.13.46
 * @package ProEthos-Admin
 * @subpackage IComunication
 */
require "cab.php";
/* Admin Common */
$ok = ($perfil->valid('#ADM') or $perfil->valid('#SCR') or $perfil->valid('#COO'));
if ($ok == 0) {
    redirecina('main.php');
}
global $acao, $dd, $cp, $tabela;
require $include . 'sisdoc_colunas.php';
require $include . 'sisdoc_debug.php';
/* Dados da Classe */
require '_class/_class_ic.php';
$clx = new ic();
$tabela = $clx->tabela;
/* N�o alterar - dados comuns */
$label = msg('tit_' . $tabela);
$http_edit = 'admin_ic_ed.php';
//$http_ver = 'pibic_bolsa_tipo_detalhe.php';
$editar = True;
$http_redirect = 'admin_ic.php';
$clx->row();
$busca = true;
$offset = 20;
//$pre_where = " e_mailing = '".$cl->mail_codigo."' ";
if ($order == 0) {
    $order = $cdf[0] . ' ,' . $cdf[1];
}
echo '<TABLE width="' . $tab_max . '" align="center"><TR><TD>';

Example #4

File: login_user_new.php Project: bireme/proethos

// Software. If not, see
// https://raw.githubusercontent.com/bireme/proethos/master/LICENSE.txt
/*
 * @author Rene F. Gabriel <*****@*****.**>
 */
$include = '';
$nosec = 1;
/* Add Styles */
$style_add = array('proethos_new_user.css');
require "cab.php";
require $include . 'sisdoc_email.php';
require $include . '_class_form.php';
require "_class/_class_ic.php";
$mail = new email();
$form = new form();
$ic = new ic();
$form->required_message = 0;
$form->required_message_post = 0;
require "form_css.php";
/* Login data */
$nw = new users();
$cp = $nw->cp();
/* Check e-mail */
$dd[1] = '';
$dd[5] = email_restrition($dd[5]);
$email = trim($dd[5]);
if ($mail->email_check($email) == 1) {
    $sql = "select * from " . $nw->tabela . " where us_email = '" . $email . "' ";
    $rlt = db_query($sql);
    if ($line = db_read($rlt)) {
        $cp[6][2] = '<font color="red">' . msg('email_exist') . '</font>';