Ejemplo n.º 1
0
if ($mod_ext != "." and $mod_ext != ".." and @is_dir("./includes/interconnect/$mod_ext")) {
include("./includes/interconnect/$mod_ext/name.php");
if ($modulo == $interconnection_name) {
include("./includes/interconnect/$mod_ext/form.php");
} # fine if ($modulo == $interconnection_name)
} # fine if ($modello_ext != "." and $modello_ext != ".." and...
} # fine while ($mod_ext = readdir($interconn_dir))
closedir($interconn_dir);
} # fine if ($modulo)


else {

if ($crea_subordinazione) {
$file_backup = C_DATA_PATH."/sub_backup.php";
$filelock = crea_lock_file($file_backup);
$errore = "NO";
if (get_magic_quotes_gpc()) {
$url_subordinazione = stripslashes($url_subordinazione);
$utente_subordinazione = stripslashes($utente_subordinazione);
$password_subordinazione = stripslashes($password_subordinazione);
} # fine if (get_magic_quotes_gpc())
if ($compresso_subordinazione != "SI") $compresso_subordinazione = "";
if ($mantieni_anni != 1) $mantieni_anni = "";
if (substr($url_subordinazione,0,7) != "http://" and substr($url_subordinazione,0,8) != "https://") $errore = "SI";
else {
if (substr($url_subordinazione,-1) != "/") $url_subordinazione .= "/";
$errore = scarica_backup_subordinazione($file_backup,$url_subordinazione,$utente_subordinazione,$password_subordinazione,$anno,$compresso_subordinazione);
} # fine else if (substr($url_subordinazione,0,7) != "http://")

if ($errore != "SI") {
Ejemplo n.º 2
0
 include C_DATA_PATH . "/lingua.php";
 $file_lingua = @file(C_DATA_PATH . "/lingua.php");
 unset($linee);
 $num_lin = 0;
 $ini_lin = "\$lingua[{$id_utente_canc}]";
 for ($num1 = 0; $num1 < count($file_lingua); $num1++) {
     if (substr($file_lingua[$num1], 0, strlen($ini_lin)) != $ini_lin) {
         $linee[$num_lin] = $file_lingua[$num1];
         $num_lin++;
     }
     # fine if (substr($file_lingua[$num1],0,strlen($ini_lin)) != $ini_lin)
 }
 # fine for $num1
 scrivi_file($linee, C_DATA_PATH . "/lingua.php");
 distruggi_lock_file($filelock, C_DATA_PATH . "/lingua.php");
 $filelock = crea_lock_file(C_DATA_PATH . "/tema.php");
 include C_DATA_PATH . "/tema.php";
 $file_tema = @file(C_DATA_PATH . "/tema.php");
 unset($linee);
 $num_lin = 0;
 $ini_lin = "\$tema[{$id_utente_canc}]";
 for ($num1 = 0; $num1 < count($file_tema); $num1++) {
     if (substr($file_tema[$num1], 0, strlen($ini_lin)) != $ini_lin) {
         $linee[$num_lin] = $file_tema[$num1];
         $num_lin++;
     }
     # fine if (substr($file_tema[$num1],0,strlen($ini_lin)) != $ini_lin)
 }
 # fine for $num1
 scrivi_file($linee, C_DATA_PATH . "/tema.php");
 distruggi_lock_file($filelock, C_DATA_PATH . "/tema.php");
function crea_contratto($numero_contratto, &$tipo_contratto, $id_utente, $id_sessione, $origine, $origine_vecchia, $trad_var_vett = "", $set_glob = "")
{
    global $var_predef, $num_var_predef, $num_var_predef_ripeti, $num_ripeti, $tariffa_selezionata, $num_costo_agg_sel, $anno, $pag, $lingua_mex, $LIKE, $ILIKE, $modifica_pers, $vedi_clienti, $dir_salva, $nome_file_contr, $utenti_gruppi;
    global $tablecontratti, $tableclienti, $tablerclientiprenota, $tablepersonalizza, $tableutenti, $tablerelutenti, $tablenazioni, $tableregioni, $tablecitta, $tabledocumentiid, $tableparentele, $tableappartamenti, $tableperiodi;
    global $data_inizio_selezione, $data_fine_selezione, $var_riserv, $var_predef_data, $messaggio_di_errore, $testo_email_richiesta, $num_campi_pers_cliente, $numero_inserimento_pers;
    $n_utenti = esegui_query("select idutenti,nome_utente from {$tableutenti} ");
    for ($num1 = 0; $num1 < numlin_query($n_utenti); $num1++) {
        $n_utente_contr[risul_query($n_utenti, $num1, 'idutenti')] = risul_query($n_utenti, $num1, 'nome_utente');
    }
    if (!$set_glob and $n_r > 100) {
        $unset_glob = 1;
    }
    $data_inizio_selezione_orig = $data_inizio_selezione;
    $data_fine_selezione_orig = $data_fine_selezione;
    for ($n_r = 1; $n_r <= $num_ripeti; $n_r++) {
        for ($num1 = 0; $num1 < $num_var_predef_ripeti; $num1++) {
            if (strcmp($GLOBALS[$var_predef[$num1] . "_" . $n_r], "")) {
                ${$var_predef[$num1] . "_" . $n_r} = $GLOBALS[$var_predef[$num1] . "_" . $n_r];
            }
            if ($unset_glob) {
                unset($GLOBALS[$var_predef[$num1] . "_" . $n_r]);
            }
        }
        # fine for $num1
        if (!$data_primo_arrivo or ${"data_inizio_" . $n_r} < $data_primo_arrivo) {
            $data_primo_arrivo = ${"data_inizio_" . $n_r};
        }
        if (!$data_ultima_partenza or ${"data_fine_" . $n_r} > $data_ultima_partenza) {
            $data_ultima_partenza = ${"data_fine_" . $n_r};
        }
        ${"utente_inserimento_prenotazione" . "_" . $n_r} = $n_utente_contr[${"utente_inserimento_prenotazione" . "_" . $n_r}];
    }
    # fine for $n_r
    if (!$data_inizio_selezione_orig) {
        $data_inizio_selezione = $data_primo_arrivo;
    }
    if (!$data_fine_selezione_orig) {
        $data_fine_selezione = $data_ultima_partenza;
    }
    if ($unset_glob) {
        for ($num1 = $num_var_predef_ripeti; $num1 < $num_var_predef; $num1++) {
            unset($var_predef[$num1]);
        }
    }
    $messaggio_di_errore = "";
    $stile_soldi = stile_soldi($id_utente);
    $stile_data = stile_data($id_utente);
    $dati_app = esegui_query("select * from {$tableappartamenti} order by idappartamenti ");
    $num_unita = numlin_query($dati_app);
    for ($num1 = 1; $num1 <= $num_unita; $num1++) {
        $dati_app_contr[$num1]['nome'] = risul_query($dati_app, $num1 - 1, 'idappartamenti');
        $dati_app_contr[$num1]['casa'] = risul_query($dati_app, $num1 - 1, 'numcasa');
        $dati_app_contr[$num1]['piano'] = risul_query($dati_app, $num1 - 1, 'numpiano');
        $dati_app_contr[$num1]['capacita'] = risul_query($dati_app, $num1 - 1, 'maxoccupanti');
        $dati_app_contr[$num1]['priorita'] = risul_query($dati_app, $num1 - 1, 'priorita');
    }
    # fine for $num1
    unset($dati_app);
    $data_inizio_selezione_orig = $data_inizio_selezione;
    $data_fine_selezione_orig = $data_fine_selezione;
    if ($data_inizio_selezione) {
        $data_inizio_selezione_f = formatta_data_contr($data_inizio_selezione, $stile_data);
    }
    if ($data_fine_selezione) {
        $data_fine_selezione_f = formatta_data_contr($data_fine_selezione, $stile_data);
    }
    $ritorno_a_capo = "\r";
    $avanzamento_riga = "\n";
    $nome_valuta = nome_valuta($id_utente);
    $oggi = date("Y-m-d", time() + C_DIFF_ORE * 3600);
    $oggi_orig = $oggi;
    $oggi_f = formatta_data_contr($oggi, $stile_data);
    if ($lingua_mex) {
        $fr_via = mex("via", $pag);
    }
    if ($testo_email_richiesta) {
        if (get_magic_quotes_gpc()) {
            $testo_email_richiesta = stripslashes($testo_email_richiesta);
        }
        $testo_quotato_email_richiesta_orig = "> " . str_replace("\n", "\n> ", $testo_email_richiesta);
        if ($lingua_mex) {
            $testo_quotato_email_richiesta_orig = "<email_richiesta> " . mex("ha scritto", $pag) . ":\n" . $testo_quotato_email_richiesta_orig;
        }
    } else {
        $testo_quotato_email_richiesta_orig = "";
    }
    $arrotond_tasse = esegui_query("select * from {$tablepersonalizza} where idpersonalizza = 'arrotond_tasse' and idutente = '{$id_utente}'");
    $arrotond_tasse = risul_query($arrotond_tasse, 0, 'valpersonalizza');
    $nome_struttura = esegui_query("select * from {$tablepersonalizza} where idpersonalizza = 'dati_struttura' and idutente = '{$id_utente}'");
    $nome_struttura = explode("#@&", risul_query($nome_struttura, 0, 'valpersonalizza'));
    $tipo_struttura = $nome_struttura[1];
    $email_struttura = $nome_struttura[2];
    $ragione_sociale_struttura = $nome_struttura[3];
    $sito_web_struttura = $nome_struttura[4];
    $nome_contatto_struttura = $nome_struttura[5];
    $nazione_struttura = $nome_struttura[6];
    $comune_struttura = $nome_struttura[7];
    $indirizzo_struttura = $nome_struttura[8];
    $CAP_struttura = $nome_struttura[9];
    $telefono_struttura = $nome_struttura[10];
    $fax_struttura = $nome_struttura[11];
    $codice_fiscale_struttura = $nome_struttura[12];
    $partita_iva_struttura = $nome_struttura[13];
    $numero_stelle_struttura = $nome_struttura[14];
    $logo_struttura = $nome_struttura[15];
    $nome_struttura = $nome_struttura[0];
    $num_contr_vc = $numero_contratto;
    $contr_imp_vc = esegui_query("select testo from {$tablecontratti} where numero = '{$numero_contratto}' and tipo = 'impor_vc' ");
    if (numlin_query($contr_imp_vc)) {
        $num_contr_vc = risul_query($contr_imp_vc, 0, 'testo');
    }
    $variabili = esegui_query("select * from {$tablecontratti} where tipo = 'var' or tipo = 'var{$num_contr_vc}' order by tipo, numero");
    $num_variabili = numlin_query($variabili);
    $arrays = esegui_query("select * from {$tablecontratti} where tipo = 'vett' or tipo = 'vett{$num_contr_vc}' order by tipo, numero");
    $num_arrays = numlin_query($arrays);
    $condizioni_ini_d = esegui_query("select * from {$tablecontratti} where (tipo = 'cond' or tipo = 'cond{$num_contr_vc}') and testo {$LIKE} 'ind%' order by tipo, numero");
    $num_condizioni_ini_d = numlin_query($condizioni_ini_d);
    $condizioni_ini_r = esegui_query("select * from {$tablecontratti} where (tipo = 'cond' or tipo = 'cond{$num_contr_vc}') and testo {$LIKE} 'inr%' order by tipo, numero");
    $num_condizioni_ini_r = numlin_query($condizioni_ini_r);
    $condizioni = esegui_query("select * from {$tablecontratti} where (tipo = 'cond' or tipo = 'cond{$num_contr_vc}') and testo {$LIKE} 'rpt%' order by tipo, numero");
    $num_condizioni = numlin_query($condizioni);
    $dir_salva = esegui_query("select * from {$tablecontratti} where numero = '{$numero_contratto}' and tipo = 'dir'");
    if (numlin_query($dir_salva) == 1) {
        $dir_salva = formatta_dir_salva_doc(risul_query($dir_salva, 0, 'testo'));
    } else {
        $dir_salva = "";
    }
    $dati_contratto = esegui_query("select * from {$tablecontratti} where numero = '{$numero_contratto}' and tipo {$LIKE} 'contr%'");
    $tipo_contratto = risul_query($dati_contratto, 0, 'tipo');
    $contratto_orig = risul_query($dati_contratto, 0, 'testo');
    $contr_multilingua = 0;
    unset($contratti_orig_mln);
    unset($lingue_contr);
    $num_contr_mln = 1;
    if (substr($contratto_orig, 0, 7) == "#!mln!#") {
        $contr_multilingua = 1;
        $contratti_orig_mln['predef'] = substr($contratto_orig, 7);
        $dati_contratti_mln = esegui_query("select * from {$tablecontratti} where numero = '{$numero_contratto}' and tipo {$LIKE} 'mln_%'");
        $num_contr_mln = numlin_query($dati_contratti_mln);
        for ($num1 = 0; $num1 < $num_contr_mln; $num1++) {
            $lingua_contr = substr(risul_query($dati_contratti_mln, $num1, 'tipo'), 4);
            $lingue_contr[$num1] = $lingua_contr;
            $contratti_orig_mln[$lingua_contr] = risul_query($dati_contratti_mln, $num1, 'testo');
        }
        # fine for $num1
        $contratto_orig = $contratti_orig_mln[$contratti_orig_mln['predef']];
    }
    # fine if (substr($contratto_orig,0,7) == "#!mln!#")
    if ($tipo_contratto == "contrhtm") {
        $tag_b = "<b>";
        $tag_no_b = "</b>";
        $tag_spazio = "&nbsp;";
        $tag_acapo = "<br>";
    }
    # fine if ($tipo_contratto == "contrhtm")
    if ($tipo_contratto == "contreml") {
        $tag_spazio = " ";
        $tag_acapo = "\n";
        $oggetto_email = esegui_query("select * from {$tablecontratti} where numero = '{$numero_contratto}' and tipo = 'oggetto'");
        $oggetto_email = risul_query($oggetto_email, 0, 'testo');
        $allegato_email = esegui_query("select * from {$tablecontratti} where numero = '{$numero_contratto}' and tipo = 'allegato'");
        $allegato_email = risul_query($allegato_email, 0, 'testo');
        if ($allegato_email) {
            $allegato_email = esegui_query("select * from {$tablecontratti} where numero = '{$allegato_email}' and tipo = 'file_all'");
            $allegato_email = risul_query($allegato_email, 0, 'testo');
            $allegato_email = explode(",", $allegato_email);
            $allegato_email = $allegato_email[0];
        }
        # fine if ($allegato_email)
        $nome_mittente_email = $nome_contatto_struttura;
        $mittente_email = $email_struttura;
        if ($nome_mittente_email) {
            $mittente_email = "{$nome_mittente_email} &lt;{$mittente_email}&gt;";
        }
    }
    # fine if ($tipo_contratto == "contreml")
    if ($tipo_contratto == "contrrtf") {
        $tag_spazio = " ";
        $tag_acapo = "}\n\\par \\pard\\plain \\ltrpar\\s1\\cf0{\\*\\hyphen2\\hyphlead2\\hyphtrail2\\hyphmax0}\\rtlch\\af3\\afs24\\lang255\\ltrch\\dbch\\af3\\langfe255\\hich\\f0\\fs24\\lang1040\\loch\\f0\\fs24\\lang1040 {\\rtlch \\ltrch\\loch\\f0\\fs24\\lang1040\\i0\\b0 ";
    }
    # fine if ($tipo_contratto == "contrrtf")
    if ($tipo_contratto == "contrtxt") {
        $tag_spazio = " ";
        $tag_acapo = "\n";
    }
    # fine if ($tipo_contratto == "contrtxt")
    if (str_replace("[r]", "", $contratto_orig) == $contratto_orig or $contr_multilingua) {
        $ripeti_tutto = 1;
    } else {
        $ripeti_tutto = 0;
    }
    $nome_file_contr = "";
    $filecontr = "";
    $num_prog_contr = "";
    $num_prog_contr_max = "";
    $incr_np = 0;
    if ($dir_salva) {
        global $nomi_contratti, $num_contr_esist, $nome_file_contr_esist, $cont_salva, $lista_var_form, $num_file_salva, $sovrascrivi, $priv_cancella_contratti;
        $nome_contratto = $nomi_contratti['salv'][$numero_contratto];
        if (get_magic_quotes_gpc()) {
            $sovrascrivi = stripslashes($sovrascrivi);
        }
        if ($priv_cancella_contratti == "n") {
            $sovrascrivi = "";
        }
        if ($ripeti_tutto) {
            $num_file_salva = $num_ripeti;
        } else {
            $num_file_salva = 1;
        }
        $anno_corr = date("Y");
        if ($anno_corr != $anno + 1 or @is_file(C_DATA_PATH . "/selectperiodi{$anno_corr}.1.php")) {
            $anno_corr = $anno;
        }
        $incrementa_num_prog = esegui_query("select * from {$tablecontratti} where numero = '{$numero_contratto}' and tipo = 'incr_np'");
        if (numlin_query($incrementa_num_prog)) {
            $incr_np = risul_query($incrementa_num_prog, 0, 'testo');
        }
        $lista_var_form = "";
        if (@is_array($_POST)) {
            reset($_POST);
        }
        for ($num1 = 0; $num1 < count($_POST); $num1++) {
            $lista_var_form .= "<input type=\"hidden\" name=\"" . htmlspecialchars(key($_POST)) . "\" value=\"" . htmlspecialchars(strip_magic_slashs($_POST[key($_POST)])) . "\">";
            next($_POST);
        }
        # fine for $num1
        if (@is_array($_GET)) {
            reset($_GET);
        }
        for ($num1 = 0; $num1 < count($_GET); $num1++) {
            $lista_var_form .= "<input type=\"hidden\" name=\"" . htmlspecialchars(key($_GET)) . "\" value=\"" . htmlspecialchars(strip_magic_slashs($_GET[key($_GET)])) . "\">";
            next($_GET);
        }
        # fine for $num1
        $filelock = fopen(C_DATA_PATH . "/crea_contr.lock", "w+");
        flock($filelock, 2);
        if ($tipo_contratto == "contrrtf") {
            $suff_file = "rtf";
        }
        if ($tipo_contratto == "contrhtm") {
            $suff_file = "html";
        }
        if ($tipo_contratto == "contrtxt") {
            $suff_file = "txt";
        }
        for ($num1 = 1; $num1 <= $num_ripeti; $num1++) {
            global ${"id_anni_prec_" . $num1};
            $id_pren[$num1] = ${"numero_prenotazione_" . $num1};
        }
        # fine for $num1
        $num_contr_esist = 0;
        $nome_file_contr_esist = "";
        $n_prog_contr = 0;
        $num_sovrascrivi = 0;
        $num_sovrascrivi_max = 0;
        $contr_dir = opendir($dir_salva . "/");
        while ($contr_corr = readdir($contr_dir)) {
            if ($contr_corr != "." and $contr_corr != ".." and is_file($dir_salva . "/" . $contr_corr)) {
                if (substr($contr_corr, 0, strlen($nome_contratto)) == $nome_contratto) {
                    $contr_corr_orig = $contr_corr;
                    if (substr($contr_corr, -3) == ".gz") {
                        $contr_corr = substr($contr_corr, 0, -3);
                    }
                    $suff_file_corr = "";
                    if (substr($contr_corr, -4) == ".rtf") {
                        $suff_file_corr = "rtf";
                    }
                    if (substr($contr_corr, -5) == ".html") {
                        $suff_file_corr = "html";
                    }
                    if (substr($contr_corr, -4) == ".txt") {
                        $suff_file_corr = "txt";
                    }
                    if ($suff_file_corr) {
                        $resto_nome_contr = substr($contr_corr, strlen($nome_contratto));
                        if (preg_replace("/_[0-9]{4,4}_[0-9]{5,8}(-[0-9]{5,8})?(_[0-9]+(-[0-9]+)?)*\\.{$suff_file_corr}/", "", $resto_nome_contr) == "") {
                            $anno_contr = substr($resto_nome_contr, 1, 4);
                            $n_contr_corr = explode("_", $resto_nome_contr);
                            $n_contr_corr = $n_contr_corr[2];
                            $resto_nome_contr = substr($resto_nome_contr, 7 + strlen($n_contr_corr));
                            if (str_replace("-", "", $n_contr_corr) != $n_contr_corr) {
                                $n_contr_corr = explode("-", $n_contr_corr);
                                $n_contr_ini_corr = $n_contr_corr[0];
                                $n_contr_corr = $n_contr_corr[1];
                            } else {
                                $n_contr_ini_corr = 0;
                            }
                            if ($n_contr_corr > $n_prog_contr and $anno_contr == $anno_corr) {
                                $n_prog_contr = $n_contr_corr;
                            }
                            if (!$cont_salva and $lista_var_form) {
                                $num_pren_esist = substr($resto_nome_contr, 0, -1 * (strlen($suff_file_corr) + 1));
                                if ($num_pren_esist) {
                                    $num_pren_esist = explode("_", $num_pren_esist);
                                    for ($num1 = 0; $num1 < count($num_pren_esist); $num1++) {
                                        $num_pren_esist2 = explode("-", $num_pren_esist[$num1]);
                                        $fine_for = $num_pren_esist2[count($num_pren_esist2) - 1];
                                        for ($num2 = $num_pren_esist2[0]; $num2 <= $fine_for; $num2++) {
                                            for ($num3 = 1; $num3 <= $num_ripeti; $num3++) {
                                                if ($num2 == $id_pren[$num3] and ($anno_contr == $anno or $anno_contr == $anno_corr) or str_replace(";{$anno_contr},{$num2};", "", ${"id_anni_prec_" . $num3}) != ${"id_anni_prec_" . $num3} and $anno_contr != $anno and $anno_contr != $anno_corr) {
                                                    $num_contr_esist++;
                                                    $nome_file_contr_esist[$num_contr_esist] = $contr_corr_orig;
                                                    if ($contr_corr_orig == $sovrascrivi and $num_file_salva == 1) {
                                                        $num_sovrascrivi_max = $n_contr_corr;
                                                        if ($n_contr_ini_corr) {
                                                            $num_sovrascrivi = $n_contr_ini_corr;
                                                        } else {
                                                            $num_sovrascrivi = $n_contr_corr;
                                                        }
                                                        $anno_corr = $anno_contr;
                                                        unlink($dir_salva . "/" . $contr_corr_orig);
                                                        if ($id_pren[$num3] != $num2) {
                                                            ${"numero_prenotazione_" . $num3} = $num2;
                                                        }
                                                    }
                                                    # fine if ($contr_corr_orig == $sovrascrivi and...
                                                    break 3;
                                                }
                                                # fine if (($num2 == $id_prenota[$num3] and...
                                            }
                                            # fine for $num3
                                        }
                                        # fine for $num2
                                    }
                                    # fine for $num1
                                }
                                # fine if ($num_pren_esist)
                            }
                            # fine if (!$cont_salva and $lista_var_form)
                        }
                        # fine if (preg_replace("/_[0-9]{4,4}_[0-9]{5,5}\.$suff_file_corr/","",$resto_nome_contr) == "")
                    }
                    # fine if ($suff_file_corr)
                }
                # fine if (substr($contr_corr,0,strlen($nome_contratto)) == $nome_contratto)
            }
            # fine if ($contr_corr != "." and $contr_corr != ".." and...
        }
        # fine while ($contr_corr = readdir($contr_dir))
        closedir($contr_dir);
        if ($num_sovrascrivi) {
            $num_contr_esist = 0;
            if ($incr_np and $num_sovrascrivi_max < $n_prog_contr) {
                $num_prog_contr_max = $num_sovrascrivi_max;
            }
            $n_prog_contr = $num_sovrascrivi - 1;
        }
        # fine if ($num_sovrascrivi)
        if (!$num_sovrascrivi or $incr_np and !$num_prog_contr_max) {
            # se il contratto condivide il numero progressivo con altri contratti
            if (@is_array($nomi_contratti['num_prog'])) {
                $altri_contr_np = $nomi_contratti['num_prog'][$dir_salva . "/" . $nome_contratto];
                if (@is_array($altri_contr_np)) {
                    reset($altri_contr_np);
                    while (list($contr_np, $val_contr) = each($altri_contr_np)) {
                        $nome_contratto_np = explode("/", $contr_np);
                        $nome_contratto_np = $nome_contratto_np[count($nome_contratto_np) - 1];
                        $dir_salva_np = substr($contr_np, 0, -1 * (strlen($nome_contratto_np) + 1));
                        $contr_dir = opendir($dir_salva_np . "/");
                        while ($contr_corr = readdir($contr_dir)) {
                            if ($contr_corr != "." and $contr_corr != ".." and is_file($dir_salva_np . "/" . $contr_corr)) {
                                if (substr($contr_corr, 0, strlen($nome_contratto_np)) == $nome_contratto_np) {
                                    if (substr($contr_corr, -3) == ".gz") {
                                        $contr_corr = substr($contr_corr, 0, -3);
                                    }
                                    $suff_file_corr = "";
                                    if (substr($contr_corr, -4) == ".rtf") {
                                        $suff_file_corr = "rtf";
                                    }
                                    if (substr($contr_corr, -5) == ".html") {
                                        $suff_file_corr = "html";
                                    }
                                    if (substr($contr_corr, -4) == ".txt") {
                                        $suff_file_corr = "txt";
                                    }
                                    if ($suff_file_corr) {
                                        $resto_nome_contr = substr($contr_corr, strlen($nome_contratto_np));
                                        if (preg_replace("/_[0-9]{4,4}_[0-9]{5,8}(-[0-9]{5,8})?(_[0-9]+(-[0-9]+)?)*\\.{$suff_file_corr}/", "", $resto_nome_contr) == "") {
                                            $anno_contr = substr($resto_nome_contr, 1, 4);
                                            $n_contr_corr = explode("_", $resto_nome_contr);
                                            $n_contr_corr = $n_contr_corr[2];
                                            if (str_replace("-", "", $n_contr_corr) != $n_contr_corr) {
                                                $n_contr_corr = explode("-", $n_contr_corr);
                                                $n_contr_corr = $n_contr_corr[1];
                                            }
                                            # fine if (str_replace("-","",$n_contr_corr) != $n_contr_corr)
                                            if ($n_contr_corr > $n_prog_contr and $anno_contr == $anno_corr) {
                                                if (!$num_sovrascrivi) {
                                                    $n_prog_contr = $n_contr_corr;
                                                } else {
                                                    $num_prog_contr_max = $num_sovrascrivi_max;
                                                    break;
                                                }
                                                # fine else if (!$num_sovrascrivi)
                                            }
                                            # fine if ($n_contr_corr > $n_prog_contr and $anno_contr == $anno_corr)
                                        }
                                        # fine if (preg_replace("/_[0-9]{4,4}_[0-9]{5,8}(-[0-9]{5,8})?(_[0-9]+(-[0-9]+)?)*\.$suff_file_corr/","",$resto_nome_contr) == "")
                                    }
                                    # fine if ($suff_file_corr)
                                }
                                # fine if (substr($contr_corr,0,strlen($nome_contratto_np)) == $nome_contratto_np)
                            }
                            # fine if ($contr_corr != "." and $contr_corr != ".." and...
                        }
                        # fine while ($fattura_corr = readdir($fatture_dir))
                        closedir($contr_dir);
                    }
                    # fine while (list($contr_np,$val_contr) = each($altri_contr_np))
                }
                # fine if (@is_array($altri_contr_np))
            }
            # fine if (@is_array($nomi_contratti['num_prog']))
        }
        # fine if (!$num_sovrascrivi or ($incr_np and !$num_prog_contr_max))
        if ($num_contr_esist) {
            return 0;
        }
        for ($num1 = 1; $num1 <= $num_file_salva; $num1++) {
            $n_prog_contr++;
            $num_prog_contr[$num1] = $n_prog_contr;
            $nome_file_contr[$num1] = $n_prog_contr;
            for ($num2 = strlen($nome_file_contr[$num1]); $num2 < 5; $num2++) {
                $nome_file_contr[$num1] = "0" . $nome_file_contr[$num1];
            }
            if ($incr_np) {
                $nome_file_contr[$num1] .= " ";
            }
            if ($ripeti_tutto) {
                if (${"numero_prenotazione_" . $num1} and preg_replace("/[0-9]+/", "", ${"numero_prenotazione_" . $num1}) == "") {
                    $nome_file_contr[$num1] .= "_" . ${"numero_prenotazione_" . $num1};
                }
            } else {
                unset($lista_num_prenota);
                for ($num2 = 1; $num2 <= $num_ripeti; $num2++) {
                    if (${"numero_prenotazione_" . $num1} and preg_replace("/[0-9]+/", "", ${"numero_prenotazione_" . $num1}) == "") {
                        $lista_num_prenota[$num2] = ${"numero_prenotazione_" . $num2};
                    }
                }
                # fine for $num2
                if (@is_array($lista_num_prenota)) {
                    asort($lista_num_prenota);
                    reset($lista_num_prenota);
                    $ultimo_num_prenota = -2;
                    while (list($num2, $num_prenota) = each($lista_num_prenota)) {
                        if ($ultimo_num_prenota != $num_prenota) {
                            if ($ultimo_num_prenota < 0) {
                                $nome_file_contr[$num1] .= "_" . $num_prenota . "_";
                                $ultimo_num_prenota = $num_prenota - 1;
                            } else {
                                if ($num_prenota - 1 != $ultimo_num_prenota) {
                                    if (substr($nome_file_contr[$num1], -1) != "_") {
                                        $nome_file_contr[$num1] .= "-" . $ultimo_num_prenota . "_";
                                    }
                                    $nome_file_contr[$num1] .= $num_prenota . "_";
                                } elseif (substr($nome_file_contr[$num1], -1) == "_") {
                                    $nome_file_contr[$num1] = substr($nome_file_contr[$num1], 0, -1);
                                }
                            }
                            # fine else if ($ultimo_num_prenota < 0)
                            $ultimo_num_prenota = $num_prenota;
                        }
                        # fine if ($ultimo_num_prenota != $num_prenota)
                    }
                    # fine while (list($num2,$num_prenota) = each($lista_num_prenota))
                    if (substr($nome_file_contr[$num1], -1) != "_") {
                        $nome_file_contr[$num1] .= "-" . $ultimo_num_prenota;
                    } else {
                        $nome_file_contr[$num1] = substr($nome_file_contr[$num1], 0, -1);
                    }
                }
                # fine (@is_array($lista_num_prenota))
            }
            # fine else if ($ripeti_tutto)
            $nome_file_contr[$num1] = $nome_contratto . "_" . $anno_corr . "_" . $nome_file_contr[$num1] . ".{$suff_file}";
            if (!$incr_np) {
                if ($nomi_contratti['compress'][$numero_contratto]) {
                    $nome_file_contr[$num1] .= ".gz";
                    $lock_compress[$num1] = crea_lock_file($dir_salva . "/" . $nome_file_contr[$num1]);
                    $filecontr[$num1] = gzopen($dir_salva . "/" . $nome_file_contr[$num1], "wb9");
                } else {
                    $filecontr[$num1] = fopen($dir_salva . "/" . $nome_file_contr[$num1], "w+");
                    flock($filecontr[$num1], 2);
                }
                # fine else if ($nomi_contratti['compress'][$numero_contratto])
            } else {
                $filecontr['esist'] = 1;
            }
        }
        # fine for $num1
        if (!$incr_np) {
            flock($filelock, 3);
            fclose($filelock);
            unlink(C_DATA_PATH . "/crea_contr.lock");
        }
        # fine if (!$incr_np)
    }
    # fine if ($dir_salva)
    unset($tablepersonalizza);
    unset($tablecontratti);
    if (!defined('C_ID_UTENTE_CONTR')) {
        define(C_ID_UTENTE_CONTR, $id_utente);
    }
    $utente_attuale = $n_utente_contr[C_ID_UTENTE_CONTR];
    unset($id_utente);
    for ($num1 = 0; $num1 < $num_variabili; $num1++) {
        $nome_var = risul_query($variabili, $num1, 'testo');
        $num_var = risul_query($variabili, $num1, 'numero');
        if (!$var_riserv[$nome_var]) {
            $variabile[$num_var] = $nome_var;
        }
    }
    # fine for $num1
    $variabile['-1'] = "messaggio_di_errore";
    $variabile['-2'] = "errore_ripetizione";
    for ($num1 = 0; $num1 < $num_arrays; $num1++) {
        $nome_arr = explode(";", risul_query($arrays, $num1, 'testo'));
        $var_array = $nome_arr[1];
        $tipo_arr = $nome_arr[2];
        $nome_arr = $nome_arr[0];
        if (!$var_riserv[$nome_arr]) {
            $num_arr = risul_query($arrays, $num1, 'numero');
            $array[$num_arr] = $nome_arr;
            $var_arr[$num_arr] = $var_array;
            $var_arr_nome[$nome_arr] = $var_array;
            $arr_var_esist[$var_array] = "SI";
        }
        # fine if (!$var_riserv[$nome_arr])
    }
    # fine for $num1
    unset($var_riserv);
    for ($num1 = 0; $num1 < $num_condizioni_ini_d; $num1++) {
        $condizione = risul_query($condizioni_ini_d, $num1, 'testo');
        $condizione_ini_d_vett[$num1] = explode("#@?", $condizione);
        $azione_ini_d_vett[$num1] = explode("#%?", $condizione_ini_d_vett[$num1][2]);
        if ($condizione_ini_d_vett[$num1][1]) {
            $condizione_ini_d_vett[$num1] = explode("#\$?", $condizione_ini_d_vett[$num1][1]);
            $num_cond_ini_d_vett[$num1] = count($condizione_ini_d_vett[$num1]);
            for ($num2 = 1; $num2 < $num_cond_ini_d_vett[$num1]; $num2++) {
                $condizione_ini_d_vett[$num1][$num2] = explode("#%?", $condizione_ini_d_vett[$num1][$num2]);
            }
        } else {
            $condizione_vett[$num1] = "";
        }
    }
    # fine for $num1
    for ($num1 = 0; $num1 < $num_condizioni_ini_r; $num1++) {
        $condizione = risul_query($condizioni_ini_r, $num1, 'testo');
        $condizione_ini_r_vett[$num1] = explode("#@?", $condizione);
        $azione_ini_r_vett[$num1] = explode("#%?", $condizione_ini_r_vett[$num1][2]);
        if ($condizione_ini_r_vett[$num1][1]) {
            $condizione_ini_r_vett[$num1] = explode("#\$?", $condizione_ini_r_vett[$num1][1]);
            $num_cond_ini_r_vett[$num1] = count($condizione_ini_r_vett[$num1]);
            for ($num2 = 1; $num2 < $num_cond_ini_r_vett[$num1]; $num2++) {
                $condizione_ini_r_vett[$num1][$num2] = explode("#%?", $condizione_ini_r_vett[$num1][$num2]);
            }
        } else {
            $condizione_vett[$num1] = "";
        }
    }
    # fine for $num1
    for ($num1 = 0; $num1 < $num_condizioni; $num1++) {
        $condizione = risul_query($condizioni, $num1, 'testo');
        $condizione_vett[$num1] = explode("#@?", $condizione);
        $azione_vett[$num1] = explode("#%?", $condizione_vett[$num1][2]);
        if ($condizione_vett[$num1][1]) {
            $condizione_vett[$num1] = explode("#\$?", $condizione_vett[$num1][1]);
            $num_cond_vett[$num1] = count($condizione_vett[$num1]);
            for ($num2 = 1; $num2 < $num_cond_vett[$num1]; $num2++) {
                $condizione_vett[$num1][$num2] = explode("#%?", $condizione_vett[$num1][$num2]);
            }
        } else {
            $condizione_vett[$num1] = "";
        }
    }
    # fine for $num1
    if (!@is_array($trad_var_vett)) {
        $lang_dir = opendir("./includes/lang/");
        while ($ini_lingua = readdir($lang_dir)) {
            if ($ini_lingua != "." && $ini_lingua != ".." && $ini_lingua != $lingua_mex) {
                unset($trad_var);
                include "./includes/lang/{$ini_lingua}/visualizza_contratto_var.php";
                while (list($var_trad_ita, $var_trad_ext) = each($trad_var)) {
                    $trad_var_vett[$var_trad_ext] = $var_trad_ita;
                }
            }
            # fine if ($file != "." && $file != ".." && $ini_lingua != $lingua)
        }
        # fine while ($file = readdir($lang_dig))
        closedir($lang_dir);
        if ($lingua_mex != "ita") {
            unset($trad_var);
            include "./includes/lang/" . $lingua_mex . "/visualizza_contratto_var.php";
            while (list($var_trad_ita, $var_trad_ext) = each($trad_var)) {
                $trad_var_vett[$var_trad_ext] = $var_trad_ita;
            }
        }
        # fine if ($lingua_mex != "ita")
        unset($trad_var);
    }
    # fine if (!@is_array($trad_var_vett))
    while (list($var_trad_ext, $var_trad_ita) = each($trad_var_vett)) {
        if ($var_trad_ita == "campo_personalizzato") {
            for ($num1 = 0; $num1 < $num_campi_pers_cliente; $num1++) {
                $var_trad_ita = $var_predef[$numero_inserimento_pers + $num1];
                $trad_var_vett[$var_trad_ext . "_" . substr($var_trad_ita, 21)] = $var_trad_ita;
            }
            # fine for $num1
        }
        # fine if ($var_trad_ita == "campo_personalizzato")
    }
    # fine while (list($var_trad_ext,$var_trad_ita) = each($trad_var_vett))
    for ($num_mln = 0; $num_mln < $num_contr_mln; $num_mln++) {
        if ($contr_multilingua) {
            $contratto_orig = $contratti_orig_mln[$lingue_contr[$num_mln]];
        }
        reset($trad_var_vett);
        while (list($var_trad_ext, $var_trad_ita) = each($trad_var_vett)) {
            $contratto_orig = str_replace("[" . $var_trad_ext . "]", "[" . $var_trad_ita . "]", $contratto_orig);
            if ($arr_var_esist[$var_trad_ita] == "SI") {
                for ($num1 = 0; $num1 < $num_arrays; $num1++) {
                    $num_arr = risul_query($arrays, $num1, 'numero');
                    if ($var_arr[$num_arr] == $var_trad_ita) {
                        $contratto_orig = str_replace("[" . $array[$num_arr] . "(" . $var_trad_ext . ")]", "[" . $array[$num_arr] . "(" . $var_trad_ita . ")]", $contratto_orig);
                    }
                    # fine if ($var_arr[$num_arr] == $var_trad_ita)
                }
                # fine for $num1
            }
            # fine if ($arr_var_esist[$var_trad_ita] == "SI")
        }
        # fine while (list($var_trad_ext,$var_trad_ita) = each($trad_var_vett))
        while (preg_match("/\\[c +[A-Za-z]+[A-Za-z0-9_]*(\\((('[^'\\]\\(]*')|([A-Za-z]+[A-Za-z0-9_]*))\\))? *!?= *\"[^\"]*\" *\\]/", $contratto_orig)) {
            $contr_vett = preg_split("/\\[c +[A-Za-z]+[A-Za-z0-9_]*(\\((('[^'\\]\\(]*')|([A-Za-z]+[A-Za-z0-9_]*))\\))? *!?= *\"[^\"]*\" *\\]/", $contratto_orig, 2);
            $contr_parziale = substr($contratto_orig, strlen($contr_vett[0]));
            $contratto_orig = $contr_vett[0];
            $condizione = preg_split("/\" *\\]/", $contr_parziale, 2);
            $condizione = $condizione[0];
            $contr_parziale = substr($contr_parziale, strlen($condizione) + 1);
            while (substr($contr_parziale, 0, 1) == " ") {
                $contr_parziale = substr($contr_parziale, 1);
            }
            $contr_parziale = substr($contr_parziale, 1);
            $val_if = preg_split("/ *!?= *\"/", preg_replace("/^\\[c +/", "", $condizione));
            $var_if = trim($val_if[0]);
            if (str_replace("(", "", $var_if) != $var_if) {
                $parti_arr = explode("(", substr($var_if, 0, -1));
                $val_var_if = ${$parti_arr[0]}[${$parti_arr[1]}];
                if ($trad_var_vett[$parti_arr[1]]) {
                    $var_if = $parti_arr[0] . "(" . $trad_var_vett[$parti_arr[1]] . ")";
                }
            } elseif ($trad_var_vett[$var_if]) {
                $var_if = $trad_var_vett[$var_if];
            }
            $val_if = $val_if[1];
            if (preg_match("/!= *\"/", $condizione)) {
                $condizione = "[[c] {$var_if}!=\"{$val_if}\"]";
            } else {
                $condizione = "[[c] {$var_if}=\"{$val_if}\"]";
            }
            $contratto_orig .= $condizione;
            $contratto_orig .= $contr_parziale;
        }
        # fine while (preg_match("/\\[c +[A-Za-z]+[A-Za-z0-9_]* *!?= *\"[^\"]*\" *\\]/",$contratto_orig))
        $contratto_orig = str_replace("[[c] ", "[c ", $contratto_orig);
        if ($contr_multilingua) {
            $contratti_orig_mln[$lingue_contr[$num_mln]] = $contratto_orig;
        }
    }
    # fine for $num_mln
    unset($trad_var_vett);
    if ($tipo_contratto == "contreml") {
        $contratto .= "<form accept-charset=\"utf-8\" method=\"post\" action=\"{$pag}\"><div><br>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input type=\"hidden\" name=\"numero_contratto\" value=\"{$numero_contratto}\">\n<input type=\"hidden\" name=\"origine\" value=\"" . htmlspecialchars($origine) . "\">\n<input type=\"hidden\" name=\"origine_vecchia\" value=\"" . htmlspecialchars($origine_vecchia) . "\">\n<input type=\"hidden\" name=\"manda_mail\" value=\"SI\">";
        if ($ripeti_tutto) {
            $contratto .= "<input type=\"hidden\" name=\"numero_email\" value=\"{$num_ripeti}\">";
        } else {
            $email_gia_inviata = 0;
            for ($n_r = 1; $n_r <= $num_ripeti; $n_r++) {
                if (${"email_" . $n_r}) {
                    $cliente = esegui_query("select idclienti from {$tableclienti} where email = '" . aggslashdb(${"email_" . $n_r}) . "' and cognome = '" . aggslashdb(${"cognome_" . $n_r}) . "' and doc_inviati {$ILIKE} '%#@?" . aggslashdb($oggetto_email) . "#@?%' ");
                    if (numlin_query($cliente) >= 1) {
                        $email_gia_inviata = 1;
                        $contratto .= "" . mex("<span class=\"colblu\">Attenzione</span>: una email con lo stesso oggetto è già stata inviata al cliente", $pag) . " " . ${"cognome_" . $n_r} . "<br>";
                    }
                    # fine if (numlin_query($cliente) >= 1)
                }
                # fine if (${"email_".$n_r})
            }
            # fine for $n_r
            if ($email_gia_inviata) {
                $contratto .= "<br>";
            }
            $contratto .= "<input type=\"hidden\" name=\"numero_email\" value=\"1\">\n<table><tr><td align=\"right\">" . mex("Da", $pag) . ":</td><td>";
            if ($modifica_pers != "NO") {
                $contratto .= "<input type=\"text\" name=\"mittente_email1\" size=\"60\" value=\"{$mittente_email}\">";
            } else {
                $contratto .= "<b>{$mittente_email}</b>";
            }
            $contratto .= "</td></tr><tr><td align=\"right\">\n" . mex("A", $pag) . ":</td><td>\n<input type=\"text\" name=\"destinatario_email1\" size=\"60\" value=\"";
            for ($n_r = 1; $n_r <= $num_ripeti; $n_r++) {
                if (${"email_" . $n_r}) {
                    $contratto .= ${"email_" . $n_r} . ",";
                }
            }
            if (substr($contratto, -1) == ",") {
                $contratto = substr($contratto, 0, -1);
            }
            $contratto .= "\"></td></tr><tr><td align=\"right\">\n" . mex("Oggetto", $pag) . ":</td><td>\n<input type=\"text\" name=\"oggetto_email1\" size=\"60\" value=\"{$oggetto_email}\"></td></tr>";
            if ($allegato_email) {
                $contratto .= "<tr><td></td><td><label><input type=\"checkbox\" name=\"allega1\" value=\"SI\" checked>\n" . mex("Allega", $pag) . " <b>{$allegato_email}</b></label></td></tr>";
            }
            # fine if ($allegato_email)
            $contratto .= "<tr><td style=\"height: 3px;\"></td></tr></table>\n&nbsp;&nbsp;<textarea name=\"testo_email1\" rows=32 cols=90>";
        }
        # fine else if ($ripeti_tutto)
    }
    # fine if ($tipo_contratto == "contreml")
    unset($id_sessione);
    unset($origine);
    # Condizioni applicate all'inizio del documento
    $break_cont = 0;
    for ($num1 = 0; $num1 < $num_condizioni_ini_d; $num1++) {
        $condizione = $condizione_ini_d_vett[$num1];
        $num_se = $num_cond_ini_d_vett[$num1];
        $azione = $azione_ini_d_vett[$num1];
        $cond_verificata = 1;
        if ($break_cont and $azione[0] != "cont") {
            $condizione = "";
            $cond_verificata = 0;
        }
        # fine if ($break_cont and $azione[0] != "cont")
        if ($condizione) {
            if ($condizione[0] == "or") {
                $cond_verificata = 0;
            }
            for ($num2 = 1; $num2 < $num_se; $num2++) {
                $se_cond_corr = $condizione[$num2];
                $var_if = $se_cond_corr[0];
                if (substr($var_if, -1) != ")") {
                    $var_if = ${$var_if};
                } else {
                    $var_if = explode("(", substr($var_if, 0, -1));
                    $var_if = ${$var_if[0]}[${$var_if[1]}];
                }
                # fine else if (substr($var_if,-1) != ")")
                $val_if = $se_cond_corr[3];
                if ($se_cond_corr[2] == "var") {
                    if (substr($val_if, -1) != ")") {
                        $val_if = ${$val_if};
                    } else {
                        $val_if = explode("(", substr($val_if, 0, -1));
                        $val_if = ${$val_if[0]}[${$val_if[1]}];
                    }
                    # fine else if (substr($val_if,-1) != ")")
                }
                # fine if ($se_cond_corr[2] == "var")
                $cond_verificata = 0;
                if ($se_cond_corr[1] == "=" and $var_if == $val_if or $se_cond_corr[1] == "!=" and $var_if != $val_if or $se_cond_corr[1] == ">" and $var_if > $val_if or $se_cond_corr[1] == "<" and $var_if < $val_if) {
                    $cond_verificata = 1;
                }
                if ($se_cond_corr[1] == "{}" and str_replace(strtolower($val_if), "", strtolower($var_if)) != strtolower($var_if) or $se_cond_corr[1] == "{A}" and str_replace($val_if, "", $var_if) != $var_if) {
                    $cond_verificata = 1;
                }
                if ($condizione[0] == "or" and $cond_verificata) {
                    break;
                }
                if ($condizione[0] == "and" and !$cond_verificata) {
                    break;
                }
            }
            # fine for $num2
        }
        # fine if ($condizione)
        if ($cond_verificata) {
            if ($azione[0] == "set") {
                $val_then = $azione[4];
                if ($azione[3] == "var") {
                    if (substr($val_then, -1) != ")") {
                        if ($var_predef_data[$val_then] and $val_then != "data_inizio_selezione" and $val_then != "data_fine_selezione" and $val_then != "oggi") {
                            $val_then = formatta_data_contr(${$val_then}, $stile_data);
                        } else {
                            $val_then = ${$val_then};
                        }
                    } else {
                        $val_then = explode("(", substr($val_then, 0, -1));
                        $val_then = ${$val_then[0]}[${$val_then[1]}];
                    }
                    # fine else if (substr($val_then,-1) != ")")
                }
                # fine if ($azione[3] == "var")
                if (strcmp($azione[6], "")) {
                    $txt_sost1 = $azione[6];
                    if ($azione[5] == "var") {
                        if (substr($txt_sost1, -1) != ")") {
                            $txt_sost1 = ${$txt_sost1};
                        } else {
                            $txt_sost1 = explode("(", substr($txt_sost1, 0, -1));
                            $txt_sost1 = ${$txt_sost1[0]}[${$txt_sost1[1]}];
                        }
                        # fine else if (substr($txt_sost1,-1) != ")")
                    }
                    # fine if ($azione[5] == "var")
                    $txt_sost2 = $azione[8];
                    if ($azione[7] == "var") {
                        if (substr($txt_sost2, -1) != ")") {
                            $txt_sost2 = ${$txt_sost2};
                        } else {
                            $txt_sost2 = explode("(", substr($txt_sost2, 0, -1));
                            $txt_sost2 = ${$txt_sost2[0]}[${$txt_sost2[1]}];
                        }
                        # fine else if (substr($txt_sost2,-1) != ")")
                    }
                    # fine if ($azione[7] == "var")
                    $val_then = str_replace($txt_sost1, $txt_sost2, $val_then);
                }
                # fine if (strcmp($azione[6],""))
                if ($azione[2] == ".=") {
                    if (substr($azione[1], 0, 1) != "a") {
                        $var_then_orig = ${$variabile[$azione[1]]};
                    } else {
                        $var_then_orig = ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}];
                    }
                } else {
                    $var_then_orig = "";
                }
                if (substr($azione[1], 0, 1) != "a") {
                    ${$variabile[$azione[1]]} = $var_then_orig . $val_then;
                } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                    ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_then_orig . $val_then;
                    $array_date_contr[$array[substr($azione[1], 1)]] = "";
                }
                # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
            }
            # fine if ($azione[0] == "set")
            if ($azione[0] == "trunc") {
                if (substr($azione[1], 0, 1) != "a") {
                    $var_da_assegnare = ${$variabile[$azione[1]]};
                } else {
                    $var_da_assegnare = ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}];
                }
                if (strcmp($azione[3], "")) {
                    while (num_caratteri_testo($var_da_assegnare) < $azione[2]) {
                        if ($azione[4] == "ini") {
                            $var_da_assegnare = $azione[3] . $var_da_assegnare;
                        }
                        if ($azione[4] == "fin") {
                            $var_da_assegnare .= $azione[3];
                        }
                    }
                    # fine while (num_caratteri_testo($var_da_assegnare) < $azione[2])
                }
                # fine if (strcmp($azione[3],""))
                if (substr($azione[1], 0, 1) != "a") {
                    ${$variabile[$azione[1]]} = tronca_testo($var_da_assegnare, 0, $azione[2]);
                } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                    ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = tronca_testo($var_da_assegnare, 0, $azione[2]);
                    $array_date_contr[$array[substr($azione[1], 1)]] = "";
                }
                # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
            }
            # fine if ($azione[0] == "trunc")
            if ($azione[0] == "oper") {
                $cont_oper = "SI";
                $var_con_punti = "NO";
                $var_da_oper = $azione[2];
                if (substr($var_da_oper, -1) != ")") {
                    if (substr($var_da_oper, -2) != "_p" or !isset(${substr($var_da_oper, 0, -2)})) {
                        $var_da_oper = ${$var_da_oper};
                    } else {
                        $var_da_oper = ${substr($var_da_oper, 0, -2)};
                    }
                } else {
                    $var_da_oper = explode("(", substr($var_da_oper, 0, -1));
                    if (substr($var_da_oper[0], -2) != "_p" or !isset(${substr($var_da_oper[0], 0, -2)}[${$var_da_oper[1]}])) {
                        $var_da_oper = ${$var_da_oper[0]}[${$var_da_oper[1]}];
                    } else {
                        $var_da_oper = ${substr($var_da_oper[0], 0, -2)}[${$var_da_oper[1]}];
                    }
                }
                # fine else if (substr($var_da_oper,-1) != ")")
                $var_da_oper = formatta_soldi($var_da_oper);
                if (controlla_soldi($var_da_oper) == "NO") {
                    $cont_oper = "NO";
                }
                $var_da_oper2 = $azione[5];
                if ($azione[4] == "var") {
                    if (substr($var_da_oper2, -1) != ")") {
                        if (substr($var_da_oper2, -2) != "_p" or !isset(${substr($var_da_oper2, 0, -2)})) {
                            $var_da_oper2 = ${$var_da_oper2};
                        } else {
                            $var_da_oper2 = ${substr($var_da_oper2, 0, -2)};
                        }
                    } else {
                        $var_da_oper2 = explode("(", substr($var_da_oper2, 0, -1));
                        if (substr($var_da_oper2[0], -2) != "_p" or !isset(${substr($var_da_oper2[0], 0, -2)}[${$var_da_oper2[1]}])) {
                            $var_da_oper2 = ${$var_da_oper2[0]}[${$var_da_oper2[1]}];
                        } else {
                            $var_da_oper2 = ${substr($var_da_oper2[0], 0, -2)}[${$var_da_oper2[1]}];
                        }
                    }
                    # fine else if (substr($var_da_oper2,-1) != ")")
                }
                # fine if ($azione[4] == "var")
                $var_da_oper2 = formatta_soldi($var_da_oper2);
                if (controlla_soldi($var_da_oper2) == "NO") {
                    $cont_oper = "NO";
                }
                if ($cont_oper != "NO") {
                    if ($azione[3] == "+") {
                        $var_da_assegnare = (double) $var_da_oper + (double) $var_da_oper2;
                    }
                    if ($azione[3] == "-") {
                        $var_da_assegnare = (double) $var_da_oper - (double) $var_da_oper2;
                    }
                    if ($azione[3] == "*") {
                        $var_da_assegnare = (double) $var_da_oper * (double) $var_da_oper2;
                    }
                    if ($azione[3] == "/") {
                        $var_da_assegnare = (double) $var_da_oper / (double) $var_da_oper2;
                    }
                    if ($azione[6]) {
                        $var_da_assegnare = $var_da_assegnare / (double) $azione[6];
                        $var_da_assegnare = round($var_da_assegnare);
                        $var_da_assegnare = $var_da_assegnare * (double) $azione[6];
                    }
                    # fine if ($azione[6])
                    if (substr($azione[1], 0, 1) != "a") {
                        if (substr($variabile[$azione[1]], -2) != "_p") {
                            ${$variabile[$azione[1]]} = $var_da_assegnare;
                        } else {
                            ${$variabile[$azione[1]]} = punti_in_num($var_da_assegnare, $stile_soldi, 2);
                        }
                    } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                        $array_date_contr[$array[substr($azione[1], 1)]] = "";
                        if (substr($array[substr($azione[1], 1)], -2) != "_p") {
                            ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_da_assegnare;
                        } else {
                            ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = punti_in_num($var_da_assegnare, $stile_soldi, 2);
                        }
                    }
                    # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                }
                # fine if ($cont_oper != "NO")
            }
            # fine if ($azione[0] == "oper")
            if ($azione[0] == "date") {
                $cont_oper = 1;
                $var_da_oper = $azione[2];
                if (substr($var_da_oper, -1) != ")") {
                    $var_da_oper = ${$var_da_oper};
                } else {
                    $var_da_oper = explode("(", substr($var_da_oper, 0, -1));
                    $var_da_oper = ${$var_da_oper[0]}[${$var_da_oper[1]}];
                }
                # fine else if (substr($var_da_oper,-1) != ")")
                $var_da_oper = substr($var_da_oper, 0, 10);
                if (preg_match("/[0-9]{2,2}-[0-9]{2,2}-[0-9]{4,4}/", $var_da_oper)) {
                    if ($stile_data == "usa") {
                        $var_da_oper = substr($var_da_oper, 6, 4) . "-" . substr($var_da_oper, 0, 2) . "-" . substr($var_da_oper, 3, 2);
                    } else {
                        $var_da_oper = substr($var_da_oper, 6, 4) . "-" . substr($var_da_oper, 3, 2) . "-" . substr($var_da_oper, 0, 2);
                    }
                }
                # fine if (preg_match("/[0-9]{2,2}-[0-9]{2,2}-[0-9]{4,4}/",$var_da_oper))
                if (!preg_match("/[0-9]{4,4}-[0-9]{2,2}-[0-9]{2,2}/", $var_da_oper)) {
                    $cont_oper = 0;
                }
                if ($cont_oper) {
                    if ($azione[3] == "gi") {
                        $var_da_assegnare = "d";
                    }
                    if ($azione[3] == "me") {
                        $var_da_assegnare = "m";
                    }
                    if ($azione[3] == "an") {
                        $var_da_assegnare = "Y";
                    }
                    if ($azione[3] == "gs") {
                        $var_da_assegnare = "w";
                    }
                    if ($azione[3] == "is") {
                        $var_da_assegnare = "Y-m-d";
                    }
                    if ($azione[3] == "da") {
                        if ($stile_data == "usa") {
                            $var_da_assegnare = "m-d-Y";
                        } else {
                            $var_da_assegnare = "d-m-Y";
                        }
                    }
                    # fine if ($azione[3] == "da")
                    $txt_sost1 = 0;
                    $num2 = 0;
                    $num3 = 0;
                    if ($azione[5] == "g") {
                        $txt_sost1 = $azione[4];
                    }
                    if ($azione[5] == "m") {
                        $num2 = $azione[4];
                    }
                    if ($azione[5] == "a") {
                        $num3 = $azione[4];
                    }
                    $var_da_assegnare = date($var_da_assegnare, mktime(0, 0, 0, substr($var_da_oper, 5, 2) + $num2, substr($var_da_oper, 8, 2) + $txt_sost1, substr($var_da_oper, 0, 4) + $num3));
                    if (substr($azione[1], 0, 1) != "a") {
                        ${$variabile[$azione[1]]} = $var_da_assegnare;
                    } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                        if ($azione[3] != "is") {
                            $array_date_contr[$array[substr($azione[1], 1)]] = "";
                        }
                        ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_da_assegnare;
                    }
                    # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                }
                # fine if ($cont_oper)
            }
            # fine if ($azione[0] == "date")
            if ($azione[0] == "unset") {
                unset(${$array[substr($azione[1], 1)]});
                $array_date_contr[$array[substr($azione[1], 1)]] = "";
            }
            # fine if ($azione[0] == "unset")
            if ($azione[0] == "array") {
                $nome_arr = $array[substr($azione[1], 1)];
                if ($azione[2] == "val") {
                    unset(${$nome_arr});
                    $array_date_contr[$nome_arr] = "";
                    $lista_val = explode(",", $azione[3]);
                    $num_lista_val = count($lista_val);
                    for ($num2 = 1; $num2 <= $num_lista_val; $num2++) {
                        ${$nome_arr}[$num2] = $lista_val[$num2 - 1];
                    }
                }
                # fine if ($azione[2] == "val")
                if ($azione[2] == "dat" or $azione[2] == "dap") {
                    unset(${$nome_arr});
                    if ($azione[2] == "dat" and $data_inizio_selezione and $data_fine_selezione or $azione[2] == "dap" and $data_primo_arrivo and $data_ultima_partenza) {
                        $array_date_contr[$nome_arr] = "SI";
                        if ($azione[2] == "dat") {
                            $data_corr_arr = $data_inizio_selezione_orig;
                            $txt_sost1 = $data_fine_selezione_orig;
                        }
                        # fine if ($azione[2] == "dat")
                        if ($azione[2] == "dap") {
                            $data_corr_arr = $data_primo_arrivo;
                            $txt_sost1 = $data_ultima_partenza;
                        }
                        # fine if ($azione[2] == "dap")
                        $num2 = 1;
                        ${$nome_arr}[$num2] = $data_corr_arr;
                        while ($data_corr_arr != $txt_sost1) {
                            $num2++;
                            $data_corr_arr = date("Y-m-d", mktime(0, 0, 0, substr($data_corr_arr, 5, 2), substr($data_corr_arr, 8, 2) + 1, substr($data_corr_arr, 0, 4)));
                            ${$nome_arr}[$num2] = $data_corr_arr;
                        }
                        # fine while ($data_corr_arr != $txt_sost1)
                    }
                    # fine if (($azione[2] == "dat" and $data_inizio_selezione and $data_fine_selezione) or...
                }
                # fine if ($azione[2] == "dat" or $azione[2] == "dap")
                if ($azione[2] == "cop") {
                    $lista_val = ${$array[substr($azione[3], 1)]};
                    ${$nome_arr} = $lista_val;
                    $array_date_contr[$nome_arr] = $array_date_contr[$array[substr($azione[3], 1)]];
                }
                # fine if ($azione[2] == "cop")
            }
            # fine if ($azione[0] == "array")
            if ($azione[0] == "break") {
                if ($azione[1] == "cont") {
                    $break_cont = 1;
                } else {
                    break;
                }
            }
            # fine if ($azione[0] == "break")
            if ($azione[0] == "cont") {
                $break_cont = 0;
            }
        }
        # fine if ($cond_verificata)
    }
    # fine for $num1
    unset($condizione_ini_d_vett);
    unset($num_cond_ini_d_vett);
    unset($azione_ini_d_vett);
    if ($ripeti_tutto) {
        $contratto_parte0[1] = $contratto_orig;
        $ripeti_parte0[1] = "NO";
        $tipo_parte0 = "";
        $num_parti0_contr = 1;
    } else {
        if ($dir_salva) {
            $numero_progressivo_documento = $num_prog_contr[1];
        }
        $num_parti0_contr = 0;
        $contratto_vett = explode("[", $contratto_orig);
        $num_contratto_vett = count($contratto_vett);
        $livello = 0;
        $contratto_presente = $contratto_vett[0];
        for ($num1 = 1; $num1 < $num_contratto_vett; $num1++) {
            $parte = $contratto_vett[$num1];
            $apertura = "";
            $chiusura = "";
            if (substr($parte, 0, 2) == "r]") {
                $apertura = "r";
            }
            if (substr($parte, 0, 10) == "r4 array=\"") {
                $parte_vett = explode("\"]", substr($parte, 10));
                if (strcmp($parte_vett[0], "")) {
                    if (!strcmp(preg_replace("/[A-Za-z]+[A-Za-z0-9_]*/", "", $parte_vett[0]), "")) {
                        $apertura = "r4 array=\"" . $parte_vett[0] . "\"";
                    }
                }
                # fine if (strcmp($parte_vett[0],""))
            }
            # fine if (substr($parte,0,10) == "r4 array=\"")
            if (substr($parte, 0, 3) == "r6]") {
                $apertura = "r6";
            }
            if (substr($parte, 0, 3) == "/r]") {
                $chiusura = "r";
            }
            if (substr($parte, 0, 4) == "/r4]") {
                $chiusura = "r4";
            }
            if (substr($parte, 0, 4) == "/r6]") {
                $chiusura = "r6";
            }
            if ($apertura) {
                $livello++;
                if ($livello == 1 and (substr($apertura, 0, 2) == "r4" or $apertura == "r6")) {
                    if (strcmp($contratto_presente, "")) {
                        $num_parti0_contr++;
                        $contratto_parte0[$num_parti0_contr] = $contratto_presente;
                        $ripeti_parte0[$num_parti0_contr] = "NO";
                    }
                    # fine if (strcmp($contratto_presente,""))
                    $contratto_presente = substr($contratto_vett[$num1], strlen($apertura) + 1);
                    $var_arr_presente = substr($apertura, 10, -1);
                } else {
                    $apertura = "";
                }
            }
            # fine ($apertura)
            if ($chiusura) {
                if ($livello == 1 and ($chiusura == "r4" or $chiusura == "r6")) {
                    if (strcmp($contratto_presente, "")) {
                        $num_parti0_contr++;
                        $contratto_parte0[$num_parti0_contr] = $contratto_presente;
                        $ripeti_parte0[$num_parti0_contr] = "SI";
                        if ($chiusura == "r4") {
                            $tipo_parte0[$num_parti0_contr] = "4";
                            $arr_parte0[$num_parti0_contr] = $var_arr_presente;
                        }
                        # fine if ($chiusura == "r4")
                        if ($chiusura == "r6") {
                            $tipo_parte0[$num_parti0_contr] = "6";
                        }
                    }
                    # fine if (strcmp($contratto_presente,""))
                    $contratto_presente = substr($contratto_vett[$num1], strlen($chiusura) + 2);
                } else {
                    $chiusura = "";
                }
                $livello--;
            }
            # fine if ($chiusura)
            if (!$apertura and !$chiusura) {
                $contratto_presente .= "[" . $contratto_vett[$num1];
            }
        }
        # fine for $num1
        if (strcmp($contratto_presente, "")) {
            $num_parti0_contr++;
            $contratto_parte0[$num_parti0_contr] = $contratto_presente;
            $ripeti_parte0[$num_parti0_contr] = "NO";
        }
        # fine if (strcmp($contratto_presente,""))
    }
    # fine else if ($ripeti_tutto)
    # parti n_p0: parti del contratto se c'è una ripetizione di array o unità esternamente
    for ($n_p0 = 1; $n_p0 <= $num_parti0_contr; $n_p0++) {
        $contratto_orig0 = $contratto_parte0[$n_p0];
        unset($contratto_parte);
        if (str_replace("[r]", "", $contratto_orig0) == $contratto_orig0 or $contr_multilingua) {
            $contratto_parte[1] = $contratto_orig0;
            if ($ripeti_tutto) {
                $ripeti_parte[1] = "SI";
            } else {
                $ripeti_parte[1] = "NO";
            }
            $num_parti_contr = 1;
        } else {
            $num_parti_contr = 0;
            $contratto_restante = $contratto_orig0;
            while (str_replace("[r]", "", $contratto_restante) != $contratto_restante) {
                $contr_vett = explode("[r]", $contratto_restante);
                if ($contr_vett[0] != "") {
                    $num_parti_contr++;
                    $contratto_parte[$num_parti_contr] = $contr_vett[0];
                    $ripeti_parte[$num_parti_contr] = "NO";
                }
                # fine if ($contr_vett[0] != "")
                $contratto_restante = substr($contratto_restante, strlen($contr_vett[0]) + 3);
                $contr_vett = explode("[/r]", $contratto_restante);
                $num_parti_contr++;
                $contratto_parte[$num_parti_contr] = $contr_vett[0];
                $ripeti_parte[$num_parti_contr] = "SI";
                $contratto_restante = substr($contratto_restante, strlen($contr_vett[0]) + 4);
            }
            # fine while (str_replace("[r]","",$contratto_restante) != $contratto_restante)
            if ($contratto_restante != "") {
                $num_parti_contr++;
                $contratto_parte[$num_parti_contr] = $contratto_restante;
                $ripeti_parte[$num_parti_contr] = "NO";
            }
            # fine if ($contratto_restante != "")
        }
        # fine else if (str_replace("[r]","",$contratto_orig0) == $contratto_orig0 or $contr_multilingua)
        if ($ripeti_parte0[$n_p0] == "NO") {
            $num_ripeti0 = 1;
        } else {
            $num_ripeti0 = 0;
            if ($tipo_parte0[$n_p0] == "6") {
                $num_ripeti0 = $num_unita;
            }
            if ($tipo_parte0[$n_p0] == "4" and @is_array(${$arr_parte0[$n_p0]})) {
                $num_ripeti0 = count(${$arr_parte0[$n_p0]});
                reset(${$arr_parte0[$n_p0]});
            }
            # fine if ($tipo_parte0[$n_p0] == "4" and @is_array(${$arr_parte0[$n_p0]}))
        }
        # fine else if ($ripeti_parte0[$n_p0] == "NO")
        # ripetizione n_r0: ripetere parte del contratto se esternamente c'è una ripetizione di array o unità
        for ($n_r0 = 1; $n_r0 <= $num_ripeti0; $n_r0++) {
            $ripeti_prenota_data = "";
            if ($ripeti_parte0[$n_p0] != "NO") {
                if ($tipo_parte0[$n_p0] == "6") {
                    $nome_unita = $dati_app_contr[$n_r0]['nome'];
                    $casa_unita = $dati_app_contr[$n_r0]['casa'];
                    $piano_unita = $dati_app_contr[$n_r0]['piano'];
                    $capacita_unita = $dati_app_contr[$n_r0]['capacita'];
                    $priorita_unita = $dati_app_contr[$n_r0]['priorita'];
                } else {
                    $nome_unita = "";
                    $casa_unita = "";
                    $piano_unita = "";
                    $capacita_unita = "";
                    $priorita_unita = "";
                }
                # fine else if ($tipo_parte0[$n_p0] == "6")
                if ($tipo_parte0[$n_p0] == "4") {
                    ${$var_arr_nome[$arr_parte0[$n_p0]]} = key(${$arr_parte0[$n_p0]});
                    if ($array_date_contr[$arr_parte0[$n_p0]] == "SI") {
                        $ripeti_prenota_data = current(${$arr_parte0[$n_p0]});
                    }
                    next(${$arr_parte0[$n_p0]});
                }
                # fine if ($tipo_parte0[$n_p0] == "4")
            }
            # fine if ($ripeti_parte0[$n_p0] != "NO")
            # parti n_p: parti del contratto se ci sono ripetizioni prenotazioni
            for ($n_p = 1; $n_p <= $num_parti_contr; $n_p++) {
                $numero_ripetizione_prenotazioni = 1;
                if ($ripeti_parte[$n_p] == "SI") {
                    $costo_tot_somma_ripetizioni = 0;
                    $caparra_somma_ripetizioni = 0;
                    $resto_caparra_somma_ripetizioni = 0;
                    $pagato_somma_ripetizioni = 0;
                    $resto_da_pagare_somma_ripetizioni = 0;
                    $num_persone_tot_somma_ripetizioni = 0;
                    $numero_ripetizione_prenotazioni_orig = 0;
                    # Condizioni applicate all'inizio di ogni ripetizione di prenotazioni
                    $break_cont = 0;
                    for ($num1 = 0; $num1 < $num_condizioni_ini_r; $num1++) {
                        $condizione = $condizione_ini_r_vett[$num1];
                        $num_se = $num_cond_ini_r_vett[$num1];
                        $azione = $azione_ini_r_vett[$num1];
                        $cond_verificata = 1;
                        if ($break_cont and $azione[0] != "cont") {
                            $condizione = "";
                            $cond_verificata = 0;
                        }
                        # fine if ($break_cont and $azione[0] != "cont")
                        if ($condizione) {
                            if ($condizione[0] == "or") {
                                $cond_verificata = 0;
                            }
                            for ($num2 = 1; $num2 < $num_se; $num2++) {
                                $se_cond_corr = $condizione[$num2];
                                $var_if = $se_cond_corr[0];
                                if (substr($var_if, -1) != ")") {
                                    $var_if = ${$var_if};
                                } else {
                                    $var_if = explode("(", substr($var_if, 0, -1));
                                    $var_if = ${$var_if[0]}[${$var_if[1]}];
                                }
                                # fine else if (substr($var_if,-1) != ")")
                                $val_if = $se_cond_corr[3];
                                if ($se_cond_corr[2] == "var") {
                                    if (substr($val_if, -1) != ")") {
                                        $val_if = ${$val_if};
                                    } else {
                                        $val_if = explode("(", substr($val_if, 0, -1));
                                        $val_if = ${$val_if[0]}[${$val_if[1]}];
                                    }
                                    # fine else if (substr($val_if,-1) != ")")
                                }
                                # fine if ($se_cond_corr[2] == "var")
                                $cond_verificata = 0;
                                if ($se_cond_corr[1] == "=" and $var_if == $val_if or $se_cond_corr[1] == "!=" and $var_if != $val_if or $se_cond_corr[1] == ">" and $var_if > $val_if or $se_cond_corr[1] == "<" and $var_if < $val_if) {
                                    $cond_verificata = 1;
                                }
                                if ($se_cond_corr[1] == "{}" and str_replace(strtolower($val_if), "", strtolower($var_if)) != strtolower($var_if) or $se_cond_corr[1] == "{A}" and str_replace($val_if, "", $var_if) != $var_if) {
                                    $cond_verificata = 1;
                                }
                                if ($condizione[0] == "or" and $cond_verificata) {
                                    break;
                                }
                                if ($condizione[0] == "and" and !$cond_verificata) {
                                    break;
                                }
                            }
                            # fine for $num2
                        }
                        # fine if ($condizione)
                        if ($cond_verificata) {
                            if ($azione[0] == "set") {
                                $val_then = $azione[4];
                                if ($azione[3] == "var") {
                                    if (substr($val_then, -1) != ")") {
                                        if ($var_predef_data[$val_then] and $val_then != "data_inizio_selezione" and $val_then != "data_fine_selezione" and $val_then != "oggi") {
                                            $val_then = formatta_data_contr(${$val_then}, $stile_data);
                                        } else {
                                            $val_then = ${$val_then};
                                        }
                                    } else {
                                        $val_then = explode("(", substr($val_then, 0, -1));
                                        $val_then = ${$val_then[0]}[${$val_then[1]}];
                                    }
                                    # fine else if (substr($val_then,-1) != ")")
                                }
                                # fine if ($azione[3] == "var")
                                if (strcmp($azione[6], "")) {
                                    $txt_sost1 = $azione[6];
                                    if ($azione[5] == "var") {
                                        if (substr($txt_sost1, -1) != ")") {
                                            $txt_sost1 = ${$txt_sost1};
                                        } else {
                                            $txt_sost1 = explode("(", substr($txt_sost1, 0, -1));
                                            $txt_sost1 = ${$txt_sost1[0]}[${$txt_sost1[1]}];
                                        }
                                        # fine else if (substr($txt_sost1,-1) != ")")
                                    }
                                    # fine if ($azione[5] == "var")
                                    $txt_sost2 = $azione[8];
                                    if ($azione[7] == "var") {
                                        if (substr($txt_sost2, -1) != ")") {
                                            $txt_sost2 = ${$txt_sost2};
                                        } else {
                                            $txt_sost2 = explode("(", substr($txt_sost2, 0, -1));
                                            $txt_sost2 = ${$txt_sost2[0]}[${$txt_sost2[1]}];
                                        }
                                        # fine else if (substr($txt_sost2,-1) != ")")
                                    }
                                    # fine if ($azione[7] == "var")
                                    $val_then = str_replace($txt_sost1, $txt_sost2, $val_then);
                                }
                                # fine if (strcmp($azione[6],""))
                                if ($azione[2] == ".=") {
                                    if (substr($azione[1], 0, 1) != "a") {
                                        $var_then_orig = ${$variabile[$azione[1]]};
                                    } else {
                                        $var_then_orig = ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}];
                                    }
                                } else {
                                    $var_then_orig = "";
                                }
                                if (substr($azione[1], 0, 1) != "a") {
                                    ${$variabile[$azione[1]]} = $var_then_orig . $val_then;
                                } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                                    ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_then_orig . $val_then;
                                    $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                }
                                # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                            }
                            # fine if ($azione[0] == "set")
                            if ($azione[0] == "trunc") {
                                if (substr($azione[1], 0, 1) != "a") {
                                    $var_da_assegnare = ${$variabile[$azione[1]]};
                                } else {
                                    $var_da_assegnare = ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}];
                                }
                                if (strcmp($azione[3], "")) {
                                    while (num_caratteri_testo($var_da_assegnare) < $azione[2]) {
                                        if ($azione[4] == "ini") {
                                            $var_da_assegnare = $azione[3] . $var_da_assegnare;
                                        }
                                        if ($azione[4] == "fin") {
                                            $var_da_assegnare .= $azione[3];
                                        }
                                    }
                                    # fine while (num_caratteri_testo($var_da_assegnare) < $azione[2])
                                }
                                # fine if (strcmp($azione[3],""))
                                if (substr($azione[1], 0, 1) != "a") {
                                    ${$variabile[$azione[1]]} = tronca_testo($var_da_assegnare, 0, $azione[2]);
                                } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                                    ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = tronca_testo($var_da_assegnare, 0, $azione[2]);
                                    $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                }
                                # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                            }
                            # fine if ($azione[0] == "trunc")
                            if ($azione[0] == "oper") {
                                $cont_oper = "SI";
                                $var_con_punti = "NO";
                                $var_da_oper = $azione[2];
                                if (substr($var_da_oper, -1) != ")") {
                                    if (substr($var_da_oper, -2) != "_p" or !isset(${substr($var_da_oper, 0, -2)})) {
                                        $var_da_oper = ${$var_da_oper};
                                    } else {
                                        $var_da_oper = ${substr($var_da_oper, 0, -2)};
                                    }
                                } else {
                                    $var_da_oper = explode("(", substr($var_da_oper, 0, -1));
                                    if (substr($var_da_oper[0], -2) != "_p" or !isset(${substr($var_da_oper[0], 0, -2)}[${$var_da_oper[1]}])) {
                                        $var_da_oper = ${$var_da_oper[0]}[${$var_da_oper[1]}];
                                    } else {
                                        $var_da_oper = ${substr($var_da_oper[0], 0, -2)}[${$var_da_oper[1]}];
                                    }
                                }
                                # fine else if (substr($var_da_oper,-1) != ")")
                                $var_da_oper = formatta_soldi($var_da_oper);
                                if (controlla_soldi($var_da_oper) == "NO") {
                                    $cont_oper = "NO";
                                }
                                $var_da_oper2 = $azione[5];
                                if ($azione[4] == "var") {
                                    if (substr($var_da_oper2, -1) != ")") {
                                        if (substr($var_da_oper2, -2) != "_p" or !isset(${substr($var_da_oper2, 0, -2)})) {
                                            $var_da_oper2 = ${$var_da_oper2};
                                        } else {
                                            $var_da_oper2 = ${substr($var_da_oper2, 0, -2)};
                                        }
                                    } else {
                                        $var_da_oper2 = explode("(", substr($var_da_oper2, 0, -1));
                                        if (substr($var_da_oper2[0], -2) != "_p" or !isset(${substr($var_da_oper2[0], 0, -2)}[${$var_da_oper2[1]}])) {
                                            $var_da_oper2 = ${$var_da_oper2[0]}[${$var_da_oper2[1]}];
                                        } else {
                                            $var_da_oper2 = ${substr($var_da_oper2[0], 0, -2)}[${$var_da_oper2[1]}];
                                        }
                                    }
                                    # fine else if (substr($var_da_oper2,-1) != ")")
                                }
                                # fine if ($azione[4] == "var")
                                $var_da_oper2 = formatta_soldi($var_da_oper2);
                                if (controlla_soldi($var_da_oper2) == "NO") {
                                    $cont_oper = "NO";
                                }
                                if ($cont_oper != "NO") {
                                    if ($azione[3] == "+") {
                                        $var_da_assegnare = (double) $var_da_oper + (double) $var_da_oper2;
                                    }
                                    if ($azione[3] == "-") {
                                        $var_da_assegnare = (double) $var_da_oper - (double) $var_da_oper2;
                                    }
                                    if ($azione[3] == "*") {
                                        $var_da_assegnare = (double) $var_da_oper * (double) $var_da_oper2;
                                    }
                                    if ($azione[3] == "/") {
                                        $var_da_assegnare = (double) $var_da_oper / (double) $var_da_oper2;
                                    }
                                    if ($azione[6]) {
                                        $var_da_assegnare = $var_da_assegnare / (double) $azione[6];
                                        $var_da_assegnare = round($var_da_assegnare);
                                        $var_da_assegnare = $var_da_assegnare * (double) $azione[6];
                                    }
                                    # fine if ($azione[6])
                                    if (substr($azione[1], 0, 1) != "a") {
                                        if (substr($variabile[$azione[1]], -2) != "_p") {
                                            ${$variabile[$azione[1]]} = $var_da_assegnare;
                                        } else {
                                            ${$variabile[$azione[1]]} = punti_in_num($var_da_assegnare, $stile_soldi, 2);
                                        }
                                    } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                                        $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                        if (substr($array[substr($azione[1], 1)], -2) != "_p") {
                                            ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_da_assegnare;
                                        } else {
                                            ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = punti_in_num($var_da_assegnare, $stile_soldi, 2);
                                        }
                                    }
                                    # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                                }
                                # fine if ($cont_oper != "NO")
                            }
                            # fine if ($azione[0] == "oper")
                            if ($azione[0] == "date") {
                                $cont_oper = 1;
                                $var_da_oper = $azione[2];
                                if (substr($var_da_oper, -1) != ")") {
                                    $var_da_oper = ${$var_da_oper};
                                } else {
                                    $var_da_oper = explode("(", substr($var_da_oper, 0, -1));
                                    $var_da_oper = ${$var_da_oper[0]}[${$var_da_oper[1]}];
                                }
                                # fine else if (substr($var_da_oper,-1) != ")")
                                $var_da_oper = substr($var_da_oper, 0, 10);
                                if (preg_match("/[0-9]{2,2}-[0-9]{2,2}-[0-9]{4,4}/", $var_da_oper)) {
                                    if ($stile_data == "usa") {
                                        $var_da_oper = substr($var_da_oper, 6, 4) . "-" . substr($var_da_oper, 0, 2) . "-" . substr($var_da_oper, 3, 2);
                                    } else {
                                        $var_da_oper = substr($var_da_oper, 6, 4) . "-" . substr($var_da_oper, 3, 2) . "-" . substr($var_da_oper, 0, 2);
                                    }
                                }
                                # fine if (preg_match("/[0-9]{2,2}-[0-9]{2,2}-[0-9]{4,4}/",$var_da_oper))
                                if (!preg_match("/[0-9]{4,4}-[0-9]{2,2}-[0-9]{2,2}/", $var_da_oper)) {
                                    $cont_oper = 0;
                                }
                                if ($cont_oper) {
                                    if ($azione[3] == "gi") {
                                        $var_da_assegnare = "d";
                                    }
                                    if ($azione[3] == "me") {
                                        $var_da_assegnare = "m";
                                    }
                                    if ($azione[3] == "an") {
                                        $var_da_assegnare = "Y";
                                    }
                                    if ($azione[3] == "gs") {
                                        $var_da_assegnare = "w";
                                    }
                                    if ($azione[3] == "is") {
                                        $var_da_assegnare = "Y-m-d";
                                    }
                                    if ($azione[3] == "da") {
                                        if ($stile_data == "usa") {
                                            $var_da_assegnare = "m-d-Y";
                                        } else {
                                            $var_da_assegnare = "d-m-Y";
                                        }
                                    }
                                    # fine if ($azione[3] == "da")
                                    $txt_sost1 = 0;
                                    $num2 = 0;
                                    $num3 = 0;
                                    if ($azione[5] == "g") {
                                        $txt_sost1 = $azione[4];
                                    }
                                    if ($azione[5] == "m") {
                                        $num2 = $azione[4];
                                    }
                                    if ($azione[5] == "a") {
                                        $num3 = $azione[4];
                                    }
                                    $var_da_assegnare = date($var_da_assegnare, mktime(0, 0, 0, substr($var_da_oper, 5, 2) + $num2, substr($var_da_oper, 8, 2) + $txt_sost1, substr($var_da_oper, 0, 4) + $num3));
                                    if (substr($azione[1], 0, 1) != "a") {
                                        ${$variabile[$azione[1]]} = $var_da_assegnare;
                                    } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                                        if ($azione[3] != "is") {
                                            $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                        }
                                        ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_da_assegnare;
                                    }
                                    # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                                }
                                # fine if ($cont_oper)
                            }
                            # fine if ($azione[0] == "date")
                            if ($azione[0] == "unset") {
                                unset(${$array[substr($azione[1], 1)]});
                                $array_date_contr[$array[substr($azione[1], 1)]] = "";
                            }
                            # fine if ($azione[0] == "unset")
                            if ($azione[0] == "array") {
                                $nome_arr = $array[substr($azione[1], 1)];
                                if ($azione[2] == "val") {
                                    unset(${$nome_arr});
                                    $array_date_contr[$nome_arr] = "";
                                    $lista_val = explode(",", $azione[3]);
                                    $num_lista_val = count($lista_val);
                                    for ($num2 = 1; $num2 <= $num_lista_val; $num2++) {
                                        ${$nome_arr}[$num2] = $lista_val[$num2 - 1];
                                    }
                                }
                                # fine if ($azione[2] == "val")
                                if ($azione[2] == "dat" or $azione[2] == "dap") {
                                    unset(${$nome_arr});
                                    if ($azione[2] == "dat" and $data_inizio_selezione and $data_fine_selezione or $azione[2] == "dap" and $data_primo_arrivo and $data_ultima_partenza) {
                                        $array_date_contr[$nome_arr] = "SI";
                                        if ($azione[2] == "dat") {
                                            $data_corr_arr = $data_inizio_selezione_orig;
                                            $txt_sost1 = $data_fine_selezione_orig;
                                        }
                                        # fine if ($azione[2] == "dat")
                                        if ($azione[2] == "dap") {
                                            $data_corr_arr = $data_primo_arrivo;
                                            $txt_sost1 = $data_ultima_partenza;
                                        }
                                        # fine if ($azione[2] == "dap")
                                        $num2 = 1;
                                        ${$nome_arr}[$num2] = $data_corr_arr;
                                        while ($data_corr_arr != $txt_sost1) {
                                            $num2++;
                                            $data_corr_arr = date("Y-m-d", mktime(0, 0, 0, substr($data_corr_arr, 5, 2), substr($data_corr_arr, 8, 2) + 1, substr($data_corr_arr, 0, 4)));
                                            ${$nome_arr}[$num2] = $data_corr_arr;
                                        }
                                        # fine while ($data_corr_arr != $txt_sost1)
                                    }
                                    # fine if (($azione[2] == "dat" and $data_inizio_selezione and $data_fine_selezione) or...
                                }
                                # fine if ($azione[2] == "dat" or $azione[2] == "dap")
                                if ($azione[2] == "cop") {
                                    $lista_val = ${$array[substr($azione[3], 1)]};
                                    ${$nome_arr} = $lista_val;
                                    $array_date_contr[$nome_arr] = $array_date_contr[$array[substr($azione[3], 1)]];
                                }
                                # fine if ($azione[2] == "cop")
                            }
                            # fine if ($azione[0] == "array")
                            if ($azione[0] == "break") {
                                if ($azione[1] == "cont") {
                                    $break_cont = 1;
                                } else {
                                    break;
                                }
                            }
                            # fine if ($azione[0] == "break")
                            if ($azione[0] == "cont") {
                                $break_cont = 0;
                            }
                        }
                        # fine if ($cond_verificata)
                    }
                    # fine for $num1
                    # ripetizione n_r: se c'è da ripetere la parte del contratto per ogni prenotazione
                    for ($n_r = 1; $n_r <= $num_ripeti; $n_r++) {
                        if (!$ripeti_prenota_data or ${"data_fine" . "_" . $n_r} >= $ripeti_prenota_data and ${"data_inizio" . "_" . $n_r} <= $ripeti_prenota_data) {
                            for ($num1 = 0; $num1 < $num_var_predef_ripeti; $num1++) {
                                ${$var_predef[$num1]} = ${$var_predef[$num1] . "_" . $n_r};
                            }
                            # fine for $num1
                            $numero_ripetizione_prenotazioni_orig++;
                            $numero_ripetizione_prenotazioni = $numero_ripetizione_prenotazioni_orig;
                            if ($dir_salva and $ripeti_tutto and (!$numero_progressivo_documento or $numero_progressivo_documento < $num_prog_contr[$n_r])) {
                                $numero_progressivo_documento = $num_prog_contr[$n_r];
                            }
                            if ($tariffa_selezionata) {
                                $c_tot_selez = "c_tot_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$c_tot_selez};
                                if (${$c_tot_selez}) {
                                    $costo_tot = ${$c_tot_selez};
                                }
                                $c_tariffa_selez = "c_tariffa_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$c_tariffa_selez};
                                if (${$c_tariffa_selez}) {
                                    $costo_tariffa = ${$c_tariffa_selez};
                                }
                                $tarsett_tariffa_selez = "tarsett_tariffa_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$tarsett_tariffa_selez};
                                if (${$tarsett_tariffa_selez}) {
                                    global ${"tariffesettimanali_" . $n_r};
                                    ${"tariffesettimanali_" . $n_r} = ${$tarsett_tariffa_selez};
                                }
                                # fine if ($$tarsett_tariffa_selez)
                                $n_tariffa_selez = "n_tariffa_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$n_tariffa_selez};
                                if (${$n_tariffa_selez}) {
                                    $nome_tariffa = ${$n_tariffa_selez};
                                }
                                $perctas_tariffa_selez = "perctas_tariffa_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$perctas_tariffa_selez};
                                if (${$perctas_tariffa_selez}) {
                                    $percentuale_tasse_tariffa = ${$perctas_tariffa_selez};
                                }
                                $cap_tariffa_selez = "cap_tariffa_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$cap_tariffa_selez};
                                if (${$cap_tariffa_selez}) {
                                    $caparra = ${$cap_tariffa_selez};
                                }
                                $comm_tariffa_selez = "comm_tariffa_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$comm_tariffa_selez};
                                if (${$comm_tariffa_selez}) {
                                    $commissioni = ${$comm_tariffa_selez};
                                }
                                $n_letti_agg_tariffa_selez = "n_letti_agg_tariffa_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$n_letti_agg_tariffa_selez};
                                if (${$n_letti_agg_tariffa_selez}) {
                                    $n_letti_agg = ${$n_letti_agg_tariffa_selez};
                                }
                                $numpers_tariffa_selez = "numpers_tariffa_selez" . $tariffa_selezionata . "_" . $n_r;
                                global ${$numpers_tariffa_selez};
                                if (${$numpers_tariffa_selez}) {
                                    $num_persone = ${$numpers_tariffa_selez};
                                }
                                $num_costi_aggiuntivi_tsel = "num_costi_aggiuntivi_tsel" . $tariffa_selezionata . "_" . $n_r;
                                global ${$num_costi_aggiuntivi_tsel};
                                if (${$num_costi_aggiuntivi_tsel}) {
                                    $num_costi_aggiuntivi = ${$num_costi_aggiuntivi_tsel};
                                    for ($numca = 0; $numca < $num_costi_aggiuntivi; $numca++) {
                                        $nome_costo_agg_tsel = "nome_costo_agg" . $numca . "_tsel" . $tariffa_selezionata . "_" . $n_r;
                                        $val_costo_agg_tsel = "val_costo_agg" . $numca . "_tsel" . $tariffa_selezionata . "_" . $n_r;
                                        $perc_tasse_costo_agg_tsel = "percentuale_tasse_costo_agg" . $numca . "_tsel" . $tariffa_selezionata . "_" . $n_r;
                                        $molt_max_costo_agg_tsel = "moltiplica_max_costo_agg" . $numca . "_tsel" . $tariffa_selezionata . "_" . $n_r;
                                        $giorni_costo_agg_tsel = "giorni_costo_agg" . $numca . "_tsel" . $tariffa_selezionata . "_" . $n_r;
                                        global ${$nome_costo_agg_tsel}, ${$val_costo_agg_tsel}, ${$perc_tasse_costo_agg_tsel}, ${$molt_max_costo_agg_tsel}, ${$giorni_costo_agg_tsel};
                                        ${"nome_costo_agg" . $numca . "_" . $n_r} = ${$nome_costo_agg_tsel};
                                        ${"val_costo_agg" . $numca . "_" . $n_r} = ${$val_costo_agg_tsel};
                                        ${"percentuale_tasse_costo_agg" . $numca . "_" . $n_r} = ${$perc_tasse_costo_agg_tsel};
                                        ${"moltiplica_max_costo_agg" . $numca . "_" . $n_r} = ${$molt_max_costo_agg_tsel};
                                        ${"giorni_costo_agg" . $numca . "_" . $n_r} = trasforma_id_in_date(${$giorni_costo_agg_tsel}, $date_id, $tableperiodi);
                                    }
                                    # fine for $numca
                                }
                                # fine if ($$num_costi_aggiuntivi_tsel)
                            }
                            # fine if ($tariffa_selezionata)
                            if ($ripeti_prenota_data) {
                                if (!strcmp($tariffesettimanali[$n_r][$ripeti_prenota_data], "")) {
                                    global ${"tariffesettimanali_" . $n_r};
                                    $var_if = explode(";", ${"tariffesettimanali_" . $n_r});
                                    $var_if = explode(",", $var_if[0]);
                                    $num2 = count($var_if);
                                    for ($num1 = 0; $num1 <= $num2; $num1++) {
                                        if (date("Y-m-d", mktime(0, 0, 0, substr($data_inizio, 5, 2), substr($data_inizio, 8, 2) + $num1, substr($data_inizio, 0, 4))) == $ripeti_prenota_data) {
                                            if (!$var_if[$num1]) {
                                                $tariffesettimanali[$n_r][$ripeti_prenota_data] = 0;
                                            } else {
                                                $tariffesettimanali[$n_r][$ripeti_prenota_data] = $var_if[$num1];
                                            }
                                            break;
                                        }
                                        # fine if (date("Y-m-d",mktime(0,0,0,substr($data_inizio,5,2),(substr($data_inizio,8,2) + $num1),substr($data_inizio,0,4))) == $ripeti_prenota_data)
                                    }
                                    # fine for $num1
                                }
                                # fine if (!strcmp($tariffesettimanali[$n_r][$ripeti_prenota_data],""))
                                $costo_tariffa_giorno_array = $tariffesettimanali[$n_r][$ripeti_prenota_data];
                                $costo_tariffa_giorno_array_p = punti_in_num($costo_tariffa_giorno_array, $stile_soldi);
                            }
                            # fine if ($ripeti_prenota_data)
                            $tutti_i_costi_agg = "";
                            $tutti_i_costi_agg_p = "";
                            $valore_tutti_costi_agg = (double) 0;
                            for ($numca = 0; $numca < $num_costi_aggiuntivi; $numca++) {
                                $nome_costo_agg = "nome_costo_agg" . $numca . "_" . $n_r;
                                $val_costo_agg = "val_costo_agg" . $numca . "_" . $n_r;
                                $percentuale_tasse_costo_agg = "percentuale_tasse_costo_agg" . $numca . "_" . $n_r;
                                $moltiplica_max_costo_agg = "moltiplica_max_costo_agg" . $numca . "_" . $n_r;
                                $giorni_costo_agg = "giorni_costo_agg" . $numca . "_" . $n_r;
                                $data_inserimento_costo_agg = "data_inserimento_costo_agg" . $numca . "_" . $n_r;
                                $utente_inserimento_costo_agg = "utente_inserimento_costo_agg" . $numca . "_" . $n_r;
                                if (!strcmp(${$nome_costo_agg}, "") and !strcmp(${$val_costo_agg}, "")) {
                                    ${$nome_costo_agg} = $GLOBALS[$nome_costo_agg];
                                    ${$val_costo_agg} = $GLOBALS[$val_costo_agg];
                                    ${$percentuale_tasse_costo_agg} = $GLOBALS[$percentuale_tasse_costo_agg];
                                    ${$moltiplica_max_costo_agg} = $GLOBALS[$moltiplica_max_costo_agg];
                                    ${$giorni_costo_agg} = $GLOBALS[$giorni_costo_agg];
                                    ${$data_inserimento_costo_agg} = $GLOBALS[$data_inserimento_costo_agg];
                                    ${$utente_inserimento_costo_agg} = $n_utente_contr[$GLOBALS[$utente_inserimento_costo_agg]];
                                    if ($unset_glob) {
                                        unset($GLOBALS[$nome_costo_agg]);
                                        unset($GLOBALS[$val_costo_agg]);
                                        unset($GLOBALS[$percentuale_tasse_costo_agg]);
                                        unset($GLOBALS[$moltiplica_max_costo_agg]);
                                        unset($GLOBALS[$giorni_costo_agg]);
                                        unset($GLOBALS[$data_inserimento_costo_agg]);
                                        unset($GLOBALS[$utente_inserimento_costo_agg]);
                                    }
                                    # fine if ($unset_glob)
                                }
                                # fine if (!strcmp($$nome_costo_agg,"") and !strcmp($$val_costo_agg,""))
                                $nome_costo_agg = ${$nome_costo_agg};
                                $val_costo_agg = ${$val_costo_agg};
                                $percentuale_tasse_costo_agg = ${$percentuale_tasse_costo_agg};
                                $moltiplica_max_costo_agg = ${$moltiplica_max_costo_agg};
                                ${$giorni_costo_agg} = trasforma_id_in_date(${$giorni_costo_agg}, $date_id, $tableperiodi);
                                $giorni_costo_agg = ${$giorni_costo_agg};
                                $data_inserimento_costo_agg = ${$data_inserimento_costo_agg};
                                $utente_inserimento_costo_agg = ${$utente_inserimento_costo_agg};
                                $val_costo_agg_p = punti_in_num($val_costo_agg, $stile_soldi);
                                $tutti_i_costi_agg .= "{$nome_costo_agg}: {$val_costo_agg}{$tag_acapo}";
                                $tutti_i_costi_agg_p .= "{$nome_costo_agg}: {$val_costo_agg_p}{$tag_acapo}";
                                $valore_tutti_costi_agg = (double) $valore_tutti_costi_agg + (double) $val_costo_agg;
                                calcola_tasse_contr($val_costo_agg, $percentuale_tasse_costo_agg, $arrotond_tasse, $tasse_costo_agg, $tasse_costo_agg_p, $val_costo_agg_senza_tasse, $val_costo_agg_senza_tasse_p, $stile_soldi);
                                if (str_replace(",", "", $moltiplica_max_costo_agg) != $moltiplica_max_costo_agg) {
                                    $moltiplica_max_costo_agg = explode(",", $moltiplica_max_costo_agg);
                                    rsort($moltiplica_max_costo_agg);
                                    $moltiplica_max_costo_agg = $moltiplica_max_costo_agg[0];
                                }
                                # fine if (str_replace(",","",$moltiplica_max_costo_agg) != $moltiplica_max_costo_agg)
                                if ($num_costo_agg_sel == $numca) {
                                    $nome_costo_agg_sel = $nome_costo_agg;
                                    $valore_costo_agg_sel = $val_costo_agg;
                                    $valore_costo_agg_sel_p = $val_costo_agg_p;
                                    $percentuale_tasse_costo_agg_sel = $percentuale_tasse_costo_agg;
                                    $tasse_costo_agg_sel = $tasse_costo_agg;
                                    $tasse_costo_agg_sel_p = $tasse_costo_agg_p;
                                    $moltiplica_max_costo_agg_sel = $moltiplica_max_costo_agg;
                                }
                                # fine if ($num_costo_agg_sel == $numca)
                            }
                            # fine for $numca
                            $valore_tutti_costi_agg_p = punti_in_num($valore_tutti_costi_agg, $stile_soldi);
                            $tutti_i_pagamenti = "";
                            $tutti_i_pagamenti_p = "";
                            for ($num1 = 0; $num1 < $num_pagamenti; $num1++) {
                                $saldo_paga = "saldo_paga" . $num1 . "_" . $n_r;
                                $data_paga = "data_paga" . $num1 . "_" . $n_r;
                                $utente_paga = "utente_paga" . $num1 . "_" . $n_r;
                                $metodo_paga = "metodo_paga" . $num1 . "_" . $n_r;
                                if (!strcmp(${$saldo_paga}, "") and !strcmp(${$data_paga}, "") and !strcmp(${$metodo_paga}, "")) {
                                    ${$saldo_paga} = $GLOBALS[$saldo_paga];
                                    ${$data_paga} = $GLOBALS[$data_paga];
                                    ${$utente_paga} = $n_utente_contr[$GLOBALS[$utente_paga]];
                                    if (strcmp($GLOBALS[$metodo_paga], "")) {
                                        ${$metodo_paga} = $GLOBALS[$metodo_paga];
                                    }
                                    if ($unset_glob) {
                                        unset($GLOBALS[$saldo_paga]);
                                        unset($GLOBALS[$data_paga]);
                                        unset($GLOBALS[$utente_paga]);
                                        unset($GLOBALS[$metodo_paga]);
                                    }
                                    # fine if ($unset_glob)
                                }
                                # fine if (!strcmp($$saldo_paga,"") and !strcmp($$data_paga,"") and !strcmp($$metodo_paga,""))
                                $data_paga_f = formatta_data_contr(${$data_paga}, $stile_data);
                                $saldo_paga_p = punti_in_num(${$saldo_paga}, $stile_soldi);
                                $tutti_i_pagamenti .= str_replace(" ", "{$tag_spazio}", $data_paga_f . "  " . ${$saldo_paga} . " {$nome_valuta}  " . ${$metodo_paga});
                                $tutti_i_pagamenti_p .= str_replace(" ", "{$tag_spazio}", $data_paga_f . "  " . $saldo_paga_p . " {$nome_valuta}  " . ${$metodo_paga});
                                if ($num1 + 1 != $num_pagamenti) {
                                    $tutti_i_pagamenti .= $tag_acapo;
                                    $tutti_i_pagamenti_p .= $tag_acapo;
                                }
                                # fine if (($num1 + 1) != $num_pagamenti)
                            }
                            # fine for $num1
                            $valore_ultimo_pagamento = ${"saldo_paga" . ($num_pagamenti - 1) . "_" . $n_r};
                            $valore_ultimo_pagamento_p = punti_in_num($valore_ultimo_pagamento, $stile_soldi);
                            $data_ultimo_pagamento = formatta_data_contr(${"data_paga" . ($num_pagamenti - 1) . "_" . $n_r}, $stile_data);
                            $utente_ultimo_pagamento = ${"utente_paga" . ($num_pagamenti - 1) . "_" . $n_r};
                            $metodo_ultimo_pagamento = ${"metodo_paga" . ($num_pagamenti - 1) . "_" . $n_r};
                            if ($costo_tot) {
                                $costo_tot_somma_ripetizioni = $costo_tot_somma_ripetizioni + $costo_tot;
                            }
                            if ($caparra) {
                                $caparra_somma_ripetizioni = $caparra_somma_ripetizioni + $caparra;
                            }
                            if ($costo_tot) {
                                $resto_caparra_somma_ripetizioni = $resto_caparra_somma_ripetizioni + $costo_tot;
                            }
                            if ($caparra) {
                                $resto_caparra_somma_ripetizioni = $resto_caparra_somma_ripetizioni - $caparra;
                            }
                            if ($pagato) {
                                $pagato_somma_ripetizioni = $pagato_somma_ripetizioni + $pagato;
                            }
                            if ($costo_tot) {
                                $resto_da_pagare_somma_ripetizioni = $resto_da_pagare_somma_ripetizioni + $costo_tot;
                            }
                            if ($pagato) {
                                $resto_da_pagare_somma_ripetizioni = $resto_da_pagare_somma_ripetizioni - $pagato;
                            }
                            if ($num_persone != "non specificato" and $num_persone != "") {
                                $num_persone_tot_somma_ripetizioni = $num_persone_tot_somma_ripetizioni + $num_persone;
                            }
                            if ($n_letti_agg) {
                                $num_persone_tot_somma_ripetizioni = $num_persone_tot_somma_ripetizioni + $n_letti_agg;
                            }
                            if ($costo_tot and $caparra) {
                                $resto_caparra = $costo_tot - $caparra;
                                $resto_caparra_p = punti_in_num($resto_caparra, $stile_soldi);
                            }
                            # fine if ($costo_tot and $caparra)
                            if ($costo_tot and $commissioni) {
                                $resto_commissioni = $costo_tot - $commissioni;
                                $resto_commissioni_p = punti_in_num($resto_commissioni, $stile_soldi);
                            }
                            # fine if ($costo_tot and $commissioni)
                            if ($costo_tot) {
                                $resto_da_pagare = $costo_tot - $pagato;
                                $resto_da_pagare_p = punti_in_num($resto_da_pagare, $stile_soldi);
                            }
                            # fine if ($costo_tot)
                            $nome_orig = $nome;
                            $soprannome_orig = $soprannome;
                            $cognome_orig = $cognome;
                            $data_nascita_orig = $data_nascita;
                            $documento_orig = $documento;
                            $nazione_orig = $nazione;
                            $regione_orig = $regione;
                            $citta_orig = $citta;
                            $via_orig = $via;
                            $numcivico_orig = $numcivico;
                            $telefono_orig = $telefono;
                            $telefono2_orig = $telefono2;
                            $telefono3_orig = $telefono3;
                            $fax_orig = $fax;
                            $email_orig = $email;
                            $cap_orig = $cap;
                            $codice_fiscale_orig = $codice_fiscale;
                            $partita_iva_orig = $partita_iva;
                            $num_persone_orig = $num_persone;
                            $caparra_orig = $caparra;
                            $commissioni_orig = $commissioni;
                            $data_inizio_orig = $data_inizio;
                            $data_fine_orig = $data_fine;
                            $num_periodi_orig = $num_periodi;
                            $orario_entrata_stimato_orig = $orario_entrata_stimato;
                            $nome_tariffa_orig = $nome_tariffa;
                            $costo_tariffa_orig = $costo_tariffa;
                            $sconto_orig = $sconto;
                            $percentuale_tasse_tariffa_orig = $percentuale_tasse_tariffa;
                            $commento_orig = $commento;
                            $origine_prenotazione_orig = $origine_prenotazione;
                            $unita_occupata_orig = $unita_occupata;
                            $unita_assegnabili_orig = $unita_assegnabili;
                            $pagato_orig = $pagato;
                            $costo_tot_orig = $costo_tot;
                            $n_letti_agg_orig = $n_letti_agg;
                            $numero_prenotazione_orig = $numero_prenotazione;
                            $data_inserimento_prenotazione_orig = $data_inserimento_prenotazione;
                            $codice_cittadinanza = trova_codice_rel($cittadinanza, $rel_esist, "nazione", "nazioni", $codice2_cittadinanza, $codice3_cittadinanza, $tablenazioni, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_nazione_nascita = trova_codice_rel($nazione_nascita, $rel_esist, "nazione", "nazioni", $codice2_nazione_nascita, $codice3_nazione_nascita, $tablenazioni, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_regione_nascita = trova_codice_rel($regione_nascita, $rel_esist, "regione", "regioni", $codice2_regione_nascita, $codice3_regione_nascita, $tableregioni, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_citta_nascita = trova_codice_rel($citta_nascita, $rel_esist, "citta", "citta", $codice2_citta_nascita, $codice3_citta_nascita, $tablecitta, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_nazione = trova_codice_rel($nazione, $rel_esist, "nazione", "nazioni", $codice2_nazione, $codice3_nazione, $tablenazioni, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_regione = trova_codice_rel($regione, $rel_esist, "regione", "regioni", $codice2_regione, $codice3_regione, $tableregioni, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_citta = trova_codice_rel($citta, $rel_esist, "citta", "citta", $codice2_citta, $codice3_citta, $tablecitta, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_tipo_documento = trova_codice_rel($tipo_documento, $rel_esist, "documentoid", "documentiid", $codice2_tipo_documento, $codice3_tipo_documento, $tabledocumentiid, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_citta_documento = trova_codice_rel($citta_documento, $rel_esist, "citta", "citta", $codice2_citta_documento, $codice3_citta_documento, $tablecitta, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_regione_documento = trova_codice_rel($regione_documento, $rel_esist, "regione", "regioni", $codice2_regione_documento, $codice3_regione_documento, $tableregioni, $tablerelutenti, C_ID_UTENTE_CONTR);
                            $codice_nazione_documento = trova_codice_rel($nazione_documento, $rel_esist, "nazione", "nazioni", $codice2_nazione_documento, $codice3_nazione_documento, $tablenazioni, $tablerelutenti, C_ID_UTENTE_CONTR);
                            calcola_tasse_contr($costo_tariffa, $percentuale_tasse_tariffa, $arrotond_tasse, $tasse_tariffa, $tasse_tariffa_p, $costo_tariffa_senza_tasse, $costo_tariffa_senza_tasse_p, $stile_soldi);
                            calcola_tasse_contr($sconto, $percentuale_tasse_tariffa, $arrotond_tasse, $tasse_sconto, $tasse_sconto_p, $sconto_senza_tasse, $sconto_senza_tasse_p, $stile_soldi);
                            $apertura_rip_contr = "";
                            $chiusura_rip_contr = "";
                            $contratto_ripetizione = "";
                            $errore_ripetizione = "";
                            if ($ripeti_tutto) {
                                $email_gia_inviata = 0;
                            }
                            if ($tipo_contratto == "contreml" and $ripeti_tutto) {
                                if (${"email_" . $n_r}) {
                                    $cliente = esegui_query("select idclienti from {$tableclienti} where email = '" . aggslashdb(${"email_" . $n_r}) . "' and cognome = '" . aggslashdb(${"cognome_" . $n_r}) . "' and doc_inviati {$ILIKE} '%#@?" . aggslashdb($oggetto_email) . "#@?%' ");
                                    if (numlin_query($cliente) >= 1) {
                                        $email_gia_inviata = 1;
                                        $apertura_rip_contr .= "" . mex("<span class=\"colblu\">Attenzione</span>: una email con lo stesso oggetto è già stata inviata al cliente", $pag) . " " . ${"cognome_" . $n_r} . "<br><br>";
                                    }
                                    # fine if (numlin_query($cliente) >= 1)
                                }
                                # fine if (${"email_".$n_r})
                                $apertura_rip_contr .= "<table><tr><td align=\"right\">" . mex("Da", $pag) . ":</td><td>";
                                if ($modifica_pers != "NO") {
                                    $apertura_rip_contr .= "<input type=\"text\" name=\"mittente_email{$n_r}\" size=\"60\" value=\"{$mittente_email}\">";
                                } else {
                                    $apertura_rip_contr .= "<b>{$mittente_email}</b>";
                                }
                                $apertura_rip_contr .= "</td></tr><tr><td align=\"right\">\n" . mex("A", $pag) . ":</td><td>\n<input type=\"text\" name=\"destinatario_email{$n_r}\" size=\"60\" value=\"" . ${"email_" . $n_r} . "\">\n</td></tr><tr><td align=\"right\">\n" . mex("Oggetto", $pag) . ":</td><td>\n<input type=\"text\" name=\"oggetto_email{$n_r}\" size=\"60\" value=\"{$oggetto_email}\"></td></tr>";
                                if ($allegato_email) {
                                    $apertura_rip_contr .= "<tr><td></td><td><label><input type=\"checkbox\" name=\"allega{$n_r}\" value=\"SI\" checked>\n" . mex("Allega", $pag) . " <b>{$allegato_email}</b></label></td></tr>";
                                }
                                # fine if ($allegato_email)
                                $apertura_rip_contr .= "<tr><td style=\"height: 3px;\"></td></tr></table>\n&nbsp;&nbsp;<textarea name=\"testo_email{$n_r}\" rows=32 cols=90>";
                                $chiusura_rip_contr .= "</textarea><br>\n<table><tr><td style=\"height: 3px;\"></td></tr></table>\n<hr style=\"width: 95%; margin-left: 6px; text-align: left;\">";
                            }
                            # fine if ($tipo_contratto == "contreml" and $ripeti_tutto)
                            if ($contr_multilingua) {
                                if (!$codice_lingua) {
                                    $contratto_parte[1] = $contratti_orig_mln[$contratti_orig_mln['predef']];
                                } else {
                                    if (!strcmp($contratti_orig_mln[$codice_lingua], "")) {
                                        $contratto_parte[1] = $contratti_orig_mln[$contratti_orig_mln['predef']];
                                    } else {
                                        $contratto_parte[1] = $contratti_orig_mln[$codice_lingua];
                                    }
                                }
                                # fine else if (!$codice_lingua)
                            }
                            # fine if ($contr_multilingua)
                            # Ripetizioni per gli ospiti, costi aggiuntivi, array e unità all'interno di ogni prenotazione
                            unset($contratto_parte2);
                            if (str_replace("[r2]", "", $contratto_parte[$n_p]) == $contratto_parte[$n_p] and str_replace("[r3]", "", $contratto_parte[$n_p]) == $contratto_parte[$n_p] and !preg_match("/\\[r4 array=\"[A-Za-z]+[A-Za-z0-9_]*\"\\]/", $contratto_parte[$n_p]) and str_replace("[r5]", "", $contratto_parte[$n_p]) == $contratto_parte[$n_p] and str_replace("[r6]", "", $contratto_parte[$n_p]) == $contratto_parte[$n_p]) {
                                $contratto_parte2[1] = $contratto_parte[$n_p];
                                $ripeti_parte2[1] = "NO";
                                $num_parti2_contr = 1;
                            } else {
                                $num_parti2_contr = 0;
                                $contratto_restante = $contratto_parte[$n_p];
                                while (str_replace("[r2]", "", $contratto_restante) != $contratto_restante or str_replace("[r3]", "", $contratto_restante) != $contratto_restante or preg_match("/\\[r4 array=\"[A-Za-z]+[A-Za-z0-9_]*\"\\]/", $contratto_restante) or str_replace("[r5]", "", $contratto_restante) != $contratto_restante or str_replace("[r6]", "", $contratto_restante) != $contratto_restante) {
                                    $contr_vett2 = explode("[r2]", $contratto_restante);
                                    $contr_vett3 = explode("[r3]", $contratto_restante);
                                    $contr_vett4 = preg_split("/\\[r4 array=\"[A-Za-z]+[A-Za-z0-9_]*\"\\]/", $contratto_restante);
                                    $contr_vett5 = explode("[r5]", $contratto_restante);
                                    $contr_vett6 = explode("[r6]", $contratto_restante);
                                    $l0_cv2 = strlen($contr_vett2[0]);
                                    $l0_cv3 = strlen($contr_vett3[0]);
                                    $l0_cv4 = strlen($contr_vett4[0]);
                                    $l0_cv5 = strlen($contr_vett5[0]);
                                    $l0_cv6 = strlen($contr_vett6[0]);
                                    if ($l0_cv2 > $l0_cv6 and $l0_cv3 > $l0_cv6 and $l0_cv4 > $l0_cv6 and $l0_cv5 > $l0_cv6) {
                                        $contr_vett = $contr_vett6;
                                        $tipo_contr_vett = 6;
                                    } else {
                                        if ($l0_cv2 > $l0_cv5 and $l0_cv3 > $l0_cv5 and $l0_cv4 > $l0_cv5) {
                                            $contr_vett = $contr_vett5;
                                            $tipo_contr_vett = 5;
                                        } else {
                                            if ($l0_cv2 > $l0_cv4 and $l0_cv3 > $l0_cv4) {
                                                $contr_vett = $contr_vett4;
                                                $tipo_contr_vett = 4;
                                            } else {
                                                if ($l0_cv2 > $l0_cv3) {
                                                    $contr_vett = $contr_vett3;
                                                    $tipo_contr_vett = 3;
                                                } else {
                                                    $contr_vett = $contr_vett2;
                                                    $tipo_contr_vett = 2;
                                                }
                                                # fine else if ($l0_cv2 > $l0_cv3)
                                            }
                                            # fine else if ($l0_cv2 > $l0_cv4 and $l0_cv3 > $l0_cv4)
                                        }
                                        # fine else if ($l0_cv2 > $l0_cv5 and $l0_cv3 > $l0_cv5 and $l0_cv4 > $l0_cv5)
                                    }
                                    # fine else if ($l0_cv2 > $l0_cv6 and $l0_cv3 > $l0_cv6 and $l0_cv4 > $l0_cv6 and $l0_cv5 > $l0_cv6)
                                    if ($contr_vett[0] != "") {
                                        $num_parti2_contr++;
                                        $contratto_parte2[$num_parti2_contr] = $contr_vett[0];
                                        $ripeti_parte2[$num_parti2_contr] = "NO";
                                    }
                                    # fine if ($contr_vett[0] != "")
                                    $contratto_restante = substr($contratto_restante, strlen($contr_vett[0]));
                                    if ($tipo_contr_vett == 4) {
                                        $arr_ripeti = explode("\"]", $contratto_restante, 2);
                                        $arr_ripeti = str_replace("[r4 array=\"", "", $arr_ripeti[0]);
                                        $contratto_restante = substr($contratto_restante, strlen("[r4 array=\"{$arr_ripeti}\"]"));
                                    } else {
                                        $contratto_restante = substr($contratto_restante, 4);
                                    }
                                    $contr_vett = explode("[/r" . $tipo_contr_vett . "]", $contratto_restante);
                                    $num_parti2_contr++;
                                    $contratto_parte2[$num_parti2_contr] = $contr_vett[0];
                                    $ripeti_parte2[$num_parti2_contr] = "SI";
                                    $tipo_parte2[$num_parti2_contr] = $tipo_contr_vett;
                                    if ($tipo_contr_vett == 4) {
                                        $arr_parte2[$num_parti2_contr] = $arr_ripeti;
                                    }
                                    $contratto_restante = substr($contratto_restante, strlen($contr_vett[0]) + 5);
                                }
                                # fine while (str_replace("[r2]","",$contratto_restante) != $contratto_restante or...
                                if ($contratto_restante != "") {
                                    $num_parti2_contr++;
                                    $contratto_parte2[$num_parti2_contr] = $contratto_restante;
                                    $ripeti_parte2[$num_parti2_contr] = "NO";
                                }
                                # fine if ($contratto_restante != "")
                            }
                            # fine else if (str_replace("[r2]","",$contratto_parte[$n_p]) == $contratto_parte[$n_p] and...
                            # parti n_p2: parti del contratto se ci sono ripetizioni ospiti, costi agg o array interni
                            for ($n_p2 = 1; $n_p2 <= $num_parti2_contr; $n_p2++) {
                                if ($ripeti_parte2[$n_p2] != "SI") {
                                    $num_ripeti2 = 1;
                                } else {
                                    if ($tipo_parte2[$n_p2] == 2) {
                                        $ospiti = esegui_query("select idclienti,parentela from {$tablerclientiprenota} where idprenota = '" . aggslashdb($numero_prenotazione_orig) . "' order by num_ordine ");
                                        $num_ripeti2 = numlin_query($ospiti);
                                        $num_ospiti_tot = $num_ripeti2;
                                    }
                                    # fine if ($tipo_parte2[$n_p2] == 2)
                                    if ($tipo_parte2[$n_p2] == 3) {
                                        $num_ripeti2 = $num_costi_aggiuntivi;
                                    }
                                    if ($tipo_parte2[$n_p2] == 4) {
                                        if (@is_array(${$arr_parte2[$n_p2]})) {
                                            $num_ripeti2 = count(${$arr_parte2[$n_p2]});
                                            reset(${$arr_parte2[$n_p2]});
                                        } else {
                                            $num_ripeti2 = 0;
                                        }
                                    }
                                    # fine if ($tipo_parte2[$n_p2] == 4)
                                    if ($tipo_parte2[$n_p2] == 5) {
                                        $num_ripeti2 = $num_pagamenti;
                                    }
                                    if ($tipo_parte2[$n_p2] == 6) {
                                        $num_ripeti2 = $num_unita;
                                    }
                                }
                                # fine else if ($ripeti_parte2[$n_p2] != "SI")
                                # ripetizione n_r2: se c'è da ripetere la parte del contratto per ospiti, costi agg, array o unità interni
                                for ($n_r2 = 1; $n_r2 <= $num_ripeti2; $n_r2++) {
                                    $mostra_ripetizione = 1;
                                    if ($ripeti_parte2[$n_p2] == "SI") {
                                        if ($tipo_parte2[$n_p2] == 2) {
                                            $numero_ospite = $n_r2;
                                            $idospite = risul_query($ospiti, $n_r2 - 1, 'idclienti');
                                            $parentela_ospite = risul_query($ospiti, $n_r2 - 1, 'parentela');
                                            $dati_osp = esegui_query("select * from {$tableclienti} where idclienti = '{$idospite}' ");
                                            $utente_ospite = risul_query($dati_osp, 0, 'utente_inserimento');
                                            $cognome_ospite = "";
                                            $nome_ospite = "";
                                            $soprannome_ospite = "";
                                            $titolo_ospite = "";
                                            $sesso_ospite = "";
                                            $data_nascita_ospite = "";
                                            $citta_nascita_ospite = "";
                                            $regione_nascita_ospite = "";
                                            $nazione_nascita_ospite = "";
                                            $cittadinanza_ospite = "";
                                            $nazione_ospite = "";
                                            $regione_ospite = "";
                                            $citta_ospite = "";
                                            $via_ospite = "";
                                            $numcivico_ospite = "";
                                            $cap_ospite = "";
                                            $documento_ospite = "";
                                            $tipo_documento_ospite = "";
                                            $citta_documento_ospite = "";
                                            $regione_documento_ospite = "";
                                            $nazione_documento_ospite = "";
                                            $scadenza_documento_ospite = "";
                                            $telefono_ospite = "";
                                            $telefono2_ospite = "";
                                            $telefono3_ospite = "";
                                            $fax_ospite = "";
                                            $email_ospite = "";
                                            $codice_fiscale_ospite = "";
                                            $partita_iva_ospite = "";
                                            if (numlin_query($dati_osp) == 1 and $vedi_clienti != "NO" and ($vedi_clienti != "PROPRI" or $utente_ospite == C_ID_UTENTE) and ($vedi_clienti != "GRUPPI" or $utenti_gruppi[$utente_ospite])) {
                                                $cognome_ospite = risul_query($dati_osp, 0, 'cognome');
                                                $nome_ospite = risul_query($dati_osp, 0, 'nome');
                                                $soprannome_ospite = risul_query($dati_osp, 0, 'soprannome');
                                                $titolo_ospite = risul_query($dati_osp, 0, 'titolo');
                                                $sesso_ospite = risul_query($dati_osp, 0, 'sesso');
                                                $data_nascita_ospite = risul_query($dati_osp, 0, 'datanascita');
                                                $citta_nascita_ospite = risul_query($dati_osp, 0, 'cittanascita');
                                                $regione_nascita_ospite = risul_query($dati_osp, 0, 'regionenascita');
                                                $nazione_nascita_ospite = risul_query($dati_osp, 0, 'nazionenascita');
                                                $cittadinanza_ospite = risul_query($dati_osp, 0, 'nazionalita');
                                                $nazione_ospite = risul_query($dati_osp, 0, 'nazione');
                                                $regione_ospite = risul_query($dati_osp, 0, 'regione');
                                                $citta_ospite = risul_query($dati_osp, 0, 'citta');
                                                $via_ospite = risul_query($dati_osp, 0, 'via');
                                                $numcivico_ospite = risul_query($dati_osp, 0, 'numcivico');
                                                $cap_ospite = risul_query($dati_osp, 0, 'cap');
                                                $documento_ospite = risul_query($dati_osp, 0, 'documento');
                                                $tipo_documento_ospite = risul_query($dati_osp, 0, 'tipodoc');
                                                $citta_documento_ospite = risul_query($dati_osp, 0, 'cittadoc');
                                                $regione_documento_ospite = risul_query($dati_osp, 0, 'regionedoc');
                                                $nazione_documento_ospite = risul_query($dati_osp, 0, 'nazionedoc');
                                                $scadenza_documento_ospite = risul_query($dati_osp, 0, 'scadenzadoc');
                                                $telefono_ospite = risul_query($dati_osp, 0, 'telefono');
                                                $telefono2_ospite = risul_query($dati_osp, 0, 'telefono2');
                                                $telefono3_ospite = risul_query($dati_osp, 0, 'telefono3');
                                                $fax_ospite = risul_query($dati_osp, 0, 'fax');
                                                $email_ospite = risul_query($dati_osp, 0, 'email');
                                                $codice_fiscale_ospite = risul_query($dati_osp, 0, 'cod_fiscale');
                                                $partita_iva_ospite = risul_query($dati_osp, 0, 'partita_iva');
                                            }
                                            # fine if (numlin_query($dati_osp) == 1 and...
                                            $codice_cittadinanza_ospite = trova_codice_rel($cittadinanza_ospite, $rel_esist, "nazione", "nazioni", $codice2_cittadinanza_ospite, $codice3_cittadinanza_ospite, $tablenazioni, $tablerelutenti, C_ID_UTENTE);
                                            $codice_parentela_ospite = trova_codice_rel($parentela_ospite, $rel_esist, "parentela", "parentele", $codice2_parentela_ospite, $codice3_parentela_ospite, $tableparentele, $tablerelutenti, C_ID_UTENTE);
                                            $codice_nazione_nascita_ospite = trova_codice_rel($nazione_nascita_ospite, $rel_esist, "nazione", "nazioni", $codice2_nazione_nascita_ospite, $codice3_nazione_nascita_ospite, $tablenazioni, $tablerelutenti, C_ID_UTENTE);
                                            $codice_regione_nascita_ospite = trova_codice_rel($regione_nascita_ospite, $rel_esist, "regione", "regioni", $codice2_regione_nascita_ospite, $codice3_regione_nascita_ospite, $tableregioni, $tablerelutenti, C_ID_UTENTE);
                                            $codice_citta_nascita_ospite = trova_codice_rel($citta_nascita_ospite, $rel_esist, "citta", "citta", $codice2_citta_nascita_ospite, $codice3_citta_nascita_ospite, $tablecitta, $tablerelutenti, C_ID_UTENTE);
                                            $codice_nazione_ospite = trova_codice_rel($nazione_ospite, $rel_esist, "nazione", "nazioni", $codice2_nazione_ospite, $codice3_nazione_ospite, $tablenazioni, $tablerelutenti, C_ID_UTENTE);
                                            $codice_regione_ospite = trova_codice_rel($regione_ospite, $rel_esist, "regione", "regioni", $codice2_regione_ospite, $codice3_regione_ospite, $tableregioni, $tablerelutenti, C_ID_UTENTE);
                                            $codice_citta_ospite = trova_codice_rel($citta_ospite, $rel_esist, "citta", "citta", $codice2_citta_ospite, $codice3_citta_ospite, $tablecitta, $tablerelutenti, C_ID_UTENTE);
                                            $codice_tipo_documento_ospite = trova_codice_rel($tipo_documento_ospite, $rel_esist, "documentoid", "documentiid", $codice2_tipo_documento_ospite, $codice3_tipo_documento_ospite, $tabledocumentiid, $tablerelutenti, C_ID_UTENTE);
                                            $codice_citta_documento_ospite = trova_codice_rel($citta_documento_ospite, $rel_esist, "citta", "citta", $codice2_citta_documento_ospite, $codice3_citta_documento_ospite, $tablecitta, $tablerelutenti, C_ID_UTENTE);
                                            $codice_regione_documento_ospite = trova_codice_rel($regione_documento_ospite, $rel_esist, "regione", "regioni", $codice2_regione_documento_ospite, $codice3_regione_documento_ospite, $tableregioni, $tablerelutenti, C_ID_UTENTE);
                                            $codice_nazione_documento_ospite = trova_codice_rel($nazione_documento_ospite, $rel_esist, "nazione", "nazioni", $codice2_nazione_documento_ospite, $codice3_nazione_documento_ospite, $tablenazioni, $tablerelutenti, C_ID_UTENTE);
                                        } else {
                                            $numero_ospite = 0;
                                        }
                                        if ($tipo_parte2[$n_p2] == 3) {
                                            $numca = $n_r2 - 1;
                                            $nome_costo_agg = "nome_costo_agg" . $numca . "_" . $n_r;
                                            $val_costo_agg = "val_costo_agg" . $numca . "_" . $n_r;
                                            $percentuale_tasse_costo_agg = "percentuale_tasse_costo_agg" . $numca . "_" . $n_r;
                                            $moltiplica_max_costo_agg = "moltiplica_max_costo_agg" . $numca . "_" . $n_r;
                                            $giorni_costo_agg = "giorni_costo_agg" . $numca . "_" . $n_r;
                                            $data_inserimento_costo_agg = "data_inserimento_costo_agg" . $numca . "_" . $n_r;
                                            $utente_inserimento_costo_agg = "utente_inserimento_costo_agg" . $numca . "_" . $n_r;
                                            $nome_costo_agg = ${$nome_costo_agg};
                                            $valore_costo_agg = ${$val_costo_agg};
                                            $percentuale_tasse_costo_agg = ${$percentuale_tasse_costo_agg};
                                            $moltiplica_max_costo_agg = ${$moltiplica_max_costo_agg};
                                            $giorni_costo_agg = ${$giorni_costo_agg};
                                            if ($giorni_costo_agg and $ripeti_prenota_data and !strstr($giorni_costo_agg, ",{$ripeti_prenota_data},")) {
                                                $mostra_ripetizione = 0;
                                            }
                                            $data_inserimento_costo_agg = ${$data_inserimento_costo_agg};
                                            $utente_inserimento_costo_agg = ${$utente_inserimento_costo_agg};
                                            $valore_costo_agg_p = punti_in_num($valore_costo_agg, $stile_soldi);
                                            calcola_tasse_contr($valore_costo_agg, $percentuale_tasse_costo_agg, $arrotond_tasse, $tasse_costo_agg, $tasse_costo_agg_p, $valore_costo_agg_senza_tasse, $valore_costo_agg_senza_tasse_p, $stile_soldi);
                                            if (str_replace(",", "", $moltiplica_max_costo_agg) != $moltiplica_max_costo_agg) {
                                                $moltiplica_max_costo_agg = explode(",", $moltiplica_max_costo_agg);
                                                rsort($moltiplica_max_costo_agg);
                                                $moltiplica_max_costo_agg = $moltiplica_max_costo_agg[0];
                                            }
                                            # fine if (str_replace(",","",$moltiplica_max_costo_agg) != $moltiplica_max_costo_agg)
                                        } else {
                                            $nome_costo_agg = "";
                                            $valore_costo_agg = 0;
                                            $valore_costo_agg_p = 0;
                                            $percentuale_tasse_costo_agg = 0;
                                            $tasse_costo_agg = 0;
                                            $resto_tasse_costo_agg = 0;
                                            $moltiplica_max_costo_agg = 0;
                                            $giorni_costo_agg = "";
                                            $data_inserimento_costo_agg = "";
                                            $utente_inserimento_costo_agg = "";
                                        }
                                        # fine else if ($tipo_parte2[$n_p2] == 3)
                                        if ($tipo_parte2[$n_p2] == 4) {
                                            ${$var_arr_nome[$arr_parte2[$n_p2]]} = key(${$arr_parte2[$n_p2]});
                                            next(${$arr_parte2[$n_p2]});
                                        }
                                        # fine if ($tipo_parte2[$n_p2] == 4)
                                        if ($tipo_parte2[$n_p2] == 5) {
                                            $valore_pagamento = ${"saldo_paga" . ($n_r2 - 1) . "_" . $n_r};
                                            $valore_pagamento_p = punti_in_num($valore_pagamento, $stile_soldi);
                                            $data_pagamento = ${"data_paga" . ($n_r2 - 1) . "_" . $n_r};
                                            $utente_pagamento = ${"utente_paga" . ($n_r2 - 1) . "_" . $n_r};
                                            $metodo_pagamento = ${"metodo_paga" . ($n_r2 - 1) . "_" . $n_r};
                                        } else {
                                            $valore_pagamento = 0;
                                            $valore_pagamento_p = 0;
                                            $data_pagamento = "";
                                            $utente_pagamento = "";
                                            $metodo_pagamento = "";
                                        }
                                        # fine else if ($tipo_parte2[$n_p2] == 5)
                                        if ($tipo_parte2[$n_p2] == 6) {
                                            $nome_unita = $dati_app_contr[$n_r2]['nome'];
                                            $casa_unita = $dati_app_contr[$n_r2]['casa'];
                                            $piano_unita = $dati_app_contr[$n_r2]['piano'];
                                            $capacita_unita = $dati_app_contr[$n_r2]['capacita'];
                                            $priorita_unita = $dati_app_contr[$n_r2]['priorita'];
                                        } elseif ($tipo_parte0[$n_p0] != "6") {
                                            $nome_unita = "";
                                            $casa_unita = "";
                                            $piano_unita = "";
                                            $capacita_unita = "";
                                            $priorita_unita = "";
                                        }
                                        # fine elseif ($tipo_parte0[$n_p0] != "6")
                                    } else {
                                        $nome_costo_agg = "";
                                        $valore_costo_agg = 0;
                                        $valore_costo_agg_p = 0;
                                        $percentuale_tasse_costo_agg = 0;
                                        $tasse_costo_agg = 0;
                                        $resto_tasse_costo_agg = 0;
                                        $moltiplica_max_costo_agg = 0;
                                        $giorni_costo_agg = "";
                                        $data_inserimento_costo_agg = "";
                                        $utente_inserimento_costo_agg = "";
                                        $numero_ospite = 0;
                                        $valore_pagamento = 0;
                                        $valore_pagamento_p = 0;
                                        $data_pagamento = "";
                                        $utente_pagamento = "";
                                        $metodo_pagamento = "";
                                        if ($tipo_parte0[$n_p0] != "6") {
                                            $nome_unita = "";
                                            $casa_unita = "";
                                            $piano_unita = "";
                                            $capacita_unita = "";
                                            $priorita_unita = "";
                                        }
                                        # fine if ($tipo_parte0[$n_p0] != "6")
                                    }
                                    # fine if else ($ripeti_parte2[$n_p2] == "SI")
                                    if ($mostra_ripetizione) {
                                        #for ($num1 = 0 ; $num1 < $num_variabili ; $num1++) ${$variabile[$num_var]} = "";
                                        if ($num_persone != "non specificato" and $num_persone != "") {
                                            $num_persone_tot = $num_persone + $n_letti_agg;
                                        } else {
                                            $num_persone_tot = "";
                                        }
                                        # Condizioni applicate ad ogni ripetizione di prenotazione
                                        $break_cont = 0;
                                        for ($num1 = 0; $num1 < $num_condizioni; $num1++) {
                                            $condizione = $condizione_vett[$num1];
                                            $num_se = $num_cond_vett[$num1];
                                            $azione = $azione_vett[$num1];
                                            $cond_verificata = 1;
                                            if ($break_cont and $azione[0] != "cont") {
                                                $condizione = "";
                                                $cond_verificata = 0;
                                            }
                                            # fine if ($break_cont and $azione[0] != "cont")
                                            if ($condizione) {
                                                if ($condizione[0] == "or") {
                                                    $cond_verificata = 0;
                                                }
                                                for ($num2 = 1; $num2 < $num_se; $num2++) {
                                                    $se_cond_corr = $condizione[$num2];
                                                    $var_if = $se_cond_corr[0];
                                                    if (substr($var_if, -1) != ")") {
                                                        $var_if = ${$var_if};
                                                    } else {
                                                        $var_if = explode("(", substr($var_if, 0, -1));
                                                        $var_if = ${$var_if[0]}[${$var_if[1]}];
                                                    }
                                                    # fine else if (substr($var_if,-1) != ")")
                                                    $val_if = $se_cond_corr[3];
                                                    if ($se_cond_corr[2] == "var") {
                                                        if (substr($val_if, -1) != ")") {
                                                            $val_if = ${$val_if};
                                                        } else {
                                                            $val_if = explode("(", substr($val_if, 0, -1));
                                                            $val_if = ${$val_if[0]}[${$val_if[1]}];
                                                        }
                                                        # fine else if (substr($val_if,-1) != ")")
                                                    }
                                                    # fine if ($se_cond_corr[2] == "var")
                                                    $cond_verificata = 0;
                                                    if ($se_cond_corr[1] == "=" and $var_if == $val_if or $se_cond_corr[1] == "!=" and $var_if != $val_if or $se_cond_corr[1] == ">" and $var_if > $val_if or $se_cond_corr[1] == "<" and $var_if < $val_if) {
                                                        $cond_verificata = 1;
                                                    }
                                                    if ($se_cond_corr[1] == "{}" and str_replace(strtolower($val_if), "", strtolower($var_if)) != strtolower($var_if) or $se_cond_corr[1] == "{A}" and str_replace($val_if, "", $var_if) != $var_if) {
                                                        $cond_verificata = 1;
                                                    }
                                                    if ($condizione[0] == "or" and $cond_verificata) {
                                                        break;
                                                    }
                                                    if ($condizione[0] == "and" and !$cond_verificata) {
                                                        break;
                                                    }
                                                }
                                                # fine for $num2
                                            }
                                            # fine if ($condizione)
                                            if ($cond_verificata) {
                                                if ($azione[0] == "set") {
                                                    $val_then = $azione[4];
                                                    if ($azione[3] == "var") {
                                                        if (substr($val_then, -1) != ")") {
                                                            if ($var_predef_data[$val_then] and $val_then != "data_inizio_selezione" and $val_then != "data_fine_selezione" and $val_then != "oggi") {
                                                                $val_then = formatta_data_contr(${$val_then}, $stile_data);
                                                            } else {
                                                                $val_then = ${$val_then};
                                                            }
                                                        } else {
                                                            $val_then = explode("(", substr($val_then, 0, -1));
                                                            $val_then = ${$val_then[0]}[${$val_then[1]}];
                                                        }
                                                        # fine else if (substr($val_then,-1) != ")")
                                                    }
                                                    # fine if ($azione[3] == "var")
                                                    if (strcmp($azione[6], "")) {
                                                        $txt_sost1 = $azione[6];
                                                        if ($azione[5] == "var") {
                                                            if (substr($txt_sost1, -1) != ")") {
                                                                $txt_sost1 = ${$txt_sost1};
                                                            } else {
                                                                $txt_sost1 = explode("(", substr($txt_sost1, 0, -1));
                                                                $txt_sost1 = ${$txt_sost1[0]}[${$txt_sost1[1]}];
                                                            }
                                                            # fine else if (substr($txt_sost1,-1) != ")")
                                                        }
                                                        # fine if ($azione[5] == "var")
                                                        $txt_sost2 = $azione[8];
                                                        if ($azione[7] == "var") {
                                                            if (substr($txt_sost2, -1) != ")") {
                                                                $txt_sost2 = ${$txt_sost2};
                                                            } else {
                                                                $txt_sost2 = explode("(", substr($txt_sost2, 0, -1));
                                                                $txt_sost2 = ${$txt_sost2[0]}[${$txt_sost2[1]}];
                                                            }
                                                            # fine else if (substr($txt_sost2,-1) != ")")
                                                        }
                                                        # fine if ($azione[7] == "var")
                                                        $val_then = str_replace($txt_sost1, $txt_sost2, $val_then);
                                                    }
                                                    # fine if (strcmp($azione[6],""))
                                                    if ($azione[2] == ".=") {
                                                        if (substr($azione[1], 0, 1) != "a") {
                                                            $var_then_orig = ${$variabile[$azione[1]]};
                                                        } else {
                                                            $var_then_orig = ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}];
                                                        }
                                                    } else {
                                                        $var_then_orig = "";
                                                    }
                                                    if (substr($azione[1], 0, 1) != "a") {
                                                        ${$variabile[$azione[1]]} = $var_then_orig . $val_then;
                                                    } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                                                        ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_then_orig . $val_then;
                                                        $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                                    }
                                                    # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                                                }
                                                # fine if ($azione[0] == "set")
                                                if ($azione[0] == "trunc") {
                                                    if (substr($azione[1], 0, 1) != "a") {
                                                        $var_da_assegnare = ${$variabile[$azione[1]]};
                                                    } else {
                                                        $var_da_assegnare = ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}];
                                                    }
                                                    if (strcmp($azione[3], "")) {
                                                        while (num_caratteri_testo($var_da_assegnare) < $azione[2]) {
                                                            if ($azione[4] == "ini") {
                                                                $var_da_assegnare = $azione[3] . $var_da_assegnare;
                                                            }
                                                            if ($azione[4] == "fin") {
                                                                $var_da_assegnare .= $azione[3];
                                                            }
                                                        }
                                                        # fine while (num_caratteri_testo($var_da_assegnare) < $azione[2])
                                                    }
                                                    # fine if (strcmp($azione[3],""))
                                                    if (substr($azione[1], 0, 1) != "a") {
                                                        ${$variabile[$azione[1]]} = tronca_testo($var_da_assegnare, 0, $azione[2]);
                                                    } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                                                        ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = tronca_testo($var_da_assegnare, 0, $azione[2]);
                                                        $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                                    }
                                                    # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                                                }
                                                # fine if ($azione[0] == "trunc")
                                                if ($azione[0] == "oper") {
                                                    $cont_oper = "SI";
                                                    $var_con_punti = "NO";
                                                    $var_da_oper = $azione[2];
                                                    if (substr($var_da_oper, -1) != ")") {
                                                        if (substr($var_da_oper, -2) != "_p" or !isset(${substr($var_da_oper, 0, -2)})) {
                                                            $var_da_oper = ${$var_da_oper};
                                                        } else {
                                                            $var_da_oper = ${substr($var_da_oper, 0, -2)};
                                                        }
                                                    } else {
                                                        $var_da_oper = explode("(", substr($var_da_oper, 0, -1));
                                                        if (substr($var_da_oper[0], -2) != "_p" or !isset(${substr($var_da_oper[0], 0, -2)}[${$var_da_oper[1]}])) {
                                                            $var_da_oper = ${$var_da_oper[0]}[${$var_da_oper[1]}];
                                                        } else {
                                                            $var_da_oper = ${substr($var_da_oper[0], 0, -2)}[${$var_da_oper[1]}];
                                                        }
                                                    }
                                                    # fine else if (substr($var_da_oper,-1) != ")")
                                                    $var_da_oper = formatta_soldi($var_da_oper);
                                                    if (controlla_soldi($var_da_oper) == "NO") {
                                                        $cont_oper = "NO";
                                                    }
                                                    $var_da_oper2 = $azione[5];
                                                    if ($azione[4] == "var") {
                                                        if (substr($var_da_oper2, -1) != ")") {
                                                            if (substr($var_da_oper2, -2) != "_p" or !isset(${substr($var_da_oper2, 0, -2)})) {
                                                                $var_da_oper2 = ${$var_da_oper2};
                                                            } else {
                                                                $var_da_oper2 = ${substr($var_da_oper2, 0, -2)};
                                                            }
                                                        } else {
                                                            $var_da_oper2 = explode("(", substr($var_da_oper2, 0, -1));
                                                            if (substr($var_da_oper2[0], -2) != "_p" or !isset(${substr($var_da_oper2[0], 0, -2)}[${$var_da_oper2[1]}])) {
                                                                $var_da_oper2 = ${$var_da_oper2[0]}[${$var_da_oper2[1]}];
                                                            } else {
                                                                $var_da_oper2 = ${substr($var_da_oper2[0], 0, -2)}[${$var_da_oper2[1]}];
                                                            }
                                                        }
                                                        # fine else if (substr($var_da_oper2,-1) != ")")
                                                    }
                                                    # fine if ($azione[4] == "var")
                                                    $var_da_oper2 = formatta_soldi($var_da_oper2);
                                                    if (controlla_soldi($var_da_oper2) == "NO") {
                                                        $cont_oper = "NO";
                                                    }
                                                    if ($cont_oper != "NO") {
                                                        if ($azione[3] == "+") {
                                                            $var_da_assegnare = (double) $var_da_oper + (double) $var_da_oper2;
                                                        }
                                                        if ($azione[3] == "-") {
                                                            $var_da_assegnare = (double) $var_da_oper - (double) $var_da_oper2;
                                                        }
                                                        if ($azione[3] == "*") {
                                                            $var_da_assegnare = (double) $var_da_oper * (double) $var_da_oper2;
                                                        }
                                                        if ($azione[3] == "/") {
                                                            $var_da_assegnare = (double) $var_da_oper / (double) $var_da_oper2;
                                                        }
                                                        if ($azione[6]) {
                                                            $var_da_assegnare = $var_da_assegnare / (double) $azione[6];
                                                            $var_da_assegnare = round($var_da_assegnare);
                                                            $var_da_assegnare = $var_da_assegnare * (double) $azione[6];
                                                        }
                                                        # fine if ($azione[6])
                                                        if (substr($azione[1], 0, 1) != "a") {
                                                            if (substr($variabile[$azione[1]], -2) != "_p") {
                                                                ${$variabile[$azione[1]]} = $var_da_assegnare;
                                                            } else {
                                                                ${$variabile[$azione[1]]} = punti_in_num($var_da_assegnare, $stile_soldi, 2);
                                                            }
                                                        } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                                                            $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                                            if (substr($array[substr($azione[1], 1)], -2) != "_p") {
                                                                ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_da_assegnare;
                                                            } else {
                                                                ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = punti_in_num($var_da_assegnare, $stile_soldi, 2);
                                                            }
                                                        }
                                                        # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                                                    }
                                                    # fine if ($cont_oper != "NO")
                                                }
                                                # fine if ($azione[0] == "oper")
                                                if ($azione[0] == "date") {
                                                    $cont_oper = 1;
                                                    $var_da_oper = $azione[2];
                                                    if (substr($var_da_oper, -1) != ")") {
                                                        $var_da_oper = ${$var_da_oper};
                                                    } else {
                                                        $var_da_oper = explode("(", substr($var_da_oper, 0, -1));
                                                        $var_da_oper = ${$var_da_oper[0]}[${$var_da_oper[1]}];
                                                    }
                                                    # fine else if (substr($var_da_oper,-1) != ")")
                                                    $var_da_oper = substr($var_da_oper, 0, 10);
                                                    if (preg_match("/[0-9]{2,2}-[0-9]{2,2}-[0-9]{4,4}/", $var_da_oper)) {
                                                        if ($stile_data == "usa") {
                                                            $var_da_oper = substr($var_da_oper, 6, 4) . "-" . substr($var_da_oper, 0, 2) . "-" . substr($var_da_oper, 3, 2);
                                                        } else {
                                                            $var_da_oper = substr($var_da_oper, 6, 4) . "-" . substr($var_da_oper, 3, 2) . "-" . substr($var_da_oper, 0, 2);
                                                        }
                                                    }
                                                    # fine if (preg_match("/[0-9]{2,2}-[0-9]{2,2}-[0-9]{4,4}/",$var_da_oper))
                                                    if (!preg_match("/[0-9]{4,4}-[0-9]{2,2}-[0-9]{2,2}/", $var_da_oper)) {
                                                        $cont_oper = 0;
                                                    }
                                                    if ($cont_oper) {
                                                        if ($azione[3] == "gi") {
                                                            $var_da_assegnare = "d";
                                                        }
                                                        if ($azione[3] == "me") {
                                                            $var_da_assegnare = "m";
                                                        }
                                                        if ($azione[3] == "an") {
                                                            $var_da_assegnare = "Y";
                                                        }
                                                        if ($azione[3] == "gs") {
                                                            $var_da_assegnare = "w";
                                                        }
                                                        if ($azione[3] == "is") {
                                                            $var_da_assegnare = "Y-m-d";
                                                        }
                                                        if ($azione[3] == "da") {
                                                            if ($stile_data == "usa") {
                                                                $var_da_assegnare = "m-d-Y";
                                                            } else {
                                                                $var_da_assegnare = "d-m-Y";
                                                            }
                                                        }
                                                        # fine if ($azione[3] == "da")
                                                        $txt_sost1 = 0;
                                                        $num2 = 0;
                                                        $num3 = 0;
                                                        if ($azione[5] == "g") {
                                                            $txt_sost1 = $azione[4];
                                                        }
                                                        if ($azione[5] == "m") {
                                                            $num2 = $azione[4];
                                                        }
                                                        if ($azione[5] == "a") {
                                                            $num3 = $azione[4];
                                                        }
                                                        $var_da_assegnare = date($var_da_assegnare, mktime(0, 0, 0, substr($var_da_oper, 5, 2) + $num2, substr($var_da_oper, 8, 2) + $txt_sost1, substr($var_da_oper, 0, 4) + $num3));
                                                        if (substr($azione[1], 0, 1) != "a") {
                                                            ${$variabile[$azione[1]]} = $var_da_assegnare;
                                                        } elseif (strcmp(${$var_arr[substr($azione[1], 1)]}, "")) {
                                                            if ($azione[3] != "is") {
                                                                $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                                            }
                                                            ${$array[substr($azione[1], 1)]}[${$var_arr[substr($azione[1], 1)]}] = $var_da_assegnare;
                                                        }
                                                        # fine elseif (strcmp(${$var_arr[substr($azione[1],1)]},""))
                                                    }
                                                    # fine if ($cont_oper)
                                                }
                                                # fine if ($azione[0] == "date")
                                                if ($azione[0] == "unset") {
                                                    unset(${$array[substr($azione[1], 1)]});
                                                    $array_date_contr[$array[substr($azione[1], 1)]] = "";
                                                }
                                                # fine if ($azione[0] == "unset")
                                                if ($azione[0] == "array") {
                                                    $nome_arr = $array[substr($azione[1], 1)];
                                                    if ($azione[2] == "val") {
                                                        unset(${$nome_arr});
                                                        $array_date_contr[$nome_arr] = "";
                                                        $lista_val = explode(",", $azione[3]);
                                                        $num_lista_val = count($lista_val);
                                                        for ($num2 = 1; $num2 <= $num_lista_val; $num2++) {
                                                            ${$nome_arr}[$num2] = $lista_val[$num2 - 1];
                                                        }
                                                    }
                                                    # fine if ($azione[2] == "val")
                                                    if ($azione[2] == "dat" or $azione[2] == "dap") {
                                                        unset(${$nome_arr});
                                                        if ($azione[2] == "dat" and $data_inizio_selezione and $data_fine_selezione or $azione[2] == "dap" and $data_primo_arrivo and $data_ultima_partenza) {
                                                            $array_date_contr[$nome_arr] = "SI";
                                                            if ($azione[2] == "dat") {
                                                                $data_corr_arr = $data_inizio_selezione_orig;
                                                                $txt_sost1 = $data_fine_selezione_orig;
                                                            }
                                                            # fine if ($azione[2] == "dat")
                                                            if ($azione[2] == "dap") {
                                                                $data_corr_arr = $data_primo_arrivo;
                                                                $txt_sost1 = $data_ultima_partenza;
                                                            }
                                                            # fine if ($azione[2] == "dap")
                                                            $num2 = 1;
                                                            ${$nome_arr}[$num2] = $data_corr_arr;
                                                            while ($data_corr_arr != $txt_sost1) {
                                                                $num2++;
                                                                $data_corr_arr = date("Y-m-d", mktime(0, 0, 0, substr($data_corr_arr, 5, 2), substr($data_corr_arr, 8, 2) + 1, substr($data_corr_arr, 0, 4)));
                                                                ${$nome_arr}[$num2] = $data_corr_arr;
                                                            }
                                                            # fine while ($data_corr_arr != $txt_sost1)
                                                        }
                                                        # fine if (($azione[2] == "dat" and $data_inizio_selezione and $data_fine_selezione) or...
                                                    }
                                                    # fine if ($azione[2] == "dat" or $azione[2] == "dap")
                                                    if ($azione[2] == "cop") {
                                                        $lista_val = ${$array[substr($azione[3], 1)]};
                                                        ${$nome_arr} = $lista_val;
                                                        $array_date_contr[$nome_arr] = $array_date_contr[$array[substr($azione[3], 1)]];
                                                    }
                                                    # fine if ($azione[2] == "cop")
                                                }
                                                # fine if ($azione[0] == "array")
                                                if ($azione[0] == "break") {
                                                    if ($azione[1] == "cont") {
                                                        $break_cont = 1;
                                                    } else {
                                                        break;
                                                    }
                                                }
                                                # fine if ($azione[0] == "break")
                                                if ($azione[0] == "cont") {
                                                    $break_cont = 0;
                                                }
                                            }
                                            # fine if ($cond_verificata)
                                        }
                                        # fine for $num1
                                        $contratto_corr = $contratto_parte2[$n_p2];
                                        while (preg_match("/\\[c +[A-Za-z]+[A-Za-z0-9_]*(\\((('[^'\\]\\(]*')|([A-Za-z]+[A-Za-z0-9_]*))\\))? *!?= *\"[^\"]*\" *\\]/", $contratto_corr)) {
                                            $contr_vett = preg_split("/\\[c +[A-Za-z]+[A-Za-z0-9_]*(\\((('[^'\\]\\(]*')|([A-Za-z]+[A-Za-z0-9_]*))\\))? *!?= *\"[^\"]*\" *\\]/", $contratto_corr, 2);
                                            $contr_parziale = substr($contratto_corr, strlen($contr_vett[0]));
                                            $contratto_corr = $contr_vett[0];
                                            $condizione = preg_split("/\" *\\]/", $contr_parziale, 2);
                                            $condizione = $condizione[0];
                                            $val_if = preg_split("/ *!?= *\"/", preg_replace("/^\\[c +/", "", $condizione));
                                            $var_if = trim($val_if[0]);
                                            $val_if = $val_if[1];
                                            if (str_replace("(", "", $var_if) != $var_if) {
                                                $parti_arr = explode("(", substr($var_if, 0, -1));
                                                if (substr($parti_arr[1], 0, 1) == "'") {
                                                    $val_var_if = substr($parti_arr[1], 1, -1);
                                                } else {
                                                    $val_var_if = ${$parti_arr[1]};
                                                }
                                                $val_var_if = ${$parti_arr[0]}[$val_var_if];
                                            } else {
                                                $val_var_if = ${$var_if};
                                            }
                                            if (preg_match("/!= *\"/", $condizione)) {
                                                $cond = "!=";
                                            } else {
                                                $cond = "=";
                                            }
                                            $contr_parziale = substr($contr_parziale, strlen($condizione) + 1);
                                            while (substr($contr_parziale, 0, 1) == " ") {
                                                $contr_parziale = substr($contr_parziale, 1);
                                            }
                                            $contr_parziale = substr($contr_parziale, 1);
                                            $contr_vett = explode("[/c]", $contr_parziale, 2);
                                            $contr_parziale = substr($contr_parziale, strlen($contr_vett[0]) + 4);
                                            if ($cond == "=" and $val_var_if == $val_if) {
                                                $contratto_corr .= $contr_vett[0];
                                            }
                                            if ($cond == "!=" and $val_var_if != $val_if) {
                                                $contratto_corr .= $contr_vett[0];
                                            }
                                            $contratto_corr .= $contr_parziale;
                                        }
                                        # fine while (preg_match("/\\[c +[A-Za-z]+[A-Za-z0-9_]*(\\((('[A-Za-z]+[A-Za-z0-9_]*')|([A-Za-z]+[A-Za-z0-9_]*))\\))? *!?= *\"[^\"]*\" *\\]/",$contratto_corr))
                                        if ($data_inizio) {
                                            $data_inizio = formatta_data_contr($data_inizio, $stile_data);
                                        }
                                        if ($data_fine) {
                                            $data_fine = formatta_data_contr($data_fine, $stile_data);
                                        }
                                        if ($data_nascita) {
                                            $data_nascita = formatta_data_contr($data_nascita, $stile_data);
                                        }
                                        if ($data_nascita_ospite) {
                                            $data_nascita_ospite = formatta_data_contr($data_nascita_ospite, $stile_data);
                                        }
                                        if ($data_inserimento_costo_agg) {
                                            $data_inserimento_costo_agg = formatta_data_contr($data_inserimento_costo_agg, $stile_data);
                                        }
                                        if ($data_pagamento) {
                                            $data_pagamento = formatta_data_contr($data_pagamento, $stile_data);
                                        }
                                        if ($data_inserimento_prenotazione) {
                                            $data_inserimento_prenotazione = formatta_data_contr($data_inserimento_prenotazione, $stile_data);
                                        }
                                        $data_inizio_selezione = $data_inizio_selezione_f;
                                        $data_fine_selezione = $data_fine_selezione_f;
                                        $oggi = $oggi_f;
                                        $testo_quotato_email_richiesta = str_replace("<email_richiesta> ", "<{$email}> ", $testo_quotato_email_richiesta_orig);
                                        if (!$nome) {
                                            $nome = "{$tag_b}" . "____________________{$tag_no_b}";
                                        }
                                        if (!$soprannome) {
                                            $soprannome = "{$tag_b}" . "____________________{$tag_no_b}";
                                        }
                                        if (!$cognome) {
                                            $cognome = "{$tag_b}" . "_________________{$tag_no_b}";
                                        }
                                        if (!$data_nascita) {
                                            $data_nascita = "{$tag_b}" . "______________{$tag_no_b}";
                                        }
                                        if (!$documento) {
                                            $documento = " {$tag_b}" . "________________________________{$tag_no_b}";
                                        }
                                        if (!$nazione) {
                                            $nazione = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        if (!$regione) {
                                            $regione = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        if (!$citta) {
                                            $citta = "{$tag_b}" . "___________________{$tag_no_b}";
                                        }
                                        if (!$via and $lingua_mex) {
                                            $via2 = "{$fr_via} {$tag_b}" . "________________________________{$tag_no_b}";
                                        } else {
                                            $via2 = $via;
                                        }
                                        if (!$via) {
                                            $via = "{$tag_b}" . "________________________________{$tag_no_b}";
                                        }
                                        if (!$numcivico) {
                                            $numcivico = "{$tag_b}" . "_____{$tag_no_b}";
                                        }
                                        if (!$telefono) {
                                            $telefono = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$telefono2) {
                                            $telefono2 = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$telefono3) {
                                            $telefono3 = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$fax) {
                                            $fax = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$email) {
                                            $email = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$cap) {
                                            $cap = "{$tag_b}" . "________{$tag_no_b}";
                                        }
                                        if (!$codice_fiscale) {
                                            $codice_fiscale = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        if (!$partita_iva) {
                                            $partita_iva = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        if ($num_persone == "non specificato" or $num_persone == "") {
                                            $num_persone = "{$tag_b}" . "_____{$tag_no_b}";
                                            $num_persone_tot = "{$tag_b}" . "_____{$tag_no_b}";
                                        }
                                        # fine if ($num_persone == "non specificato" or $num_persone == "")
                                        if (!$costo_tot or !$caparra) {
                                            $resto_caparra = "{$tag_b}" . "_____________{$tag_no_b}";
                                            $resto_caparra_p = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        # fine if (!$costo_tot or !$caparra)
                                        if (!$caparra) {
                                            $caparra = "{$tag_b}" . "___________{$tag_no_b}";
                                            $caparra_p = "{$tag_b}" . "___________{$tag_no_b}";
                                        } else {
                                            $caparra_p = punti_in_num($caparra, $stile_soldi);
                                        }
                                        if (!$costo_tot or !$commissioni) {
                                            $resto_commissioni = "{$tag_b}" . "_____________{$tag_no_b}";
                                            $resto_commissioni_p = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        # fine if (!$costo_tot or !$commissioni)
                                        if (!$commissioni) {
                                            $commissioni = "{$tag_b}" . "___________{$tag_no_b}";
                                            $commissioni_p = "{$tag_b}" . "___________{$tag_no_b}";
                                        } else {
                                            $commissioni_p = punti_in_num($commissioni, $stile_soldi);
                                        }
                                        if (!$costo_tot) {
                                            $resto_da_pagare = "{$tag_b}" . "_____________{$tag_no_b}";
                                            $resto_da_pagare_p = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        # fine if (!$costo_tot)
                                        if (!$data_inizio) {
                                            $data_inizio = "{$tag_b}" . "______________{$tag_no_b}";
                                        }
                                        if (!$data_fine) {
                                            $data_fine = "{$tag_b}" . "______________{$tag_no_b}";
                                        }
                                        if (!$num_periodi or $num_periodi == "?") {
                                            $num_periodi = "{$tag_b}" . "____{$tag_no_b}";
                                        }
                                        if ($orario_entrata_stimato) {
                                            $orario_entrata_stimato = substr(str_replace("{$data_inizio} ", "", formatta_data_contr($orario_entrata_stimato, $stile_data)), 0, -3);
                                        }
                                        if (!$nome_tariffa) {
                                            $nome_tariffa = "{$tag_b}" . "____________________{$tag_no_b}";
                                        }
                                        if (!$costo_tariffa) {
                                            $costo_tariffa = "{$tag_b}" . "____________________{$tag_no_b}";
                                            $costo_tariffa_p = "{$tag_b}" . "____________________{$tag_no_b}";
                                        } else {
                                            $costo_tariffa_p = punti_in_num($costo_tariffa, $stile_soldi);
                                        }
                                        if (!$sconto) {
                                            $sconto = "{$tag_b}" . "____________{$tag_no_b}";
                                            $sconto_p = "{$tag_b}" . "____________{$tag_no_b}";
                                        } else {
                                            $sconto_p = punti_in_num($sconto, $stile_soldi);
                                        }
                                        if (!$commento) {
                                            $commento = "{$tag_b}" . "______________________{$tag_no_b}";
                                        }
                                        if (!$origine_prenotazione) {
                                            $origine_prenotazione = "{$tag_b}" . "_________________{$tag_no_b}";
                                        }
                                        if (!$unita_occupata) {
                                            $unita_occupata = "{$tag_b}" . "____{$tag_no_b}";
                                        }
                                        $appartamento = $unita_occupata;
                                        $apartment = $unita_occupata;
                                        $apartamento = $unita_occupata;
                                        if (!$unita_assegnabili) {
                                            $unita_assegnabili = "{$tag_b}" . "_________________{$tag_no_b}";
                                        }
                                        $app_assegnabili = $unita_assegnabili;
                                        $apartment_list = $unita_assegnabili;
                                        $lista_apartamentos = $unita_assegnabili;
                                        if (!$pagato) {
                                            $pagato = "{$tag_b}" . "_____________{$tag_no_b}";
                                            $pagato_p = "{$tag_b}" . "_____________{$tag_no_b}";
                                        } else {
                                            $pagato_p = punti_in_num($pagato, $stile_soldi);
                                        }
                                        if (!$costo_tot) {
                                            $costo_tot = "{$tag_b}" . "_____________{$tag_no_b}";
                                            $costo_tot_p = "{$tag_b}" . "_____________{$tag_no_b}";
                                        } else {
                                            $costo_tot_p = punti_in_num($costo_tot, $stile_soldi);
                                        }
                                        if (!$n_letti_agg) {
                                            $n_letti_agg = "{$tag_b}" . "____{$tag_no_b}";
                                        }
                                        if (!$numero_prenotazione) {
                                            $numero_prenotazione = "{$tag_b}" . "____{$tag_no_b}";
                                        }
                                        if (!$nome_ospite) {
                                            $nome_ospite = "{$tag_b}" . "____________________{$tag_no_b}";
                                        }
                                        if (!$soprannome_ospite) {
                                            $soprannome_ospite = "{$tag_b}" . "____________________{$tag_no_b}";
                                        }
                                        if (!$cognome_ospite) {
                                            $cognome_ospite = "{$tag_b}" . "_________________{$tag_no_b}";
                                        }
                                        if (!$data_nascita_ospite) {
                                            $data_nascita_ospite = "{$tag_b}" . "______________{$tag_no_b}";
                                        }
                                        if (!$documento_ospite) {
                                            $documento_ospite = " {$tag_b}" . "________________________________{$tag_no_b}";
                                        }
                                        if (!$nazione_ospite) {
                                            $nazione_ospite = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        if (!$regione_ospite) {
                                            $regione_ospite = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        if (!$citta_ospite) {
                                            $citta_ospite = "{$tag_b}" . "___________________{$tag_no_b}";
                                        }
                                        if (!$via_ospite and $lingua_mex) {
                                            $via2_ospite = "{$fr_via} {$tag_b}" . "________________________________{$tag_no_b}";
                                        } else {
                                            $via2_ospite = $via_ospite;
                                        }
                                        if (!$via_ospite) {
                                            $via_ospite = "{$tag_b}" . "________________________________{$tag_no_b}";
                                        }
                                        if (!$numcivico_ospite) {
                                            $numcivico_ospite = "{$tag_b}" . "_____{$tag_no_b}";
                                        }
                                        if (!$telefono_ospite) {
                                            $telefono_ospite = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$telefono2_ospite) {
                                            $telefono2_ospite = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$telefono3_ospite) {
                                            $telefono3_ospite = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$fax_ospite) {
                                            $fax_ospite = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$email_ospite) {
                                            $email_ospite = "{$tag_b}" . "__________________{$tag_no_b}";
                                        }
                                        if (!$cap_ospite) {
                                            $cap_ospite = "{$tag_b}" . "________{$tag_no_b}";
                                        }
                                        if (!$codice_fiscale_ospite) {
                                            $codice_fiscale_ospite = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        if (!$partita_iva_ospite) {
                                            $partita_iva_ospite = "{$tag_b}" . "_____________{$tag_no_b}";
                                        }
                                        $contratto_r = $contratto_corr;
                                        $contr_vett = explode("[", $contratto_r);
                                        $num_contr_vett = count($contr_vett);
                                        $contr_parziale = "";
                                        for ($num1 = 0; $num1 < $num_contr_vett; $num1++) {
                                            $contr_parziale .= $contr_vett[$num1] . "[";
                                            $resto_contr = substr($contratto_corr, strlen($contr_parziale));
                                            $lettera = (string) substr($resto_contr, 0, 1);
                                            if ($lettera and preg_replace("/[A-Za-z]/", "", $lettera) == "") {
                                                $num2 = 1;
                                                $lettere_var = $lettera;
                                                $cond = 0;
                                                while ((preg_replace("/[A-Za-z0-9\\(\\)'_]/", "SI", $lettera) == "SI" or $cond == 1) and ($cond != 1 or $lettera != "]" and $lettera != "(")) {
                                                    if ($lettera == "'") {
                                                        if (!$cond) {
                                                            $cond = 1;
                                                        } else {
                                                            $cond = 2;
                                                        }
                                                    }
                                                    # fine if ($lettera == "'")
                                                    $lettera = (string) substr($resto_contr, $num2, 1);
                                                    if ($lettera == "]") {
                                                        if (str_replace("(", "", str_replace(")", "", str_replace("'", "", $lettere_var))) == $lettere_var) {
                                                            if ($incr_np and $lettere_var == "numero_progressivo_documento") {
                                                                if ($num_prog_contr_max and $numero_progressivo_documento > $num_prog_contr_max) {
                                                                    $numero_progressivo_documento--;
                                                                }
                                                                $val_if = strstr($contratto_r, "[numero_progressivo_documento]");
                                                                $contratto_r = substr($contratto_r, 0, strlen($val_if) * -1) . $numero_progressivo_documento . substr($val_if, 30);
                                                                $numero_progressivo_documento++;
                                                            } else {
                                                                $contratto_r = str_replace("[" . $lettere_var . "]", ${$lettere_var}, $contratto_r);
                                                            }
                                                        } else {
                                                            $parti_arr = explode("(", substr($lettere_var, 0, -1));
                                                            if (preg_replace("/[A-Za-z]+[A-Za-z0-9_]*/", "", $parti_arr[0]) == "" and preg_replace("/(('[^']*')|([A-Za-z]+[A-Za-z0-9_]*))/", "", $parti_arr[1]) == "") {
                                                                if (substr($parti_arr[1], 0, 1) == "'") {
                                                                    $val_var_if = substr($parti_arr[1], 1, -1);
                                                                } else {
                                                                    $val_var_if = ${$parti_arr[1]};
                                                                }
                                                                if ($array_date_contr[$parti_arr[0]] == "SI") {
                                                                    $contratto_r = str_replace("[" . $lettere_var . "]", formatta_data_contr(${$parti_arr[0]}[$val_var_if], $stile_data), $contratto_r);
                                                                } else {
                                                                    $contratto_r = str_replace("[" . $lettere_var . "]", ${$parti_arr[0]}[$val_var_if], $contratto_r);
                                                                }
                                                            }
                                                            # fine if (preg_replace("/[A-Za-z]+[A-Za-z0-9_]*/","",$parti_arr[0]) == "" and...
                                                        }
                                                        # fine else if (str_replace("(","",str_replace(")","",str_replace("'","",$lettere_var))) == $lettere_var)
                                                    }
                                                    # fine if ($lettera == "]")
                                                    $lettere_var .= $lettera;
                                                    $num2++;
                                                }
                                                # fine while ((preg_replace("/[A-Za-z0-9\(\)'_]/","SI",$lettera) == "SI" or $cond == 1) and...
                                            }
                                            # fine ($lettera and preg_replace("/[A-Za-z]/","",$lettera) == "")
                                        }
                                        # fine for $num1
                                        $contratto_ripetizione .= $contratto_r;
                                        $nome = $nome_orig;
                                        $soprannome = $soprannome_orig;
                                        $cognome = $cognome_orig;
                                        $data_nascita = $data_nascita_orig;
                                        $documento = $documento_orig;
                                        $nazione = $nazione_orig;
                                        $regione = $regione_orig;
                                        $citta = $citta_orig;
                                        $via = $via_orig;
                                        $numcivico = $numcivico_orig;
                                        $telefono = $telefono_orig;
                                        $telefono2 = $telefono2_orig;
                                        $telefono3 = $telefono3_orig;
                                        $fax = $fax_orig;
                                        $email = $email_orig;
                                        $cap = $cap_orig;
                                        $codice_fiscale = $codice_fiscale_orig;
                                        $partita_iva = $partita_iva_orig;
                                        $num_persone = $num_persone_orig;
                                        $caparra = $caparra_orig;
                                        $commissioni = $commissioni_orig;
                                        $data_inizio = $data_inizio_orig;
                                        $data_fine = $data_fine_orig;
                                        $num_periodi = $num_periodi_orig;
                                        $orario_entrata_stimato = $orario_entrata_stimato_orig;
                                        $nome_tariffa = $nome_tariffa_orig;
                                        $costo_tariffa = $costo_tariffa_orig;
                                        $sconto = $sconto_orig;
                                        $percentuale_tasse_tariffa = $percentuale_tasse_tariffa_orig;
                                        $commento = $commento_orig;
                                        $origine_prenotazione = $origine_prenotazione_orig;
                                        $unita_occupata = $unita_occupata_orig;
                                        $unita_assegnabili = $unita_assegnabili_orig;
                                        $pagato = $pagato_orig;
                                        $costo_tot = $costo_tot_orig;
                                        $n_letti_agg = $n_letti_agg_orig;
                                        $numero_prenotazione = $numero_prenotazione_orig;
                                        $data_inizio_selezione = $data_inizio_selezione_orig;
                                        $data_fine_selezione = $data_fine_selezione_orig;
                                        $data_inserimento_prenotazione = $data_inserimento_prenotazione_orig;
                                        $oggi = $oggi_orig;
                                        $cognome_ospite = "";
                                    }
                                    # fine if ($mostra_ripetizione)
                                }
                                # fine for $n_r2
                            }
                            # fine for $n_p2
                            if (!$errore_ripetizione) {
                                $contratto .= $apertura_rip_contr . $contratto_ripetizione . $chiusura_rip_contr;
                            }
                            if ($filecontr and $ripeti_tutto and !$messaggio_di_errore) {
                                if ($tipo_contratto == "contrrtf") {
                                    $contratto = str_replace("&quot;", "\"", $contratto);
                                    $contratto = str_replace("&#039;", "'", $contratto);
                                    $contratto = str_replace("&lt;", "<", $contratto);
                                    $contratto = str_replace("&gt;", ">", $contratto);
                                    $contratto = str_replace("&amp;", "&", $contratto);
                                    $contratto = str_replace("ñ", "\\u241\\'f1", $contratto);
                                    $contratto = str_replace("à", "\\u224\\'e0", $contratto);
                                    $contratto = str_replace("è", "\\u232\\'e8", $contratto);
                                    $contratto = str_replace("ì", "\\u236\\'ec", $contratto);
                                    $contratto = str_replace("ò", "\\u242\\'f2", $contratto);
                                    $contratto = str_replace("ù", "\\u249\\'f9", $contratto);
                                    $contratto = str_replace("á", "\\u225\\'e1", $contratto);
                                    $contratto = str_replace("é", "\\u233\\'e9", $contratto);
                                    $contratto = str_replace("í", "\\u237\\'ed", $contratto);
                                    $contratto = str_replace("ó", "\\u243\\'f3", $contratto);
                                    $contratto = str_replace("ú", "\\u250\\'fa", $contratto);
                                    $contratto = str_replace("ä", "\\u228\\'e4", $contratto);
                                    $contratto = str_replace("ö", "\\u246\\'f6", $contratto);
                                    $contratto = str_replace("ü", "\\u252\\'fc", $contratto);
                                    $contratto = str_replace("ß", "\\u223\\'df", $contratto);
                                    $contratto = str_replace("ç", "\\u231\\'e7", $contratto);
                                    $contratto = str_replace("ã", "\\u227\\'e3", $contratto);
                                    $contratto = str_replace("õ", "\\u245\\'f5", $contratto);
                                    $contratto = str_replace("ø", "\\u248\\'f8", $contratto);
                                    $contratto = str_replace("€", "\\u8364\\'80", $contratto);
                                    $contratto = str_replace("°", "\\u176\\'b0", $contratto);
                                    $contratto = str_replace("’", "\\u8217\\'92", $contratto);
                                    $contratto = str_replace("Ñ", "\\u209\\'d1", $contratto);
                                    $contratto = str_replace("À", "\\u192\\'c0", $contratto);
                                    $contratto = str_replace("È", "\\u200\\'c8", $contratto);
                                    $contratto = str_replace("Ì", "\\u204\\'cc", $contratto);
                                    $contratto = str_replace("Ò", "\\u210\\'d2", $contratto);
                                    $contratto = str_replace("Ù", "\\u217\\'d9", $contratto);
                                    $contratto = str_replace("Á", "\\u193\\'c1", $contratto);
                                    $contratto = str_replace("É", "\\u201\\'c9", $contratto);
                                    $contratto = str_replace("Í", "\\u205\\'cd", $contratto);
                                    $contratto = str_replace("Ó", "\\u211\\'d3", $contratto);
                                    $contratto = str_replace("Ú", "\\u218\\'da", $contratto);
                                    $contratto = str_replace("Ä", "\\u196\\'c4", $contratto);
                                    $contratto = str_replace("Ö", "\\u214\\'d6", $contratto);
                                    $contratto = str_replace("Ü", "\\u220\\'dc", $contratto);
                                    $contratto = str_replace("Ç", "\\u199\\'c7", $contratto);
                                    $contratto = str_replace("Ã", "\\u195\\'c3", $contratto);
                                    $contratto = str_replace("Õ", "\\u213\\'d5", $contratto);
                                    $contratto = str_replace("Ø", "\\u216\\'d8", $contratto);
                                    $contratto = str_replace("Α", "\\u913\\'91", $contratto);
                                    $contratto = str_replace("α", "\\u945\\'b1", $contratto);
                                    $contratto = str_replace("Β", "\\u914\\'92", $contratto);
                                    $contratto = str_replace("β", "\\u946\\'b2", $contratto);
                                    $contratto = str_replace("Γ", "\\u915\\'93", $contratto);
                                    $contratto = str_replace("γ", "\\u947\\'b3", $contratto);
                                    $contratto = str_replace("Δ", "\\u916\\'94", $contratto);
                                    $contratto = str_replace("δ", "\\u948\\'b4", $contratto);
                                    $contratto = str_replace("Ε", "\\u917\\'95", $contratto);
                                    $contratto = str_replace("ε", "\\u949\\'b5", $contratto);
                                    $contratto = str_replace("Ζ", "\\u918\\'96", $contratto);
                                    $contratto = str_replace("ζ", "\\u950\\'b6", $contratto);
                                    $contratto = str_replace("Η", "\\u919\\'97", $contratto);
                                    $contratto = str_replace("η", "\\u951\\'b7", $contratto);
                                    $contratto = str_replace("Θ", "\\u920\\'98", $contratto);
                                    $contratto = str_replace("θ", "\\u952\\'b8", $contratto);
                                    $contratto = str_replace("Ι", "\\u921\\'99", $contratto);
                                    $contratto = str_replace("ι", "\\u953\\'b9", $contratto);
                                    $contratto = str_replace("Κ", "\\u922\\'9a", $contratto);
                                    $contratto = str_replace("κ", "\\u954\\'ba", $contratto);
                                    $contratto = str_replace("Λ", "\\u923\\'9b", $contratto);
                                    $contratto = str_replace("λ", "\\u955\\'bb", $contratto);
                                    $contratto = str_replace("Μ", "\\u924\\'9c", $contratto);
                                    $contratto = str_replace("μ", "\\u956\\'bc", $contratto);
                                    $contratto = str_replace("Ν", "\\u925\\'9d", $contratto);
                                    $contratto = str_replace("ν", "\\u957\\'bd", $contratto);
                                    $contratto = str_replace("Ξ", "\\u926\\'9e", $contratto);
                                    $contratto = str_replace("ξ", "\\u958\\'be", $contratto);
                                    $contratto = str_replace("Ο", "\\u927\\'9f", $contratto);
                                    $contratto = str_replace("ο", "\\u959\\'bf", $contratto);
                                    $contratto = str_replace("Π", "\\u928\\'a0", $contratto);
                                    $contratto = str_replace("π", "\\u960\\'c0", $contratto);
                                    $contratto = str_replace("Ρ", "\\u929\\'a1", $contratto);
                                    $contratto = str_replace("ρ", "\\u961\\'c1", $contratto);
                                    $contratto = str_replace("Σ", "\\u931\\'a3", $contratto);
                                    $contratto = str_replace("σ", "\\u963\\'c3", $contratto);
                                    $contratto = str_replace("ς", "\\u962\\'c2", $contratto);
                                    $contratto = str_replace("Τ", "\\u932\\'a4", $contratto);
                                    $contratto = str_replace("τ", "\\u964\\'c4", $contratto);
                                    $contratto = str_replace("Υ", "\\u933\\'a5", $contratto);
                                    $contratto = str_replace("υ", "\\u965\\'c5", $contratto);
                                    $contratto = str_replace("Φ", "\\u934\\'a6", $contratto);
                                    $contratto = str_replace("φ", "\\u966\\'c6", $contratto);
                                    $contratto = str_replace("Χ", "\\u935\\'a7", $contratto);
                                    $contratto = str_replace("χ", "\\u967\\'c7", $contratto);
                                    $contratto = str_replace("Ψ", "\\u936\\'a8", $contratto);
                                    $contratto = str_replace("ψ", "\\u968\\'c8", $contratto);
                                    $contratto = str_replace("Ω", "\\u937\\'a9", $contratto);
                                    $contratto = str_replace("ω", "\\u969\\'c9", $contratto);
                                    $contratto = str_replace("Ά", "\\u902\\'86", $contratto);
                                    $contratto = str_replace("ά", "\\u940\\'ce", $contratto);
                                    $contratto = str_replace("Ό", "\\u908\\'8c", $contratto);
                                    $contratto = str_replace("ό", "\\u972\\'cf", $contratto);
                                    $contratto = str_replace("Ή", "\\u905\\'89", $contratto);
                                    $contratto = str_replace("ή", "\\u942\\'ce", $contratto);
                                    $contratto = str_replace("Ί", "\\u906\\'8a", $contratto);
                                    $contratto = str_replace("ί", "\\u943\\'ce", $contratto);
                                    $contratto = str_replace("Ύ", "\\u910\\'8e", $contratto);
                                    $contratto = str_replace("ύ", "\\u973\\'cf", $contratto);
                                    $contratto = str_replace("Ώ", "\\u911\\'8f", $contratto);
                                    $contratto = str_replace("ώ", "\\u974\\'cf", $contratto);
                                    $contratto = str_replace("Έ", "\\u904\\'88", $contratto);
                                    $contratto = str_replace("έ", "\\u941\\'ce", $contratto);
                                    $contratto = str_replace("ý", "\\u253\\'fd", $contratto);
                                    $contratto = str_replace("ž", "\\u382\\'9e", $contratto);
                                    $contratto = str_replace("ř", "\\u345\\'3f", $contratto);
                                    $contratto = str_replace("č", "\\u269\\'3f", $contratto);
                                    $contratto = str_replace("š", "\\u353\\'9a", $contratto);
                                    $contratto = str_replace("ě", "\\u283\\'3f", $contratto);
                                    $contratto = str_replace("ů", "\\u367\\'3f", $contratto);
                                    $contratto = str_replace("Ý", "\\u221\\'dd", $contratto);
                                    $contratto = str_replace("Ž", "\\u381\\'8e", $contratto);
                                    $contratto = str_replace("Ř", "\\u344\\'3f", $contratto);
                                    $contratto = str_replace("Č", "\\u268\\'3f", $contratto);
                                    $contratto = str_replace("Š", "\\u352\\'8a", $contratto);
                                    $contratto = str_replace("Ě", "\\u282\\'3f", $contratto);
                                    $contratto = str_replace("Ů", "\\u366\\'3f", $contratto);
                                }
                                # fine if ($tipo_contratto == "contrrtf")
                                if ($incr_np) {
                                    if ($numero_progressivo_documento > $num_prog_contr[$n_r] + 1) {
                                        $val_if = $numero_progressivo_documento - 1;
                                        for ($num1 = strlen($val_if); $num1 < 5; $num1++) {
                                            $val_if = "0" . $val_if;
                                        }
                                        $nome_file_contr[$n_r] = str_replace(" ", "-{$val_if}", $nome_file_contr[$n_r]);
                                        for ($num1 = $n_r + 1; $num1 <= $num_ripeti; $num1++) {
                                            $val_if = $num_prog_contr[$num1] + $numero_progressivo_documento - 1 - $num_prog_contr[$n_r];
                                            if (strlen($val_if) > strlen($num_prog_contr[$num1]) and strlen($val_if) <= 5) {
                                                $num_prog_contr[$num1] = substr("00000", 0, strlen($val_if) - strlen($num_prog_contr[$num1])) . $num_prog_contr[$num1];
                                            }
                                            $nome_file_contr[$num1] = str_replace($num_prog_contr[$num1] . " ", $val_if . " ", $nome_file_contr[$num1]);
                                            $num_prog_contr[$num1] = $val_if;
                                        }
                                        # fine for $num1
                                    } else {
                                        $nome_file_contr[$n_r] = str_replace(" ", "", $nome_file_contr[$n_r]);
                                    }
                                    if ($nomi_contratti['compress'][$numero_contratto]) {
                                        $nome_file_contr[$n_r] .= ".gz";
                                        $lock_compress[$n_r] = crea_lock_file($nome_file_contr[$n_r]);
                                        $filecontr[$n_r] = gzopen($dir_salva . "/" . $nome_file_contr[$n_r], "wb9");
                                    } else {
                                        $filecontr[$n_r] = fopen($dir_salva . "/" . $nome_file_contr[$n_r], "w+");
                                        flock($filecontr[$n_r], 2);
                                    }
                                    # fine else if ($nomi_contratti['compress'][$numero_contratto])
                                }
                                # fine if ($incr_np)
                                if ($nomi_contratti['compress'][$numero_contratto]) {
                                    gzwrite($filecontr[$n_r], $contratto);
                                    gzclose($filecontr[$n_r]);
                                    distruggi_lock_file($lock_compress[$n_r], $nome_file_contr[$n_r]);
                                } else {
                                    fwrite($filecontr[$n_r], $contratto);
                                    flock($filecontr[$n_r], 3);
                                    fclose($filecontr[$n_r]);
                                }
                                # fine else if ($nomi_contratti['compress'][$numero_contratto])
                                $contratto = "";
                            }
                            # fine if ($filecontr and $ripeti_tutto and !$messaggio_di_errore)
                        }
                        # fine if (!$ripeti_prenota_data or...
                    }
                    # fine for $n_r
                } else {
                    $costo_tot_somma_ripetizioni_p = punti_in_num($costo_tot_somma_ripetizioni, $stile_soldi);
                    $caparra_somma_ripetizioni_p = punti_in_num($caparra_somma_ripetizioni, $stile_soldi);
                    $resto_caparra_somma_ripetizioni_p = punti_in_num($resto_caparra_somma_ripetizioni, $stile_soldi);
                    $pagato_somma_ripetizioni_p = punti_in_num($pagato_somma_ripetizioni, $stile_soldi);
                    $resto_da_pagare_somma_ripetizioni_p = punti_in_num($resto_da_pagare_somma_ripetizioni, $stile_soldi);
                    if ($dir_salva and $ripeti_tutto and (!$numero_progressivo_documento or $numero_progressivo_documento < $num_prog_contr[$n_r])) {
                        $numero_progressivo_documento = $num_prog_contr[$n_r];
                    }
                    # Ripetizioni degli array all'interno delle parti non ripetute con le prenotazioni
                    unset($contratto_parte2);
                    if (!preg_match("/\\[r4 array=\"[A-Za-z]+[A-Za-z0-9_]*\"\\]/", $contratto_parte[$n_p]) and str_replace("[r6]", "", $contratto_parte[$n_p]) == $contratto_parte[$n_p]) {
                        $contratto_parte2[1] = $contratto_parte[$n_p];
                        $ripeti_parte2[1] = "NO";
                        $num_parti2_contr = 1;
                    } else {
                        $num_parti2_contr = 0;
                        $contratto_restante = $contratto_parte[$n_p];
                        while (preg_match("/\\[r4 array=\"[A-Za-z]+[A-Za-z0-9_]*\"\\]/", $contratto_restante) or str_replace("[r6]", "", $contratto_restante) != $contratto_restante) {
                            $contr_vett4 = preg_split("/\\[r4 array=\"[A-Za-z]+[A-Za-z0-9_]*\"\\]/", $contratto_restante);
                            $contr_vett6 = explode("[r6]", $contratto_restante);
                            $l0_cv4 = strlen($contr_vett4[0]);
                            $l0_cv6 = strlen($contr_vett6[0]);
                            if ($l0_cv4 > $l0_cv6) {
                                $contr_vett = $contr_vett6;
                                $tipo_contr_vett = 6;
                            } else {
                                $contr_vett = $contr_vett4;
                                $tipo_contr_vett = 4;
                            }
                            # fine else if ($l0_cv4 > $l0_cv6)
                            if ($contr_vett[0] != "") {
                                $num_parti2_contr++;
                                $contratto_parte2[$num_parti2_contr] = $contr_vett[0];
                                $ripeti_parte2[$num_parti2_contr] = "NO";
                            }
                            # fine if ($contr_vett[0] != "")
                            $contratto_restante = substr($contratto_restante, strlen($contr_vett[0]));
                            if ($tipo_contr_vett == 4) {
                                $arr_ripeti = explode("\"]", $contratto_restante, 2);
                                $arr_ripeti = str_replace("[r4 array=\"", "", $arr_ripeti[0]);
                                $contratto_restante = substr($contratto_restante, strlen("[r4 array=\"{$arr_ripeti}\"]"));
                            } else {
                                $contratto_restante = substr($contratto_restante, 4);
                            }
                            $contr_vett = explode("[/r" . $tipo_contr_vett . "]", $contratto_restante);
                            $num_parti2_contr++;
                            $contratto_parte2[$num_parti2_contr] = $contr_vett[0];
                            $ripeti_parte2[$num_parti2_contr] = "SI";
                            $tipo_parte2[$num_parti2_contr] = $tipo_contr_vett;
                            if ($tipo_contr_vett == 4) {
                                $arr_parte2[$num_parti2_contr] = $arr_ripeti;
                            }
                            $contratto_restante = substr($contratto_restante, strlen($contr_vett[0]) + 5);
                        }
                        # fine while (preg_match("/\\[r4 array=\"[A-Za-z]+[A-Za-z0-9_]*\"\\]/",$contratto_restante) or...
                        if ($contratto_restante != "") {
                            $num_parti2_contr++;
                            $contratto_parte2[$num_parti2_contr] = $contratto_restante;
                            $ripeti_parte2[$num_parti2_contr] = "NO";
                        }
                        # fine if ($contratto_restante != "")
                    }
                    # fine else if (!preg_match("/\\[r4 array=\"[A-Za-z]+[A-Za-z0-9_]*\"\\]/",$contratto_parte[$n_p]) and...
                    for ($n_p2 = 1; $n_p2 <= $num_parti2_contr; $n_p2++) {
                        if ($ripeti_parte2[$n_p2] != "SI") {
                            $num_ripeti2 = 1;
                        } else {
                            if ($tipo_parte2[$n_p2] == 4) {
                                if (@is_array(${$arr_parte2[$n_p2]})) {
                                    $num_ripeti2 = count(${$arr_parte2[$n_p2]});
                                    reset(${$arr_parte2[$n_p2]});
                                } else {
                                    $num_ripeti2 = 0;
                                }
                            }
                            # fine if ($tipo_parte2[$n_p2] == 4)
                            if ($tipo_parte2[$n_p2] == 6) {
                                $num_ripeti2 = $num_unita;
                            }
                        }
                        # fine else if ($ripeti_parte2[$n_p2] != "SI")
                        for ($n_r2 = 1; $n_r2 <= $num_ripeti2; $n_r2++) {
                            if ($ripeti_parte2[$n_p2] == "SI") {
                                if ($tipo_parte2[$n_p2] == 4) {
                                    ${$var_arr_nome[$arr_parte2[$n_p2]]} = key(${$arr_parte2[$n_p2]});
                                    next(${$arr_parte2[$n_p2]});
                                }
                                # fine if ($tipo_parte2[$n_p2] == 4)
                                if ($tipo_parte2[$n_p2] == 6) {
                                    $nome_unita = $dati_app_contr[$n_r2]['nome'];
                                    $casa_unita = $dati_app_contr[$n_r2]['casa'];
                                    $piano_unita = $dati_app_contr[$n_r2]['piano'];
                                    $capacita_unita = $dati_app_contr[$n_r2]['capacita'];
                                    $priorita_unita = $dati_app_contr[$n_r2]['priorita'];
                                } elseif ($tipo_parte0[$n_p0] != "6") {
                                    $nome_unita = "";
                                    $casa_unita = "";
                                    $piano_unita = "";
                                    $capacita_unita = "";
                                    $priorita_unita = "";
                                }
                                # fine else if ($tipo_parte2[$n_p2] == 6)
                            } elseif ($tipo_parte0[$n_p0] != "6") {
                                $nome_unita = "";
                                $casa_unita = "";
                                $piano_unita = "";
                                $capacita_unita = "";
                                $priorita_unita = "";
                            }
                            # fine elseif ($tipo_parte0[$n_p0] != "6")
                            $contratto_corr = $contratto_parte2[$n_p2];
                            while (preg_match("/\\[c +[A-Za-z]+[A-Za-z0-9_]*(\\((('[^'\\]\\(]*')|([A-Za-z]+[A-Za-z0-9_]*))\\))? *!?= *\"[^\"]*\" *\\]/", $contratto_corr)) {
                                $contr_vett = preg_split("/\\[c +[A-Za-z]+[A-Za-z0-9_]*(\\((('[^'\\]\\(]*')|([A-Za-z]+[A-Za-z0-9_]*))\\))? *!?= *\"[^\"]*\" *\\]/", $contratto_corr, 2);
                                $contr_parziale = substr($contratto_corr, strlen($contr_vett[0]));
                                $contratto_corr = $contr_vett[0];
                                $condizione = preg_split("/\" *\\]/", $contr_parziale, 2);
                                $condizione = $condizione[0];
                                $val_if = preg_split("/ *!?= *\"/", preg_replace("/^\\[c +/", "", $condizione));
                                $var_if = trim($val_if[0]);
                                $val_if = $val_if[1];
                                if (str_replace("(", "", $var_if) != $var_if) {
                                    $parti_arr = explode("(", substr($var_if, 0, -1));
                                    if (substr($parti_arr[1], 0, 1) == "'") {
                                        $val_var_if = substr($parti_arr[1], 1, -1);
                                    } else {
                                        $val_var_if = ${$parti_arr[1]};
                                    }
                                    $val_var_if = ${$parti_arr[0]}[$val_var_if];
                                } else {
                                    $val_var_if = ${$var_if};
                                }
                                if (preg_match("/!= *\"/", $condizione)) {
                                    $cond = "!=";
                                } else {
                                    $cond = "=";
                                }
                                $contr_parziale = substr($contr_parziale, strlen($condizione) + 1);
                                while (substr($contr_parziale, 0, 1) == " ") {
                                    $contr_parziale = substr($contr_parziale, 1);
                                }
                                $contr_parziale = substr($contr_parziale, 1);
                                $contr_vett = explode("[/c]", $contr_parziale, 2);
                                $contr_parziale = substr($contr_parziale, strlen($contr_vett[0]) + 4);
                                if ($cond == "=" and $val_var_if == $val_if) {
                                    $contratto_corr .= $contr_vett[0];
                                }
                                if ($cond == "!=" and $val_var_if != $val_if) {
                                    $contratto_corr .= $contr_vett[0];
                                }
                                $contratto_corr .= $contr_parziale;
                            }
                            # fine while (preg_match("/\\[c +[A-Za-z]+[A-Za-z0-9_]*(\\((('[A-Za-z]+[A-Za-z0-9_]*')|([A-Za-z]+[A-Za-z0-9_]*))\\))? *!?= *\"[^\"]*\" *\\]/",$contratto_corr))
                            $data_inizio_selezione = $data_inizio_selezione_f;
                            $data_fine_selezione = $data_fine_selezione_f;
                            $oggi = $oggi_f;
                            $testo_quotato_email_richiesta = str_replace("<email_richiesta> ", "<{$email}> ", $testo_quotato_email_richiesta_orig);
                            $contratto_r = $contratto_corr;
                            $contr_vett = explode("[", $contratto_r);
                            $num_contr_vett = count($contr_vett);
                            $contr_parziale = "";
                            for ($num1 = 0; $num1 < $num_contr_vett; $num1++) {
                                $contr_parziale .= $contr_vett[$num1] . "[";
                                $resto_contr = substr($contratto_corr, strlen($contr_parziale));
                                $lettera = (string) substr($resto_contr, 0, 1);
                                if ($lettera and preg_replace("/[A-Za-z]/", "", $lettera) == "") {
                                    $num2 = 1;
                                    $lettere_var = $lettera;
                                    $cond = 0;
                                    while ((preg_replace("/[A-Za-z0-9\\(\\)'_]/", "SI", $lettera) == "SI" or $cond == 1) and ($cond != 1 or $lettera != "]" and $lettera != "(")) {
                                        if ($lettera == "'") {
                                            if (!$cond) {
                                                $cond = 1;
                                            } else {
                                                $cond = 2;
                                            }
                                        }
                                        # fine if ($lettera == "'")
                                        $lettera = (string) substr($resto_contr, $num2, 1);
                                        if ($lettera == "]") {
                                            if (str_replace("(", "", str_replace(")", "", str_replace("'", "", $lettere_var))) == $lettere_var) {
                                                if ($incr_np and $lettere_var == "numero_progressivo_documento") {
                                                    if ($num_prog_contr_max and $numero_progressivo_documento > $num_prog_contr_max) {
                                                        $numero_progressivo_documento--;
                                                    }
                                                    $val_if = strstr($contratto_r, "[numero_progressivo_documento]");
                                                    $contratto_r = substr($contratto_r, 0, strlen($val_if) * -1) . $numero_progressivo_documento . substr($val_if, 30);
                                                    $numero_progressivo_documento++;
                                                } else {
                                                    $contratto_r = str_replace("[" . $lettere_var . "]", ${$lettere_var}, $contratto_r);
                                                }
                                            } else {
                                                $parti_arr = explode("(", substr($lettere_var, 0, -1));
                                                if (preg_replace("/[A-Za-z]+[A-Za-z0-9_]*/", "", $parti_arr[0]) == "" and preg_replace("/(('[^']*')|([A-Za-z]+[A-Za-z0-9_]*))/", "", $parti_arr[1]) == "") {
                                                    if (substr($parti_arr[1], 0, 1) == "'") {
                                                        $val_var_if = substr($parti_arr[1], 1, -1);
                                                    } else {
                                                        $val_var_if = ${$parti_arr[1]};
                                                    }
                                                    if ($array_date_contr[$parti_arr[0]] == "SI") {
                                                        $contratto_r = str_replace("[" . $lettere_var . "]", formatta_data_contr(${$parti_arr[0]}[$val_var_if], $stile_data), $contratto_r);
                                                    } else {
                                                        $contratto_r = str_replace("[" . $lettere_var . "]", ${$parti_arr[0]}[$val_var_if], $contratto_r);
                                                    }
                                                }
                                                # fine if (preg_replace("/[A-Za-z]+[A-Za-z0-9_]*/","",$parti_arr[0]) == "" and...
                                            }
                                            # fine else if (str_replace("(","",str_replace(")","",str_replace("'","",$lettere_var))) == $lettere_var)
                                        }
                                        # fine if ($lettera == "]")
                                        $lettere_var .= $lettera;
                                        $num2++;
                                    }
                                    # fine while ((preg_replace("/[A-Za-z0-9\(\)'_]/","SI",$lettera) == "SI" or $cond == 1) and...
                                }
                                # fine ($lettera and preg_replace("/[A-Za-z]/","",$lettera) == "")
                            }
                            # fine for $num1
                            $contratto .= $contratto_r;
                            $data_inizio_selezione = $data_inizio_selezione_orig;
                            $data_fine_selezione = $data_fine_selezione_orig;
                            $oggi = $oggi_orig;
                        }
                        # fine for $n_r2
                    }
                    # fine for $n_p2
                }
                # fine else if ($ripeti_parte[$n_p] == "SI")
            }
            # fine for $n_p
        }
        # fine for $n_r0
    }
    # fine for $n_p0
    if ($tipo_contratto == "contreml") {
        if (!$ripeti_tutto) {
            $contratto .= "</textarea><br>\n</table><table><tr><td style=\"height: 3px;\"></td></tr></table>\n<hr style=\"width: 95%; margin-left: 6px; text-align: left;\">";
        }
        # fine if (!$ripeti_tutto)
        $contratto .= "&nbsp;&nbsp;" . bottone_submit_contr(mex("Spedisci", $pag), "inse") . "\n</div></form>";
    }
    # fine if ($tipo_contratto == "contreml")
    if ($tipo_contratto == "contrrtf") {
        $contratto = str_replace("&quot;", "\"", $contratto);
        $contratto = str_replace("&#039;", "'", $contratto);
        $contratto = str_replace("&lt;", "<", $contratto);
        $contratto = str_replace("&gt;", ">", $contratto);
        $contratto = str_replace("&amp;", "&", $contratto);
        $contratto = str_replace("ñ", "\\u241\\'f1", $contratto);
        $contratto = str_replace("à", "\\u224\\'e0", $contratto);
        $contratto = str_replace("è", "\\u232\\'e8", $contratto);
        $contratto = str_replace("ì", "\\u236\\'ec", $contratto);
        $contratto = str_replace("ò", "\\u242\\'f2", $contratto);
        $contratto = str_replace("ù", "\\u249\\'f9", $contratto);
        $contratto = str_replace("á", "\\u225\\'e1", $contratto);
        $contratto = str_replace("é", "\\u233\\'e9", $contratto);
        $contratto = str_replace("í", "\\u237\\'ed", $contratto);
        $contratto = str_replace("ó", "\\u243\\'f3", $contratto);
        $contratto = str_replace("ú", "\\u250\\'fa", $contratto);
        $contratto = str_replace("ä", "\\u228\\'e4", $contratto);
        $contratto = str_replace("ö", "\\u246\\'f6", $contratto);
        $contratto = str_replace("ü", "\\u252\\'fc", $contratto);
        $contratto = str_replace("ß", "\\u223\\'df", $contratto);
        $contratto = str_replace("ç", "\\u231\\'e7", $contratto);
        $contratto = str_replace("ã", "\\u227\\'e3", $contratto);
        $contratto = str_replace("õ", "\\u245\\'f5", $contratto);
        $contratto = str_replace("ø", "\\u248\\'f8", $contratto);
        $contratto = str_replace("€", "\\u8364\\'80", $contratto);
        $contratto = str_replace("°", "\\u176\\'b0", $contratto);
        $contratto = str_replace("’", "\\u8217\\'92", $contratto);
        $contratto = str_replace("Ñ", "\\u209\\'d1", $contratto);
        $contratto = str_replace("À", "\\u192\\'c0", $contratto);
        $contratto = str_replace("È", "\\u200\\'c8", $contratto);
        $contratto = str_replace("Ì", "\\u204\\'cc", $contratto);
        $contratto = str_replace("Ò", "\\u210\\'d2", $contratto);
        $contratto = str_replace("Ù", "\\u217\\'d9", $contratto);
        $contratto = str_replace("Á", "\\u193\\'c1", $contratto);
        $contratto = str_replace("É", "\\u201\\'c9", $contratto);
        $contratto = str_replace("Í", "\\u205\\'cd", $contratto);
        $contratto = str_replace("Ó", "\\u211\\'d3", $contratto);
        $contratto = str_replace("Ú", "\\u218\\'da", $contratto);
        $contratto = str_replace("Ä", "\\u196\\'c4", $contratto);
        $contratto = str_replace("Ö", "\\u214\\'d6", $contratto);
        $contratto = str_replace("Ü", "\\u220\\'dc", $contratto);
        $contratto = str_replace("Ç", "\\u199\\'c7", $contratto);
        $contratto = str_replace("Ã", "\\u195\\'c3", $contratto);
        $contratto = str_replace("Õ", "\\u213\\'d5", $contratto);
        $contratto = str_replace("Ø", "\\u216\\'d8", $contratto);
        $contratto = str_replace("Α", "\\u913\\'91", $contratto);
        $contratto = str_replace("α", "\\u945\\'b1", $contratto);
        $contratto = str_replace("Β", "\\u914\\'92", $contratto);
        $contratto = str_replace("β", "\\u946\\'b2", $contratto);
        $contratto = str_replace("Γ", "\\u915\\'93", $contratto);
        $contratto = str_replace("γ", "\\u947\\'b3", $contratto);
        $contratto = str_replace("Δ", "\\u916\\'94", $contratto);
        $contratto = str_replace("δ", "\\u948\\'b4", $contratto);
        $contratto = str_replace("Ε", "\\u917\\'95", $contratto);
        $contratto = str_replace("ε", "\\u949\\'b5", $contratto);
        $contratto = str_replace("Ζ", "\\u918\\'96", $contratto);
        $contratto = str_replace("ζ", "\\u950\\'b6", $contratto);
        $contratto = str_replace("Η", "\\u919\\'97", $contratto);
        $contratto = str_replace("η", "\\u951\\'b7", $contratto);
        $contratto = str_replace("Θ", "\\u920\\'98", $contratto);
        $contratto = str_replace("θ", "\\u952\\'b8", $contratto);
        $contratto = str_replace("Ι", "\\u921\\'99", $contratto);
        $contratto = str_replace("ι", "\\u953\\'b9", $contratto);
        $contratto = str_replace("Κ", "\\u922\\'9a", $contratto);
        $contratto = str_replace("κ", "\\u954\\'ba", $contratto);
        $contratto = str_replace("Λ", "\\u923\\'9b", $contratto);
        $contratto = str_replace("λ", "\\u955\\'bb", $contratto);
        $contratto = str_replace("Μ", "\\u924\\'9c", $contratto);
        $contratto = str_replace("μ", "\\u956\\'bc", $contratto);
        $contratto = str_replace("Ν", "\\u925\\'9d", $contratto);
        $contratto = str_replace("ν", "\\u957\\'bd", $contratto);
        $contratto = str_replace("Ξ", "\\u926\\'9e", $contratto);
        $contratto = str_replace("ξ", "\\u958\\'be", $contratto);
        $contratto = str_replace("Ο", "\\u927\\'9f", $contratto);
        $contratto = str_replace("ο", "\\u959\\'bf", $contratto);
        $contratto = str_replace("Π", "\\u928\\'a0", $contratto);
        $contratto = str_replace("π", "\\u960\\'c0", $contratto);
        $contratto = str_replace("Ρ", "\\u929\\'a1", $contratto);
        $contratto = str_replace("ρ", "\\u961\\'c1", $contratto);
        $contratto = str_replace("Σ", "\\u931\\'a3", $contratto);
        $contratto = str_replace("σ", "\\u963\\'c3", $contratto);
        $contratto = str_replace("ς", "\\u962\\'c2", $contratto);
        $contratto = str_replace("Τ", "\\u932\\'a4", $contratto);
        $contratto = str_replace("τ", "\\u964\\'c4", $contratto);
        $contratto = str_replace("Υ", "\\u933\\'a5", $contratto);
        $contratto = str_replace("υ", "\\u965\\'c5", $contratto);
        $contratto = str_replace("Φ", "\\u934\\'a6", $contratto);
        $contratto = str_replace("φ", "\\u966\\'c6", $contratto);
        $contratto = str_replace("Χ", "\\u935\\'a7", $contratto);
        $contratto = str_replace("χ", "\\u967\\'c7", $contratto);
        $contratto = str_replace("Ψ", "\\u936\\'a8", $contratto);
        $contratto = str_replace("ψ", "\\u968\\'c8", $contratto);
        $contratto = str_replace("Ω", "\\u937\\'a9", $contratto);
        $contratto = str_replace("ω", "\\u969\\'c9", $contratto);
        $contratto = str_replace("Ά", "\\u902\\'86", $contratto);
        $contratto = str_replace("ά", "\\u940\\'ce", $contratto);
        $contratto = str_replace("Ό", "\\u908\\'8c", $contratto);
        $contratto = str_replace("ό", "\\u972\\'cf", $contratto);
        $contratto = str_replace("Ή", "\\u905\\'89", $contratto);
        $contratto = str_replace("ή", "\\u942\\'ce", $contratto);
        $contratto = str_replace("Ί", "\\u906\\'8a", $contratto);
        $contratto = str_replace("ί", "\\u943\\'ce", $contratto);
        $contratto = str_replace("Ύ", "\\u910\\'8e", $contratto);
        $contratto = str_replace("ύ", "\\u973\\'cf", $contratto);
        $contratto = str_replace("Ώ", "\\u911\\'8f", $contratto);
        $contratto = str_replace("ώ", "\\u974\\'cf", $contratto);
        $contratto = str_replace("Έ", "\\u904\\'88", $contratto);
        $contratto = str_replace("έ", "\\u941\\'ce", $contratto);
        $contratto = str_replace("ý", "\\u253\\'fd", $contratto);
        $contratto = str_replace("ž", "\\u382\\'9e", $contratto);
        $contratto = str_replace("ř", "\\u345\\'3f", $contratto);
        $contratto = str_replace("č", "\\u269\\'3f", $contratto);
        $contratto = str_replace("š", "\\u353\\'9a", $contratto);
        $contratto = str_replace("ě", "\\u283\\'3f", $contratto);
        $contratto = str_replace("ů", "\\u367\\'3f", $contratto);
        $contratto = str_replace("Ý", "\\u221\\'dd", $contratto);
        $contratto = str_replace("Ž", "\\u381\\'8e", $contratto);
        $contratto = str_replace("Ř", "\\u344\\'3f", $contratto);
        $contratto = str_replace("Č", "\\u268\\'3f", $contratto);
        $contratto = str_replace("Š", "\\u352\\'8a", $contratto);
        $contratto = str_replace("Ě", "\\u282\\'3f", $contratto);
        $contratto = str_replace("Ů", "\\u366\\'3f", $contratto);
    }
    # fine if ($tipo_contratto == "contrrtf")
    if ($filecontr and !$ripeti_tutto and !$messaggio_di_errore) {
        if ($incr_np) {
            if ($numero_progressivo_documento > $num_prog_contr[1] + 1) {
                $val_if = $numero_progressivo_documento - 1;
                for ($num1 = strlen($val_if); $num1 < 5; $num1++) {
                    $val_if = "0" . $val_if;
                }
                $nome_file_contr[1] = str_replace(" ", "-{$val_if}", $nome_file_contr[1]);
            } else {
                $nome_file_contr[1] = str_replace(" ", "", $nome_file_contr[1]);
            }
            if ($nomi_contratti['compress'][$numero_contratto]) {
                $nome_file_contr[1] .= ".gz";
                $lock_compress[1] = crea_lock_file($nome_file_contr[1]);
                $filecontr[1] = gzopen($dir_salva . "/" . $nome_file_contr[1], "wb9");
            } else {
                $filecontr[1] = fopen($dir_salva . "/" . $nome_file_contr[1], "w+");
                flock($filecontr[1], 2);
            }
            # fine else if ($nomi_contratti['compress'][$numero_contratto])
        }
        # fine if ($incr_np)
        if ($nomi_contratti['compress'][$numero_contratto]) {
            gzwrite($filecontr[1], $contratto);
            gzclose($filecontr[1]);
            distruggi_lock_file($lock_compress[1], $nome_file_contr[1]);
        } else {
            fwrite($filecontr[1], $contratto);
            flock($filecontr[1], 3);
            fclose($filecontr[1]);
        }
        # fine else if ($nomi_contratti['compress'][$numero_contratto])
    }
    # fine if ($filecontr and !$ripeti_tutto and !$messaggio_di_errore)
    if ($incr_np) {
        flock($filelock, 3);
        fclose($filelock);
        unlink(C_DATA_PATH . "/crea_contr.lock");
    }
    # fine if ($incr_np)
    return $contratto;
}
Ejemplo n.º 4
0
function inserisci_log($query, $idlog = "")
{
    global $id_utente, $PHPR_TAB_PRE, $PHPR_LOG;
    if (!$idlog) {
        $idutente_log = $id_utente;
    } else {
        $idutente_log = $idlog;
    }
    if ($idutente_log and $idutente_log != 1) {
        if ($PHPR_LOG == "SI" or str_replace(",{$idutente_log},", "", "{$PHPR_LOG},") != "{$PHPR_LOG},") {
            $query = trim(str_replace(" " . $PHPR_TAB_PRE, " ", togli_acapo($query)));
            if (substr($query, 0, 7) != "select ") {
                $query2 = $query;
                if (substr($query, 0, 12) == "insert into ") {
                    $query2 = trim(substr($query, 12));
                    $insert = 1;
                } elseif (substr($query, 0, 7) == "update ") {
                    $query2 = trim(substr($query, 7));
                } elseif (substr($query, 0, 12) == "delete from ") {
                    $query2 = trim(substr($query, 12));
                }
                if ($query != $query2) {
                    if (substr($query2, 0, 11) != "transazioni" and (substr($query2, 0, 8) != "sessioni" or $insert) and substr($query2, 0, 8) != "versioni" and substr($query2, 0, 5) != "cache") {
                        if ($insert and substr($query2, 0, 8) == "sessioni") {
                            $query = "LOGIN";
                        }
                        $query = nl2br(htmlspecialchars(substr($query, 0, 1400)));
                        $file_log = C_DATA_PATH . "/log_utenti.php";
                        $filelock = crea_lock_file($file_log);
                        if (@is_file($file_log)) {
                            $dati_file = file($file_log);
                        }
                        $dati_file[0] = "<?php exit(); ?>\n";
                        $num_lin = count($dati_file);
                        $limite = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600 - 2592000);
                        for ($n = 1; $n < $num_lin; $n++) {
                            $data = explode(">", $dati_file[$n]);
                            $data = $data[1];
                            if (strcmp($limite, $data) > 0) {
                                $dati_file[$n] = "";
                            } else {
                                break;
                            }
                        }
                        # fine for $n
                        if ($num_lin >= 12000) {
                            $dati_file[1] = "";
                        }
                        $dati_file[$num_lin] = $idutente_log . ">" . date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600) . ">" . $query . "\n";
                        $fp_log = @fopen($file_log, "w");
                        if ($fp_log) {
                            flock($fp_log, 2);
                            fwrite($fp_log, implode("", $dati_file));
                            flock($fp_log, 3);
                            fclose($fp_log);
                        }
                        # fine if ($fp_log)
                        distruggi_lock_file($filelock, $file_log);
                    }
                    # fine if (substr($query2,0,11) != "transazioni" and...
                }
                # fine if ($query != $query2)
            }
            # fine if (substr($query,0,7) != "select ")
        }
        # fine if ($PHPR_LOG == "SI" or str_replace(",$idutente_log,","","$PHPR_LOG,") != "$PHPR_LOG,")
    }
    # fine if ($idutente_log and $idutente_log != 1)
}
Ejemplo n.º 5
0
function cambia_num_tar ($vecchio_num,$nuovo_num,$max_tar) {
global $LIKE,$PHPR_TAB_PRE,$anno;
$tablecostiprenota = $PHPR_TAB_PRE."costiprenota".$anno;
$tablenometariffe = $PHPR_TAB_PRE."ntariffe".$anno;
$tableperiodi = $PHPR_TAB_PRE."periodi".$anno;
$tableregole = $PHPR_TAB_PRE."regole".$anno;
$tableprivilegi = $PHPR_TAB_PRE."privilegi";
$tablemessaggi = $PHPR_TAB_PRE."messaggi";
$tabletransazioni = $PHPR_TAB_PRE."transazioni";
$tabletransazioniweb = $PHPR_TAB_PRE."transazioniweb";
$tabledescrizioni = $PHPR_TAB_PRE."descrizioni";
$tar_vecchia = "tariffa$vecchio_num";
$tar_nuova = "tariffa$nuovo_num";
esegui_query("update $tablenometariffe set $tar_nuova = $tar_vecchia ");
esegui_query("update $tableperiodi set $tar_nuova = $tar_vecchia ");
esegui_query("update $tableperiodi set $tar_nuova"."p = $tar_vecchia"."p ");
esegui_query("update $tableregole set tariffa_per_app = '$tar_nuova' where tariffa_per_app = '$tar_vecchia' ");
esegui_query("update $tableregole set tariffa_per_utente = '$tar_nuova' where tariffa_per_utente = '$tar_vecchia' ");
esegui_query("update $tableregole set tariffa_per_persone = '$tar_nuova' where tariffa_per_persone = '$tar_vecchia' ");
esegui_query("update $tabledescrizioni set nome = '$tar_nuova' where nome = '$tar_vecchia' and (tipo = 'tardescr' or tipo = 'tarfoto' or tipo = 'tarcommfoto') ");
$priv = esegui_query("select * from $tableprivilegi where tariffe_consentite $LIKE '%,$vecchio_num%' and anno = '$anno' ");
$num_priv = numlin_query($priv);
for ($num1 = 0 ; $num1 < $num_priv ; $num1++) {
$idut_priv = risul_query($priv,$num1,'idutente');
$tar_cons = risul_query($priv,$num1,'tariffe_consentite');
$n_tar_cons = substr(str_replace(",$vecchio_num,",",$nuovo_num,",$tar_cons.","),0,-1);
if ($n_tar_cons != $tar_cons) {
$tar_cons = explode(",",$n_tar_cons);
unset($tar_cons_vett);
for ($num2 = 1 ; $num2 < count($tar_cons) ; $num2++) $tar_cons_vett[$tar_cons[$num2]] = 1;
$tar_cons = $tar_cons[0].",";
for ($num2 = 1 ; $num2 <= $max_tar ; $num2++) if ($tar_cons_vett[$num2]) $tar_cons .= "$num2,";
if (strlen($tar_cons) > 2) $tar_cons = substr($tar_cons,0,-1);
esegui_query("update $tableprivilegi set tariffe_consentite = '$tar_cons' where idutente = '$idut_priv' and anno = '$anno'");
} # fine if ($n_tar_cons != $tar_cons)
} # fine for $num1
$costipren = esegui_query("select * from $tablecostiprenota where vartariffeincomp $LIKE '%$vecchio_num%' ");
$num_costipren = numlin_query($costipren);
for ($num1 = 0 ; $num1 < $num_costipren ; $num1++) {
$idcostp = risul_query($costipren,$num1,'idcostiprenota');
$tar_incomp = risul_query($costipren,$num1,'vartariffeincomp');
$n_tar_incomp = substr(str_replace(",$vecchio_num,",",$nuovo_num,",",".$tar_incomp.","),1,-1);
if ($n_tar_incomp != $tar_incomp) {
$tar_incomp = explode(",",$n_tar_incomp);
unset($tar_incomp_vett);
for ($num2 = 0 ; $num2 < count($tar_incomp) ; $num2++) $tar_incomp_vett[$tar_incomp[$num2]] = 1;
$tar_incomp = "";
for ($num2 = 1 ; $num2 <= $max_tar ; $num2++) if ($tar_incomp_vett[$num2]) $tar_incomp .= "$num2,";
$tar_incomp = substr($tar_incomp,0,-1);
esegui_query("update $tablecostiprenota set vartariffeincomp = '$tar_incomp' where idcostiprenota = '$idcostp' ");
} # fine if ($n_tar_incomp != $tar_incomp)
} # fine for $num1
$mess = esegui_query("select * from $tablemessaggi where tipo_messaggio = 'rprenota' and dati_messaggio6 $LIKE '%$vecchio_num%' and dati_messaggio18 = '$anno' ");
$num_mess = numlin_query($mess);
for ($num1 = 0 ; $num1 < $num_mess ; $num1++) {
$idmess = risul_query($mess,$num1,'idmessaggi');
$tar_mess_vett = explode(",",risul_query($mess,$num1,'dati_messaggio6'));
if ($tar_mess_vett[0] == $vecchio_num) $tar_mess = $nuovo_num;
else $tar_mess = $tar_mess_vett[0];
for ($num2 = 1 ; $num2 < count($tar_mess_vett) ; $num2++) {
if ($tar_mess_vett[$num2] == $vecchio_num) $tar_mess .= ",".$nuovo_num;
else $tar_mess .= ",".$tar_mess_vett[$num2];
} # fine for $num2
esegui_query("update $tablemessaggi set dati_messaggio6 = '$tar_mess' where idmessaggi = '$idmess' ");
} # fine for $num1
$ins_p = esegui_query("select * from $tabletransazioni where tipo_transazione = 'ins_p' and anno = '$anno' and dati_transazione5 $LIKE '%$tar_vecchia%' ");
$num_ins_p = numlin_query($ins_p);
for ($num1 = 0 ; $num1 < $num_ins_p ; $num1++) {
$idtrans = risul_query($ins_p,$num1,'idtransazioni');
$tar_ins_p_vett = explode(",",risul_query($ins_p,$num1,'dati_transazione5'));
if ($tar_ins_p_vett[0] == $tar_vecchia) $tar_ins_p = $tar_nuova;
else $tar_ins_p = $tar_ins_p_vett[0];
for ($num2 = 1 ; $num2 < count($tar_ins_p_vett) ; $num2++) {
if ($tar_ins_p_vett[$num2] == $tar_vecchia) $tar_ins_p .= ",".$tar_nuova;
else $tar_ins_p .= ",".$tar_ins_p_vett[$num2];
} # fine for $num2
esegui_query("update $tabletransazioni set dati_transazione5 = '$tar_ins_p' where idtransazioni = '$idtrans' ");
} # fine for $num1
$mod_p = esegui_query("select * from $tabletransazioni where tipo_transazione = 'mod_p' and anno = '$anno' ");
$num_mod_p = numlin_query($mod_p);
for ($num1 = 0 ; $num1 < $num_mod_p ; $num1++) {
$idtrans = risul_query($mod_p,$num1,'idtransazioni');
$tar_mod_p = risul_query($mod_p,$num1,'dati_transazione12');
$tar_mod_p_vett = unserialize($tar_mod_p);
$n_tar_mod_p_vett = $tar_mod_p_vett;
reset($tar_mod_p_vett);
while (list($idpr,$tar_idpr) = each($tar_mod_p_vett)) if ($tar_idpr == $tar_vecchia) $n_tar_mod_p_vett[$idpr] = $tar_nuova;
$n_tar_mod_p = serialize($n_tar_mod_p_vett);
if ($n_tar_mod_p != $tar_mod_p) esegui_query("update $tabletransazioni set dati_transazione12 = '".aggslashdb($n_tar_mod_p)."' where idtransazioni = '$idtrans' ");
} # fine for $num1
$pay = esegui_query("select * from $tabletransazioniweb where tipo_transazione $LIKE 'pay_%' and anno = '$anno' and dati_transazione6 $LIKE '%$vecchio_num%' ");
$num_pay = numlin_query($pay);
for ($num1 = 0 ; $num1 < $num_pay ; $num1++) {
$idtrans = risul_query($pay,$num1,'idtransazioni');
$tar_pay_vett = explode(",",risul_query($pay,$num1,'dati_transazione6'));
if ($tar_pay_vett[0] == $vecchio_num) $tar_pay = $nuovo_num;
else $tar_pay = $tar_pay_vett[0];
for ($num2 = 1 ; $num2 < count($tar_pay_vett) ; $num2++) {
if ($tar_pay_vett[$num2] == $vecchio_num) $tar_pay .= ",".$nuovo_num;
else $tar_pay .= ",".$tar_pay_vett[$num2];
} # fine for $num2
esegui_query("update $tabletransazioniweb set dati_transazione6 = '$tar_pay' where idtransazioni = '$idtrans' ");
} # fine for $num1
$file_interconnessioni = C_DATA_PATH."/dati_interconnessioni.php";
if (@is_file($file_interconnessioni)) {
$filelock = crea_lock_file($file_interconnessioni);
$cont_file = implode("",file($file_interconnessioni));
$cont_file = str_replace("\"$tar_vecchia\"","\"$tar_nuova\"",$cont_file);
scrivi_file($cont_file,$file_interconnessioni);
distruggi_lock_file($filelock,$file_interconnessioni);
} # fine if (@is_file($file_interconnessioni))
} # fine function cambia_num_tar
Ejemplo n.º 6
0
 $tasto_torna_indietro = "NO";
 if ($backup_contratti != "SI") {
     $nome_file = "hoteld_backup.php";
     $nome_file_compresso = "hoteld_backup.php.gz";
     if ($id_utente == "b") {
         $file = C_DATA_PATH . "/backup_ext.php";
     } else {
         $file = C_DATA_PATH . "/hoteld_backup.php";
     }
 } else {
     $nome_file = "hoteld_doc_backup.php";
     $nome_file_compresso = "hoteld_doc_backup.php.gz";
     $file = C_DATA_PATH . "/hoteld_doc_backup.php";
 }
 # fine else if ($backup_contratti != "SI")
 $filelock = @crea_lock_file($file);
 if ($filelock) {
     if ($compresso == "SI") {
         mt_srand((double) $sec + (double) $usec * 100000);
         $file_compresso = C_DATA_PATH . "/backup" . mt_rand(10000, 99999) . ".php.gz";
         $cfp = gzopen($file_compresso, "wb9");
         $fbackup = fopen($file, "r");
         if ($fbackup) {
             while (!feof($fbackup)) {
                 $linee = fread($fbackup, 524288);
                 gzwrite($cfp, $linee);
             }
             # fine while (!feof($fbackup))
             fclose($fbackup);
         }
         # fine if ($fbackup)