function estendi_menu_date($file_menu, $nuovo_file_menu, $tipo_periodi, $data_ini, $data_ini_agg, $data_fine, $anno, $pag)
{
$mese_fine = substr($data_fine, 5, 2);
$anno_fine = substr($data_fine, 0, 4);
$giorno_fine = substr($data_fine, 8, 2);
if ((int) substr($data_fine, 8, 2) == 1) {
$mese_fine--;
}
if ($anno_fine > $anno) {
$diff = $anno_fine - $anno;
$mese_fine = $diff * 12 + $mese_fine;
}
# fine if ($anno_fine > $anno)
if (!$data_ini_agg or $data_ini_agg < $data_ini) {
$data_ini_agg = $data_ini;
}
$mese_ini_agg = substr($data_ini_agg, 5, 2);
$anno_ini_agg = substr($data_ini_agg, 0, 4);
$numgiorno = substr($data_ini_agg, 8, 2);
if ($anno_ini_agg > $anno) {
$diff = $anno_ini_agg - $anno;
$mese_ini_agg = $diff * 12 + $mese_ini_agg;
}
# fine if ($anno_fine > $anno)
if ($tipo_periodi == "g") {
$aggiungi_giorni = 1;
} else {
$aggiungi_giorni = 7;
}
$date_option_agg = "";
$n_date_menu_agg = 0;
$mesecreato = $mese_ini_agg;
while ($mesecreato <= $mese_fine) {
if ($date_option_agg) {
$numgiorno = $numgiorno + $aggiungi_giorni;
}
$datafine = date("Y-m-d", mktime(0, 0, 0, $mese_ini_agg, $numgiorno, $anno));
$annocreato = date("Y", mktime(0, 0, 0, $mese_ini_agg, $numgiorno, $anno));
$mesecreato = date("n", mktime(0, 0, 0, $mese_ini_agg, $numgiorno, $anno));
if ($annocreato > $anno) {
$diff = $annocreato - $anno;
$mesecreato = $diff * 12 + $mesecreato;
}
# fine if ($annocreato > $anno)
$nome_giorno = date("D", mktime(0, 0, 0, $mese_ini_agg, $numgiorno, $anno));
if ($tipo_periodi == "g") {
$nome_giorno = "[{$nome_giorno}]";
} else {
$nome_giorno = "";
}
$nome_mese = substr($datafine, 5, 2);
$numero_giorno = substr($datafine, 8, 2);
$numero_anno = substr($datafine, 0, 4);
if (!$date_option_agg) {
$a_ini_menu_agg = substr($datafine, 0, 4);
$m_ini_menu_agg = substr($datafine, 5, 2) - 1;
$g_ini_menu_agg = substr($datafine, 8, 2);
}
# fine if (!$date_option_agg)
$n_date_menu_agg++;
$date_option_agg .= "<option value=\\\"{$datafine}\\\">[{$nome_mese}] {$numero_giorno}{$nome_giorno}, {$numero_anno}</option>\n";
}
# fine while ($mesecreato <= $mese_fine)
if ($tipo_periodi == "g") {
$date_option_agg = str_replace("[Sun]", mex(" Do", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[Mon]", mex(" Lu", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[Tue]", mex(" Ma", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[Wed]", mex(" Me", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[Thu]", mex(" Gi", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[Fri]", mex(" Ve", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[Sat]", mex(" Sa", "inizio.php"), $date_option_agg);
}
# fine if ($tipo_periodi == "g")
$date_option_agg = str_replace("[01]", mex("Gen", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[02]", mex("Feb", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[03]", mex("Mar", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[04]", mex("Apr", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[05]", mex("Mag", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[06]", mex("Giu", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[07]", mex("Lug", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[08]", mex("Ago", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[09]", mex("Set", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[10]", mex("Ott", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[11]", mex("Nov", "inizio.php"), $date_option_agg);
$date_option_agg = str_replace("[12]", mex("Dic", "inizio.php"), $date_option_agg);
unset($y_ini_menu);
unset($m_ini_menu);
unset($d_ini_menu);
unset($n_dates_menu);
unset($d_increment);
include $file_menu;
$num_periodi_vecchi = count($y_ini_menu);
$fileaperto = fopen($nuovo_file_menu, "w+");
flock($fileaperto, 2);
fwrite($fileaperto, "<?php \n\n");
$num_menu = 0;
for ($num1 = 0; $num1 < $num_periodi_vecchi; $num1++) {
$scrivi = 0;
if ($y_ini_menu[$num1] . "-" . $m_ini_menu[$num1] . "-" . $d_ini_menu[$num1] > $data_ini) {
$scrivi = 1;
} else {
$numgiorno = $d_ini_menu[$num1];
for ($num2 = 0; $num2 < $n_dates_menu[$num1]; $num2++) {
$data_corr = date("Y-m-d", mktime(0, 0, 0, $m_ini_menu[$num1] + 1, $numgiorno, $y_ini_menu[$num1]));
if ($data_corr >= $data_ini and $data_corr != $data_ini_agg) {
$y_ini_menu[$num1] = substr($data_corr, 0, 4);
$m_ini_menu[$num1] = substr($data_corr, 5, 2) - 1;
$d_ini_menu[$num1] = substr($data_corr, 8, 2);
$n_dates_menu[$num1] = $n_dates_menu[$num1] - $num2;
if ($n_dates_menu[$num1]) {
$scrivi = 1;
}
break;
}
# fine if ($data_corr >= $data_ini and...
$numgiorno = $numgiorno + $d_increment[$num1];
}
# fine for $num2
}
# fine else if ($y_ini_menu[$num1]."-".$m_ini_menu[$num1]."-".$d_ini_menu[$num1] > $data_ini)
if ($scrivi) {
fwrite($fileaperto, "\$y_ini_menu[{$num_menu}] = \"" . $y_ini_menu[$num1] . "\";\n\$m_ini_menu[{$num_menu}] = \"" . $m_ini_menu[$num1] . "\";\n\$d_ini_menu[{$num_menu}] = \"" . $d_ini_menu[$num1] . "\";\n\$n_dates_menu[{$num_menu}] = \"" . $n_dates_menu[$num1] . "\";\n\$d_increment[{$num_menu}] = \"" . $d_increment[$num1] . "\";\n");
$num_menu++;
}
# fine if ($scrivi)
}
# fine for $num1
$dates_options_list_vett = explode("<option value=\"", $dates_options_list);
$num_dates_options_list = count($dates_options_list_vett);
for ($num1 = 1; $num1 < $num_dates_options_list; $num1++) {
$data_corr = substr($dates_options_list_vett[$num1], 0, 10);
if ($data_corr >= $data_ini and ($data_corr != $data_ini_agg or !$date_option_agg)) {
$n_dates_options_list .= "<option value=\"" . $dates_options_list_vett[$num1];
}
}
# fine for $num1
if ($n_date_menu_agg) {
fwrite($fileaperto, "\$y_ini_menu[{$num_menu}] = \"{$a_ini_menu_agg}\";\n\$m_ini_menu[{$num_menu}] = \"{$m_ini_menu_agg}\";\n\$d_ini_menu[{$num_menu}] = \"{$g_ini_menu_agg}\";\n\$n_dates_menu[{$num_menu}] = \"{$n_date_menu_agg}\";\n\$d_increment[{$num_menu}] = \"{$aggiungi_giorni}\";\n");
}
# fine if ($n_date_menu_agg)
if ($partial_dates) {
fwrite($fileaperto, "\$partial_dates = 1;\n");
}
fwrite($fileaperto, "\$d_names = \"\\\"" . mex(" Do", "inizio.php") . "\\\",\\\"" . mex(" Lu", "inizio.php") . "\\\",\\\"" . mex(" Ma", "inizio.php") . "\\\",\\\"" . mex(" Me", "inizio.php") . "\\\",\\\"" . mex(" Gi", "inizio.php") . "\\\",\\\"" . mex(" Ve", "inizio.php") . "\\\",\\\"" . mex(" Sa", "inizio.php") . "\\\"\";\n\$m_names = \"\\\"" . mex("Gen", "inizio.php") . "\\\",\\\"" . mex("Feb", "inizio.php") . "\\\",\\\"" . mex("Mar", "inizio.php") . "\\\",\\\"" . mex("Apr", "inizio.php") . "\\\",\\\"" . mex("Mag", "inizio.php") . "\\\",\\\"" . mex("Giu", "inizio.php") . "\\\",\\\"" . mex("Lug", "inizio.php") . "\\\",\\\"" . mex("Ago", "inizio.php") . "\\\",\\\"" . mex("Set", "inizio.php") . "\\\",\\\"" . mex("Ott", "inizio.php") . "\\\",\\\"" . mex("Nov", "inizio.php") . "\\\",\\\"" . mex("Dic", "inizio.php") . "\\\"\";\n\n\$dates_options_list = \"\n\n" . trim(addslashes($n_dates_options_list)) . "\n{$date_option_agg}\n\";\n\n?>");
flock($fileaperto, 3);
fclose($fileaperto);
}
}
# fine if ($righe_tab_disp)
}
# fine if ($mostra_quadro_disp)
} else {
echo "<br>\n<div style=\"text-align: center;\">";
}
} else {
unlock_tabelle($tabelle_lock);
}
if ($origine) {
$action = $origine;
$fr_torna_indietro = mex("Torna indietro", $pag);
} else {
$action = "inizio.php";
$fr_torna_indietro = mex("Torna al menù principale", $pag);
}
# fine else if ($origine)
echo "<br><br><form accept-charset=\"utf-8\" method=\"post\" action=\"{$action}\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input class=\"sbutton\" type=\"submit\" name=\"torna\" value=\"{$fr_torna_indietro}\">\n</div></form><br><br>";
if ($verificare != "NO") {
echo "</div>";
}
if ($tema[$id_utente] and $tema[$id_utente] != "base" and @is_dir("./themes/" . $tema[$id_utente] . "/php")) {
include "./themes/" . $tema[$id_utente] . "/php/foot.php";
} else {
include "./includes/foot.php";
}
}
# fine if ($anno_utente_attivato == "SI" and ($priv_ins_nuove_prenota == "s" or $priv_vedi_tab_mesi != "n" or $priv_vedi_tab_prenotazioni != "n"))
}
# fine if ($id_utente)
function scarica_backup_subordinazione ($file_backup,$url_subordinazione,$utente_subordinazione,$password_subordinazione,$anno,$compresso_subordinazione) {
global $tableversioni,$pag;
$errore = "NO";
if ($output = @file($url_subordinazione."crea_backup.php?nome_utente_phpr=$utente_subordinazione&password_phpr=$password_subordinazione&anno=$anno&azione=SI&crea_backup=SI")) {
$backup = @fopen($url_subordinazione."crea_backup.php?nome_utente_phpr=$utente_subordinazione&password_phpr=$password_subordinazione&anno=$anno&azione=SI&mostra_header=NO&salva_backup=SI&compresso=$compresso_subordinazione","r");
if ($backup) {
if ($fileaperto = fopen($file_backup,"w")) {
flock($fileaperto,2);
while (!feof($backup)) {
$linee = fread($backup,524288);
fwrite($fileaperto,$linee);
} # fine while (!feof($fbackup))
flock($fileaperto,3);
fclose($fileaperto);
} # fine if ($fileaperto = fopen($file_backup,"w"))
else {
$errore = "SI";
echo mex("Non ho i permassi di scrittura sulla cartella data",$pag).".<br>";
} # fine else if ($fileaperto = fopen($file_backup,"w"))
fclose ($backup);
if ($errore != "SI") {
if ($compresso_subordinazione == "SI") {
if (rename($file_backup,$file_backup.".gz")) {
if ($fileaperto = fopen($file_backup,"w")) {
flock($fileaperto,2);
$gzbackup = gzopen($file_backup.".gz","r");
if ($gzbackup) {
while (!feof($gzbackup)) {
$linee = gzread($gzbackup,524288);
fwrite($fileaperto,$linee);
} # fine while (!feof($gzbackup))
} # fine if ($gzbackup)
flock($fileaperto,3);
fclose($fileaperto);
} # fine if ($fileaperto = fopen($file_backup,"w"))
unlink($file_backup.".gz");
} # fine if (rename($file_backup,$file_backup.".gz"))
} # fine if ($compresso_subordinazione == "SI")
$linee = "";
if ($fbackup = fopen($file_backup,"r")) {
$linee = fread($fbackup,524288);
fclose($fbackup);
} # fine if ($fbackup = fopen($file,"r"))
$versione_corrente = esegui_query("select * from $tableversioni where idversioni = 1");
$versione_corrente = risul_query($versione_corrente,0,'num_versione');
if (str_replace("<versione>$versione_corrente</versione>","",$linee) == $linee) {
$errore = "SI";
if (str_replace("<versione>","",$linee) == $linee) echo mex("Non si è potuto scaricare il backup remoto",$pag).".<br>";
else echo mex("Versione locale diversa da quella remota",$pag).".<br>";
include("./includes/funzioni_aggiorna.php");
global $agg_cod_sorg;
unset($linee);
$agg_cod_sorg = aggiorna_codice_sorgente_phpr($url_subordinazione);
if ($agg_cod_sorg) echo "<br>".mex("Aggiornamento codice sorgente eseguito con successo",$pag)."!<br><br>";
} # fine if (str_replace("<versione>$versione_corrente</versione>","",$linee) == $linee)
unset($linee);
} # fine if ($errore != "SI")
} # fine if ($backup)
else {
$errore = "SI";
echo mex("Non si è potuto stabilire la connessione",$pag).".<br>";
} # fine else if ($backup)
} # fine if ($output = @file($url_subordinazione."crea_backup.php?nome_utente_phpr=$utente_subordinazione&password_phpr=$password_subordinazione"))
else {
$errore = "SI";
echo mex("Non si è potuto stabilire la connessione",$pag).".<br>";
} # fine else if ($output = @file($url_subordinazione."crea_backup.php?nome_utente_phpr=$utente_subordinazione&password_phpr=$password_subordinazione"))
if ($errore != "SI") $output = @file($url_subordinazione."crea_backup.php?nome_utente_phpr=$utente_subordinazione&password_phpr=$password_subordinazione&anno=$anno&azione=SI&cancella_backup=SI");
return $errore;
} # fine function scarica_backup_subordinazione
function crea_modello_rat ($percorso_cartella_modello,$anno_modello,$PHPR_TAB_PRE,$pag,$lingua_modello,$silenzio,$fr_frase,$frase,$num_frasi,$tipo_periodi) {
global $num_periodi_date,$M_PHPR_DB_TYPE,$M_PHPR_DB_NAME,$M_PHPR_DB_HOST,$M_PHPR_DB_PORT,$M_PHPR_DB_USER,$M_PHPR_DB_PASS,$M_PHPR_LOAD_EXT,$M_PHPR_TAB_PRE,$estendi_ultima_data;
global $m_stile_soldi,$m_stile_data,$anteponi_nome_valuta,$mostra_caparra,$modello_esistente,$cambia_frasi,$template_data_dir,$template_file_name,$parola_settimane;
global $apertura_tag_font,$chiusura_tag_font,$stile_tabella_tariffe,$m_valuta_sing,$m_valuta_plur,$prima_parte_html,$ultima_parte_html,$file_css_frame,$tema_modello;
$tablenometariffe_modello = $PHPR_TAB_PRE."ntariffe".$anno_modello;
$tableperiodi_modello = $PHPR_TAB_PRE."periodi".$anno_modello;
$tableanni = $PHPR_TAB_PRE."anni";
if (controlla_anno($anno_modello) != "SI") {
$continua = "NO";
$anno_modello = "";
} # fine if (controlla_anno($anno_modello) != "SI")
else {
$anno_esistente = esegui_query("select * from $tableanni where idanni = '$anno_modello'");
if (numlin_query($anno_esistente) != 1) $continua = "NO";
} # fine else if (controlla_anno($anno_modello) != "SI")
if ($continua != "NO") {
if ($estendi_ultima_data != "SI") $estendi_ultima_data = "NO";
$date_in_menu = "";
$idfineperiodo_prec = -10;
if (!$num_periodi_date or controlla_num_pos($num_periodi_date) == "NO") $num_periodi_date = 1;
for ($num1 = 0 ; $num1 < $num_periodi_date ; $num1++) {
global ${"inizioperiodo".$num1},${"fineperiodo".$num1},${"intervalloperiodo".$num1};
$inizioperiodo = aggslashdb(${"inizioperiodo".$num1});
$fineperiodo = aggslashdb(${"fineperiodo".$num1});
$idinizioperiodo = esegui_query("select idperiodi from $tableperiodi_modello where datainizio = '$inizioperiodo' ");
$num_idinizioperiodo = numlin_query($idinizioperiodo);
if ($num_idinizioperiodo == 0) { $idinizioperiodo = 10000; }
else { $idinizioperiodo = risul_query($idinizioperiodo,0,idperiodi); }
$inizioperiodo = $idinizioperiodo;
if ($estendi_ultima_data == "SI" and $num1 == ($num_periodi_date - 1)) {
$idfineperiodo = esegui_query("select max(idperiodi) from $tableperiodi_modello");
$idfineperiodo = risul_query($idfineperiodo,0,0);
} # fine if ($estendi_ultima_data == "SI" and $num1 == ($num_periodi_date - 1))
else {
$idfineperiodo = esegui_query("select idperiodi from $tableperiodi_modello where datafine = '$fineperiodo' ");
$num_idfineperiodo = numlin_query($idfineperiodo);
if ($num_idfineperiodo == 0) { $idfineperiodo = -1; }
else { $idfineperiodo = risul_query($idfineperiodo,0,idperiodi); }
} # fine else if ($estendi_ultima_data == "SI" and $num1 == ($num_periodi_date - 1))
$fineperiodo = $idfineperiodo ;
${"inizioperiodo".$num1} = $inizioperiodo;
${"fineperiodo".$num1} = $fineperiodo;
if ($idfineperiodo < $idinizioperiodo) $continua = "NO";
if (($idfineperiodo_prec + 1) > $idinizioperiodo) $continua = "NO";
$idfineperiodo_prec = $idfineperiodo;
${"intervalloperiodo".$num1} = aggslashdb(${"intervalloperiodo".$num1});
if (!${"intervalloperiodo".$num1} or controlla_num_pos(${"intervalloperiodo".$num1}) == "NO" or ${"intervalloperiodo".$num1} > 99) $continua = "NO";
} # fine for $num1
if ($continua == "NO") {
if ($silenzio == "NO") echo mex("Le date sono sbagliate",$pag).". <br>";
} # fine if ($continua == "NO")
else {
$file_intero = file(C_DATA_PATH."/selectperiodi$anno_modello.1.php");
$num_linee_file_intero = count($file_intero);
$pag_gm = "giorni_mesi.php";
$m_tipo_periodi = esegui_query("select tipo_periodi from $tableanni where idanni = '$anno_modello'");
$m_tipo_periodi = risul_query($m_tipo_periodi,0,0);
for ($num1 = 0 ; $num1 < $num_periodi_date ; $num1++) {
$inizioperiodo = ${"inizioperiodo".$num1};
$fineperiodo = ${"fineperiodo".$num1};
$num_intervallo = 1;
for ($num2 = 0 ; $num2 < $num_linee_file_intero ; $num2++) {
if (substr($file_intero[$num2],0,7) == "<option") {
$data_option = substr($file_intero[$num2],16,10);
$id_data_option = esegui_query("select idperiodi from $tableperiodi_modello where datainizio = '$data_option' ");
$esiste_data_option = numlin_query($id_data_option);
if ($esiste_data_option == 1) $id_data_option = risul_query($id_data_option,0,idperiodi);
else {
$id_data_option = esegui_query("select idperiodi from $tableperiodi_modello where datafine = '$data_option' ");
$id_data_option = risul_query($id_data_option,0,idperiodi);
} # fine else if ($esiste_data_option == 1)
if ($id_data_option >= $inizioperiodo and $id_data_option <= ($fineperiodo + 1)) {
if ($num_intervallo == 1) {
$giorno_option = substr($data_option,8,2);
$mese_option = substr($data_option,5,2);
$anno_option = substr($data_option,0,4);
$nome_giorno = date("D" , mktime(0,0,0,$mese_option,$giorno_option,$anno_option));
$nome_mese = date("M" , mktime(0,0,0,$mese_option,$giorno_option,$anno_option));
if ($m_tipo_periodi == "g") {
if ($nome_giorno == "Sun") $nome_giorno = mex2(" Do",$pag_gm,$lingua_modello);
if ($nome_giorno == "Mon") $nome_giorno = mex2(" Lu",$pag_gm,$lingua_modello);
if ($nome_giorno == "Tue") $nome_giorno = mex2(" Ma",$pag_gm,$lingua_modello);
if ($nome_giorno == "Wed") $nome_giorno = mex2(" Me",$pag_gm,$lingua_modello);
if ($nome_giorno == "Thu") $nome_giorno = mex2(" Gi",$pag_gm,$lingua_modello);
if ($nome_giorno == "Fri") $nome_giorno = mex2(" Ve",$pag_gm,$lingua_modello);
if ($nome_giorno == "Sat") $nome_giorno = mex2(" Sa",$pag_gm,$lingua_modello);
} # fine if ($m_tipo_periodi == "g")
else $nome_giorno = "";
if ($nome_mese == "Jan") $nome_mese = mex2("Gen",$pag_gm,$lingua_modello);
if ($nome_mese == "Feb") $nome_mese = mex2("Feb",$pag_gm,$lingua_modello);
if ($nome_mese == "Mar") $nome_mese = mex2("Mar",$pag_gm,$lingua_modello);
if ($nome_mese == "Apr") $nome_mese = mex2("Apr",$pag_gm,$lingua_modello);
if ($nome_mese == "May") $nome_mese = mex2("Mag",$pag_gm,$lingua_modello);
if ($nome_mese == "Jun") $nome_mese = mex2("Giu",$pag_gm,$lingua_modello);
if ($nome_mese == "Jul") $nome_mese = mex2("Lug",$pag_gm,$lingua_modello);
if ($nome_mese == "Aug") $nome_mese = mex2("Ago",$pag_gm,$lingua_modello);
if ($nome_mese == "Sep") $nome_mese = mex2("Set",$pag_gm,$lingua_modello);
if ($nome_mese == "Oct") $nome_mese = mex2("Ott",$pag_gm,$lingua_modello);
if ($nome_mese == "Nov") $nome_mese = mex2("Nov",$pag_gm,$lingua_modello);
if ($nome_mese == "Dec") $nome_mese = mex2("Dic",$pag_gm,$lingua_modello);
$date_in_menu .= "<option value=\\\"$data_option\\\">$nome_mese $giorno_option$nome_giorno, $anno_option</option>
";
} # fine if ($num_intervallo == 1)
if ($num_intervallo == ${"intervalloperiodo".$num1}) $num_intervallo = 1;
else $num_intervallo++;
} # fine if ($id_data_option > $inizioperiodo and...
} # fine if (substr($file_intero[$num2],0,7) == "<option")
} # fine for $num2
} # fine for $num1
} # fine else if ($continua == "NO")
$dati_ca = dati_costi_agg_ntariffe($tablenometariffe_modello,"NO");
} # fine if ($continua != "NO")
if ($continua != "NO") {
$rigatariffe = esegui_query("select * from $tablenometariffe_modello where idntariffe = 1 ");
$numero_tariffe = risul_query($rigatariffe,0,nomecostoagg);
$tariffe_mostra = "";
$nomi_tariffe_imposte = "";
for ($numtariffa = 1 ; $numtariffa <= $numero_tariffe ; $numtariffa++) {
$tariffa = "tariffa".$numtariffa;
global $$tariffa;
if ($$tariffa == "SI") $tariffe_mostra .= " $numtariffa => \"".mex("SI",$pag)."\",";
$nome_tariffa_imposto = "nome_tariffa_imposto".$numtariffa;
global $$nome_tariffa_imposto;
$$nome_tariffa_imposto = formatta_input_var_x_file($$nome_tariffa_imposto);
if ($$nome_tariffa_imposto) $nomi_tariffe_imposte .= "$numtariffa => \"".$$nome_tariffa_imposto."\",";
} # fine for $numtariffa
if ($tariffe_mostra) $tariffe_mostra = substr($tariffe_mostra,0,-1);
if ($nomi_tariffe_imposte) $nomi_tariffe_imposte = substr($nomi_tariffe_imposte,0,-1);
unset($nomi_costi_imposti);
unset($costi_attivati);
for ($numca = 0 ; $numca < $dati_ca[num] ; $numca++) {
global ${"attiva_costo".$dati_ca[$numca][id]};
if (${"attiva_costo".$dati_ca[$numca][id]} == "SI") {
$costi_attivati .= " ".$dati_ca[$numca][id]." => \"".mex("SI",$pag)."\",";
$nome_costo_imposto = "nome_costo_imposto".$dati_ca[$numca][id];
global $$nome_costo_imposto;
$$nome_costo_imposto = formatta_input_var_x_file($$nome_costo_imposto);
if ($$nome_costo_imposto) $nomi_costi_imposti .= $dati_ca[$numca][id]." => \"".$$nome_costo_imposto."\",";
} # fine if (${"attiva_costo".$dati_ca[$numca][id]} == "SI")
} # fine for $num1
if ($nomi_costi_imposti) $nomi_costi_imposti = substr($nomi_costi_imposti,0,-1);
if ($costi_attivati) $costi_attivati = substr($costi_attivati,0,-1);
if ($file_css_frame == "http://") $file_css_frame = "";
$num_colori = 0;
$extra_head_frame = "";
if (strcmp($tema_modello,"")) {
include("./includes/templates/$template_data_dir/themes.php");
$num_temi = count($template_theme_name);
for ($num1 = 1 ; $num1 <= $num_temi ; $num1++) {
if ($tema_modello == $template_theme_name[$num1]) {
$tema_trovato = 1;
$tema_sel = $num1;
} # fine if ($tema_modello == $template_theme_name[$num1])
} # fine for $num1
if ($tema_trovato) {
$prima_parte_html = $template_theme_html_pre[$tema_sel];
$ultima_parte_html = $template_theme_html_post[$tema_sel];
$extra_head_frame = $framed_mode_extra_head[$tema_sel];
$valori_tema = $template_theme_values[$tema_sel];
$num_valori = count($valori_tema);
for ($num1 = 1 ; $num1 <= $num_valori ; $num1++) {
global ${"valore_tema_".$num1};
${"valore_tema_".$num1} = formatta_input_var_x_file(${"valore_tema_".$num1});
$valore_sost = ${"valore_tema_".$num1};
if (!strcmp($valore_sost,"")) $valore_sost = $valori_tema[$num1]['null'];
elseif (strcmp($valori_tema[$num1]['replace'],"")) $valore_sost = str_replace("[theme_value_$num1]",$valore_sost,$valori_tema[$num1]['replace']);
$prima_parte_html = str_replace("[theme_value_$num1]",$valore_sost,$prima_parte_html);
$ultima_parte_html = str_replace("[theme_value_$num1]",$valore_sost,$ultima_parte_html);
$extra_head_frame = str_replace("[theme_value_$num1]",$valore_sost,$extra_head_frame);
} # fine for $num1
$colori_tema = $template_theme_colors[$tema_sel];
$num_colori = count($colori_tema);
for ($num1 = 1 ; $num1 <= $num_colori ; $num1++) {
global ${"colore_tema_".$num1};
if (!preg_match("/^#[0-9a-f]{3,3}$/i",${"colore_tema_".$num1}) and !preg_match("/^#[0-9a-f]{6,6}$/i",${"colore_tema_".$num1})) ${"colore_tema_".$num1} = $colori_tema[$num1]['default'];
$prima_parte_html = str_replace("[theme_color_$num1]",${"colore_tema_".$num1},$prima_parte_html);
$ultima_parte_html = str_replace("[theme_color_$num1]",${"colore_tema_".$num1},$ultima_parte_html);
$extra_head_frame = str_replace("[theme_color_$num1]",${"colore_tema_".$num1},$extra_head_frame);
} # fine for $num1
} # fine if ($tema_trovato)
else $tema_modello = "";
} # fine if (strcmp($tema_modello,""))
if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH) {
$HOTELD_DB_TYPE = "";
$HOTELD_DB_NAME = "";
$HOTELD_DB_HOST = "";
$HOTELD_DB_PORT = "";
$HOTELD_DB_USER = "";
$HOTELD_DB_PASS = "";
$HOTELD_TAB_PRE = "";
include(C_EXT_DB_DATA_PATH);
if ($HOTELD_DB_TYPE) $M_PHPR_DB_TYPE = "";
if ($HOTELD_DB_NAME) $M_PHPR_DB_NAME = "";
if ($HOTELD_DB_HOST) $M_PHPR_DB_HOST = "";
if (strcmp($HOTELD_DB_PORT,"")) $M_PHPR_DB_PORT = "";
if ($HOTELD_DB_USER) $M_PHPR_DB_USER = "";
if (strcmp($HOTELD_DB_PASS,"")) $M_PHPR_DB_PASS = "";
if ($HOTELD_TAB_PRE) $M_PHPR_TAB_PRE = "";
} # fine if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH)
$M_PHPR_DB_TYPE = formatta_input_var_x_file($M_PHPR_DB_TYPE);
$M_PHPR_DB_NAME = formatta_input_var_x_file($M_PHPR_DB_NAME);
$M_PHPR_DB_HOST = formatta_input_var_x_file($M_PHPR_DB_HOST);
$M_PHPR_DB_PORT = formatta_input_var_x_file($M_PHPR_DB_PORT);
$M_PHPR_DB_USER = formatta_input_var_x_file($M_PHPR_DB_USER);
$M_PHPR_DB_PASS = formatta_input_var_x_file($M_PHPR_DB_PASS);
$M_PHPR_LOAD_EXT = formatta_input_var_x_file($M_PHPR_LOAD_EXT);
$M_PHPR_TAB_PRE = formatta_input_var_x_file($M_PHPR_TAB_PRE);
$m_stile_soldi = formatta_input_var_x_file($m_stile_soldi);
$m_stile_data = formatta_input_var_x_file($m_stile_data);
$anteponi_nome_valuta = formatta_input_var_x_file($anteponi_nome_valuta);
$mostra_caparra = formatta_input_var_x_file($mostra_caparra);
$apertura_tag_font = formatta_input_var_x_file($apertura_tag_font);
$chiusura_tag_font = formatta_input_var_x_file($chiusura_tag_font);
$stile_tabella_tariffe = formatta_input_var_x_file($stile_tabella_tariffe);
$m_valuta_sing = formatta_input_var_x_file($m_valuta_sing);
$m_valuta_plur = formatta_input_var_x_file($m_valuta_plur);
$file_css_frame = formatta_input_var_x_file($file_css_frame);
$extra_head_frame = formatta_input_var_x_file($extra_head_frame);
if (get_magic_quotes_gpc()) $prima_parte_html = stripslashes($prima_parte_html);
$prima_parte_html = str_replace("<?","ERROR",$prima_parte_html);
$prima_parte_html = str_replace("?>","ERROR",$prima_parte_html);
$prima_parte_html = str_replace("<%","ERROR",$prima_parte_html);
$prima_parte_html = str_replace("%>","ERROR",$prima_parte_html);
$prima_parte_html = preg_replace("/<script +language *= *\"?php\"? *>/i","ERROR",$prima_parte_html);
if (get_magic_quotes_gpc()) $ultima_parte_html = stripslashes($ultima_parte_html);
$ultima_parte_html = str_replace("<?","ERROR",$ultima_parte_html);
$ultima_parte_html = str_replace("?>","ERROR",$ultima_parte_html);
$ultima_parte_html = str_replace("<%","ERROR",$ultima_parte_html);
$ultima_parte_html = str_replace("%>","ERROR",$ultima_parte_html);
$ultima_parte_html = preg_replace("/<script +language *= *\"?php\"? *>/i","ERROR",$ultima_parte_html);
# FRASI
if ($cambia_frasi == "SI" or $modello_esistente == "SI") {
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) {
global ${$fr_frase[$num_fr]};
${$fr_frase[$num_fr]} = formatta_input_var_x_file(${$fr_frase[$num_fr]});
} # fine for $num_fr
} # fine if ($cambia_frasi == "SI" or $modello_esistente == "SI")
else {
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) ${$fr_frase[$num_fr]} = mext_rat($frase[$num_fr],$pag,$lingua_modello);
} # fine else if ($cambia_frasi == "SI" or $modello_esistente == "SI")
$cost_percorso_a_dati = "";
if (function_exists("realpath")) {
if (realpath(C_DATA_PATH."/")) $cost_percorso_a_dati = realpath(C_DATA_PATH."/")."/";
} # fine if (function_exists("realpath"))
if ((string) $cost_percorso_a_dati == "") {
if (substr(C_DATA_PATH,0,1) == "/") $cost_percorso_a_dati = C_DATA_PATH;
else {
$dati_path = C_DATA_PATH;
if (substr($dati_path,0,2) == "./") $dati_path = substr($dati_path,1);
else $dati_path = "/".$dati_path;
if ($_SERVER["SCRIPT_FILENAME"]) $cost_percorso_a_dati = dirname($_SERVER["SCRIPT_FILENAME"]).$dati_path;
else {
if ($HTTP_SERVER_VARS["SCRIPT_FILENAME"]) $cost_percorso_a_dati = dirname($HTTP_SERVER_VARS["SCRIPT_FILENAME"]).$dati_path;
else {
if ($SCRIPT_FILENAME) $cost_percorso_a_dati = dirname($SCRIPT_FILENAME).$dati_path;
else $cost_percorso_a_dati = "./";
} # fine else if ($HTTP_SERVER_VARS["SCRIPT_FILENAME"])
} # fine else if ($_SERVER["SCRIPT_FILENAME"])
} # fine else if (substr(C_DATI_PATH,0,1) == "/")
} # fine if ((string) $cost_percorso_a_dati == "")
if ($template_file_name[$lingua_modello]) $nome_file = $template_file_name[$lingua_modello];
else {
$template_file_name_m = mext_rat($template_file_name['ita'],$pag,$lingua_modello);
if ($template_file_name_m != $template_file_name['ita'] and $template_file_name_m != $template_file_name['en'] and $template_file_name_m != $template_file_name['es']) $nome_file = $template_file_name_m;
else $nome_file = $lingua_modello."_".$template_file_name['en'];
} # fine else if ($template_file_name[$lingua_modello])
$file = @fopen("$percorso_cartella_modello/$nome_file","w+");
if ($file) {
flock($file,2);
fwrite($file,"<?php if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed']) { ?>$prima_parte_html
<!-- ".mex("FINE DELLA PRIMA PARTE DELL'HTML PERSONALE",$pag)." -->
<?php
} # fine if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed'])
# ".mex("INIZIO VARIABILI MODIFICABILI",$pag)." (".mex("modificare il valore sulla destra",$pag).")
# ".mex("Inserire in questa variabile il nome della pagina se \$PHP_SELF non è definita",$pag)."
\$".mex("var_nome_pagina",$pag)." = \"\";
\$".mex("var_anno",$pag)." = $anno_modello;
\$".mex("var_tipo_db",$pag)." = \"$M_PHPR_DB_TYPE\";
\$".mex("var_nome_db",$pag)." = \"$M_PHPR_DB_NAME\";
\$".mex("var_computer_db",$pag)." = \"$M_PHPR_DB_HOST\";
\$".mex("var_porta_db",$pag)." = \"$M_PHPR_DB_PORT\";
\$".mex("var_utente_db",$pag)." = \"$M_PHPR_DB_USER\";
\$".mex("var_password_db",$pag)." = \"$M_PHPR_DB_PASS\";
\$".mex("var_carica_estensione_db",$pag)." = \"".mex("$M_PHPR_LOAD_EXT",$pag)."\";
\$".mex("var_prefisso_tabelle_db",$pag)." = \"$M_PHPR_TAB_PRE\";
\$".mex("var_lingua_modello",$pag)." = \"$lingua_modello\";
\$".mex("var_stile_soldi",$pag)." = \"".mex("$m_stile_soldi",$pag)."\";
\$".mex("var_stile_data",$pag)." = \"".mex("$m_stile_data",$pag)."\";
\$".mex("var_anteponi_nome_valuta",$pag)." = \"".mex("$anteponi_nome_valuta",$pag)."\";
\$".mex("var_estendi_ultima_data",$pag)." = \"".mex("$estendi_ultima_data",$pag)."\";
\$".mex("var_tariffe_mostra",$pag)." = array($tariffe_mostra);
\$".mex("var_nomi_tariffe_imposte",$pag)." = array($nomi_tariffe_imposte);
\$".mex("var_costi_aggiuntivi_mostra",$pag)." = array($costi_attivati);
\$".mex("var_nomi_costi_agg_imposti",$pag)." = array($nomi_costi_imposti);
\$".mex("var_mostra_caparra",$pag)." = \"".mex("$mostra_caparra",$pag)."\";
\$".mex("var_apertura_tag_font",$pag)." = \"$apertura_tag_font\";
\$".mex("var_chiusura_tag_font",$pag)." = \"$chiusura_tag_font\";
\$".mext_rat("var_stile_tabella_tariffe",$pag)." = \"$stile_tabella_tariffe\";
\$".mex("var_file_css_frame",$pag)." = \"$file_css_frame\";
\$".mex("var_tema_modello",$pag)." = \"$tema_modello\";
");
for ($num1 = 1 ; $num1 <= $num_colori ; $num1++) fwrite($file,"\$".mex("var_colore_tema",$pag)."_$num1 = \"".${"colore_tema_".$num1}."\";
");
for ($num1 = 1 ; $num1 <= $num_valori ; $num1++) fwrite($file,"\$".mex("var_valore_tema",$pag)."_$num1 = \"".${"valore_tema_".$num1}."\";
");
fwrite($file,"
# ".mex("FRASI",$pag)."
\$".mex("var_fr_Valuta_sing",$pag)." = \"".$m_valuta_sing."\";
\$".mex("var_fr_Valuta_plur",$pag)." = \"".$m_valuta_plur."\";
");
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) fwrite($file,"\$".mext_rat("var_".$fr_frase[$num_fr],$pag)." = \"".${$fr_frase[$num_fr]}."\";
");
fwrite($file,"
# ".mex("PERIODI NEI MENU",$pag)."
\$".mex("var_periodi_menu",$pag)." = \"$date_in_menu\";
# ".mex("FINE VARIABILI MODIFICABILI",$pag)."
############################################################################
### ".mex("NON MODIFICARE NIENTE A PARTIRE DA QUI",$pag)."
############################################################################
error_reporting(E_ALL ^ E_NOTICE);
\$PHPR_LOG = \"NO\";
\$pag = \$".mex("var_nome_pagina",$pag).";
if (!\$pag) {
if (@\$PHP_SELF or @\$_SERVER[\"PHP_SELF\"] or @\$HTTP_SERVER_VARS[\"PHP_SELF\"]) {
if (@\$_SERVER[\"PHP_SELF\"]) \$PHP_SELF = \$_SERVER[\"PHP_SELF\"];
else if (@\$HTTP_SERVER_VARS[\"PHP_SELF\"]) \$PHP_SELF = \$HTTP_SERVER_VARS[\"PHP_SELF\"];
\$pag = explode(\"/\",\$PHP_SELF);
\$pag = \$pag[(count(\$pag)-1)];
} # fine if (@\$PHP_SELF or @\$_SERVER[\"PHP_SELF\"] or...
else echo \"".mex("La variabile \\\$PHP_SELF non è definita, si dovrà editare a mano questa pagina per inserirne il nome",$pag).".<br>\";
} # fine if (!\$pag)
define(C_PERCORSO_A_DATI,\"$cost_percorso_a_dati\");
\$anno = \$".mex("var_anno",$pag).";
\$PHPR_DB_TYPE = \$".mex("var_tipo_db",$pag).";
\$PHPR_DB_NAME = \$".mex("var_nome_db",$pag).";
\$PHPR_DB_HOST = \$".mex("var_computer_db",$pag).";
\$PHPR_DB_PORT = \$".mex("var_porta_db",$pag).";
\$PHPR_DB_USER = \$".mex("var_utente_db",$pag).";
\$PHPR_DB_PASS = \$".mex("var_password_db",$pag).";
if (strtoupper(\$".mex("var_carica_estensione_db",$pag).") == \"".mex("SI",$pag)."\") \$PHPR_LOAD_EXT = \"SI\";
else \$PHPR_LOAD_EXT = \"NO\";
\$PHPR_TAB_PRE = \$".mex("var_prefisso_tabelle_db",$pag).";
");
if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH) fwrite($file,"\$HOTELD_DB_TYPE = \"\";
\$HOTELD_DB_NAME = \"\";
\$HOTELD_DB_HOST = \"\";
\$HOTELD_DB_PORT = \"\";
\$HOTELD_DB_USER = \"\";
\$HOTELD_DB_PASS = \"\";
\$HOTELD_TAB_PRE = \"\";
require('".C_EXT_DB_DATA_PATH."');
if (\$HOTELD_DB_TYPE) \$PHPR_DB_TYPE = \$HOTELD_DB_TYPE;
if (\$HOTELD_DB_NAME) \$PHPR_DB_NAME = \$HOTELD_DB_NAME;
if (\$HOTELD_DB_HOST) \$PHPR_DB_HOST = \$HOTELD_DB_HOST;
if (strcmp(\$HOTELD_DB_PORT,\"\")) \$PHPR_DB_PORT = \$HOTELD_DB_PORT;
if (\$HOTELD_DB_USER) \$PHPR_DB_USER = \$HOTELD_DB_USER;
if (strcmp(\$HOTELD_DB_PASS,\"\")) \$PHPR_DB_PASS = \$HOTELD_DB_PASS;
if (\$HOTELD_TAB_PRE) \$PHPR_TAB_PRE = \$HOTELD_TAB_PRE;
");
fwrite($file,"\$lingua_modello = \$".mex("var_lingua_modello",$pag).";
if (\$".mex("var_stile_soldi",$pag)." == \"".mex("europa",$pag)."\") \$stile_soldi = \"europa\";
if (\$".mex("var_stile_soldi",$pag)." == \"".mex("usa",$pag)."\") \$stile_soldi = \"usa\";
if (\$".mex("var_stile_data",$pag)." == \"".mex("europa",$pag)."\") \$stile_data = \"europa\";
if (\$".mex("var_stile_data",$pag)." == \"".mex("usa",$pag)."\") \$stile_data = \"usa\";
if (strtoupper(\$".mex("var_anteponi_nome_valuta",$pag).") == \"".mex("SI",$pag)."\") \$anteponi_nome_valuta = \"SI\";
else \$anteponi_nome_valuta = \"NO\";
if (strtoupper(\$".mex("var_estendi_ultima_data",$pag).") == \"".mex("SI",$pag)."\") \$estendi_ultima_data = \"SI\";
else \$estendi_ultima_data = \"NO\";
unset(\$tariffe_mostra);
reset (\$".mex("var_tariffe_mostra",$pag).");
while (list (\$key, \$val) = each (\$".mex("var_tariffe_mostra",$pag).")) {
if (strtoupper(\$val) == \"".mex("SI",$pag)."\") \$tariffe_mostra[\$key] = \"SI\";
if (strtoupper(\$val) == \"".mex("NO",$pag)."\") \$tariffe_mostra[\$key] = \"NO\";
} # fine while
\$n_tariffe_imposte = \$".mex("var_nomi_tariffe_imposte",$pag).";
unset(\$costi_agg_mostra);
reset (\$".mex("var_costi_aggiuntivi_mostra",$pag).");
while (list (\$key, \$val) = each (\$".mex("var_costi_aggiuntivi_mostra",$pag).")) {
if (strtoupper(\$val) == \"".mex("SI",$pag)."\") \$costi_agg_mostra[\$key] = \"SI\";
if (strtoupper(\$val) == \"".mex("NO",$pag)."\") \$costi_agg_mostra[\$key] = \"NO\";
} # fine while
\$n_costi_agg_imposti = \$".mex("var_nomi_costi_agg_imposti",$pag).";
if (strtoupper(\$".mex("var_mostra_caparra",$pag).") == \"".mex("SI",$pag)."\") \$mostra_caparra = \"SI\";
else \$mostra_caparra = \"NO\";
\$apertura_tag_font = \$".mex("var_apertura_tag_font",$pag).";
\$chiusura_tag_font = \$".mex("var_chiusura_tag_font",$pag).";
\$stile_tabella_tariffe = \$".mext_rat("var_stile_tabella_tariffe",$pag).";
\$file_css_frame = \$".mex("var_file_css_frame",$pag).";
\$extra_head_frame = \"$extra_head_frame\";
\$tipo_periodi = \"$m_tipo_periodi\";
# FRASI
\$fr_Euro = \$".mex("var_fr_Valuta_sing",$pag).";
\$fr_Euros = \$".mex("var_fr_Valuta_plur",$pag).";
");
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) fwrite($file,"\$".$fr_frase[$num_fr]." = \$".mext_rat("var_".$fr_frase[$num_fr],$pag).";
");
fwrite($file,"
# PERIODI NEI MENU
\$menu_periodi = \$".mex("var_periodi_menu",$pag).";
function mex_data(\$messaggio) {
");
if ($lingua_modello != "ita") {
if (@is_file("./includes/lang/$lingua_modello/giorni_mesi.php")) includi_file("./includes/lang/$lingua_modello/giorni_mesi.php",$file);
else if (@is_file("./includes/lang/en/giorni_mesi.php")) includi_file("./includes/lang/en/giorni_mesi.php",$file);
} # fine if ($lingua_modello != "ita")
fwrite($file,"
return \$messaggio;
} # fine function mex_data
");
includi_file("./includes/funzioni_".$M_PHPR_DB_TYPE.".php",$file);
fwrite($file,"
\$numconnessione = connetti_db(\$PHPR_DB_NAME,\$PHPR_DB_HOST,\$PHPR_DB_PORT,\$PHPR_DB_USER,\$PHPR_DB_PASS,\$PHPR_LOAD_EXT);
");
includi_file("./includes/funzioni.php",$file);
includi_file(C_DATA_PATH."/versione.php",$file);
includi_file("./includes/funzioni_testo.php",$file);
includi_file("./includes/funzioni_tariffe.php",$file);
includi_file("./includes/funzioni_costi_agg.php",$file);
if (defined("C_FILE_SCADENZA_ACCOUNT") and C_FILE_SCADENZA_ACCOUNT != "") {
$f_scad_acc = explode("/",$percorso_cartella_modello);
$num_f_scad_acc = count($f_scad_acc);
$file_scad_acc = "";
for ($num1 = 0 ; $num1 < $num_f_scad_acc ; $num1++) if ($f_scad_acc[$num1] != ".") $file_scad_acc .= "../";
$file_scad_acc .= C_FILE_SCADENZA_ACCOUNT;
fwrite($file,"
\$disattivato = \"\";
\$scadenza = trim(@implode(@file(\"$file_scad_acc\")));
\$adesso = date(\"YmdHis\");
if (!\$scadenza or \$scadenza < \$adesso) {
\$disattivato = \"SI\";
echo \"Expired account.<br>\";
} # fine (!\$scadenza or \$scadenza < \$adesso)
if (!\$disattivato) {
");
} # fine if (defined("C_FILE_SCADENZA_ACCOUNT") and C_FILE_SCADENZA_ACCOUNT != "")
includi_file("./includes/templates/$template_data_dir/template.php",$file);
if (defined("C_FILE_SCADENZA_ACCOUNT") and C_FILE_SCADENZA_ACCOUNT != "") fwrite($file,"
} # fine if (!\$disattivato)
");
fwrite($file,"
if (!\$framed) {
?>
<!-- ".mex("INIZIO DELLA SECONDA PARTE DELL'HTML PERSONALE",$pag)." -->
$ultima_parte_html
<!-- ".mex("FINE DELLA SECONDA PARTE DELL'HTML PERSONALE",$pag)." --><?php } # fine if (!\$framed) ?>");
flock($file,3);
fclose($file);
$exec_crea_mod = substr(decoct(@fileperms('./crea_modelli.php')),-3,1);
if ((defined('C_CHMOD_EXEC_MODELLI') and C_CHMOD_EXEC_MODELLI == "SI") or $exec_crea_mod == "7" or $exec_crea_mod == "5") @chmod("$percorso_cartella_modello/$nome_file", 0750);
else @chmod("$percorso_cartella_modello/$nome_file", 0640);
$url_pagina = "";
if ($silenzio != "totale") {
$url_pagina = trova_url_pagina($nome_file,$percorso_cartella_modello,$pag);
if ($url_pagina) $url_pagina_link = $url_pagina;
else $url_pagina_link = "$percorso_cartella_modello/$nome_file";
} # fine if ($silenzio != "totale")
if ($silenzio == "NO") echo "<br>";
if ($silenzio != "totale") echo mex("Una pagina chiamata",$pag)." <b><a href=\"$url_pagina_link\" target=\"_blank\">$nome_file</a></b> ".mex("è stata creata nella directory",$pag)." \"$percorso_cartella_modello\".<br>";
if (defined("C_CARTELLA_CREA_MODELLI") and $silenzio == "NO") echo mex("Si può creare un link verso questa pagina dal proprio sito internet",$pag).".<br>";
else if ($silenzio == "NO") echo mex("Si può cambiare la directory dove vengono create le pagine da \"configura e personalizza\"",$pag).".<br>";
} # fine if ($file)
else if ($silenzio == "NO") echo mex("Non ho il permesso di scrittura nella cartella",$pag)." $percorso_cartella_modello.<br>";
} # fine if ($continua != "NO")
} # fine function crea_modello_rat
$template_theme_name[1] = "default";
$template_theme_colors[1][1]['name'] = "font";
$template_theme_colors[1][1]['default'] = "#000000";
$template_theme_colors[1][2]['name'] = "background";
$template_theme_colors[1][2]['default'] = "#ffffff";
$template_theme_colors[1][3]['name'] = "background 2";
$template_theme_colors[1][3]['default'] = "#ebebeb";
$template_theme_values[1][1]['name'] = mex("URL della home",$pag);
$template_theme_values[1][1]['default'] = $dati_struttura[4];
$template_theme_values[1][1]['replace'] = "<div style=\"width: 100%; padding: 10px 0 10px 20px; margin: 0; border-bottom: 2px solid [theme_color_1]; background-color: [theme_color_3];\"><a href=\"[theme_value_1]\" style=\"color: [theme_color_1];\" target=\"_top\">[theme_value_2]</a></div>";
$template_theme_values[1][2]['name'] = mex("URL del logo",$pag);
$template_theme_values[1][2]['default'] = $dati_struttura[15];
$template_theme_values[1][2]['replace'] = "<img style=\"text-decoration: none; border: 0px;\" src=\"[theme_value_2]\" alt=\"[theme_value_3]\">";
$template_theme_values[1][2]['null'] = "[theme_value_3]";
$template_theme_values[1][3]['name'] = mex("Torna alla HOME",$pag);
$template_theme_values[1][3]['default'] = mex2("Torna alla HOME",$pag,$lingua_modello);
$template_theme_html_pre[1] = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"
\"http://www.w3.org/TR/html4/strict.dtd\">
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html;charset=utf-8\" >
<title> $nome_file </title>
<style type=\"text/css\">
.rates { background-color: [theme_color_3]; border-radius: 10px; }
.rates tr:first-child td:first-child { border-top-left-radius: 10px; }
.rates tr:first-child td:last-child { border-top-right-radius: 10px; }
.rates tr:last-child td:first-child { border-bottom-left-radius: 10px; }
.rates tr:last-child td:last-child { border-bottom-right-radius: 10px; }
</style>
</head>
echo "$istogramma<br><br>";
} # fine if (@is_array($x))
} # fine if ($tipo_tabella == "statistiche" and $priv_vedi_tab_stat != "n")
echo "<div style=\"text-align: center;\"><br>
<form accept-charset=\"utf-8\" method=\"post\" action=\"inizio.php\"><div>
<input type=\"hidden\" name=\"anno\" value=\"$anno\">
<input type=\"hidden\" name=\"id_sessione\" value=\"$id_sessione\">
<input class=\"sbutton\" type=\"submit\" name=\"indietro\" value=\"".mex("Torna al menù principale",$pag)."\">
</div></form></div><div style=\"height: 20px\"></div>";
if ($tema[$id_utente] and $tema[$id_utente] != "base" and @is_dir("./themes/".$tema[$id_utente]."/php")) include("./themes/".$tema[$id_utente]."/php/foot.php");
else include("./includes/foot.php");
} # fine if ($anno_utente_attivato == "SI")
} # fine if ($id_utente)
?>
# fine if ($priv_ins_entrate == "s")
if ($priv_ins_spese == "s") {
echo "\n<h3>" . mex("Inserisci i costi di gestione per l'anno", $pag) . " {$anno}.</h3>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"costi.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\"><br>\n<table style=\"margin-left: auto; margin-right: auto;\" cellspacing=2 cellpadding=5>\n<tr><td>";
if ($num_casse_attive == 1) {
echo $hidden_cassa;
} else {
echo "" . mex("Cassa", $pag) . ": <select name=\"id_cassa\">\n{$opt_casse}</select></td></tr>\n<tr><td>";
}
echo "" . mex("Natura spesa", $pag) . ": \n<input type=\"text\" name=\"nome_costo\" size=\"30\" value=\"\">\n</td></tr>\n<tr><td>\n" . mex("Importo", $pag) . ": \n<input type=\"text\" name=\"val_costo\" size=\"10\" value=\"\"> {$Euro}.\n</td></tr>\n{$metodo_pagamento_txt}";
if ($priv_persona_ins_costi == "c") {
echo "<tr><td>" . mex("Persona che inserisce", $pag) . ": \n<input type=\"text\" name=\"persona_costo\" size=\"20\" value=\"\"> (" . mex("opzionale", $pag) . ").\n</td></tr>";
}
# fine if ($priv_persona_ins_costi == "c")
echo "</table><div style=\"text-align: center;\">\n<input class=\"sbutton\" type=\"submit\" name=\"inserisci_spesa\" value=\"" . mex("Inserisci la spesa", $pag) . "\"><br>\n</div></div></form>\n<table><tr><td style=\"height: 8px;\"></td></tr></table><hr style=\"width: 95%\">";
}
# fine if ($priv_ins_spese == "s")
echo "<form accept-charset=\"utf-8\" method=\"post\" action=\"visualizza_tabelle.php\"><div style=\"text-align: center;\">\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input type=\"hidden\" name=\"tipo_tabella\" value=\"costi\">\n<input class=\"sbutton\" type=\"submit\" name=\"visualizza\" value=\"" . mex("Visualizza la tabella con tutte le spese e le entrate", $pag) . "\">\n</div></form>";
}
# fine else if (!$num_casse_attive)
echo "<table><tr><td style=\"height: 8px;\"></td></tr></table>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"inizio.php\"><div style=\"text-align: center;\">\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input class=\"sbutton\" type=\"submit\" name=\"indietro\" value=\"" . mex("Torna al menù principale", $pag) . "\">\n</div></form><table><tr><td style=\"height: 20px;\"></td></tr></table>";
}
# fine if ($mostra_form_inserimento != "NO")
if ($tema[$id_utente] and $tema[$id_utente] != "base" and @is_dir("./themes/" . $tema[$id_utente] . "/php")) {
include "./themes/" . $tema[$id_utente] . "/php/foot.php";
} else {
include "./includes/foot.php";
}
}
# fine if ($anno_utente_attivato == "SI")
}
# fine if ($id_utente)
function esegui_modifiche_prenotazione(&$inserire, &$cancellata, $id_prenota_int, $id_prenota_idpr, $num_id_prenota, $id_transazione, $id_sessione, $anno, $id_nuovo_utente_inserimento, $n_stima_checkin, $n_met_paga_caparra, $n_origine_prenota, $n_pagato, $n_confermato, $tipo_commento, $n_commento, $n_cancella_commento, $tableprenota_da_aggiornare, $tipo_sposta, $dati_da_anno_prec, $prenota_in_anno_succ, $tra_anni, $PHPR_TAB_PRE)
{
global $id_utente, $priv_mod_checkin, $attiva_regole1_consentite, $regole1_consentite, $attiva_tariffe_consentite, $tariffe_consentite_vett, $priv_mod_date, $priv_ins_periodi_passati, $priv_mod_commento, $priv_mod_sconto, $priv_mod_caparra, $priv_mod_pagato, $priv_mod_orig_prenota, $d_commento, $cassa_pagamenti;
global $dati_ca, $d_id_utente_inserimento_idpr, $d_appartamento_idpr, $d_id_data_inizio_idpr, $d_nome_tariffa_idpr, $d_app_eliminati_costi_idpr, $d_checkin_idpr, $d_checkout_idpr, $d_prenota_comp_idpr, $fineperiodo_orig;
global $id_prenota_orig, $tableperiodi_orig, $tableprenota_orig, $tablecostiprenota_orig, $tableperiodi_prec, $tableprenota_prec, $tablecostiprenota_prec, $stile_data;
$pag = "modifica_prenota.php";
$tablenometariffe = $PHPR_TAB_PRE . "ntariffe" . $anno;
$tableprenota = $PHPR_TAB_PRE . "prenota" . $anno;
$tableperiodi = $PHPR_TAB_PRE . "periodi" . $anno;
$tableregole = $PHPR_TAB_PRE . "regole" . $anno;
$tablesoldi = $PHPR_TAB_PRE . "soldi" . $anno;
$tableappartamenti = $PHPR_TAB_PRE . "appartamenti";
$tableclienti = $PHPR_TAB_PRE . "clienti";
$tablepersonalizza = $PHPR_TAB_PRE . "personalizza";
$tabletransazioni = $PHPR_TAB_PRE . "transazioni";
$tableutenti = $PHPR_TAB_PRE . "utenti";
$tablecostiprenota = $PHPR_TAB_PRE . "costiprenota" . $anno;
$tablerelinventario = $PHPR_TAB_PRE . "relinventario";
$tablecache = $PHPR_TAB_PRE . "cache";
$tablecosti = $PHPR_TAB_PRE . "costi" . $anno;
$file_interconnessioni = C_DATA_PATH . "/dati_interconnessioni.php";
if ($tableprenota_da_aggiornare == "SI") {
if (@is_file($file_interconnessioni)) {
include $file_interconnessioni;
if (@is_array($ic_present)) {
$dati_transaz = recupera_dati_transazione($id_transazione, $id_sessione, $anno, "SI", $tipo_transaz);
if ($tipo_transaz == "mod_p" and risul_query($dati_transaz, 0, 'dati_transazione11') == "SI") {
unset($interconnection_name);
$interconn_dir = opendir("./includes/interconnect/");
while ($mod_ext = readdir($interconn_dir)) {
if ($mod_ext != "." and $mod_ext != ".." and @is_dir("./includes/interconnect/{$mod_ext}")) {
include "./includes/interconnect/{$mod_ext}/name.php";
if ($ic_present[$interconnection_name] == "SI") {
include "./includes/interconnect/{$mod_ext}/functions_import.php";
$funz_import_reservations = "import_reservations_" . $interconnection_name;
$id_utente_origi = $id_utente;
$id_utente = 1;
$funz_import_reservations("", "", $file_interconnessioni, $anno, $PHPR_TAB_PRE, 2, $id_utente, $HOSTNAME);
$id_utente = $id_utente_origi;
}
# fine if ($ic_present[$interconnection_name] == "SI")
}
# fine if ($modello_ext != "." and $modello_ext != ".." and...
}
# fine while ($mod_ext = readdir($interconn_dir))
closedir($interconn_dir);
}
# fine if ($tipo_transaz == "mod_p" and risul_query($dati_transazione,0,'dati_transazione11') == "SI")
}
# fine if (@is_array($ic_present))
}
# fine if (@is_file($file_interconnessioni))
$tableprenota_da_aggiornare = "";
}
# fine if ($tableprenota_da_aggiornare == "SI")
if ($dati_da_anno_prec == "SI" or $prenota_in_anno_succ) {
if (@is_file($file_interconnessioni)) {
$tabelle_lock = array($tableprenota_prec, $tableprenota_orig, $tablecostiprenota_prec, $tablecostiprenota_orig, $tablerelinventario, $tabletransazioni, $tablecache);
} else {
$tabelle_lock = array($tableprenota_prec, $tableprenota_orig, $tablecostiprenota_prec, $tablecostiprenota_orig, $tablerelinventario, $tabletransazioni);
}
$altre_tab_lock = array($tablenometariffe, $tableperiodi_prec, $tableperiodi_orig, $tableappartamenti, $tableregole, $tablepersonalizza, $tableutenti);
} else {
if (@is_file($file_interconnessioni)) {
$tabelle_lock = array($tableprenota, $tablecostiprenota, $tablerelinventario, $tabletransazioni, $tablecache);
} else {
$tabelle_lock = array($tableprenota, $tablecostiprenota, $tablerelinventario, $tabletransazioni);
}
$altre_tab_lock = array($tablenometariffe, $tableperiodi, $tableappartamenti, $tableregole, $tablepersonalizza, $tableutenti);
}
# fine else if ($dati_da_anno_prec == "SI")
$tabelle_lock = lock_tabelle($tabelle_lock, $altre_tab_lock);
$dati_transazione = recupera_dati_transazione($id_transazione, $id_sessione, $anno, "NO", $tipo_transazione);
if ($tipo_transazione != "mod_p") {
$inserire = "NO";
} else {
if ("," . $id_prenota_int . "," != risul_query($dati_transazione, 0, 'dati_transazione1')) {
$inserire = "NO";
}
}
if ($inserire != "NO") {
$d_data_inserimento = risul_query($dati_transazione, 0, 'dati_transazione2');
$d_host_inserimento = risul_query($dati_transazione, 0, 'dati_transazione3');
$n_costo_tot_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione4'));
$n_inizioperiodo = risul_query($dati_transazione, 0, 'dati_transazione5');
$n_fineperiodo = risul_query($dati_transazione, 0, 'dati_transazione6');
$n_appartamento_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione7'));
$n_assegnazioneapp_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione8'));
$n_lista_app_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione9'));
$n_numpersone_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione10'));
$tableprenota_da_aggiornare = risul_query($dati_transazione, 0, 'dati_transazione11');
$n_nometipotariffa_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione12'));
$n_costo_tariffa_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione13'));
$costi_aggiuntivi_modificati_int_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione14'));
$costi_aggiuntivi_da_inserire_int_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione15'));
$n_sconto_caparra_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione16'));
unset($n_sconto_idpr);
unset($n_caparra_idpr);
unset($n_commissioni_idpr);
for ($num_idpr = 0; $num_idpr < $num_id_prenota; $num_idpr++) {
$id_prenota = $id_prenota_idpr[$num_idpr];
if ($tipo_sposta == "fisso" and strcmp($n_appartamento_idpr[$id_prenota], "")) {
$n_assegnazioneapp_idpr[$id_prenota] = "k";
}
$n_sconto = explode("#@&", $n_sconto_caparra_idpr[$id_prenota]);
if (strcmp($n_sconto[1], "")) {
$n_caparra = (double) $n_sconto[1];
} else {
$n_caparra = "";
}
if (strcmp($n_sconto[2], "")) {
$n_commissioni = (double) $n_sconto[2];
} else {
$n_commissioni = "";
}
if (strcmp($n_sconto[0], "")) {
$n_sconto = (double) $n_sconto[0];
} else {
$n_sconto = "";
}
$n_sconto_idpr[$id_prenota] = $n_sconto;
$n_caparra_idpr[$id_prenota] = $n_caparra;
$n_commissioni_idpr[$id_prenota] = $n_commissioni;
}
# fine for $num_idpr
$n_tariffesettimanali_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione17'));
$id_per_corr_finto = (string) risul_query($dati_transazione, 0, 'dati_transazione18');
$prenota_comp_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione19'));
$n_app_eliminati_costi_idpr = unserialize(risul_query($dati_transazione, 0, 'dati_transazione20'));
if (get_magic_quotes_gpc()) {
$n_pagato = stripslashes($n_pagato);
$n_confermato = stripslashes($n_confermato);
}
# fine if (get_magic_quotes_gpc())
$n_pagato_idpr = unserialize($n_pagato);
$n_confermato_idpr = unserialize($n_confermato);
esegui_query("delete from {$tabletransazioni} where idtransazioni = '{$id_transazione}' and idsessione = '{$id_sessione}'");
if ($tableprenota_da_aggiornare) {
$spostamenti = risul_query($dati_transazione, 0, 'spostamenti');
$spostamenti = explode(",", $spostamenti);
}
# fine if ($tableprenota_da_aggiornare)
unset($dati_prenota_idpr);
unset($beniinv_presenti);
unset($num_ripetizioni_costo_mod_idpr);
unset($num_ripetizioni_costo_ins_idpr);
unset($n_tipotariffa_idpr);
$d_data_inserimento_idpr = explode(",", $d_data_inserimento);
$d_host_inserimento_idpr = explode(",", $d_host_inserimento);
if (get_magic_quotes_gpc()) {
$n_met_paga_caparra = stripslashes($n_met_paga_caparra);
}
$n_met_paga_caparra = htmlspecialchars($n_met_paga_caparra);
for ($num_idpr = 0; $num_idpr < $num_id_prenota; $num_idpr++) {
$id_prenota = $id_prenota_idpr[$num_idpr];
$d_checkin = $d_checkin_idpr[$id_prenota];
$d_id_data_inizio = $d_id_data_inizio_idpr[$id_prenota];
$n_costo_tot = $n_costo_tot_idpr[$id_prenota];
$n_appartamento = $n_appartamento_idpr[$id_prenota];
$n_assegnazioneapp = $n_assegnazioneapp_idpr[$id_prenota];
$n_lista_app = $n_lista_app_idpr[$id_prenota];
$n_numpersone = $n_numpersone_idpr[$id_prenota];
$n_nometipotariffa = $n_nometipotariffa_idpr[$id_prenota];
$n_costo_tariffa = $n_costo_tariffa_idpr[$id_prenota];
$costi_aggiuntivi_modificati_int = $costi_aggiuntivi_modificati_int_idpr[$id_prenota];
$costi_aggiuntivi_da_inserire_int = $costi_aggiuntivi_da_inserire_int_idpr[$id_prenota];
$n_sconto = $n_sconto_idpr[$id_prenota];
$n_caparra = $n_caparra_idpr[$id_prenota];
$n_commissioni = $n_commissioni_idpr[$id_prenota];
$n_tariffesettimanali = $n_tariffesettimanali_idpr[$id_prenota];
$prenota_comp = $prenota_comp_idpr[$id_prenota];
$n_pagato = $n_pagato_idpr[$id_prenota];
$n_confermato = $n_confermato_idpr[$id_prenota];
global ${"dati_cap" . $id_prenota}, ${"metodo_pagamento" . $id_prenota};
$dati_cap = ${"dati_cap" . $id_prenota};
unset($num_costi_presenti);
$dati_prenota_idpr[$id_prenota] = esegui_query("select * from {$tableprenota} where idprenota = '{$id_prenota}' and idclienti != '0'");
$num_dati_prenota = numlin_query($dati_prenota_idpr[$id_prenota]);
if ($num_dati_prenota == 0) {
$inserire = "NO";
$cancellata = "SI";
} else {
$n_data_inserimento = risul_query($dati_prenota_idpr[$id_prenota], 0, 'datainserimento');
$n_host_inserimento = risul_query($dati_prenota_idpr[$id_prenota], 0, 'hostinserimento');
if ($n_data_inserimento != $d_data_inserimento_idpr[$num_idpr] or $n_host_inserimento != $d_host_inserimento_idpr[$num_idpr]) {
$inserire = "NO";
$cancellata = "SI";
$inizioperiodo = "";
$fineperiodo = "";
}
# fine if ($n_data_inserimento != $d_data_inserimento_idpr[$num_idpr] or ...
if ($n_appartamento != "") {
$appartamento = $n_appartamento;
} else {
$appartamento = risul_query($dati_prenota_idpr[$id_prenota], 0, 'idappartamenti');
}
if ($n_numpersone != "") {
$numpersone = $n_numpersone;
} else {
$numpersone = risul_query($dati_prenota_idpr[$id_prenota], 0, 'num_persone');
}
if (!$numpersone) {
$numpersone = 0;
}
if ($n_assegnazioneapp != "") {
$assegnazioneapp = $n_assegnazioneapp;
} else {
$assegnazioneapp = risul_query($dati_prenota_idpr[$id_prenota], 0, 'assegnazioneapp');
}
if ($n_lista_app != "") {
$lista_app = $n_lista_app;
} else {
$lista_app = risul_query($dati_prenota_idpr[$id_prenota], 0, 'app_assegnabili');
}
if ($n_inizioperiodo != "") {
$inizioperiodo = $n_inizioperiodo;
} else {
$inizioperiodo = risul_query($dati_prenota_idpr[$id_prenota], 0, 'iddatainizio');
}
if ($n_fineperiodo != "") {
$fineperiodo = $n_fineperiodo;
} else {
$fineperiodo = risul_query($dati_prenota_idpr[$id_prenota], 0, 'iddatafine');
}
}
# fine else if ($num_dati_prenota == 0)
if ($n_stima_checkin) {
$n_stima_checkin = aggslashdb($n_stima_checkin);
if ($priv_mod_checkin != "s") {
$inserire = "NO";
}
if (!preg_match("/[0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:00/", $n_stima_checkin)) {
$inserire = "NO";
} else {
$id_stima_checkin = esegui_query("select idperiodi from {$tableperiodi} where datainizio <= '" . substr($n_stima_checkin, 0, 10) . "' and datafine > '" . substr($n_stima_checkin, 0, 10) . "' ");
if (numlin_query($id_stima_checkin) == 1) {
$id_stima_checkin = risul_query($id_stima_checkin, 0, 'idperiodi');
if ($id_stima_checkin > $fineperiodo + 1) {
$inserire = "NO";
}
if ($id_stima_checkin < $inizioperiodo) {
$inserire = "NO";
}
} else {
$inserire = "NO";
}
if ($d_checkin) {
$inserire = "NO";
}
}
# fine else if (!preg_match("/[0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:00/",$n_stima_checkin))
}
# fine if ($n_stima_checkin)
$appartamento_esistente = esegui_query("select idappartamenti,maxoccupanti from {$tableappartamenti} where idappartamenti = '{$appartamento}'");
if (numlin_query($appartamento_esistente) != 1 and $n_appartamento) {
$inserire = "NO";
} else {
$maxoccupanti = risul_query($appartamento_esistente, 0, 'maxoccupanti');
if ($maxoccupanti and $numpersone > $maxoccupanti and $n_numpersone) {
$inserire = "NO";
}
}
# fine else if (numlin_query($appartamento_esistente) != 1)
$appartamento_chiuso = esegui_query("select idregole from {$tableregole} where iddatainizio <= '{$fineperiodo}' and iddatafine >= '{$inizioperiodo}' and app_agenzia = '{$appartamento}' and motivazione2 = 'x' ");
if (numlin_query($appartamento_chiuso)) {
$inserire = "NO";
}
if ($assegnazioneapp == "c" and str_replace("," . $appartamento . ",", "", "," . $lista_app . ",") == "," . $lista_app . "," and ($n_appartamento or $n_assegnazioneapp or $n_lista_app)) {
$inserire = "NO";
}
if ($attiva_regole1_consentite == "s" and ($n_appartamento != "" or $n_assegnazioneapp != "" or $n_lista_app != "")) {
unset($appartameti_in_lista);
if ($assegnazioneapp != "k" and $assegnazioneapp != "c") {
$inserire = "NO";
}
if ($assegnazioneapp == "k") {
$appartameti_in_lista[0] = $appartamento;
}
if ($assegnazioneapp == "c") {
$appartameti_in_lista = explode(",", $lista_app);
}
for ($n_lista = 0; $n_lista < count($appartameti_in_lista); $n_lista++) {
$appartamento_lista = $appartameti_in_lista[$n_lista];
$motivazioni_regola1 = esegui_query("select motivazione,iddatainizio,iddatafine from {$tableregole} where iddatainizio <= '{$fineperiodo}' and iddatafine >= '{$inizioperiodo}' and app_agenzia = '{$appartamento_lista}' and (motivazione2 != 'x' or motivazione2 is NULL) order by iddatainizio");
if (numlin_query($motivazioni_regola1) == 0) {
$inserire = "NO";
} else {
unset($motivazioni_consentite);
for ($num2 = 0; $num2 < count($regole1_consentite); $num2++) {
$motivazioni_consentite[$regole1_consentite[$num2]] = "SI";
}
$iddatainizio_regole_tot = risul_query($motivazioni_regola1, 0, 'iddatainizio');
$iddatafine_regole_tot = risul_query($motivazioni_regola1, 0, 'iddatafine');
$motivazione = risul_query($motivazioni_regola1, 0, 'motivazione');
if (!$motivazione) {
$motivazione = " ";
}
if (!$motivazioni_consentite[$motivazione]) {
$inserire = "NO";
}
for ($num2 = 1; $num2 < numlin_query($motivazioni_regola1); $num2++) {
$motivazione = risul_query($motivazioni_regola1, $num2, 'motivazione');
if (!$motivazione) {
$motivazione = " ";
}
if (!$motivazioni_consentite[$motivazione]) {
$inserire = "NO";
}
$iddatainizio_regola = risul_query($motivazioni_regola1, $num2, 'iddatainizio');
if ($iddatainizio_regola == $iddatafine_regole_tot + 1) {
$iddatafine_regole_tot = risul_query($motivazioni_regola1, $num2, 'iddatafine');
} else {
$inserire = "NO";
}
}
# fine for $num2
if ($iddatainizio_regole_tot > $inizioperiodo or $iddatafine_regole_tot < $fineperiodo) {
$inserire = "NO";
}
}
# fine else if (numlin_query($motivazioni_regola1) == 0)
}
# fine for $n_lista
}
# fine if ($attiva_regole1_consentite == "s" and...
if ($dati_da_anno_prec == "SI") {
passa_var_a_anno_prec($id_prenota, $tableperiodi, $tableprenota, $tablecostiprenota, $d_id_data_inizio, $d_id_data_fine, $n_fineperiodo, $inizioperiodo, $fineperiodo, $lunghezza_periodo, $dati_prenota_modifica);
}
if ($n_nometipotariffa != "") {
$trovata_tariffa = "NO";
$dati_tariffe = dati_tariffe($tablenometariffe, "", "", $tableregole);
for ($numtariffa = 1; $numtariffa <= $dati_tariffe['num']; $numtariffa++) {
$tariffa = "tariffa" . $numtariffa;
$nometariffa = $dati_tariffe[$tariffa]['nome'];
if ($n_nometipotariffa == $tariffa or $n_nometipotariffa == $nometariffa) {
$trovata_tariffa = "SI";
$n_tipotariffa = $tariffa;
$n_tipotariffa_idpr[$id_prenota] = $n_tipotariffa;
}
# fine if ($n_nometipotariffa == $tariffa or $n_nometipotariffa == $nometariffa)
}
# fine for $numtariffa
if ($attiva_tariffe_consentite == "s" and $tariffe_consentite_vett[substr($n_tipotariffa, 7)] != "SI" and $n_nometipotariffa != $d_nome_tariffa_idpr[$id_prenota] or $trovata_tariffa == "NO") {
$inserire = "NO";
}
for ($num2 = $inizioperiodo; $num2 <= $fineperiodo; $num2++) {
$rigasettimana = esegui_query("select * from {$tableperiodi} where idperiodi = '{$num2}' ");
$esistetariffa = risul_query($rigasettimana, 0, $n_tipotariffa);
$esistetariffap = risul_query($rigasettimana, 0, $n_tipotariffa . "p");
if ((!strcmp($esistetariffa, "") or $esistetariffa < 0) and (!strcmp($esistetariffap, "") or $esistetariffap < 0)) {
$inserire = "NO";
}
if ($n_nometipotariffa != $d_nome_tariffa_idpr[$id_prenota] and $dati_tariffe[$n_tipotariffa]['chiusa'][$num2]) {
$inserire = "NO";
}
}
# fine for $num2
}
# fine if ($n_nometipotariffa != "")
if ($priv_mod_date != "s" and ($n_inizioperiodo != "" or $n_fineperiodo != "")) {
$inserire = "NO";
}
if ($priv_ins_periodi_passati != "s" and $inizioperiodo < $d_id_data_inizio) {
$id_periodo_corrente = calcola_id_periodo_corrente($anno);
if ($id_periodo_corrente >= $inizioperiodo) {
$inserire = "NO";
}
}
# fine if ($priv_ins_periodi_passati != "s" and $inizioperiodo < $d_id_data_inizio)
#if ($n_numpersone != "" and $priv_mod_num_persone != "s") $inserire = "NO";
if ($n_numpersone and controlla_num_pos($n_numpersone) != "SI") {
$inserire = "NO";
}
if ($priv_mod_commento != "s" and ($n_commento != "" or $n_cancella_commento)) {
$inserire = "NO";
}
if (strcmp($n_sconto, "") and ($priv_mod_sconto != "s" or controlla_soldi($n_sconto) == "NO")) {
$inserire = "NO";
}
if (strcmp($n_caparra, "")) {
if ($priv_mod_caparra != "s" or controlla_soldi($n_caparra, "SI") == "NO") {
$inserire = "NO";
}
if ($n_caparra > $n_costo_tot) {
$inserire = "NO";
}
}
# fine if (strcmp($n_caparra,""))
if (strcmp($n_commissioni, "") and ($priv_mod_caparra != "s" or controlla_soldi($n_commissioni, "SI") == "NO")) {
$inserire = "NO";
}
if ($costi_aggiuntivi_modificati_int) {
$costi_aggiuntivi_modificati = explode("#@&", $costi_aggiuntivi_modificati_int);
for ($numca = 0; $numca < $dati_cap['num']; $numca++) {
$num_costo_mod = "NO";
for ($num2 = 0; $num2 < count($costi_aggiuntivi_modificati); $num2++) {
$costo_agg_modificato = explode("#?&", $costi_aggiuntivi_modificati[$num2]);
if ($costo_agg_modificato[0] == $dati_cap[$numca]['id']) {
$num_costo_mod = $num2;
}
}
# fine for $num2
$costo_agg_modificato = explode("#?&", $costi_aggiuntivi_modificati[$num_costo_mod]);
if ($costo_agg_modificato[1] != "cancella") {
$num_costo = $dati_ca['id'][$dati_cap[$numca]['idntariffe']];
if ($dati_ca[$num_costo]['id'] == $dati_cap[$numca]['idntariffe'] and $dati_cap[$numca]['nome'] == $dati_ca[$num_costo]['nome'] and $dati_ca[$num_costo]['numlimite']) {
$num_limite = (string) $dati_ca[$num_costo]['numlimite'];
} else {
$num_limite = (string) 0;
}
if ((string) $num_costo_mod != (string) "NO") {
$settimane_costo = $costo_agg_modificato[1];
$moltiplica = $costo_agg_modificato[2];
} else {
$settimane_costo = $dati_cap[$numca]['settimane'];
$moltiplica = $dati_cap[$numca]['moltiplica_costo'];
}
# fine else if ((string) $num_costo_mod != (string) "NO")
if (controlla_num_limite_costo($tablecostiprenota, $tableprenota, $dati_cap, $numca, $num_costi_presenti, $inizioperiodo, $fineperiodo, $settimane_costo, $moltiplica, $num_limite, $tra_anni) == "NO") {
$inserire = "NO";
}
if (str_replace(",{$appartamento},", "", "," . $dati_cap[$numca]['appincompatibili'] . ",") != "," . $dati_cap[$numca]['appincompatibili'] . ",") {
$inserire = "NO";
}
}
# fine if ($costo_agg_modificato[1] != "cancella")
if ($dati_cap[$numca]['tipo_beniinv']) {
if ($costo_agg_modificato[1] != "cancella") {
$num_ripetizioni_costo = "";
} else {
$num_ripetizioni_costo = "0";
}
$risul = controlla_beni_inventario_costo($tablerelinventario, $dati_cap, $numca, $beniinv_presenti, $num_ripetizioni_costo, "SI", $inizioperiodo, $fineperiodo, $settimane_costo, $moltiplica, $appartamento);
if ($risul != "SI") {
$inserire = "NO";
}
if ($num_ripetizioni_costo != $dati_cap[$numca]['beniinv_ripeti']) {
$beniinv_vett = explode(";", $dati_cap[$numca]['beniinv_orig']);
$num_ripetizioni_costo_mod_idpr[$id_prenota][$num_costo_mod] = $num_ripetizioni_costo . substr($dati_cap[$numca]['beniinv_orig'], strlen($beniinv_vett[0]));
}
# fine if ($num_ripetizioni_costo != $dati_cap[$numca]['beniinv_ripeti'])
}
# fine if ($dati_cap[$numca]['tipo_beniinv'])
}
# fine for $numca
}
# fine if ($costi_aggiuntivi_modificati_int)
if ($costi_aggiuntivi_da_inserire_int) {
$costi_aggiuntivi_da_inserire = explode("#@&", $costi_aggiuntivi_da_inserire_int);
for ($num2 = 0; $num2 < count($costi_aggiuntivi_da_inserire); $num2++) {
$costo_agg_da_inserire = explode("#?&", $costi_aggiuntivi_da_inserire[$num2]);
$num_costo = $dati_ca['id'][$costo_agg_da_inserire[9]];
if ($costo_agg_da_inserire[9] != $dati_ca[$num_costo]['id'] and $costo_agg_da_inserire[9] != "-1") {
$inserire = "NO";
} elseif (controlla_num_limite_costo($tablecostiprenota, $tableprenota, $dati_ca, $num_costo, $num_costi_presenti, $inizioperiodo, $fineperiodo, $costo_agg_da_inserire[6], $costo_agg_da_inserire[7], "", $tra_anni) == "NO") {
$inserire = "NO";
}
if (str_replace(",{$appartamento},", "", "," . $dati_ca[$num_costo]['appincompatibili'] . ",") != "," . $dati_ca[$num_costo]['appincompatibili'] . ",") {
$inserire = "NO";
}
if ($dati_ca[$num_costo]['tipo_beniinv']) {
$num_ripetizioni_costo_ins_idpr[$id_prenota][$num2] = "";
$risul = controlla_beni_inventario_costo($tablerelinventario, $dati_ca, $num_costo, $beniinv_presenti, $num_ripetizioni_costo_ins_idpr[$id_prenota][$num2], "SI", $inizioperiodo, $fineperiodo, $costo_agg_da_inserire[6], $costo_agg_da_inserire[7], $appartamento);
if ($risul != "SI") {
$inserire = "NO";
}
}
# fine if ($dati_ca[$num_costo]['tipo_beniinv'])
}
# fine for $num2
}
# fine if ($costi_aggiuntivi_da_inserire_int)
if ($dati_da_anno_prec == "SI") {
passa_var_a_anno_corr($id_prenota, $tableperiodi, $tableprenota, $tablecostiprenota, $d_id_data_inizio, $d_id_data_fine, $n_fineperiodo, $inizioperiodo, $fineperiodo, $lunghezza_periodo);
}
if ($priv_mod_caparra != "s" and $n_met_paga_caparra) {
$inserire = "NO";
}
if ($n_met_paga_caparra or ${"metodo_pagamento" . $id_prenota}) {
if (get_magic_quotes_gpc()) {
${"metodo_pagamento" . $id_prenota} = stripslashes(${"metodo_pagamento" . $id_prenota});
}
${"metodo_pagamento" . $id_prenota} = htmlspecialchars(${"metodo_pagamento" . $id_prenota});
$metodi_pagamento = esegui_query("select valpersonalizza from {$tablepersonalizza} where idpersonalizza = 'metodi_pagamento' and idutente = '{$id_utente}'");
$metodi_pagamento = risul_query($metodi_pagamento, 0, 'valpersonalizza');
$metodi_pagamento = explode(",", $metodi_pagamento);
if ($n_met_paga_caparra) {
$metodo_trovato = "NO";
for ($num1 = 0; $num1 < count($metodi_pagamento); $num1++) {
if ($metodi_pagamento[$num1] == $n_met_paga_caparra) {
$metodo_trovato = "SI";
}
}
if ($metodo_trovato == "NO") {
$inserire = "NO";
}
}
# fine if ($n_met_paga_caparra)
if (${"metodo_pagamento" . $id_prenota}) {
$metodo_trovato = "NO";
for ($num1 = 0; $num1 < count($metodi_pagamento); $num1++) {
if ($metodi_pagamento[$num1] == ${"metodo_pagamento" . $id_prenota}) {
$metodo_trovato = "SI";
}
}
if ($metodo_trovato == "NO") {
$inserire = "NO";
}
}
# fine if (${"metodo_pagamento".$id_prenota})
}
# fine if ($n_met_paga_caparra or ${"metodo_pagamento".$id_prenota})
if ($priv_mod_pagato == "n" and $n_confermato != "") {
$inserire = "NO";
}
if ($n_confermato and $n_confermato != "S" and $n_confermato != "N") {
$inserire = "NO";
}
if ($priv_mod_pagato != "s" and $n_pagato != "") {
$inserire = "NO";
}
if ($n_pagato and controlla_soldi($n_pagato, "SI") == "NO" or $n_pagato > $n_costo_tot) {
$inserire = "NO";
}
if ($inserire == "NO") {
break;
}
}
# fine for $num_idpr
if ($priv_mod_orig_prenota != "s" and $n_origine_prenota) {
$inserire = "NO";
}
if ($n_origine_prenota) {
if (get_magic_quotes_gpc()) {
$n_origine_prenota = stripslashes($n_origine_prenota);
}
$n_origine_prenota = htmlspecialchars($n_origine_prenota);
$origini_prenota = esegui_query("select valpersonalizza from {$tablepersonalizza} where idpersonalizza = 'origini_prenota' and idutente = '{$id_utente}'");
$origini_prenota = risul_query($origini_prenota, 0, 'valpersonalizza');
$origini_prenota = explode(",", $origini_prenota);
$origine_trovata = "NO";
for ($num1 = 0; $num1 < count($origini_prenota); $num1++) {
if ($origini_prenota[$num1] == $n_origine_prenota) {
$origine_trovata = "SI";
}
}
if ($origine_trovata == "NO") {
$inserire = "NO";
}
}
# fine if ($n_origine_prenota)
if ($id_nuovo_utente_inserimento != "" and $id_utente == 1) {
$id_nuovo_utente_inserimento = aggslashdb($id_nuovo_utente_inserimento);
$verifica_utente = esegui_query("select * from {$tableutenti} where idutenti = '{$id_nuovo_utente_inserimento}'");
if (numlin_query($verifica_utente) != 1) {
$inserire = "NO";
}
}
# fine if ($id_nuovo_utente_inserimento != "" and $id_utente == 1)
if ($n_commento != "") {
if (get_magic_quotes_gpc()) {
$n_commento = stripslashes($n_commento);
}
$n_commento = htmlspecialchars($n_commento);
}
# fine if ($n_commento != "")
}
# fine if ($inserire != "NO")
if ($inserire != "NO") {
# funzione: se ritorna $prenota_comp vuota sono tutte vicine
function controlla_prenota_vicine(&$prenota_comp, $dati_app, $app_prenota_id)
{
if ($prenota_comp) {
$prenota_comp_vett = explode(",", $prenota_comp);
$num_prenota_comp = count($prenota_comp_vett);
$prenota_comp = substr(str_replace("," . $prenota_comp_vett[0] . ",", ",", ",{$prenota_comp},"), 1, -1);
$app_corr = $app_prenota_id[$prenota_comp_vett[0]];
$num_vic = 0;
for ($num1 = 1; $num1 < $num_prenota_comp; $num1++) {
$app_vicini = $dati_app["vicini"][$app_prenota_id[$prenota_comp_vett[$num1]]];
if (str_replace(",{$app_corr},", "", ",{$app_vicini},") != ",{$app_vicini},") {
$prenota_comp = substr(str_replace("," . $prenota_comp_vett[$num1] . ",", ",", ",{$prenota_comp},"), 1, -1);
$pren_vicina[$num_vic] = $prenota_comp_vett[$num1];
$num_vic++;
}
# fine (str_replace(",$app_corr,","",",$app_vicini,") != ",$app_vicini,")
}
# fine for $num1
for ($num1 = 0; $num1 < $num_vic; $num1++) {
if (!$prenota_comp) {
break;
}
$prenota_comp = $pren_vicina[$num1] . "," . $prenota_comp;
controlla_prenota_vicine($prenota_comp, $dati_app, $app_prenota_id);
}
# fine for $num1
}
# fine if ($prenota_comp)
}
# fine function controlla_prenota_vicine
# aggiorno le posizioni e faccio i controlli.
if ($tableprenota_da_aggiornare) {
if (!function_exists("tab_a_var")) {
include "./includes/liberasettimane.php";
}
unset($limiti_var);
unset($app_prenota_id);
unset($app_orig_prenota_id);
unset($inizio_prenota_id);
unset($fine_prenota_id);
unset($app_assegnabili_id);
unset($prenota_in_app_sett);
unset($dati_app);
unset($profondita);
if ($id_per_corr_finto != "") {
$limiti_var['idperiodocorrente'] = $id_per_corr_finto;
}
$limiti_var['n_ini'] = 0;
$max_periodo = esegui_query("select max(idperiodi) from {$tableperiodi}");
$max_periodo = risul_query($max_periodo, 0, 0);
$limiti_var['n_fine'] = $max_periodo;
$minuti_durata_insprenota = esegui_query("select valpersonalizza_num from {$tablepersonalizza} where idpersonalizza = 'minuti_durata_insprenota' and idutente = '1'");
$minuti_durata_insprenota = risul_query($minuti_durata_insprenota, 0, 'valpersonalizza_num');
$limiti_var['lim_prenota_temp'] = aggslashdb(date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600 - $minuti_durata_insprenota * 60));
esegui_query("delete from {$tableprenota} where idclienti = '0' and datainserimento < '" . $limiti_var['lim_prenota_temp'] . "'", "", 1);
$profondita['iniziale'] = "";
$profondita['attuale'] = 1;
$max_prenota = esegui_query("select max(idprenota) from {$tableprenota}");
if (numlin_query($max_prenota) != 0) {
$tot_prenota = risul_query($max_prenota, 0, 0);
} else {
$tot_prenota = 0;
}
$profondita['tot_prenota_ini'] = $tot_prenota;
$profondita['tot_prenota_attuale'] = $tot_prenota;
tab_a_var($limiti_var, $app_prenota_id, $app_orig_prenota_id, $inizio_prenota_id, $fine_prenota_id, $app_assegnabili_id, $prenota_in_app_sett, $anno, $dati_app, $profondita, $PHPR_TAB_PRE . "prenota");
# Sposto gli appartamenti presenti in $spostamenti se possibile
for ($num_idpr = 0; $num_idpr < $num_id_prenota; $num_idpr++) {
$id_prenota = $id_prenota_idpr[$num_idpr];
for ($num1 = $inizio_prenota_id[$id_prenota]; $num1 <= $fine_prenota_id[$id_prenota]; $num1++) {
$prenota_in_app_sett[$app_prenota_id[$id_prenota]][$num1] = "";
}
# fine for $num1
}
# fine for $num_idpr
$num_spostamenti = count($spostamenti);
for ($num1 = 0; $num1 < $num_spostamenti; $num1++) {
$idprenota_cambiata = $spostamenti[$num1];
$app_cambiato = $spostamenti[$num1 + 1];
$applicare_cambio[$num1] = "NO";
if ($inizio_prenota_id[$idprenota_cambiata]) {
$applicare_cambio[$num1] = "SI";
if (!$app_assegnabili_id[$idprenota_cambiata]) {
$applicare_cambio[$num1] = "NO";
}
if ($app_assegnabili_id[$idprenota_cambiata] and $app_assegnabili_id[$idprenota_cambiata] != "v") {
$lista_app_assegnabili = "," . $app_assegnabili_id[$idprenota_cambiata] . ",";
if (str_replace("," . $app_cambiato . ",", "", $lista_app_assegnabili) == $lista_app_assegnabili) {
$applicare_cambio[$num1] = "NO";
}
}
# fine if ($app_assegnabili_id[$idprenota_cambiata] and...
if (str_replace("," . $app_cambiato . ",", "", $dati_app['lista']) == $dati_app['lista']) {
$applicare_cambio[$num1] = "NO";
}
if ($applicare_cambio[$num1] == "SI") {
for ($num2 = $inizio_prenota_id[$idprenota_cambiata]; $num2 <= $fine_prenota_id[$idprenota_cambiata]; $num2++) {
$prenota_in_app_sett[$app_prenota_id[$idprenota_cambiata]][$num2] = "";
}
# fine for $num2
$app_prenota_id[$idprenota_cambiata] = $app_cambiato;
}
# fine if ($applicare_cambio[$num1] == "SI")
}
# fine if ($inizio_prenota_id[$idprenota_cambiata])
$num1++;
}
# fine for $num1
for ($num1 = 0; $num1 < $num_spostamenti; $num1++) {
$idprenota_cambiata = $spostamenti[$num1];
if ($applicare_cambio[$num1] == "SI") {
for ($num2 = $inizio_prenota_id[$idprenota_cambiata]; $num2 <= $fine_prenota_id[$idprenota_cambiata]; $num2++) {
if ($prenota_in_app_sett[$app_prenota_id[$idprenota_cambiata]][$num2]) {
$inserire = "NO";
} else {
$prenota_in_app_sett[$app_prenota_id[$idprenota_cambiata]][$num2] = $idprenota_cambiata;
}
}
# fine for $num2
if ($inserire == "NO") {
break;
}
}
# fine if ($applicare_cambio[$num1] == "SI")
$num1++;
}
# fine for $num1
# Aggiorno la prenotazione e faccio i primi controlli sulla prenotazione modificata
for ($num_idpr = 0; $num_idpr < $num_id_prenota; $num_idpr++) {
$id_prenota = $id_prenota_idpr[$num_idpr];
$n_appartamento = $n_appartamento_idpr[$id_prenota];
$n_assegnazioneapp = $n_assegnazioneapp_idpr[$id_prenota];
$n_lista_app = $n_lista_app_idpr[$id_prenota];
$n_numpersone = $n_numpersone_idpr[$id_prenota];
if ($n_appartamento != "") {
$app_prenota_id[$id_prenota] = $n_appartamento;
}
if ($n_inizioperiodo != "") {
$inizio_prenota_id[$id_prenota] = $n_inizioperiodo;
}
if ($n_fineperiodo != "") {
$fine_prenota_id[$id_prenota] = $n_fineperiodo;
}
for ($num1 = $inizio_prenota_id[$id_prenota]; $num1 <= $fine_prenota_id[$id_prenota]; $num1++) {
if ($prenota_in_app_sett[$app_prenota_id[$id_prenota]][$num1]) {
$inserire = "NO";
} else {
$prenota_in_app_sett[$app_prenota_id[$id_prenota]][$num1] = $id_prenota;
}
}
# fine for $num1
if ($n_assegnazioneapp == "v") {
$app_assegnabili_id[$id_prenota] = $dati_app['lista'];
}
if ($n_assegnazioneapp == "k") {
$app_assegnabili_id[$id_prenota] = "";
}
if ($n_assegnazioneapp == "c" and $n_lista_app) {
$app_assegnabili_id[$id_prenota] = "," . $n_lista_app . ",";
}
$assegnazione_app = risul_query($dati_prenota_idpr[$id_prenota], 0, 'assegnazioneapp');
if (!$n_assegnazioneapp and $assegnazione_app == "c" and $n_lista_app) {
$app_assegnabili_id[$id_prenota] = "," . $n_lista_app . ",";
}
if ($n_numpersone) {
$num_persone_prenota = $n_numpersone;
} else {
$num_persone_prenota = risul_query($dati_prenota_idpr[$id_prenota], 0, 'num_persone');
}
if ($num_persone_prenota and $dati_app['maxocc'][$app_prenota_id[$id_prenota]] and $dati_app['maxocc'][$app_prenota_id[$id_prenota]] < $num_persone_prenota) {
$inserire = "NO";
}
if (str_replace("," . $app_prenota_id[$id_prenota] . ",", "", $dati_app['lista']) == $dati_app['lista']) {
$inserire = "NO";
}
if ($app_assegnabili_id[$id_prenota] and $app_assegnabili_id[$id_prenota] != "v") {
$lista_app_assegnabili = "," . $app_assegnabili_id[$id_prenota] . ",";
if (str_replace("," . $app_prenota_id[$id_prenota] . ",", "", $lista_app_assegnabili) == $lista_app_assegnabili) {
$inserire = "NO";
}
}
# fine if ($app_assegnabili_id[$id_prenota] and...
if (str_replace("," . $app_prenota_id[$id_prenota] . ",", "", $dati_app['lista']) == $dati_app['lista']) {
$inserire = "NO";
}
}
# fine for $num_idpr
for ($num_idpr = 0; $num_idpr < $num_id_prenota; $num_idpr++) {
$id_prenota = $id_prenota_idpr[$num_idpr];
$d_appartamento = $d_appartamento_idpr[$id_prenota];
$d_checkin = $d_checkin_idpr[$id_prenota];
$d_checkout = $d_checkout_idpr[$id_prenota];
$d_prenota_comp = $d_prenota_comp_idpr[$id_prenota];
$prenota_comp = $prenota_comp_idpr[$id_prenota];
$prenota_comp_copia = $prenota_comp;
if ($prenota_comp_copia != "") {
$prenota_comp_copia = $id_prenota . "," . $prenota_comp_copia;
}
controlla_prenota_vicine($prenota_comp_copia, $dati_app, $app_prenota_id);
if ($prenota_comp_copia) {
$inserire = "NO";
}
$prenota_comp_control = $prenota_comp;
if ($d_prenota_comp and $prenota_comp_control) {
$prenota_comp_control .= ",";
}
$prenota_comp_control .= $d_prenota_comp;
for ($num1 = 0; $num1 < $num_spostamenti; $num1++) {
$idprenota_cambiata = $spostamenti[$num1];
if ($app_assegnabili_id[0][$idprenota_cambiata]) {
if (str_replace(",{$idprenota_cambiata},", "", ",{$prenota_comp_control},") == ",{$prenota_comp_control},") {
$prenota_comp_copia = $app_assegnabili_id[0][$idprenota_cambiata];
if ($prenota_comp_copia != "") {
$prenota_comp_copia = $idprenota_cambiata . "," . $prenota_comp_copia;
}
controlla_prenota_vicine($prenota_comp_copia, $dati_app, $app_prenota_id);
if ($prenota_comp_copia) {
$inserire = "NO";
} else {
$prenota_comp_control .= "," . $app_assegnabili_id[0][$idprenota_cambiata];
}
if (substr($prenota_comp_control, 0, 1) == ",") {
$prenota_comp_control = substr($prenota_comp_control, 1);
}
}
# fine if (str_replace(",$idprenota_cambiata,","",",$prenota_comp_control,") == ",$prenota_comp_control,")
}
# fine if ($app_assegnabili_id[0][$idprenota_cambiata])
}
# fine for $num1
if ($d_checkin and !$d_checkout and $app_prenota_id[$id_prenota] != $d_appartamento) {
$checkin_presente = esegui_query("select idprenota from {$tableprenota} where idappartamenti = '" . aggslashdb($app_prenota_id[$id_prenota]) . "' and checkin is not NULL and checkout is NULL");
if (numlin_query($checkin_presente) >= 1) {
$inserire = "NO";
echo mex("Non si è potuto spostare la prenotazione per la registrazione dell'entrata", $pag) . ".<br>";
}
# fine if (numlin_query($checkin_presente) >= 1)
}
# fine if ($d_checkin and !$d_checkout and...
}
# fine for $num_idpr
}
# fine if ($tableprenota_da_aggiornare)
}
# fine if ($inserire != "NO")
if ($inserire != "NO" and $tableprenota_da_aggiornare) {
for ($num_idpr = 0; $num_idpr < $num_id_prenota; $num_idpr++) {
$id_prenota = $id_prenota_idpr[$num_idpr];
if (strcmp($app_prenota_id[$id_prenota], "") and !strcmp($app_orig_prenota_id[$id_prenota], "")) {
$app_orig_prenota_id[$id_prenota] = $app_prenota_id[$id_prenota] . "x";
}
}
# fine for $num_idpr
$risul_agg = aggiorna_tableprenota($app_prenota_id, $app_orig_prenota_id, $tableprenota);
if (!$risul_agg) {
$inserire = "NO";
}
}
# fine if ($inserire != "NO" and $tableprenota_da_aggiornare)
if ($inserire == "NO") {
echo mex("La prenotazione", $pag) . " {$id_prenota} " . mex("<b>non è stata modificata</b> perchè la tabella prenotazioni è cambiata nel frattempo", $pag) . ".<br>";
unlock_tabelle($tabelle_lock);
} else {
for ($num_idpr = 0; $num_idpr < $num_id_prenota; $num_idpr++) {
$id_prenota = $id_prenota_idpr[$num_idpr];
$d_id_utente_inserimento = $d_id_utente_inserimento_idpr[$id_prenota];
$d_app_eliminati_costi = $d_app_eliminati_costi_idpr[$id_prenota];
$d_prenota_comp = $d_prenota_comp_idpr[$id_prenota];
$n_costo_tot = $n_costo_tot_idpr[$id_prenota];
$n_appartamento = $n_appartamento_idpr[$id_prenota];
$n_assegnazioneapp = $n_assegnazioneapp_idpr[$id_prenota];
$n_lista_app = $n_lista_app_idpr[$id_prenota];
$n_app_eliminati_costi = $n_app_eliminati_costi_idpr[$id_prenota];
$n_numpersone = $n_numpersone_idpr[$id_prenota];
$n_nometipotariffa = $n_nometipotariffa_idpr[$id_prenota];
$n_costo_tariffa = $n_costo_tariffa_idpr[$id_prenota];
$costi_aggiuntivi_modificati_int = $costi_aggiuntivi_modificati_int_idpr[$id_prenota];
$costi_aggiuntivi_da_inserire_int = $costi_aggiuntivi_da_inserire_int_idpr[$id_prenota];
$n_sconto = $n_sconto_idpr[$id_prenota];
$n_caparra = $n_caparra_idpr[$id_prenota];
$n_commissioni = $n_commissioni_idpr[$id_prenota];
$n_tariffesettimanali = $n_tariffesettimanali_idpr[$id_prenota];
$prenota_comp = $prenota_comp_idpr[$id_prenota];
$n_pagato = $n_pagato_idpr[$id_prenota];
$n_confermato = $n_confermato_idpr[$id_prenota];
$id_utente_inserimento = $d_id_utente_inserimento;
if ($id_nuovo_utente_inserimento != "" and $id_utente == 1) {
esegui_query("update {$tableprenota} set utente_inserimento = '{$id_nuovo_utente_inserimento}' where idprenota = '{$id_prenota}' ");
esegui_query("update {$tablecostiprenota} set utente_inserimento = '{$id_nuovo_utente_inserimento}' where idprenota = '{$id_prenota}' ");
$id_utente_inserimento = $id_nuovo_utente_inserimento;
if ($prenota_in_anno_succ) {
esegui_query("update {$tableprenota_orig} set utente_inserimento = '{$id_nuovo_utente_inserimento}' where idprenota = '{$id_prenota_orig}' ");
esegui_query("update {$tablecostiprenota_orig} set utente_inserimento = '{$id_nuovo_utente_inserimento}' where idprenota = '{$id_prenota_orig}' ");
}
# fine if ($prenota_in_anno_succ)
}
# fine if ($id_nuovo_utente_inserimento != "" and $id_utente == 1)
if ($n_inizioperiodo != "") {
esegui_query("update {$tableprenota} set iddatainizio = '{$n_inizioperiodo}' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_inizioperiodo != "")
if ($n_fineperiodo != "") {
esegui_query("update {$tableprenota} set iddatafine = '{$n_fineperiodo}' where idprenota = '{$id_prenota}' ");
if ($dati_da_anno_prec == "SI") {
passa_var_a_anno_prec($id_prenota, $tableperiodi, $tableprenota, $tablecostiprenota, $d_id_data_inizio, $d_id_data_fine, $n_fineperiodo, $inizioperiodo, $fineperiodo, $lunghezza_periodo, $dati_prenota_modifica);
esegui_query("update {$tableprenota} set iddatafine = '{$n_fineperiodo}' where idprenota = '{$id_prenota}' ");
passa_var_a_anno_corr($id_prenota, $tableperiodi, $tableprenota, $tablecostiprenota, $d_id_data_inizio, $d_id_data_fine, $n_fineperiodo, $inizioperiodo, $fineperiodo, $lunghezza_periodo);
}
# fine if ($dati_da_anno_prec == "SI")
if ($prenota_in_anno_succ) {
$n_data_fine = esegui_query("select datafine from {$tableperiodi} where idperiodi = '{$n_fineperiodo}'");
$n_data_fine = risul_query($n_data_fine, 0, 'datafine');
$data_succ_esistente = esegui_query("select idperiodi from {$tableperiodi_orig} where datafine <= '{$n_data_fine}'");
if (numlin_query($data_succ_esistente) < 1) {
esegui_query("delete from {$tableprenota_orig} where idprenota = '{$id_prenota_orig}'");
esegui_query("delete from {$tablecostiprenota_orig} where idprenota = '{$id_prenota_orig}'");
}
# fine if (numlin_query($data_succ_esistente) < 1)
}
# fine if ($prenota_in_anno_succ)
}
# fine if ($n_fineperiodo != "")
if ($n_stima_checkin) {
esegui_query("update {$tableprenota} set checkout = '{$n_stima_checkin}' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_stima_checkin)
#if ($n_appartamento != "") {
#esegui_query("update $tableprenota set idappartamenti = '$n_appartamento' where idprenota = '$id_prenota' ");
#} # fine if ($n_appartamento != "")
if ($n_assegnazioneapp != "") {
esegui_query("update {$tableprenota} set assegnazioneapp = '{$n_assegnazioneapp}' where idprenota = '{$id_prenota}' ");
if ($n_assegnazioneapp == "v" or $n_assegnazioneapp == "k") {
esegui_query("update {$tableprenota} set app_assegnabili = '' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_assegnazioneapp == "v" ...)
}
# fine if ($n_assegnazioneapp != "")
if ($n_lista_app != "") {
esegui_query("update {$tableprenota} set app_assegnabili = '{$n_lista_app}' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_lista_app != "")
if ($d_prenota_comp != $prenota_comp) {
esegui_query("update {$tableprenota} set idprenota_compagna = '{$prenota_comp}' where idprenota = '{$id_prenota}' ");
if ($d_prenota_comp) {
$d_prenota_comp_vett = explode(",", $d_prenota_comp);
$num_d_prenota_comp = count($d_prenota_comp_vett);
for ($num1 = 0; $num1 < $num_d_prenota_comp; $num1++) {
$d_pren_comp = aggslashdb($d_prenota_comp_vett[$num1]);
if (str_replace(",{$d_pren_comp},", "", ",{$prenota_comp},") == ",{$prenota_comp},") {
esegui_query("update {$tableprenota} set idprenota_compagna = '' where idprenota = '{$d_pren_comp}' ");
}
}
# fine for $num1
}
# fine if ($d_prenota_comp)
if ($prenota_comp) {
$prenota_comp_vett = explode(",", $prenota_comp);
$num_prenota_comp = count($prenota_comp_vett);
for ($num1 = 0; $num1 < $num_prenota_comp; $num1++) {
$pren_comp = aggslashdb($prenota_comp_vett[$num1]);
$prenota_comp2 = substr(str_replace(",{$pren_comp},", ",", ",{$prenota_comp},"), 1) . $id_prenota;
esegui_query("update {$tableprenota} set idprenota_compagna = '{$prenota_comp2}' where idprenota = '{$pren_comp}' ");
}
# fine for $num1
}
# fine if ($prenota_comp)
}
# fine if ($d_prenota_comp != $prenota_comp)
if ($dati_da_anno_prec == "SI") {
passa_var_a_anno_prec($id_prenota, $tableperiodi, $tableprenota, $tablecostiprenota, $d_id_data_inizio, $d_id_data_fine, $n_fineperiodo, $inizioperiodo, $fineperiodo, $lunghezza_periodo, $dati_prenota_modifica);
}
if ($n_numpersone != "") {
esegui_query("update {$tableprenota} set num_persone = '{$n_numpersone}' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_numpersone != "")
if ($n_nometipotariffa != "") {
if (substr($n_costo_tariffa, -1) == "p") {
$n_costo_tariffa = substr($n_costo_tariffa, 0, -1) . "#@&p";
}
$n_tariffa = aggslashdb($n_nometipotariffa) . "#@&" . $n_costo_tariffa;
esegui_query("update {$tableprenota} set tariffa = '{$n_tariffa}' where idprenota = '{$id_prenota}' ");
if (!strcmp($dati_tariffe[$n_tipotariffa_idpr[$id_prenota]]['tasse_percent'], "")) {
esegui_query("update {$tableprenota} set tasseperc = NULL where idprenota = '{$id_prenota}' ");
} else {
esegui_query("update {$tableprenota} set tasseperc = '" . $dati_tariffe[$n_tipotariffa_idpr[$id_prenota]]['tasse_percent'] . "' where idprenota = '{$id_prenota}' ");
}
}
# fine if ($n_nometipotariffa != "")
if ($n_tariffesettimanali != "") {
$n_tariffesettimanali = aggslashdb($n_tariffesettimanali);
esegui_query("update {$tableprenota} set tariffesettimanali = '{$n_tariffesettimanali}' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_tariffesettimanali != "")
if ($costi_aggiuntivi_modificati_int) {
$costi_aggiuntivi_modificati = explode("#@&", $costi_aggiuntivi_modificati_int);
for ($num2 = 0; $num2 < count($costi_aggiuntivi_modificati); $num2++) {
$costo_agg_modificato = explode("#?&", $costi_aggiuntivi_modificati[$num2]);
if ($costo_agg_modificato[1] == "cancella") {
esegui_query("delete from {$tablecostiprenota} where idcostiprenota = '" . $costo_agg_modificato[0] . "' and idprenota = '{$id_prenota}' ");
} else {
esegui_query("update {$tablecostiprenota} set settimane = '" . $costo_agg_modificato[1] . "', moltiplica = '" . $costo_agg_modificato[2] . "' where idcostiprenota = '" . $costo_agg_modificato[0] . "' and idprenota = '{$id_prenota}' ");
if ($num_ripetizioni_costo_mod_idpr[$id_prenota][$num2]) {
esegui_query("update {$tablecostiprenota} set varbeniinv = '" . $num_ripetizioni_costo_mod_idpr[$id_prenota][$num2] . "' where idcostiprenota = '" . $costo_agg_modificato[0] . "' and idprenota = '{$id_prenota}' ");
}
}
# fine else if ($costo_agg_modificato[1] == "cancella")
}
# fine for $num2
}
# fine if ($costi_aggiuntivi_modificati_int)
if ($costi_aggiuntivi_da_inserire_int) {
$costi_aggiuntivi_da_inserire = explode("#@&", $costi_aggiuntivi_da_inserire_int);
for ($num2 = 0; $num2 < count($costi_aggiuntivi_da_inserire); $num2++) {
$costo_agg_da_inserire = explode("#?&", $costi_aggiuntivi_da_inserire[$num2]);
$num_costo = $dati_ca['id'][$costo_agg_da_inserire[9]];
$datainserimento = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600);
$idcostiprenota = esegui_query("select max(idcostiprenota) from {$tablecostiprenota}");
$idcostiprenota = risul_query($idcostiprenota, 0, 0) + 1;
if ($costo_agg_da_inserire[15]) {
$costo_agg_da_inserire[15] = $num_ripetizioni_costo_ins_idpr[$id_prenota][$num2] . ";" . $costo_agg_da_inserire[15];
}
esegui_query("insert into {$tablecostiprenota} (idcostiprenota,idprenota,tipo,nome,valore,associasett,settimane,moltiplica,letto,idntariffe,varmoltiplica,varnumsett,varperiodipermessi,vartariffeassociate,vartariffeincomp,varbeniinv,varappincompatibili,variazione,categoria,datainserimento,hostinserimento,utente_inserimento) values ('{$idcostiprenota}','{$id_prenota}','" . $costo_agg_da_inserire[0] . "','" . aggslashdb($costo_agg_da_inserire[1]) . "','" . $costo_agg_da_inserire[2] . "','" . $costo_agg_da_inserire[5] . "','" . $costo_agg_da_inserire[6] . "','" . $costo_agg_da_inserire[7] . "','" . $costo_agg_da_inserire[8] . "','" . $costo_agg_da_inserire[9] . "','" . $costo_agg_da_inserire[10] . "','" . $costo_agg_da_inserire[11] . "','" . $costo_agg_da_inserire[12] . "','" . $costo_agg_da_inserire[13] . "','" . $costo_agg_da_inserire[14] . "','" . $costo_agg_da_inserire[15] . "','" . $costo_agg_da_inserire[16] . "','" . $costo_agg_da_inserire[17] . "','" . $costo_agg_da_inserire[18] . "','{$datainserimento}','{$HOSTNAME}','{$id_utente}')");
if (substr($costo_agg_da_inserire[0], 1, 1) != "f") {
esegui_query("update {$tablecostiprenota} set valore_perc = '" . $costo_agg_da_inserire[3] . "', arrotonda = '" . $costo_agg_da_inserire[4] . "' where idcostiprenota = '{$idcostiprenota}'");
}
if ($dati_ca[$num_costo]['tasseperc']) {
esegui_query("update {$tablecostiprenota} set tasseperc = '" . $dati_ca[$num_costo]['tasseperc'] . "' where idcostiprenota = '{$idcostiprenota}'");
}
}
# fine for $num2
}
# fine if ($costi_aggiuntivi_da_inserire_int)
# Se prenotazione da anno precedente copio i costi aggiuntivi anche nell'anno
# corrente per mantenere il limite dei costi in stesso periodo
if (($dati_da_anno_prec == "SI" or $prenota_in_anno_succ) and ($costi_aggiuntivi_modificati_int or $costi_aggiuntivi_da_inserire_int)) {
$idcostiprenota_orig = esegui_query("select max(idcostiprenota) from {$tablecostiprenota_orig}");
$idcostiprenota_orig = risul_query($idcostiprenota_orig, 0, 0) + 1;
$idcostiprenota_prec = esegui_query("select max(idcostiprenota) from {$tablecostiprenota_prec}");
$idcostiprenota_prec = risul_query($idcostiprenota_prec, 0, 0) + 1;
if ($idcostiprenota_orig > $idcostiprenota_prec) {
$max_idcostiprenota = $idcostiprenota_orig;
} else {
$max_idcostiprenota = $idcostiprenota_prec;
}
esegui_query("delete from {$tablecostiprenota_orig} where idprenota = '{$id_prenota_orig}'");
$costiprenota_prec = esegui_query("select * from {$tablecostiprenota_prec} where idprenota = '{$id_prenota_prec}'");
$num_costiprenota_prec = numlin_query($costiprenota_prec);
$max_idcostiprenota = $max_idcostiprenota + $num_costiprenota_prec + 1;
$diff_settimane = $fineperiodo - $fineperiodo_orig;
for ($num1 = 0; $num1 < $num_costiprenota_prec; $num1++) {
$idcostiprenota = risul_query($costiprenota_prec, $num1, 'idcostiprenota');
esegui_query("update {$tablecostiprenota_prec} set idcostiprenota = '{$max_idcostiprenota}' where idcostiprenota = '{$idcostiprenota}'");
esegui_query("insert into {$tablecostiprenota_orig} select * from {$tablecostiprenota_prec} where idcostiprenota = '{$max_idcostiprenota}' ");
esegui_query("update {$tablecostiprenota_prec} set idcostiprenota = '{$idcostiprenota}' where idcostiprenota = '{$max_idcostiprenota}'");
esegui_query("update {$tablecostiprenota_orig} set idcostiprenota = '{$idcostiprenota_orig}' where idcostiprenota = '{$max_idcostiprenota}'");
$settimane = risul_query($costiprenota_prec, $num1, 'settimane');
if (str_replace(",", "", $settimane) != $settimane) {
$settimane = explode(",", $settimane);
$settimane_nuove = ",";
for ($num2 = 1; $num2 < count($settimane) - 1; $num2++) {
$settimane_nuove .= $settimane[$num2] - $diff_settimane . ",";
}
esegui_query("update {$tablecostiprenota_orig} set settimane = '{$settimane_nuove}' where idcostiprenota = '{$idcostiprenota_orig}'");
}
# fine if (str_replace(",","",$settimane) != $settimane)
$idcostiprenota_orig++;
}
# fine for $num1
}
# fine if (($dati_da_anno_prec == "SI" or $prenota_in_anno_succ) and...
if ((string) $n_app_eliminati_costi != (string) $d_app_eliminati_costi) {
esegui_query("update {$tableprenota} set incompatibilita = '" . aggslashdb($n_app_eliminati_costi) . "' where idprenota = '{$id_prenota}' ");
}
# fine if ((string) $n_app_eliminati_costi != (string) $d_app_eliminati_costi)
if (strcmp($n_sconto, "")) {
esegui_query("update {$tableprenota} set sconto = '{$n_sconto}' where idprenota = '{$id_prenota}' ");
}
# fine if (strcmp($n_sconto,""))
if (strcmp($n_caparra, "")) {
esegui_query("update {$tableprenota} set caparra = '{$n_caparra}' where idprenota = '{$id_prenota}' ");
}
# fine if (strcmp($n_caparra,""))
if ($n_met_paga_caparra != "") {
esegui_query("update {$tableprenota} set metodo_pagamento = '" . aggslashdb($n_met_paga_caparra) . "' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_met_paga_caparra != "")
if (strcmp($n_commissioni, "")) {
esegui_query("update {$tableprenota} set commissioni = '{$n_commissioni}' where idprenota = '{$id_prenota}' ");
}
# fine if (strcmp($n_commissioni,""))
if ($n_origine_prenota != "") {
esegui_query("update {$tableprenota} set origine = '" . aggslashdb($n_origine_prenota) . "' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_origine_prenota != "")
if ($n_pagato != "") {
esegui_query("update {$tableprenota} set pagato = '{$n_pagato}' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_pagato != "")
if ($n_confermato != "") {
esegui_query("update {$tableprenota} set conferma = '{$n_confermato}' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_confermato != "")
if ($n_commento != "" and ($tipo_commento == "checkin" or $tipo_commento == "checkout")) {
$n_comm_checkin = "";
$n_comm_checkout = "";
if ($tipo_commento == "checkin" and !$d_checkin_idpr[$id_prenota]) {
$n_comm_checkin = $n_commento;
}
if ($tipo_commento == "checkout" and !$d_checkout_idpr[$id_prenota]) {
$n_comm_checkout = $n_commento;
}
$n_comm = $d_commento;
if (strstr($n_comm, ">")) {
$n_comm = explode(">", $n_comm);
if (strcmp($n_comm[1], "")) {
if ($n_comm_checkin) {
$n_comm_checkin = $n_comm[1] . " - {$n_comm_checkin}";
} else {
$n_comm_checkin = $n_comm[1];
}
}
# fine if (strcmp($n_comm[1],""))
if (strcmp($n_comm[2], "")) {
if ($n_comm_checkout) {
$n_comm_checkout = $n_comm[2] . " - {$n_comm_checkout}";
} else {
$n_comm_checkout = $n_comm[2];
}
}
# fine if (strcmp($n_comm[2],""))
$n_comm = $n_comm[0];
}
# fine if (strstr($n_comm,">"))
if (strcmp($n_comm_checkin, "") or strcmp($n_comm_checkout, "")) {
$n_comm .= ">{$n_comm_checkin}>{$n_comm_checkout}";
}
esegui_query("update {$tableprenota} set commento = '" . aggslashdb($n_comm) . "' where idprenota = '{$id_prenota}' ");
}
# fine if ($n_commento != "" and ($tipo_commento == "checkin" or...
if ($n_commento != "" and $tipo_commento != "checkin" and $tipo_commento != "checkout" or $n_cancella_commento == "SI") {
$n_comm = $n_commento;
if ($n_cancella_commento == "SI") {
$n_comm = "";
}
if (strstr($d_commento, ">")) {
$n_comm = $n_comm . strstr($d_commento, ">");
}
esegui_query("update {$tableprenota} set commento = '" . aggslashdb($n_comm) . "' where idprenota = '{$id_prenota}' ");
}
# fine if (($n_commento != "" and $tipo_commento != "checkin" and $tipo_commento != "checkout") or...
$adesso = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600);
esegui_query("update {$tableprenota} set tariffa_tot = '{$n_costo_tot}', data_modifica = '{$adesso}' where idprenota = '{$id_prenota}' ");
if ($dati_da_anno_prec == "SI") {
passa_var_a_anno_corr($id_prenota, $tableperiodi, $tableprenota, $tablecostiprenota, $d_id_data_inizio, $d_id_data_fine, $n_fineperiodo, $inizioperiodo, $fineperiodo, $lunghezza_periodo);
}
}
# fine for $num_idpr
aggiorna_beniinv_presenti($tablerelinventario, $beniinv_presenti);
if ($tabelle_lock) {
unlock_tabelle($tabelle_lock);
}
if ($tableprenota_da_aggiornare or $n_inizioperiodo != "" or $n_fineperiodo != "") {
$lock = 1;
$aggiorna_disp = 1;
$aggiorna_tar = 0;
if (@function_exists('pcntl_fork')) {
include "./includes/interconnect/aggiorna_ic_fork.php";
} else {
include "./includes/interconnect/aggiorna_ic.php";
}
}
# fine if ($tableprenota_da_aggiornare or...
for ($num_idpr = 0; $num_idpr < $num_id_prenota; $num_idpr++) {
$id_prenota = $id_prenota_idpr[$num_idpr];
$n_pagato = $n_pagato_idpr[$id_prenota];
if ($n_pagato != "") {
$datainserimento_saldo = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600);
$idcliente_saldo = risul_query($dati_prenota_idpr[$id_prenota], 0, 'idclienti');
$d_idinizioprenota = risul_query($dati_prenota_idpr[$id_prenota], 0, 'iddatainizio');
$d_idfineprenota = risul_query($dati_prenota_idpr[$id_prenota], 0, 'iddatafine');
if ($n_inizioperiodo != "") {
$idinizioperiodo_saldo = $n_inizioperiodo;
} else {
$idinizioperiodo_saldo = $d_idinizioprenota;
}
if ($n_fineperiodo != "") {
$idfineperiodo_saldo = $n_fineperiodo;
} else {
$idfineperiodo_saldo = $d_idfineprenota;
}
$motivazione_saldo = "{$idcliente_saldo};{$idinizioperiodo_saldo};{$idfineperiodo_saldo};{$id_prenota}";
$pagato_attuale = risul_query($dati_prenota_idpr[$id_prenota], 0, 'pagato');
if (!$pagato_attuale) {
$pagato_attuale = 0;
}
$saldo = $n_pagato - $pagato_attuale;
$metodo_pagamento = ${"metodo_pagamento" . $id_prenota};
$metodo_pagamento = aggslashdb($metodo_pagamento);
$tabelle_lock = array($tablesoldi);
$tabelle_lock = lock_tabelle($tabelle_lock);
$idsoldi = esegui_query("select max(idsoldi) from {$tablesoldi}");
$idsoldi = risul_query($idsoldi, 0, 0) + 1;
esegui_query("insert into {$tablesoldi} (idsoldi,motivazione,metodo_pagamento,saldo_prenota,soldi_prima,data_inserimento,utente_inserimento) values ('{$idsoldi}','{$motivazione_saldo}','{$metodo_pagamento}','{$saldo}','{$pagato_attuale}','{$datainserimento_saldo}','{$id_utente}')");
unlock_tabelle($tabelle_lock);
if (strcmp($cassa_pagamenti, "")) {
$tabelle_lock = array($tablecosti);
$altre_tab_lock = array($tableperiodi, $tableclienti);
$tabelle_lock = lock_tabelle($tabelle_lock, $altre_tab_lock);
if ($anno >= substr($datainserimento_saldo, 0, 4)) {
$costo0 = esegui_query("select * from {$tablecosti} where idcosti = '0' ");
$costo0 = risul_query($costo0, 0, 'val_costo');
$costo0 = (double) $costo0 + (double) $saldo;
esegui_query("update {$tablecosti} set val_costo = '{$costo0}' where idcosti = '0' ");
}
# fine if ($anno_saldo >= substr($datainserimento_saldo,0,4))
if (!$idinizioperiodo_saldo) {
$data_inizio_costo = "?";
} else {
$data_inizio_costo = esegui_query("select datainizio from {$tableperiodi} where idperiodi = '{$idinizioperiodo_saldo}' ");
$data_inizio_costo = formatta_data(risul_query($data_inizio_costo, 0, 'datainizio'), $stile_data);
}
# fine else if (!$idinizioperiodo_saldo)
$data_fine_costo = esegui_query("select datafine from {$tableperiodi} where idperiodi = '{$idfineperiodo_saldo}' ");
$data_fine_costo = formatta_data(risul_query($data_fine_costo, 0, 'datafine'), $stile_data);
$cognome_saldo = esegui_query("select cognome from {$tableclienti} where idclienti = '{$idcliente_saldo}' ");
$cognome_saldo = risul_query($cognome_saldo, 0, 'cognome');
$nome_costo = "" . mex("Prenotazione", $pag) . " {$id_prenota} " . mex("dal", $pag) . " {$data_inizio_costo} " . mex("al", $pag) . " {$data_fine_costo} " . mex("per", $pag) . " {$cognome_saldo}";
$idcosti = esegui_query("select max(idcosti) from {$tablecosti}");
$idcosti = risul_query($idcosti, 0, 0) + 1;
esegui_query("insert into {$tablecosti} (idcosti,nome_costo,val_costo,tipo_costo,nome_cassa,persona_costo,provenienza_costo,metodo_pagamento,datainserimento,hostinserimento,utente_inserimento) values ('{$idcosti}','" . aggslashdb($nome_costo) . "','{$saldo}','e','" . aggslashdb($cassa_pagamenti) . "','" . aggslashdb($nome_utente) . "','p','{$metodo_pagamento}','{$datainserimento_saldo}','{$HOSTNAME}','{$id_utente}') ");
unlock_tabelle($tabelle_lock);
}
# fine if (strcmp($cassa_pagamenti,""))
}
# fine if ($n_pagato != "")
}
# fine for $num_idpr
}
# fine else if ($inserire == "NO")
}
function trova_prima_data($testo, $stile_data, $lingua)
{
global $lingua_mex;
$prima_data = "";
$lung_prima_data = strlen($testo);
if (preg_match("|[^0-9][0-9]{1,2}[-/ ][0-9]{1,2}[-/ ][0-9]{4,4}[^0-9]|", $testo)) {
$prima_data_vett = preg_split("|[0-9]{1,2}[-/ ][0-9]{1,2}[-/ ][0-9]{4,4}|", $testo);
$lung_prima_data_corr = strlen($prima_data_vett[0]);
if ($lung_prima_data_corr < $lung_prima_data) {
$lung_prima_data = $lung_prima_data_corr;
$prima_data = substr($testo, $lung_prima_data);
if ($prima_data_vett[1]) {
$prima_data = explode($prima_data_vett[1], $prima_data);
$prima_data = $prima_data[0];
}
# fine if ($prima_data_vett[1])
$prima_data_corr = preg_split("|[-/ ]|", $prima_data);
if (strlen($prima_data_corr[0]) < 2) {
$prima_data_corr[0] = "0" . $prima_data_corr[0];
}
if (strlen($prima_data_corr[1]) < 2) {
$prima_data_corr[1] = "0" . $prima_data_corr[1];
}
if ((int) $prima_data_corr[0] > 12) {
$prima_data = $prima_data_corr[2] . "-" . $prima_data_corr[1] . "-" . $prima_data_corr[0];
} else {
if ((int) $prima_data_corr[1] > 12) {
$prima_data = $prima_data_corr[2] . "-" . $prima_data_corr[0] . "-" . $prima_data_corr[1];
} else {
if ($stile_data == "usa") {
$prima_data = $prima_data_corr[2] . "-" . $prima_data_corr[0] . "-" . $prima_data_corr[1];
} else {
$prima_data = $prima_data_corr[2] . "-" . $prima_data_corr[1] . "-" . $prima_data_corr[0];
}
}
# fine else if ($prima_data_corr[1] > 12)
}
# fine else if ($prima_data_corr[0] > 12)
}
# fine if ($lung_prima_data_corr < $lung_prima_data)
}
# fine if (preg_match("|[^0-9][0-9]{1,2}[-/ ][0-9]{1,2}[-/ ][0-9]{4,4}|",$testo))
if (preg_match("|[^0-9][0-9]{4,4}[-/ ][0-9]{1,2}[-/ ][0-9]{1,2}[^0-9]|", $testo)) {
$prima_data_vett = preg_split("|[0-9]{4,4}[-/ ][0-9]{1,2}[-/ ][0-9]{1,2}|", $testo);
$lung_prima_data_corr = strlen($prima_data_vett[0]);
if ($lung_prima_data_corr < $lung_prima_data) {
$lung_prima_data = $lung_prima_data_corr;
$prima_data = substr($testo, $lung_prima_data);
if ($prima_data_vett[1]) {
$prima_data = explode($prima_data_vett[1], $prima_data);
$prima_data = $prima_data[0];
}
# fine if ($prima_data_vett[1])
$prima_data_corr = preg_split("|[-/ ]|", $prima_data);
if (strlen($prima_data_corr[1]) < 2) {
$prima_data_corr[1] = "0" . $prima_data_corr[1];
}
if (strlen($prima_data_corr[2]) < 2) {
$prima_data_corr[2] = "0" . $prima_data_corr[2];
}
$prima_data = $prima_data_corr[0] . "-" . $prima_data_corr[1] . "-" . $prima_data_corr[2];
}
# fine if ($lung_prima_data_corr < $lung_prima_data)
}
# fine if (preg_match("|[^0-9][0-9]{4,4}[-/ ][0-9]{1,2}[-/ ][0-9]{1,2}[^0-9]|",$testo))
$lingua_orig = $lingua_mex;
$lingua_mex = $lingua;
$Gen = mex("Gen", 'giorni_mesi.php');
$Feb = mex("Feb", 'giorni_mesi.php');
$Mar = mex("Mar", 'giorni_mesi.php');
$Apr = mex("Apr", 'giorni_mesi.php');
$Mag = mex("Mag", 'giorni_mesi.php');
$Giu = mex("Giu", 'giorni_mesi.php');
$Lug = mex("Lug", 'giorni_mesi.php');
$Ago = mex("Ago", 'giorni_mesi.php');
$Set = mex("Set", 'giorni_mesi.php');
$Ott = mex("Ott", 'giorni_mesi.php');
$Nov = mex("Nov", 'giorni_mesi.php');
$Dic = mex("Dic", 'giorni_mesi.php');
$Gennaio = mex("Gennaio", 'giorni_mesi.php');
$Febbraio = mex("Febbraio", 'giorni_mesi.php');
$Marzo = mex("Marzo", 'giorni_mesi.php');
$Aprile = mex("Aprile", 'giorni_mesi.php');
$Maggio = mex("Maggio", 'giorni_mesi.php');
$Giugno = mex("Giugno", 'giorni_mesi.php');
$Luglio = mex("Luglio", 'giorni_mesi.php');
$Agosto = mex("Agosto", 'giorni_mesi.php');
$Settembre = mex("Settembre", 'giorni_mesi.php');
$Ottobre = mex("Ottobre", 'giorni_mesi.php');
$Novembre = mex("Novembre", 'giorni_mesi.php');
$Dicembre = mex("Dicembre", 'giorni_mesi.php');
$lingua_mex = $lingua_orig;
$mesi_alternativi = "{$Gen}|{$Feb}|{$Mar}|{$Apr}|{$Mag}|{$Giu}|{$Lug}|{$Ago}|{$Set}|{$Ott}|{$Nov}|{$Dic}|{$Gennaio}|{$Febbraio}|{$Marzo}|{$Aprile}|{$Maggio}|{$Giugno}|{$Luglio}|{$Agosto}|{$Settembre}|{$Ottobre}|{$Novembre}|{$Dicembre}";
if (preg_match("=[^0-9a-z]({$mesi_alternativi})[, -/]+[0-9]{1,2}[, -/]+[0-9]{4,4}[^0-9a-z]=i", $testo)) {
$prima_data_vett = preg_split("=({$mesi_alternativi})[, -/]+[0-9]{1,2}[, -/]+[0-9]{4,4}=i", $testo);
$lung_prima_data_corr = strlen($prima_data_vett[0]);
if ($lung_prima_data_corr < $lung_prima_data) {
$lung_prima_data = $lung_prima_data_corr;
$prima_data = substr($testo, $lung_prima_data);
if ($prima_data_vett[1]) {
$prima_data = explode($prima_data_vett[1], $prima_data);
$prima_data = $prima_data[0];
}
# fine if ($prima_data_vett[1])
$prima_data_corr = preg_split("|[, -/]+|", $prima_data);
if ($prima_data_corr[0] == $Gen or $prima_data_corr[0] == $Gennaio) {
$mese = "01";
}
if ($prima_data_corr[0] == $Feb or $prima_data_corr[0] == $Febbraio) {
$mese = "02";
}
if ($prima_data_corr[0] == $Mar or $prima_data_corr[0] == $Marzo) {
$mese = "03";
}
if ($prima_data_corr[0] == $Apr or $prima_data_corr[0] == $Aprile) {
$mese = "04";
}
if ($prima_data_corr[0] == $Mag or $prima_data_corr[0] == $Maggio) {
$mese = "05";
}
if ($prima_data_corr[0] == $Giu or $prima_data_corr[0] == $Giugno) {
$mese = "06";
}
if ($prima_data_corr[0] == $Lug or $prima_data_corr[0] == $Luglio) {
$mese = "07";
}
if ($prima_data_corr[0] == $Ago or $prima_data_corr[0] == $Agosto) {
$mese = "08";
}
if ($prima_data_corr[0] == $Set or $prima_data_corr[0] == $Settembre) {
$mese = "09";
}
if ($prima_data_corr[0] == $Ott or $prima_data_corr[0] == $Ottobre) {
$mese = "10";
}
if ($prima_data_corr[0] == $Nov or $prima_data_corr[0] == $Novembre) {
$mese = "11";
}
if ($prima_data_corr[0] == $Dic or $prima_data_corr[0] == $Dicembre) {
$mese = "12";
}
if (strlen($prima_data_corr[1]) < 2) {
$prima_data_corr[1] = "0" . $prima_data_corr[1];
}
$prima_data = $prima_data_corr[2] . "-" . $mese . "-" . $prima_data_corr[1];
}
# fine if ($lung_prima_data_corr < $lung_prima_data)
}
# fine if (preg_match("=[^0-9a-z]($mesi_alternativi)[, -/]+[0-9]{1,2}[, -/]+[0-9]{4,4}[^0-9a-z]=i",$testo))
if (preg_match("=[^0-9a-z][0-9]{1,2}[, -/]+({$mesi_alternativi})[, -/]+[0-9]{4,4}[^0-9a-z]=i", $testo)) {
$prima_data_vett = preg_split("=[0-9]{1,2}[, -/]+({$mesi_alternativi})[, -/]+[0-9]{4,4}=i", $testo);
$lung_prima_data_corr = strlen($prima_data_vett[0]);
if ($lung_prima_data_corr < $lung_prima_data) {
$lung_prima_data = $lung_prima_data_corr;
$prima_data = substr($testo, $lung_prima_data);
if ($prima_data_vett[1]) {
$prima_data = explode($prima_data_vett[1], $prima_data);
$prima_data = $prima_data[0];
}
# fine if ($prima_data_vett[1])
$prima_data_corr = preg_split("|[, -/]+|", $prima_data);
if ($prima_data_corr[1] == $Gen or $prima_data_corr[1] == $Gennaio) {
$mese = "01";
}
if ($prima_data_corr[1] == $Feb or $prima_data_corr[1] == $Febbraio) {
$mese = "02";
}
if ($prima_data_corr[1] == $Mar or $prima_data_corr[1] == $Marzo) {
$mese = "03";
}
if ($prima_data_corr[1] == $Apr or $prima_data_corr[1] == $Aprile) {
$mese = "04";
}
if ($prima_data_corr[1] == $Mag or $prima_data_corr[1] == $Maggio) {
$mese = "05";
}
if ($prima_data_corr[1] == $Giu or $prima_data_corr[1] == $Giugno) {
$mese = "06";
}
if ($prima_data_corr[1] == $Lug or $prima_data_corr[1] == $Luglio) {
$mese = "07";
}
if ($prima_data_corr[1] == $Ago or $prima_data_corr[1] == $Agosto) {
$mese = "08";
}
if ($prima_data_corr[1] == $Set or $prima_data_corr[1] == $Settembre) {
$mese = "09";
}
if ($prima_data_corr[1] == $Ott or $prima_data_corr[1] == $Ottobre) {
$mese = "10";
}
if ($prima_data_corr[1] == $Nov or $prima_data_corr[1] == $Novembre) {
$mese = "11";
}
if ($prima_data_corr[1] == $Dic or $prima_data_corr[1] == $Dicembre) {
$mese = "12";
}
if (strlen($prima_data_corr[0]) < 2) {
$prima_data_corr[0] = "0" . $prima_data_corr[0];
}
$prima_data = $prima_data_corr[2] . "-" . $mese . "-" . $prima_data_corr[0];
}
# fine if ($lung_prima_data_corr < $lung_prima_data)
}
# fine if (preg_match("=[^0-9a-z][0-9]{1,2}[, -/]+($mesi_alternativi)[, -/]+[0-9]{4,4}[^0-9a-z]=i",$testo))
return $prima_data;
}
$tariffa = risul_query($regole4, $num1, 'tariffa_per_persone');
$persone = risul_query($regole4, $num1, 'iddatainizio');
echo "if (tariffa == \"{$tariffa}\") txt_box.value = \"{$persone}\";\n";
}
# fine for $num1
echo "}\n-->\n</script>\n\n<div style=\"text-align: center;\">" . mex("Regola di assegnazione", $pag) . " <b>4</b>.</div><br>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"crearegole.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input type=\"hidden\" name=\"inserisci\" value=\"SI\">\n" . mex("Quando si sceglie la tariffa", $pag) . "\n<select name=\"tipotariffa\" id=\"t4\" onchange=\"aggiorna_val_reg4()\">\n<option value=\"\" selected>----</option>";
for ($numtariffa = 1; $numtariffa <= $numero_tariffe; $numtariffa = $numtariffa + 1) {
$tariffa = "tariffa" . $numtariffa;
$tariffa_vedi = mex("tariffa", "prenota.php") . $numtariffa;
$nometariffa = risul_query($rigatariffe, 0, $tariffa);
if ($nometariffa != "") {
$nometariffa_vedi = " ({$nometariffa})";
} else {
$nometariffa_vedi = "";
}
echo "\n<option value=\"{$tariffa}\">{$tariffa_vedi}{$nometariffa_vedi}</option>";
}
# fine for $numtariffa
echo "</select>\n " . mex("assegna automaticamente come numero di persone", $pag) . "\n <input type=\"text\" id=\"v4\" name=\"num_persone\" size=\"5\">\n " . mex("se non si inserisce nessun altro numero", $pag) . ".<br>";
echo "<script type=\"text/javascript\">\n<!--\nvar txt_box = document.getElementById(\"v4\");\ntxt_box.disabled = true;\n-->\n</script>\n<div style=\"text-align: center;\">\n<input class=\"sbutton\" type=\"submit\" name=\"regola_4\" value=\"" . mex("Inserisci o modifica la regola", $pag) . " 4\">\n</div></div></form><hr style=\"width: 95%\">";
echo "<table><tr><td style=\"height: 6px;\"></td></tr></table>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"creaprezzi.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input type=\"hidden\" name=\"ins_rapido_costo\" value=\"SI\">\n<input type=\"hidden\" name=\"origine\" value=\"crearegole.php\">\n" . mex("Inserimento rapido di un nuovo costo aggiuntivo per", 'creaprezzi.php') . "\n <select name=\"tipocostoagg\">\n<option value=\"perm_min\">" . mex("permanenza minima", 'creaprezzi.php') . "</option>\n<option value=\"num_bamb\">" . mex("numero di bambini", 'creaprezzi.php') . "</option>\n<option value=\"letto_agg\">" . mex("letto aggiuntivo", 'creaprezzi.php') . "</option>\n<option value=\"off_spec\">" . mex("offerta speciale", 'creaprezzi.php') . "</option>\n</select>\n<input class=\"sbutton\" type=\"submit\" value=\"" . mex("inserisci", 'creaprezzi.php') . "\">.\n<table><tr><td style=\"height: 6px;\"></td></tr></table>\n</div></form><hr style=\"width: 95%\">";
echo "<div style=\"text-align: center;\"><br>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"visualizza_tabelle.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input type=\"hidden\" name=\"tipo_tabella\" value=\"regole\">\n<input class=\"sbutton\" type=\"submit\" name=\"visualizza\" value=\"" . mex("Vedi le regole già inserite", $pag) . "\">\n</div></form><br>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"inizio.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input class=\"sbutton\" type=\"submit\" name=\"torna\" value=\"" . mex("Torna al menù principale", $pag) . "\">\n<br></div></form><br></div>";
}
# fine else if ($inserisci)
if ($tema[$id_utente] and $tema[$id_utente] != "base" and @is_dir("./themes/" . $tema[$id_utente] . "/php")) {
include "./themes/" . $tema[$id_utente] . "/php/foot.php";
} else {
include "./includes/foot.php";
}
}
# fine if ($id_utente and $id_utente == 1)
$id_utente_mod = $id_utente;
}
echo "<form accept-charset=\"utf-8\" method=\"post\" action=\"./personalizza.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input type=\"hidden\" name=\"id_utente_mod\" value=\"{$id_utente_mod}\">\n<input type=\"hidden\" name=\"aggiorna_qualcosa\" value=\"SI\">\n<input type=\"hidden\" name=\"origine\" value=\"./creaprezzi.php\">\n<input type=\"hidden\" name=\"cambiaarrtasse\" value=\"SI\">";
$arrotond_tasse = esegui_query("select * from {$tablepersonalizza} where idpersonalizza = 'arrotond_tasse' and idutente = '{$id_utente}'");
$arrotond_tasse = virgola_in_num(risul_query($arrotond_tasse, 0, 'valpersonalizza'), $stile_soldi);
echo ucfirst(mex("valore a cui arrotondare le percentuali delle tasse", "personalizza.php")) . ":\n <input type=\"text\" name=\"nuovo_arrotond_tasse\" size=\"4\" value=\"{$arrotond_tasse}\">\n<input class=\"sbutton\" type=\"submit\" value=\"" . mex("Cambia", "personalizza.php") . "\">\n</div></form><br>";
}
# fine if ($modifica_pers != "NO")
echo "<hr style=\"width: 95%\">";
}
# fine if ($priv_mod_tariffe != "n" and $lista_opt_tariffe)
if ($priv_vedi_tab_periodi != "n") {
echo "<div style=\"text-align: center;\"><br>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"visualizza_tabelle.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input type=\"hidden\" name=\"tipo_tabella\" value=\"periodi\">\n<input class=\"sbutton\" type=\"submit\" name=\"visualizza\" value=\"" . mex("Vedi i prezzi già inseriti", $pag) . "\">\n</div></form><br>";
}
# fine if ($priv_vedi_tab_periodi != "n")
echo "<form accept-charset=\"utf-8\" method=\"post\" action=\"inizio.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input class=\"sbutton\" type=\"submit\" name=\"indietro\" value=\"" . mex("Torna al menù principale", $pag) . "\">\n</div></form></div><br>";
}
# fine if ($mostra_form_iniziale != "NO")
}
# fine else if (($modificacaparra or $modificacommissioni or $modificacommper or $modificatasse) and $priv_mod_tariffe != "n")
if ($aggiorna_tariffe_interconn == "SI") {
$lock = 1;
$aggiorna_disp = 0;
$aggiorna_tar = 1;
if (@function_exists('pcntl_fork')) {
include "./includes/interconnect/aggiorna_ic_fork.php";
} else {
include "./includes/interconnect/aggiorna_ic.php";
}
}
# fine if ($aggiorna_tariffe_interconn == "SI")
function mostra_dati_cliente(&$dati_cliente, &$dcognome, &$dnome, &$dsoprannome, &$dtitolo_cli, &$dsesso, &$ddatanascita, &$ddatanascita_f, &$dnazionenascita, &$dcittanascita, &$dregionenascita, &$ddocumento, &$dscadenzadoc, &$dscadenzadoc_f, &$dtipodoc, &$dnazionedoc, &$dregionedoc, &$dcittadoc, &$dnazionalita, &$dlingua_cli, &$dnazione, &$dregione, &$dcitta, &$dvia, &$dnumcivico, &$dtelefono, &$dtelefono2, &$dtelefono3, &$dfax, &$dcap, &$demail, &$dcod_fiscale, &$dpartita_iva, $mostra_num = "", $priv_ins_clienti = "", $silenzio = "")
{
global $pag, $id_utente, $PHPR_TAB_PRE;
if ($id_utente == 1 or !$id_utente) {
$priv_vedi_telefoni = "s";
$priv_vedi_indirizzo = "s";
} else {
if (!$priv_ins_clienti) {
$privilegi_globali_utente = esegui_query("select * from {$PHPR_TAB_PRE}" . "privilegi where idutente = '{$id_utente}' and anno = '1'");
$priv_ins_clienti = risul_query($privilegi_globali_utente, 0, 'priv_ins_clienti');
}
# fine if (!$priv_ins_clienti)
$priv_vedi_telefoni = substr($priv_ins_clienti, 3, 1);
$priv_vedi_indirizzo = substr($priv_ins_clienti, 4, 1);
}
# fine else if ($id_utente == 1 or !$id_utente)
$didclienti = risul_query($dati_cliente, 0, 'idclienti');
$dcognome = risul_query($dati_cliente, 0, 'cognome');
$dnome = risul_query($dati_cliente, 0, 'nome');
$dsoprannome = risul_query($dati_cliente, 0, 'soprannome');
$dtitolo_cli = risul_query($dati_cliente, 0, 'titolo');
$dsesso = risul_query($dati_cliente, 0, 'sesso');
$ddatanascita = risul_query($dati_cliente, 0, 'datanascita');
$ddatanascita_f = formatta_data($ddatanascita, $stile_data);
$ddocumento = risul_query($dati_cliente, 0, 'documento');
$dtipodoc = risul_query($dati_cliente, 0, 'tipodoc');
$dscadenzadoc = risul_query($dati_cliente, 0, 'scadenzadoc');
$dscadenzadoc_f = formatta_data($dscadenzadoc, $stile_data);
$dcittadoc = risul_query($dati_cliente, 0, 'cittadoc');
$dregionedoc = risul_query($dati_cliente, 0, 'regionedoc');
$dnazionedoc = risul_query($dati_cliente, 0, 'nazionedoc');
$dcittanascita = risul_query($dati_cliente, 0, 'cittanascita');
$dregionenascita = risul_query($dati_cliente, 0, 'regionenascita');
$dnazionenascita = risul_query($dati_cliente, 0, 'nazionenascita');
$dnazionalita = risul_query($dati_cliente, 0, 'nazionalita');
$dlingua_cli = risul_query($dati_cliente, 0, 'lingua');
$dnazione = risul_query($dati_cliente, 0, 'nazione');
$dregione = risul_query($dati_cliente, 0, 'regione');
$dcitta = risul_query($dati_cliente, 0, 'citta');
if ($priv_vedi_indirizzo == "s") {
$dvia = risul_query($dati_cliente, 0, 'via');
$dnumcivico = risul_query($dati_cliente, 0, 'numcivico');
$dcap = risul_query($dati_cliente, 0, 'cap');
}
# fine if ($priv_vedi_indirizzo == "s")
if ($priv_vedi_telefoni == "s") {
$dtelefono = risul_query($dati_cliente, 0, 'telefono');
$dtelefono2 = risul_query($dati_cliente, 0, 'telefono2');
$dtelefono3 = risul_query($dati_cliente, 0, 'telefono3');
$dfax = risul_query($dati_cliente, 0, 'fax');
$demail = risul_query($dati_cliente, 0, 'email');
}
# fine if ($priv_vedi_telefoni == "s")
$dcod_fiscale = risul_query($dati_cliente, 0, 'cod_fiscale');
$dpartita_iva = risul_query($dati_cliente, 0, 'partita_iva');
if ($dlingua_cli) {
if ($dlingua_cli == "ita") {
$d_nome_lingua = "Italiano";
} elseif (preg_replace("/[a-z]{2,3}/", "", $dlingua_cli) == "") {
if (@is_file("./includes/lang/{$dlingua_cli}/l_n")) {
$d_nome_lingua = file("./includes/lang/{$dlingua_cli}/l_n");
$d_nome_lingua = ucfirst(togli_acapo($d_nome_lingua[0]));
}
# fine if (@is_file("./includes/lang/$dlingua_cli/l_n"))
}
# fine elseif (preg_replace("/[a-z]{2,3}/","",$dlingua_cli) == "")
if (!$d_nome_lingua) {
$dlingua_cli = "";
}
}
# fine if ($dlingua_cli)
$output = "";
$O = "o";
$O2 = "o";
if ($dsesso == "f") {
$O = "a";
}
if ($dsesso2 == "f") {
$O2 = "a";
}
if ($mostra_num == "SI") {
$output .= "{$didclienti}. <em>{$dcognome}</em> ";
if ($dnome) {
$output .= "<em>{$dnome}</em> ";
}
} else {
if ($dtitolo_cli) {
$output .= "{$dtitolo_cli} ";
}
$output .= "<b>{$dcognome}</b>";
if ($dnome) {
$output .= " {$dnome}";
}
if ($dsoprannome) {
$output .= " ({$dsoprannome})";
}
}
# fine else if ($mostra_num == "SI")
if ($ddatanascita or $dcittanascita) {
$output .= " " . mex("nat{$O}", $pag);
}
if ($ddatanascita) {
$output .= " " . mex("il", $pag) . " {$ddatanascita_f}";
}
if ($dcittanascita) {
$output .= mex(" a", $pag) . " {$dcittanascita}";
}
if ($dregionenascita or $dnazionenascita) {
$output .= " ({$dregionenascita}";
if ($dregionenascita and $dnazionenascita) {
$output .= ", ";
}
$output .= "{$dnazionenascita})";
}
# fine if ($dregionenascita or $dnazionenascita)
$lin = "";
if ($dnazionalita) {
$lin .= "{$dnazionalita}";
}
if ($dnazionalita and $d_nome_lingua) {
$lin .= " ";
}
if ($d_nome_lingua) {
$lin .= "(" . mex("ln.", $pag) . " <em>{$d_nome_lingua}</em>)";
}
if ($lin and $ddocumento) {
if (!$dnazionedoc or $dnazionedoc == $dnazionalita) {
$lin .= " - ";
} else {
$output .= "<br>{$lin}";
$lin = "";
}
# fine else if (!$dnazionedoc or...
}
# fine if ($lin and $ddocumento)
if ($ddocumento) {
if ($dtipodoc) {
$lin .= "{$dtipodoc} ";
}
$lin .= "{$ddocumento}";
if ($dscadenzadoc) {
if ($dcittadoc or $dnazionedoc and $dnazionedoc != $dnazionalita) {
$lin .= " ({$dcittadoc}";
if ($dcittadoc and $dnazionedoc and $dnazionedoc != $dnazionalita) {
$lin .= ", ";
}
if ($dnazionedoc and $dnazionedoc != $dnazionalita) {
$lin .= "{$dnazionedoc}";
}
$lin .= ")";
}
# fine if ($dcittadoc or...
if (date("Ymd", time() + C_DIFF_ORE * 3600) <= str_replace("-", "", $dscadenzadoc)) {
$lin .= " " . mex("scade", $pag) . " {$dscadenzadoc_f}";
} else {
$lin .= " " . mex("scade", $pag) . " <font color=\"red\">{$dscadenzadoc_f}</font>";
}
}
# fine if ($dscadenzadoc)
}
# fine if ($ddocumento)
if ($lin) {
$output .= "<br>{$lin}";
}
$lin = "";
if ($dcitta) {
$lin .= "{$dcitta}";
if ($dvia or $dnumcivico or $dcap) {
$lin .= ",";
}
$lin .= " ";
}
# fine if ($dcitta)
if ($dvia) {
$lin .= "{$dvia} ";
}
if ($dnumcivico) {
$lin .= "nº {$dnumcivico} ";
}
if ($dcap) {
$lin .= mex("CAP", $pag) . " {$dcap} ";
}
if ($dnazione or $dregione) {
$lin .= "(";
}
if ($dregione) {
$lin .= $dregione;
}
if ($dnazione and $dregione) {
$lin .= ", ";
}
if ($dnazione) {
$lin .= $dnazione;
}
if ($dnazione or $dregione) {
$lin .= ") ";
}
if ($lin) {
$output .= "<br>{$lin}";
}
$lin = "";
if ($dtelefono) {
$lin .= mex("Telefono", $pag) . ": {$dtelefono} ";
}
if ($dtelefono2) {
$lin .= mex("2º telefono", $pag) . ": {$dtelefono2} ";
}
if ($dtelefono3) {
$lin .= mex("3º telefono", $pag) . ": {$dtelefono3}, ";
}
if ($dfax) {
$lin .= "fax: {$dfax}, ";
}
if ($demail) {
$lin .= "email: <a href=\"mailto:{$demail}\">{$demail}</a> ";
}
if ($lin) {
$output .= "<br>{$lin}";
}
$lin = "";
if ($dcod_fiscale) {
$lin .= mex("Codice fiscale", $pag) . ": {$dcod_fiscale} ";
}
if ($dcod_fiscale and $dpartita_iva) {
$lin .= ", ";
}
if ($dpartita_iva) {
$lin .= mex("Partita iva", $pag) . ": {$dpartita_iva} ";
}
if ($lin) {
$output .= "<br>{$lin}";
}
if (!$silenzio) {
echo $output;
} else {
return $output;
}
}
<a style=\"color: #666666;\" href=\"./inizio.php?$sessione_anno_var\"><b>".mex("MENU","head.php")."</b></a>";
if ($priv_ins_nuove_prenota == "s" or $priv_ins_spese == "s" or $priv_ins_entrate == "s" or $inserimento_nuovi_clienti != "NO" or ($modifica_clienti != "NO" and $vedi_clienti != "NO")) {
echo " | <b>".mex("INSERIRE","head.php").":</b>";
if ($priv_ins_nuove_prenota == "s") echo " <a style=\"color: #666666;\" href=\"./prenota.php?$sessione_anno_var\"><b>".mex("PRENOTAZIONE","head.php")."</b></a>";
if ($inserimento_nuovi_clienti != "NO" or ($modifica_clienti != "NO" and $vedi_clienti != "NO")) echo " <a style=\"color: #666666;\" href=\"./clienti.php?$sessione_anno_var\"><b>".mex("CLIENTE","head.php")."</b></a>";
if ($priv_ins_spese == "s" or $priv_ins_entrate == "s") echo " <a style=\"color: #666666;\" href=\"./costi.php?$sessione_anno_var\"><b>".mex("SPESE","head.php")."</b></a>";
} # fine if ($priv_ins_nuove_prenota == "s" or...
if ($priv_vedi_tab_mesi != "n" or $priv_vedi_tab_prenotazioni != "n" or $vedi_clienti != "NO" or $priv_vedi_tab_costi != "n" or $priv_vedi_tab_periodi != "n" or $priv_vedi_tab_appartamenti != "n") {
echo " | <b>".mex("TABELLE","head.php").":</b>";
if ($priv_vedi_tab_mesi != "n") echo " <a style=\"color: #666666;\" href=\"./tabella.php?$sessione_anno_var&mese=$mese_attuale\"><b>".mex("$MESE_ATT","head.php")."</b></a>";
if ($priv_vedi_tab_prenotazioni != "n") echo " <a style=\"color: #666666;\" href=\"./visualizza_tabelle.php?$sessione_anno_var&tipo_tabella=prenotazioni\"><b>".mex("PRENOTAZIONI","head.php")."</b></a>";
if ($vedi_clienti != "NO") echo " <a style=\"color: #666666;\" href=\"./visualizza_tabelle.php?$sessione_anno_var&tipo_tabella=clienti\"><b>".mex("CLIENTI","head.php")."</b></a>";
if ($priv_vedi_tab_costi != "n") echo " <a style=\"color: #666666;\" href=\"./visualizza_tabelle.php?$sessione_anno_var&tipo_tabella=costi\"><b>".mex("SPESE","head.php")."</b></a>";
if ($priv_vedi_tab_periodi != "n") echo " <a style=\"color: #666666;\" href=\"./visualizza_tabelle.php?$sessione_anno_var&tipo_tabella=periodi\"><b>".mex("TARIFFE","head.php")."</b></a>";
if ($priv_vedi_tab_appartamenti != "n") {
$fr_APPARTAMENTI = mex("APPARTAMENTI","unit.php");
if (strlen($fr_APPARTAMENTI) > 11) $fr_APPARTAMENTI = substr($fr_APPARTAMENTI,0,6).".";
echo " <a style=\"color: #666666;\" href=\"./visualizza_tabelle.php?$sessione_anno_var&tipo_tabella=appartamenti\"><b>$fr_APPARTAMENTI</b></a>";
} # fine if ($priv_vedi_tab_appartamenti != "n")
} # fine if ($priv_vedi_tab_mesi != "n" or $priv_vedi_tab_prenotazioni != "n" or...
echo "</td>";
if ($idprenota_origine) $anno = $anno - 1;
if ($mostra_X == "SI") {
if (@is_array($_POST)) reset($_POST);
for($num1 = 0 ; $num1 < count($_POST); $num1++) {
$lista_var_X .= "&".key($_POST)."=".$_POST[key($_POST)];
next($_POST);
} # fine for $num1
if (@is_array($_GET)) reset($_GET);
function mostra_form_relutenti ($rel_sing,$rel_plur,$nome_sing,$nome_plur,$e,$a,$le,$tablerel,$id_utente,$id_utente_mod,$id_utente_sel,$option_select_utenti_importa_contratti,$anno,$id_sessione,$pag,$tablerelutenti,$rel_sup_sing="",$rel_sup_plur="",$tablerel_sup="",$frase_nella_sup="") {
echo "<div style=\"line-height: 150%;\">
<form accept-charset=\"utf-8\" method=\"post\" action=\"./personalizza.php\"><div>
<input type=\"hidden\" name=\"anno\" value=\"$anno\">
<input type=\"hidden\" name=\"id_sessione\" value=\"$id_sessione\">
<input type=\"hidden\" name=\"id_utente_mod\" value=\"$id_utente_mod\">
<input type=\"hidden\" name=\"aggiorna_qualcosa\" value=\"SI\">";
if ($rel_sup_sing) {
$rel_sup_utente = esegui_query("select distinct $tablerel_sup.nome_$rel_sup_sing from $tablerelutenti inner join $tablerel_sup on $tablerelutenti.id$rel_sup_sing = $tablerel_sup.id$rel_sup_plur where $tablerelutenti.idutente = '$id_utente_sel' order by $tablerel_sup.nome_$rel_sup_sing");
$num_rel_sup_utente = numlin_query($rel_sup_utente);
for ($num1 = 0 ; $num1 < $num_rel_sup_utente ; $num1++) {
$rel_sup = htmlspecialchars(risul_query($rel_sup_utente,$num1,"nome_$rel_sup_sing",$tablerel_sup));
$opt_rel_sup .= "<option value=\"$rel_sup\">$rel_sup</option>";
} # fine for $num1
$rel_sup_esist = esegui_query("select id$rel_sing from $tablerelutenti where id$rel_sing is not NULL and idsup is not NULL and idutente = '$id_utente_sel' limit 1");
if (numlin_query($rel_sup_esist) > 0) {
$mostra_sup = "SI";
if ($opt_rel_sup) {
$mostra_linea_canc = "SI";
echo mex(ucfirst($nome_plur),$pag)." ".mex($frase_nella_sup,$pag)."
<select id=\"$rel_sup_sing"."_$rel_sing\" onchange=\"ricarica_ifrm('dati_rel','$rel_sing"."_da_eliminare','$rel_sup_sing"."_$rel_sing','$rel_sing','$rel_sup_sing','$id_utente_sel')\">
<option value=\"\" selected>----</option>
$opt_rel_sup
</select>:
<b id=\"b_$rel_sing"."_da_eliminare\" style=\"font-weight: normal;\">";
$rel_utente = esegui_query("select distinct $tablerel.nome_$rel_sing,$tablerel.codice_$rel_sing,$tablerel.codice2_$rel_sing,$tablerel.codice3_$rel_sing from $tablerelutenti inner join $tablerel on $tablerelutenti.id$rel_sing = $tablerel.id$rel_plur where $tablerelutenti.idutente = '$id_utente_sel' and $tablerelutenti.idsup is NULL order by $tablerel.nome_$rel_sing");
$num_rel_utente = numlin_query($rel_utente);
if ($num_rel_utente) {
echo "<select name=\"$rel_sing"."_da_eliminare\" id=\"$rel_sing"."_da_eliminare\">";
for ($num1 = 0 ; $num1 < $num_rel_utente ; $num1++) {
$rel = htmlspecialchars(risul_query($rel_utente,$num1,"nome_$rel_sing",$tablerel));
$codice = htmlspecialchars(risul_query($rel_utente,$num1,"codice_$rel_sing",$tablerel));
$codice2 = htmlspecialchars(risul_query($rel_utente,$num1,"codice2_$rel_sing",$tablerel));
$codice3 = htmlspecialchars(risul_query($rel_utente,$num1,"codice3_$rel_sing",$tablerel));
echo "<option value=\"$rel\">$rel";
if (strcmp($codice,"")) echo " ($codice)";
if (strcmp($codice2,"")) echo " (".mex("2°",$pag)." $codice2)";
if (strcmp($codice3,"")) echo " (".mex("3°",$pag)." $codice3)";
echo "</option>";
} # fine for $num1
echo "</select>";
} # fine if ($num_rel_utente)
else echo "<input type=\"text\" name=\"$rel_sing"."_da_eliminare\" id=\"$rel_sing"."_da_eliminare\" size=\"20\" maxlength=\"50\">";
echo "</b>";
} # fine if ($opt_rel_sup)
} # fine if (numlin_query($rel_sup_esist) > 0)
} # fine if ($rel_sup_sing)
if ($mostra_sup != "SI") {
$rel_utente = esegui_query("select distinct $tablerel.nome_$rel_sing,$tablerel.codice_$rel_sing,$tablerel.codice2_$rel_sing,$tablerel.codice3_$rel_sing from $tablerelutenti inner join $tablerel on $tablerelutenti.id$rel_sing = $tablerel.id$rel_plur where $tablerelutenti.idutente = '$id_utente_sel' order by $tablerel.nome_$rel_sing");
$num_rel_utente = numlin_query($rel_utente);
if ($num_rel_utente) {
$mostra_linea_canc = "SI";
echo mex(ucfirst($nome_plur),$pag).":
<select name=\"$rel_sing"."_da_eliminare\">";
for ($num1 = 0 ; $num1 < $num_rel_utente ; $num1++) {
$rel = htmlspecialchars(risul_query($rel_utente,$num1,"nome_$rel_sing",$tablerel));
$codice = htmlspecialchars(risul_query($rel_utente,$num1,"codice_$rel_sing",$tablerel));
$codice2 = htmlspecialchars(risul_query($rel_utente,$num1,"codice2_$rel_sing",$tablerel));
$codice3 = htmlspecialchars(risul_query($rel_utente,$num1,"codice3_$rel_sing",$tablerel));
echo "<option value=\"$rel\">$rel";
if (strcmp($codice,"")) echo " ($codice)";
if (strcmp($codice2,"")) echo " (".mex("2°",$pag)." $codice2)";
if (strcmp($codice3,"")) echo " (".mex("3°",$pag)." $codice3)";
echo "</option>";
} # fine for $num1
echo "</select>";
} # fine if ($num_rel_utente)
} # fine if ($mostra_sup != "SI")
if ($mostra_linea_canc == "SI") {
echo "<input class=\"sbutton\" type=\"submit\" name=\"elimina_$rel_sing\" value=\"".mex("elimina",$pag)."\">";
if ($mostra_sup != "SI") echo " <input class=\"sbutton\" type=\"submit\" name=\"elimina_tutte_$rel_plur\" value=\"".mex("Elimina tutt$e",$pag)."\">";
echo "<br>";
} # fine if ($mostra_linea_canc == "SI")
echo "<table cellspacing=0 cellpadding=0 style=\"margin: 4px 0 4px 0;\"><tr><td>
".mex("Nuov$a $nome_sing",$pag).": <input type=\"text\" name=\"nuova_$rel_sing\" size=\"20\" maxlength=\"50\"> (";
if ($opt_rel_sup) {
echo "".mex($frase_nella_sup,$pag)."
<select name=\"sup_n_$rel_sing\">
<option value=\"\" selected>----</option>
$opt_rel_sup
</select>,<br>";
} # fine if ($opt_rel_sup)
echo mex("codice",$pag)." <input type=\"text\" name=\"cod_n_$rel_sing\" size=\"12\" maxlength=\"50\">,";
if (!$opt_rel_sup) echo "<br>";
else echo " ";
echo "".mex("2° codice",$pag)." <input type=\"text\" name=\"cod2_n_$rel_sing\" size=\"12\" maxlength=\"50\">,
".mex("3° codice",$pag)." <input type=\"text\" name=\"cod3_n_$rel_sing\" size=\"12\" maxlength=\"50\">)
</td><td style=\"width: 10px;\"></td><td valign=\"middle\">
<input class=\"sbutton\" type=\"submit\" name=\"aggiungi_$rel_sing\" value=\"".mex("aggiungi",$pag)."\">
</td></tr></table>";
if ($id_utente == 1 and $option_select_utenti_importa_contratti) {
echo "".mex("Importa $le $nome_plur",$pag)."
".mex("dell'utente",$pag)."
<select name=\"utente_importa_$rel_plur\">
$option_select_utenti_importa_contratti
</select>
<input class=\"sbutton\" type=\"submit\" name=\"importa_$rel_plur\" value=\"".mex("Importa",$pag)."\"> ";
} # fine if ($id_utente == 1 and $option_select_utenti_importa_contratti)
echo "<input class=\"sbutton\" type=\"submit\" name=\"$rel_plur"."_predefinite\" value=\"".mex("Ripristina predefinit$e",$pag)."\">";
if ($mostra_linea_canc == "SI" and $mostra_sup == "SI") echo " <input class=\"sbutton\" type=\"submit\" name=\"elimina_tutte_$rel_plur\" value=\"".mex("Elimina tutt$e",$pag)."\">";
echo "</div></form></div>
<hr style=\"width: 95%\">";
} # fine function mostra_form_relutenti
function crea_modello_disponibilita ($percorso_cartella_modello,$anno_modello,$PHPR_TAB_PRE,$pag,$lingua_modello,$silenzio,$fr_frase,$frase,$num_frasi,$tipo_periodi) {
global $num_periodi_date,$M_PHPR_DB_TYPE,$M_PHPR_DB_NAME,$M_PHPR_DB_HOST,$M_PHPR_DB_PORT,$M_PHPR_DB_USER,$M_PHPR_DB_PASS,$M_PHPR_LOAD_EXT,$M_PHPR_TAB_PRE,$estendi_ultima_data,$max_num_app_tipologia,$chiedi_num_app_tipologia,$parola_appartamenti,$parola_appartamento,$aggiungi_tipologie,$max_num_tipologie,$chiedi_num_persone,$max_num_persone,$costo_aggiungi_letti,$max_num_aggiungi_letti,$sett_no_prenota;
global $mostra_richiesta_via_mail,$mostra_costi_aggiuntivi,$num_colonne_costi_agg,$num_motivazioni,$mostra_quadro_disp,$mostra_numero_liberi_quadro_disponibilita,$allinea_disponibilita_con_arrivo,$m_stile_soldi,$m_stile_data,$anteponi_nome_valuta,$utente_lis,$aggiungi_costi_fissi,$assegna_con_regola2,$mostra_frase_alternativa_regola1,$mostra_caparra,$ind_email,$maschera_envelope,$manda_copia_richiesta_email;
global $colore_sfondo_quadro_disponibilita,$colore_inizio_settimana_quadro_disponibilita,$colore_libero_quadro_disponibilita,$colore_occupato_quadro_disponibilita,$apertura_font_quadro_disponibilita,$chiusura_font_quadro_disponibilita,$apertura_tag_font,$chiusura_tag_font,$apertura_tag_font_rosse,$chiusura_tag_font_rosse,$stile_tabella_prenotazione,$m_valuta_sing,$m_valuta_plur,$frase_alternativa_regola1;
global $cambia_frasi,$utente_mess,$orig_prenota,$num_metodi_pagamento,$num_campi_pers,$num_campi_doc_cond,$chiedi_cognome,$chiedi_nome,$chiedi_email,$chiedi_sesso,$chiedi_datanascita,$chiedi_documento,$chiedi_nazione,$chiedi_citta,$chiedi_regione,$chiedi_via,$chiedi_numcivico,$chiedi_cap,$chiedi_telefono,$chiedi_telefono2,$chiedi_telefono3,$chiedi_fax,$chiedi_commento,$chiedi_oracheckin,$chiedi_metodopagamento;
global $mostra_bottone_paypal,$nome_modello_paypal,$mostra_calendario_scelta_date,$stile_riquadro_calendario,$stile_tabella_calendario,$stile_bottoni_calendario,$stile_bottone_apertura_calendario,$spostamento_orizzontale_calendario,$colore_data_attiva_calendario,$colore_data_selezionata_calendario,$prima_parte_html,$ultima_parte_html,$mostra_giorni_pieni,$modello_esistente;
global $file_css_frame,$apri_nuova_finestra_da_frame,$altezza_finestra_da_frame,$larghezza_finestra_da_frame,$tema_modello;
$tablenometariffe_modello = $PHPR_TAB_PRE."ntariffe".$anno_modello;
$tableperiodi_modello = $PHPR_TAB_PRE."periodi".$anno_modello;
$tableanni = $PHPR_TAB_PRE."anni";
$tableutenti = $PHPR_TAB_PRE."utenti";
$tablepersonalizza = $PHPR_TAB_PRE."personalizza";
$tablecontratti = $PHPR_TAB_PRE."contratti";
if (controlla_anno($anno_modello) != "SI") {
$continua = "NO";
$anno_modello = "";
} # fine if (controlla_anno($anno_modello) != "SI")
else {
$anno_esistente = esegui_query("select * from $tableanni where idanni = '$anno_modello'");
if (numlin_query($anno_esistente) != 1) $continua = "NO";
} # fine else if (controlla_anno($anno_modello) != "SI")
if ($continua != "NO") {
if ($estendi_ultima_data != "SI") $estendi_ultima_data = "NO";
$date_in_menu = "";
$idfineperiodo_prec = -10;
if (!$num_periodi_date or controlla_num_pos($num_periodi_date) == "NO") $num_periodi_date = 1;
for ($num1 = 0 ; $num1 < $num_periodi_date ; $num1++) {
global ${"inizioperiodo".$num1},${"fineperiodo".$num1},${"intervalloperiodo".$num1};
$inizioperiodo = aggslashdb(${"inizioperiodo".$num1});
$fineperiodo = aggslashdb(${"fineperiodo".$num1});
$idinizioperiodo = esegui_query("select idperiodi from $tableperiodi_modello where datainizio = '$inizioperiodo' ");
$num_idinizioperiodo = numlin_query($idinizioperiodo);
if ($num_idinizioperiodo == 0) { $idinizioperiodo = 10000; }
else { $idinizioperiodo = risul_query($idinizioperiodo,0,'idperiodi'); }
$inizioperiodo = $idinizioperiodo;
if ($estendi_ultima_data == "SI" and $num1 == ($num_periodi_date - 1)) {
$idfineperiodo = esegui_query("select max(idperiodi) from $tableperiodi_modello");
$idfineperiodo = risul_query($idfineperiodo,0,0);
} # fine if ($estendi_ultima_data == "SI" and $num1 == ($num_periodi_date - 1))
else {
$idfineperiodo = esegui_query("select idperiodi from $tableperiodi_modello where datafine = '$fineperiodo' ");
$num_idfineperiodo = numlin_query($idfineperiodo);
if ($num_idfineperiodo == 0) { $idfineperiodo = -1; }
else { $idfineperiodo = risul_query($idfineperiodo,0,'idperiodi'); }
} # fine else if ($estendi_ultima_data == "SI" and $num1 == ($num_periodi_date - 1))
$fineperiodo = $idfineperiodo;
${"inizioperiodo".$num1} = $inizioperiodo;
${"fineperiodo".$num1} = $fineperiodo;
if ($idfineperiodo < $idinizioperiodo) $continua = "NO";
if (($idfineperiodo_prec + 1) >= $idinizioperiodo) $continua = "NO";
$idfineperiodo_prec = $idfineperiodo;
${"intervalloperiodo".$num1} = aggslashdb(${"intervalloperiodo".$num1});
if (!${"intervalloperiodo".$num1} or controlla_num_pos(${"intervalloperiodo".$num1}) == "NO" or ${"intervalloperiodo".$num1} > 99) $continua = "NO";
} # fine for $num1
if ($continua == "NO") {
if ($silenzio == "NO") echo mex("Le date sono sbagliate",$pag).". <br>";
} # fine if ($continua == "NO")
else {
$file_intero = file(C_DATA_PATH."/selectperiodi$anno_modello.1.php");
$num_linee_file_intero = count($file_intero);
$pag_gm = "giorni_mesi.php";
$m_tipo_periodi = esegui_query("select tipo_periodi from $tableanni where idanni = '$anno_modello'");
$m_tipo_periodi = risul_query($m_tipo_periodi,0,0);
for ($num1 = 0 ; $num1 < $num_periodi_date ; $num1++) {
$inizioperiodo = ${"inizioperiodo".$num1};
$fineperiodo = ${"fineperiodo".$num1};
$num_intervallo = 1;
for ($num2 = 0 ; $num2 < $num_linee_file_intero ; $num2++) {
if (substr($file_intero[$num2],0,7) == "<option") {
$data_option = substr($file_intero[$num2],16,10);
$id_data_option = esegui_query("select idperiodi from $tableperiodi_modello where datainizio = '$data_option' ");
$esiste_data_option = numlin_query($id_data_option);
if ($esiste_data_option == 1) $id_data_option = risul_query($id_data_option,0,'idperiodi');
else {
$id_data_option = esegui_query("select idperiodi from $tableperiodi_modello where datafine = '$data_option' ");
$id_data_option = risul_query($id_data_option,0,'idperiodi');
} # fine else if ($esiste_data_option == 1)
if ($id_data_option >= $inizioperiodo and $id_data_option <= ($fineperiodo + 1)) {
if ($num_intervallo == 1) {
$giorno_option = substr($data_option,8,2);
$mese_option = substr($data_option,5,2);
$anno_option = substr($data_option,0,4);
$nome_giorno = date("D" , mktime(0,0,0,$mese_option,$giorno_option,$anno_option));
$nome_mese = date("M" , mktime(0,0,0,$mese_option,$giorno_option,$anno_option));
if ($m_tipo_periodi == "g") {
if ($nome_giorno == "Sun") $nome_giorno = mex2(" Do",$pag_gm,$lingua_modello);
if ($nome_giorno == "Mon") $nome_giorno = mex2(" Lu",$pag_gm,$lingua_modello);
if ($nome_giorno == "Tue") $nome_giorno = mex2(" Ma",$pag_gm,$lingua_modello);
if ($nome_giorno == "Wed") $nome_giorno = mex2(" Me",$pag_gm,$lingua_modello);
if ($nome_giorno == "Thu") $nome_giorno = mex2(" Gi",$pag_gm,$lingua_modello);
if ($nome_giorno == "Fri") $nome_giorno = mex2(" Ve",$pag_gm,$lingua_modello);
if ($nome_giorno == "Sat") $nome_giorno = mex2(" Sa",$pag_gm,$lingua_modello);
} # fine if ($m_tipo_periodi == "g")
else $nome_giorno = "";
if ($nome_mese == "Jan") $nome_mese = mex2("Gen",$pag_gm,$lingua_modello);
if ($nome_mese == "Feb") $nome_mese = mex2("Feb",$pag_gm,$lingua_modello);
if ($nome_mese == "Mar") $nome_mese = mex2("Mar",$pag_gm,$lingua_modello);
if ($nome_mese == "Apr") $nome_mese = mex2("Apr",$pag_gm,$lingua_modello);
if ($nome_mese == "May") $nome_mese = mex2("Mag",$pag_gm,$lingua_modello);
if ($nome_mese == "Jun") $nome_mese = mex2("Giu",$pag_gm,$lingua_modello);
if ($nome_mese == "Jul") $nome_mese = mex2("Lug",$pag_gm,$lingua_modello);
if ($nome_mese == "Aug") $nome_mese = mex2("Ago",$pag_gm,$lingua_modello);
if ($nome_mese == "Sep") $nome_mese = mex2("Set",$pag_gm,$lingua_modello);
if ($nome_mese == "Oct") $nome_mese = mex2("Ott",$pag_gm,$lingua_modello);
if ($nome_mese == "Nov") $nome_mese = mex2("Nov",$pag_gm,$lingua_modello);
if ($nome_mese == "Dec") $nome_mese = mex2("Dic",$pag_gm,$lingua_modello);
$date_in_menu .= "<option value=\\\"$data_option\\\">$nome_mese $giorno_option$nome_giorno, $anno_option</option>
";
} # fine if ($num_intervallo == 1)
if ($num_intervallo == ${"intervalloperiodo".$num1}) $num_intervallo = 1;
else $num_intervallo++;
} # fine if ($id_data_option > $inizioperiodo and...
} # fine if (substr($file_intero[$num2],0,7) == "<option")
} # fine for $num2
} # fine for $num1
$d_names = "\\\"". mex2(" Do",$pag_gm,$lingua_modello)."\\\",\\\"". mex2(" Lu",$pag_gm,$lingua_modello)."\\\",\\\"". mex2(" Ma",$pag_gm,$lingua_modello)."\\\",\\\"". mex2(" Me",$pag_gm,$lingua_modello)."\\\",\\\"". mex2(" Gi",$pag_gm,$lingua_modello)."\\\",\\\"". mex2(" Ve",$pag_gm,$lingua_modello)."\\\",\\\"". mex2(" Sa",$pag_gm,$lingua_modello)."\\\"";
$m_names = "\\\"". mex2("Gen",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Feb",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Mar",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Apr",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Mag",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Giu",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Lug",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Ago",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Set",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Ott",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Nov",$pag_gm,$lingua_modello)."\\\",\\\"". mex2("Dic",$pag_gm,$lingua_modello)."\\\"";
} # fine else if ($continua == "NO")
if (controlla_num_pos($sett_no_prenota) == "NO" or $sett_no_prenota < 0 or $sett_no_prenota > 365) {
$continua = "NO";
global $parola_settimane;
if ($silenzio == "NO") echo mex("Numero di $parola_settimane dopo cui prendere richieste errato",$pag).".<br>";
} # fine if (controlla_num_pos($sett_no_prenota) == "NO" or $sett_no_prenota < 1 or $sett_no_prenota > 365)
$utente_liste = $utente_lis;
if (@get_magic_quotes_gpc()) $utente_liste = stripslashes($utente_liste);
$utente_esistente = esegui_query("select idutenti from $tableutenti where nome_utente = '".aggslashdb($utente_liste)."'");
if (numlin_query($utente_esistente) != 1) {
$utente_liste = esegui_query("select nome_utente from $tableutenti where idutenti = '1'");
$utente_liste = risul_query($utente_liste,0,'nome_utente');
} # fine if (numlin_query($utente_esistente) != 1)
if ($chiedi_num_app_tipologia != "SI") $chiedi_num_app_tipologia = "NO";
if ($chiedi_num_app_tipologia == "SI" and controlla_num_pos($max_num_app_tipologia) == "NO") {
$continua = "NO";
if ($silenzio == "NO") echo mex("Numero massimo di appartamenti per tipologia errato",'unit.php').".<br>";
} # fine if ($chiedi_num_app_tipologia == "SI" and controlla_num_pos($max_num_app_tipologia) == "NO")
if ($chiedi_num_app_tipologia == "NO" and controlla_num_pos($max_num_app_tipologia) == "NO") $max_num_app_tipologia = 0;
if ($chiedi_num_app_tipologia == "SI" and !$parola_appartamenti) {
$continua = "NO";
if ($silenzio == "NO") echo mex("Si deve inserire la parola per indicare gli appartamenti",'unit.php').".<br>";
} # fine if ($chiedi_num_app_tipologia == "SI" and !$parola_appartamenti)
if ($chiedi_num_app_tipologia != "SI" and !$parola_appartamento) $parola_appartamento = mex2("appartamento",'unit.php',$lingua_modello);
if ($chiedi_num_app_tipologia != "SI" and !$parola_appartamenti) $parola_appartamenti = mex2("appartamenti",'unit.php',$lingua_modello);
if ($aggiungi_tipologie != "SI") $aggiungi_tipologie = "NO";
if ($aggiungi_tipologie == "SI" and (controlla_num_pos($max_num_tipologie) == "NO" or $max_num_tipologie == 0)) {
$continua = "NO";
if ($silenzio == "NO") echo mex("Numero massimo di tipologie errato",$pag).".<br>";
} # fine if ($aggiungi_tipologie == "SI" and controlla_num_pos($max_num_tipologie) == "NO" and $max_num_tipologie != 0)
if ($aggiungi_tipologie != "SI" and (controlla_num_pos($max_num_tipologie) == "NO" or $max_num_tipologie == 0)) $max_num_tipologie = 3;
if ($chiedi_num_persone == "SI" and controlla_num_pos($max_num_persone) == "NO") {
$continua = "NO";
if ($silenzio == "NO") echo mex("Numero massimo di persone errato",$pag).".<br>";
} # fine if ($chiedi_num_persone == "SI" and controlla_num_pos($max_num_persone) == "NO")
if ($chiedi_num_persone != "SI" and controlla_num_pos($max_num_persone) == "NO") $max_num_persone = 0;
$dati_ca = dati_costi_agg_ntariffe($tablenometariffe_modello,"NO");
if ($chiedi_num_persone != "SI") $costo_aggiungi_letti = "";
if ($costo_aggiungi_letti != "" and ($dati_ca[$dati_ca['id'][$costo_aggiungi_letti]]['letto'] != "s" or $dati_ca[$dati_ca['id'][$costo_aggiungi_letti]]['numsett'] == "c" or $dati_ca[$dati_ca['id'][$costo_aggiungi_letti]]['mostra'] != "s" or $dati_ca[$costo_aggiungi_letti]['combina'] == "s")) $continua = "NO";
if ($chiedi_num_persone == "SI" and $costo_aggiungi_letti != "" and (controlla_num_pos($max_num_aggiungi_letti) == "NO" or $max_num_aggiungi_letti == 0)) {
$continua = "NO";
if ($silenzio == "NO") echo mex("Numero massimo di letti aggiuntivi errato",$pag).".<br>";
} # fine if ($chiedi_num_persone == "SI" and $costo_aggiungi_letti != "" and...
if (($chiedi_num_persone != "SI" or $costo_aggiungi_letti == "") and (controlla_num_pos($max_num_aggiungi_letti) == "NO" or $max_num_aggiungi_letti == 0)) $max_num_aggiungi_letti = 2;
if ($mostra_costi_aggiuntivi == "SI" and (controlla_num_pos($num_colonne_costi_agg) == "NO" or $num_colonne_costi_agg == 0)) {
$continua = "NO";
if ($silenzio == "NO") echo mex("Numero di colonne dei costi aggiuntivi errato",$pag).".<br>";
} # fine if ($mostra_costi_aggiuntivi == "SI" and (controlla_num_pos($num_colonne_costi_agg) == "NO" or $num_colonne_costi_agg == 0))
if ($mostra_costi_aggiuntivi != "SI" and (controlla_num_pos($num_colonne_costi_agg) == "NO" or $num_colonne_costi_agg == 0)) $num_colonne_costi_agg = 2;
if (str_replace("..","",$nome_modello_paypal) != $nome_modello_paypal) $nome_modello_paypal = "";
if (str_replace("/","",$nome_modello_paypal) != $nome_modello_paypal) $nome_modello_paypal = "";
if ($mostra_bottone_paypal != "SI") $nome_modello_paypal = "";
if (!$nome_modello_paypal) $mostra_bottone_paypal = "NO";
$indirizzo_email = $ind_email;
$utente_messaggio = $utente_mess;
if ($mostra_richiesta_via_mail == "SI" and !preg_match('/^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,4}$/i',$indirizzo_email) and !$utente_messaggio) {
$continua = "NO";
if ($silenzio == "NO") echo mex("Indirizzo email non valido",$pag).".<br>";
} # fine if ($mostra_richiesta_via_mail == "SI" and ...
if ($utente_messaggio and $utente_messaggio != "tutti") {
if (@get_magic_quotes_gpc()) $utente_messaggio = stripslashes($utente_messaggio);
$utente_esistente = esegui_query("select idutenti from $tableutenti where nome_utente = '".aggslashdb($utente_messaggio)."'");
if (numlin_query($utente_esistente) != 1) $continua = "NO";
} # fine if ($utente_messaggio and $utente_messaggio != "tutti")
if ((string) $orig_prenota != "") {
$origini_prenota = esegui_query("select valpersonalizza from $tablepersonalizza where idpersonalizza = 'origini_prenota' and idutente = '1'");
$origini_prenota = risul_query($origini_prenota,0,'valpersonalizza');
if ($origini_prenota) {
if (get_magic_quotes_gpc()) $orig_prenota = stripslashes($orig_prenota);
$origini_prenota = explode(",",$origini_prenota);
$trovato = "NO";
for ($num1 = 0 ; $num1 < count($origini_prenota) ; $num1++) if ($origini_prenota[$num1] == $orig_prenota) $trovato = "SI";
if ($trovato == "NO") $orig_prenota = "";
} # fine if ($origini_prenota)
else $orig_prenota = "";
} # fine if ((string) $orig_prenota != "")
if ($chiedi_cognome != "SI" and $chiedi_cognome != "opzionale" and $chiedi_cognome != "NO") $chiedi_cognome = "NO";
if ($chiedi_nome != "SI" and $chiedi_nome != "opzionale" and $chiedi_nome != "NO") $chiedi_nome = "opzionale";
if ($chiedi_email != "SI" and $chiedi_email != "opzionale" and $chiedi_email != "NO") $chiedi_email = "SI";
if ($chiedi_sesso != "SI" and $chiedi_sesso != "opzionale" and $chiedi_sesso != "NO") $chiedi_sesso = "NO";
if ($chiedi_datanascita != "SI" and $chiedi_datanascita != "opzionale" and $chiedi_datanascita != "NO") $chiedi_datanascita = "NO";
if ($chiedi_documento != "SI" and $chiedi_documento != "opzionale" and $chiedi_documento != "NO") $chiedi_documento = "NO";
if ($chiedi_nazione != "SI" and $chiedi_nazione != "opzionale" and $chiedi_nazione != "NO") $chiedi_nazione = "NO";
if ($chiedi_citta != "SI" and $chiedi_citta != "opzionale" and $chiedi_citta != "NO") $chiedi_citta = "NO";
if ($chiedi_regione != "SI" and $chiedi_regione != "opzionale" and $chiedi_regione != "NO") $chiedi_regione = "NO";
if ($chiedi_via != "SI" and $chiedi_via != "opzionale" and $chiedi_via != "NO") $chiedi_via = "NO";
if ($chiedi_numcivico != "SI" and $chiedi_numcivico != "opzionale" and $chiedi_numcivico != "NO") $chiedi_numcivico = "NO";
if ($chiedi_cap != "SI" and $chiedi_cap != "opzionale" and $chiedi_cap != "NO") $chiedi_cap = "NO";
if ($chiedi_telefono != "SI" and $chiedi_telefono != "opzionale" and $chiedi_telefono != "NO") $chiedi_telefono = "NO";
if ($chiedi_telefono2 != "SI" and $chiedi_telefono2 != "opzionale" and $chiedi_telefono2 != "NO") $chiedi_telefono2 = "NO";
if ($chiedi_telefono3 != "SI" and $chiedi_telefono3 != "opzionale" and $chiedi_telefono3 != "NO") $chiedi_telefono3 = "NO";
if ($chiedi_fax != "SI" and $chiedi_fax != "opzionale" and $chiedi_fax != "NO") $chiedi_fax = "NO";
if ($chiedi_commento != "SI" and $chiedi_commento != "opzionale" and $chiedi_commento != "NO") $chiedi_commento = "opzionale";
if ($chiedi_oracheckin != "SI" and $chiedi_oracheckin != "opzionale" and $chiedi_oracheckin != "NO") $chiedi_oracheckin = "NO";
if ($chiedi_metodopagamento != "SI" and $chiedi_metodopagamento != "opzionale" and $chiedi_metodopagamento != "NO") $chiedi_metodopagamento = "NO";
if (!$num_metodi_pagamento) $num_metodi_pagamento = 0;
if (!$num_campi_pers) $num_campi_pers = 0;
if (controlla_num_pos($num_metodi_pagamento) == "NO") $continua = "NO";
if (controlla_num_pos($num_campi_pers) == "NO") $continua = "NO";
$campi_form_doc_condizioni = "";
$chiedi_campi_form_doc_condizioni = "";
if (!$num_campi_doc_cond) $num_campi_doc_cond = 0;
if (controlla_num_pos($num_campi_doc_cond) == "NO") $continua = "NO";
else {
$num_campo_doc_cond = 0;
$doc_usati = "";
for ($num1 = 1 ; $num1 <= $num_campi_doc_cond ; $num1++) {
$num_doc_cond = "num_doc_cond".$num1;
$chiedi_num_doc_cond = "chiedi_num_doc_cond".$num1;
global $$num_doc_cond,$$chiedi_num_doc_cond;
if (strcmp($$num_doc_cond,"") and !$doc_usati[$$num_doc_cond]) {
if (controlla_num_pos($$num_doc_cond) == "NO") $continua = "NO";
else {
$contr_txt = esegui_query("select numero from $tablecontratti where (tipo = 'contrtxt' or tipo = 'contrhtm') and numero = '".$$num_doc_cond."' ");
if (!numlin_query($contr_txt)) {
if ($silenzio == "NO") $continua = "NO";
} # fine if (!numlin_query($contr_txt))
else {
$salva_contr = esegui_query("select * from $tablecontratti where numero = '".$$num_doc_cond."' and tipo = 'dir' ");
if (numlin_query($salva_contr)) {
if ($silenzio == "NO") $continua = "NO";
} # fine if (numlin_query($salva_contr))
else {
$doc_usati[$$num_doc_cond] = 1;
$num_campo_doc_cond++;
$campi_form_doc_condizioni .= "\"".$num_campo_doc_cond."\" => \"".$$num_doc_cond."\",";
$chiedi_campi_form_doc_condizioni .= "\"".$num_campo_doc_cond."\" => \"".mex($$chiedi_num_doc_cond,$pag)."\",";
} # fine else if (numlin_query($salva_contr))
} # fine else if (!numlin_query($contr_txt))
} # fine else if (controlla_num_pos($num_doc_email_conferma) == "NO")
} # fine if (strcmp($$num_doc_cond,"") and !$doc_usati[$$num_doc_cond])
} # fine for $num1
if ($campi_form_doc_condizioni) $campi_form_doc_condizioni = substr($campi_form_doc_condizioni,0,-1);
if ($chiedi_campi_form_doc_condizioni) $chiedi_campi_form_doc_condizioni = substr($chiedi_campi_form_doc_condizioni,0,-1);
} # fine else if (controlla_num_pos($num_campi_doc_cond) == "NO")
} # fine if ($continua != "NO")
if ($continua != "NO") {
$rigatariffe = esegui_query("select * from $tablenometariffe_modello where idntariffe = 1 ");
$numero_tariffe = risul_query($rigatariffe,0,'nomecostoagg');
$tariffe_mostra = "";
$nomi_tariffe_imposte = "";
for ($numtariffa = 1 ; $numtariffa <= $numero_tariffe ; $numtariffa++) {
$tariffa = "tariffa".$numtariffa;
global $$tariffa;
if ($$tariffa == "SI") $tariffe_mostra .= " $numtariffa => \"".mex("SI",$pag)."\",";
$nome_tariffa_imposto = "nome_tariffa_imposto".$numtariffa;
global $$nome_tariffa_imposto;
$$nome_tariffa_imposto = formatta_input_var_x_file($$nome_tariffa_imposto);
if ($$nome_tariffa_imposto) $nomi_tariffe_imposte .= "$numtariffa => \"".$$nome_tariffa_imposto."\",";
} # fine for $numtariffa
if ($tariffe_mostra) $tariffe_mostra = substr($tariffe_mostra,0,-1);
if ($nomi_tariffe_imposte) $nomi_tariffe_imposte = substr($nomi_tariffe_imposte,0,-1);
unset($nomi_costi_imposti);
unset($costi_attivati);
unset($nomi_categorie_imposte);
unset($nomi_cat_presenti);
for ($numca = 0 ; $numca < $dati_ca['num'] ; $numca++) {
global ${"attiva_costo".$dati_ca[$numca]['id']};
if (${"attiva_costo".$dati_ca[$numca]['id']} == "SI") {
$costi_attivati .= " ".$dati_ca[$numca]['id']." => \"".mex("SI",$pag)."\",";
$nome_costo_imposto = "nome_costo_imposto".$dati_ca[$numca]['id'];
global $$nome_costo_imposto;
$$nome_costo_imposto = formatta_input_var_x_file($$nome_costo_imposto);
if ($$nome_costo_imposto) $nomi_costi_imposti .= $dati_ca[$numca]['id']." => \"".$$nome_costo_imposto."\",";
} # fine if (${"attiva_costo".$dati_ca[$numca]['id']} == "SI")
if ($dati_ca[$numca]['combina'] == "s" and !$nomi_cat_presenti[$dati_ca[$numca]['categoria']]) {
$nome_cat_imp = "nome_cat_imp".$dati_ca[$numca]['id'];
global $$nome_cat_imp;
$$nome_cat_imp = formatta_input_var_x_file($$nome_cat_imp);
if ($$nome_cat_imp) {
$nomi_cat_presenti[$dati_ca[$numca]['categoria']] = 1;
$categoria = formatta_input_var_x_file($dati_ca[$numca]['categoria']);
$nomi_categorie_imposte .= "\"$categoria\" => \"".$$nome_cat_imp."\",";
} # fine if ($$nome_cat_imp)
} # fine if ($dati_ca[$numca]['combina'] == "s")
} # fine for $numca
if ($nomi_costi_imposti) $nomi_costi_imposti = substr($nomi_costi_imposti,0,-1);
if ($costi_attivati) $costi_attivati = substr($costi_attivati,0,-1);
if ($nomi_categorie_imposte) $nomi_categorie_imposte = substr($nomi_categorie_imposte,0,-1);
$motivazioni_regola1 = "";
for ($num1 = 0 ; $num1 < $num_motivazioni ; $num1 = $num1 + 1) {
$var_motivazione = "var_mot_".$num1;
global $$var_motivazione;
$motivazione = $$var_motivazione;
if ($motivazione) {
$motivazione = formatta_input_var_x_file($motivazione);
$motivazioni_regola1 .= "\"$motivazione\" => \"".mex("SI",$pag)."\",";
} # fine if ($motivazione)
} # fine for $num1
if ($motivazioni_regola1) $motivazioni_regola1 = substr($motivazioni_regola1,0,-1);
if ($utente_messaggio == "tutti") $utente_messaggio = mex("tutti",$pag);
$metodi_pagamento_da_chiedere = "";
$nomi_metodi_pagamento_imposti = "";
$metodi_pagamento = esegui_query("select valpersonalizza from $tablepersonalizza where idpersonalizza = 'metodi_pagamento' and idutente = '1'");
$metodi_pagamento = risul_query($metodi_pagamento,0,'valpersonalizza');
$metodi_pagamento = explode(",",$metodi_pagamento);
for ($num1 = 0 ; $num1 < count($metodi_pagamento) ; $num1++) $esiste_met_paga[$metodi_pagamento[$num1]] = "SI";
for ($num1 = 0 ; $num1 < $num_metodi_pagamento ; $num1++) {
$var_met_paga = "var_met_paga_".$num1;
$nome_met_paga_imposto = "nome_met_paga_imposto_".$num1;
global $$var_met_paga,$$nome_met_paga_imposto;
$met_paga_compara = $$var_met_paga;
if (@get_magic_quotes_gpc()) $met_paga_compara = stripslashes($met_paga_compara);
else $met_paga_compara = $$var_met_paga;
if ($$var_met_paga and $esiste_met_paga[$met_paga_compara]) {
$$var_met_paga = formatta_input_var_x_file($$var_met_paga);
$$nome_met_paga_imposto = formatta_input_var_x_file($$nome_met_paga_imposto);
$metodi_pagamento_da_chiedere .= "\"".$$var_met_paga."\" => \"".mex("SI",$pag)."\",";
if ($$nome_met_paga_imposto) $nomi_metodi_pagamento_imposti .= "\"".$$var_met_paga."\" => \"".$$nome_met_paga_imposto."\",";
} # fine ($$var_met_paga and $esiste_met_paga[$$var_met_paga])
} # fine for $num1
if ($metodi_pagamento_da_chiedere) $metodi_pagamento_da_chiedere = substr($metodi_pagamento_da_chiedere,0,-1);
if ($nomi_metodi_pagamento_imposti) $nomi_metodi_pagamento_imposti = substr($nomi_metodi_pagamento_imposti,0,-1);
$campi_form_personalizzati = "";
$chiedi_campi_form_personalizzati = "";
$num_campo_pers = 0;
for ($num1 = 1 ; $num1 <= $num_campi_pers ; $num1++) {
$campo_pers = "campo_pers".$num1;
$chiedi_campo_pers = "chiedi_campo_pers".$num1;
global $$campo_pers,$$chiedi_campo_pers;
if (get_magic_quotes_gpc()) $$campo_pers = stripslashes($$campo_pers);
$$campo_pers = formatta_input_var_x_file($$campo_pers);
if ($$campo_pers and ($$chiedi_campo_pers == "SI" or $$chiedi_campo_pers == "opzionale")) {
$num_campo_pers++;
$campi_form_personalizzati .= "\"".$num_campo_pers."\" => \"".$$campo_pers."\",";
$chiedi_campi_form_personalizzati .= "\"".$num_campo_pers."\" => \"".mex($$chiedi_campo_pers,$pag)."\",";
} # fine if ($$campo_pers and...
} # fine for $num1
if ($campi_form_personalizzati) $campi_form_personalizzati = substr($campi_form_personalizzati,0,-1);
if ($chiedi_campi_form_personalizzati) $chiedi_campi_form_personalizzati = substr($chiedi_campi_form_personalizzati,0,-1);
if (!$mostra_quadro_disp) {
$mostra_quadro_disponibilita = "NO";
$raggruppa_quadro_disponibilita_con_regola_2 = "NO";
$raggruppa_quadro_disponibilita_con_persone = "NO";
} # fine if (!$mostra_quadro_disp)
else {
$mostra_quadro_disponibilita = "SI";
if ($mostra_quadro_disp == "reg2") $raggruppa_quadro_disponibilita_con_regola_2 = "SI";
else $raggruppa_quadro_disponibilita_con_regola_2 = "NO";
if ($mostra_quadro_disp == "pers") $raggruppa_quadro_disponibilita_con_persone = "SI";
else $raggruppa_quadro_disponibilita_con_persone = "NO";
} # fine else if (!$mostra_quadro_disp)
if ($mostra_numero_liberi_quadro_disponibilita != "SI") $mostra_numero_liberi_quadro_disponibilita = "NO";
if ($allinea_disponibilita_con_arrivo != "SI") $allinea_disponibilita_con_arrivo = "NO";
if (substr($spostamento_orizzontale_calendario,0,1) == "+") $spostamento_orizzontale_calendario = substr($spostamento_orizzontale_calendario,1);
if (!strcmp($spostamento_orizzontale_calendario,"") or controlla_num($spostamento_orizzontale_calendario) == "NO") $spostamento_orizzontale_calendario = 2;
if (defined("C_MASCHERA_EMAIL") and C_MASCHERA_EMAIL != "") $maschera_envelope = C_MASCHERA_EMAIL;
if (C_RESTRIZIONI_DEMO_ADMIN == "SI") {
$indirizzo_email = C_EMAIL_DEMO_ADMIN;
$manda_copia_richiesta_email = "NO";
} # fine if (C_RESTRIZIONI_DEMO_ADMIN == "SI")
if ($file_css_frame == "http://") $file_css_frame = "";
if ($apri_nuova_finestra_da_frame != "SI") $apri_nuova_finestra_da_frame = "NO";
if (!$larghezza_finestra_da_frame or controlla_num_pos($larghezza_finestra_da_frame) == "NO") $larghezza_finestra_da_frame = "700";
if (!$altezza_finestra_da_frame or controlla_num_pos($altezza_finestra_da_frame) == "NO") $altezza_finestra_da_frame = "620";
$num_colori = 0;
$extra_head_frame = "";
if (strcmp($tema_modello,"")) {
include("./includes/templates/temi_mod_disp.php");
$num_temi = count($template_theme_name);
for ($num1 = 1 ; $num1 <= $num_temi ; $num1++) {
if ($tema_modello == $template_theme_name[$num1]) {
$tema_trovato = 1;
$tema_sel = $num1;
} # fine if ($tema_modello == $template_theme_name[$num1])
} # fine for $num1
if ($tema_trovato) {
$prima_parte_html = $template_theme_html_pre[$tema_sel];
$ultima_parte_html = $template_theme_html_post[$tema_sel];
$extra_head_frame = $framed_mode_extra_head[$tema_sel];
$valori_tema = $template_theme_values[$tema_sel];
$num_valori = count($valori_tema);
for ($num1 = 1 ; $num1 <= $num_valori ; $num1++) {
global ${"valore_tema_".$num1};
${"valore_tema_".$num1} = formatta_input_var_x_file(${"valore_tema_".$num1});
$valore_sost = ${"valore_tema_".$num1};
if (!strcmp($valore_sost,"")) $valore_sost = $valori_tema[$num1]['null'];
elseif (strcmp($valori_tema[$num1]['replace'],"")) $valore_sost = str_replace("[theme_value_$num1]",$valore_sost,$valori_tema[$num1]['replace']);
$prima_parte_html = str_replace("[theme_value_$num1]",$valore_sost,$prima_parte_html);
$ultima_parte_html = str_replace("[theme_value_$num1]",$valore_sost,$ultima_parte_html);
$extra_head_frame = str_replace("[theme_value_$num1]",$valore_sost,$extra_head_frame);
} # fine for $num1
$colori_tema = $template_theme_colors[$tema_sel];
$num_colori = count($colori_tema);
for ($num1 = 1 ; $num1 <= $num_colori ; $num1++) {
global ${"colore_tema_".$num1};
if (!preg_match("/^#[0-9a-f]{3,3}$/i",${"colore_tema_".$num1}) and !preg_match("/^#[0-9a-f]{6,6}$/i",${"colore_tema_".$num1})) ${"colore_tema_".$num1} = $colori_tema[$num1]['default'];
$prima_parte_html = str_replace("[theme_color_$num1]",${"colore_tema_".$num1},$prima_parte_html);
$ultima_parte_html = str_replace("[theme_color_$num1]",${"colore_tema_".$num1},$ultima_parte_html);
$extra_head_frame = str_replace("[theme_color_$num1]",${"colore_tema_".$num1},$extra_head_frame);
} # fine for $num1
} # fine if ($tema_trovato)
else $tema_modello = "";
} # fine if (strcmp($tema_modello,""))
if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH) {
$HOTELD_DB_TYPE = "";
$HOTELD_DB_NAME = "";
$HOTELD_DB_HOST = "";
$HOTELD_DB_PORT = "";
$HOTELD_DB_USER = "";
$HOTELD_DB_PASS = "";
$HOTELD_TAB_PRE = "";
include(C_EXT_DB_DATA_PATH);
if ($HOTELD_DB_TYPE) $M_PHPR_DB_TYPE = "";
if ($HOTELD_DB_NAME) $M_PHPR_DB_NAME = "";
if ($HOTELD_DB_HOST) $M_PHPR_DB_HOST = "";
if (strcmp($HOTELD_DB_PORT,"")) $M_PHPR_DB_PORT = "";
if ($HOTELD_DB_USER) $M_PHPR_DB_USER = "";
if (strcmp($HOTELD_DB_PASS,"")) $M_PHPR_DB_PASS = "";
if ($HOTELD_TAB_PRE) $M_PHPR_TAB_PRE = "";
} # fine if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH)
$M_PHPR_DB_TYPE = formatta_input_var_x_file($M_PHPR_DB_TYPE);
$M_PHPR_DB_NAME = formatta_input_var_x_file($M_PHPR_DB_NAME);
$M_PHPR_DB_HOST = formatta_input_var_x_file($M_PHPR_DB_HOST);
$M_PHPR_DB_PORT = formatta_input_var_x_file($M_PHPR_DB_PORT);
$M_PHPR_DB_USER = formatta_input_var_x_file($M_PHPR_DB_USER);
$M_PHPR_DB_PASS = formatta_input_var_x_file($M_PHPR_DB_PASS);
$M_PHPR_LOAD_EXT = formatta_input_var_x_file($M_PHPR_LOAD_EXT);
$M_PHPR_TAB_PRE = formatta_input_var_x_file($M_PHPR_TAB_PRE);
$m_stile_soldi = formatta_input_var_x_file($m_stile_soldi);
$m_stile_data = formatta_input_var_x_file($m_stile_data);
$anteponi_nome_valuta = formatta_input_var_x_file($anteponi_nome_valuta);
$parola_appartamenti = formatta_input_var_x_file($parola_appartamenti);
$parola_appartamento = formatta_input_var_x_file($parola_appartamento);
$chiedi_num_persone = formatta_input_var_x_file($chiedi_num_persone);
$aggiungi_costi_fissi = formatta_input_var_x_file($aggiungi_costi_fissi);
$mostra_costi_aggiuntivi = formatta_input_var_x_file($mostra_costi_aggiuntivi);
$assegna_con_regola2 = formatta_input_var_x_file($assegna_con_regola2);
$mostra_frase_alternativa_regola1 = formatta_input_var_x_file($mostra_frase_alternativa_regola1);
$mostra_caparra = formatta_input_var_x_file($mostra_caparra);
$mostra_richiesta_via_mail = formatta_input_var_x_file($mostra_richiesta_via_mail);
$indirizzo_email = formatta_input_var_x_file($indirizzo_email);
$manda_copia_richiesta_email = formatta_input_var_x_file($manda_copia_richiesta_email);
$maschera_envelope = formatta_input_var_x_file($maschera_envelope);
$mostra_giorni_pieni = formatta_input_var_x_file($mostra_giorni_pieni);
$orig_prenota = formatta_input_var_x_file($orig_prenota);
$mostra_bottone_paypal = formatta_input_var_x_file($mostra_bottone_paypal);
$nome_modello_paypal = formatta_input_var_x_file($nome_modello_paypal);
$colore_sfondo_quadro_disponibilita = formatta_input_var_x_file($colore_sfondo_quadro_disponibilita);
$colore_inizio_settimana_quadro_disponibilita = formatta_input_var_x_file($colore_inizio_settimana_quadro_disponibilita);
$colore_libero_quadro_disponibilita = formatta_input_var_x_file($colore_libero_quadro_disponibilita);
$colore_occupato_quadro_disponibilita = formatta_input_var_x_file($colore_occupato_quadro_disponibilita);
$apertura_font_quadro_disponibilita = formatta_input_var_x_file($apertura_font_quadro_disponibilita);
$chiusura_font_quadro_disponibilita = formatta_input_var_x_file($chiusura_font_quadro_disponibilita);
$apertura_tag_font = formatta_input_var_x_file($apertura_tag_font);
$chiusura_tag_font = formatta_input_var_x_file($chiusura_tag_font);
$apertura_tag_font_rosse = formatta_input_var_x_file($apertura_tag_font_rosse);
$chiusura_tag_font_rosse = formatta_input_var_x_file($chiusura_tag_font_rosse);
$stile_tabella_prenotazione = formatta_input_var_x_file($stile_tabella_prenotazione);
$mostra_calendario_scelta_date = formatta_input_var_x_file($mostra_calendario_scelta_date);
$stile_riquadro_calendario = formatta_input_var_x_file($stile_riquadro_calendario);
$stile_tabella_calendario = formatta_input_var_x_file($stile_tabella_calendario);
$stile_bottoni_calendario = formatta_input_var_x_file($stile_bottoni_calendario);
$stile_bottone_apertura_calendario = formatta_input_var_x_file($stile_bottone_apertura_calendario);
$colore_data_attiva_calendario = formatta_input_var_x_file($colore_data_attiva_calendario);
$colore_data_selezionata_calendario = formatta_input_var_x_file($colore_data_selezionata_calendario);
$m_valuta_sing = formatta_input_var_x_file($m_valuta_sing);
$m_valuta_plur = formatta_input_var_x_file($m_valuta_plur);
$frase_alternativa_regola1 = formatta_input_var_x_file($frase_alternativa_regola1);
$file_css_frame = formatta_input_var_x_file($file_css_frame);
$extra_head_frame = formatta_input_var_x_file($extra_head_frame);
if (get_magic_quotes_gpc()) $prima_parte_html = stripslashes($prima_parte_html);
$prima_parte_html = str_replace("<?","ERROR",$prima_parte_html);
$prima_parte_html = str_replace("?>","ERROR",$prima_parte_html);
$prima_parte_html = str_replace("<%","ERROR",$prima_parte_html);
$prima_parte_html = str_replace("%>","ERROR",$prima_parte_html);
$prima_parte_html = preg_replace("/<script +language *= *\"?php\"? *>/i","ERROR",$prima_parte_html);
if (get_magic_quotes_gpc()) $ultima_parte_html = stripslashes($ultima_parte_html);
$ultima_parte_html = str_replace("<?","ERROR",$ultima_parte_html);
$ultima_parte_html = str_replace("?>","ERROR",$ultima_parte_html);
$ultima_parte_html = str_replace("<%","ERROR",$ultima_parte_html);
$ultima_parte_html = str_replace("%>","ERROR",$ultima_parte_html);
$ultima_parte_html = preg_replace("/<script +language *= *\"?php\"? *>/i","ERROR",$ultima_parte_html);
# FRASI
if ($cambia_frasi == "SI" or $modello_esistente == "SI") {
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) {
global ${$fr_frase[$num_fr]};
${$fr_frase[$num_fr]} = formatta_input_var_x_file(${$fr_frase[$num_fr]});
} # fine for $num_fr
} # fine if ($cambia_frasi == "SI" or $modello_esistente == "SI")
else {
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) ${$fr_frase[$num_fr]} = mex2($frase[$num_fr],$pag,$lingua_modello);
} # fine else if ($cambia_frasi == "SI" or $modello_esistente == "SI")
$cost_percorso_a_dati = "";
if (function_exists("realpath")) {
if (realpath(C_DATA_PATH."/")) $cost_percorso_a_dati = realpath(C_DATA_PATH."/")."/";
} # fine if (function_exists("realpath"))
if ((string) $cost_percorso_a_dati == "") {
if (substr(C_DATA_PATH,0,1) == "/") $cost_percorso_a_dati = C_DATA_PATH;
else {
$dati_path = C_DATA_PATH;
if (substr($dati_path,0,2) == "./") $dati_path = substr($dati_path,1);
else $dati_path = "/".$dati_path;
if ($_SERVER["SCRIPT_FILENAME"]) $cost_percorso_a_dati = dirname($_SERVER["SCRIPT_FILENAME"]).$dati_path;
else {
if ($HTTP_SERVER_VARS["SCRIPT_FILENAME"]) $cost_percorso_a_dati = dirname($HTTP_SERVER_VARS["SCRIPT_FILENAME"]).$dati_path;
else {
if ($SCRIPT_FILENAME) $cost_percorso_a_dati = dirname($SCRIPT_FILENAME).$dati_path;
else $cost_percorso_a_dati = "./";
} # fine else if ($HTTP_SERVER_VARS["SCRIPT_FILENAME"])
} # fine else if ($_SERVER["SCRIPT_FILENAME"])
} # fine else if (substr(C_DATI_PATH,0,1) == "/")
} # fine if ((string) $cost_percorso_a_dati == "")
$nome_file = mex2("mdl_disponibilita",$pag,$lingua_modello).".php";
$file = @fopen("$percorso_cartella_modello/$nome_file","w+");
if ($file) {
flock($file,2);
fwrite($file,"<?php if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed']) { ?>$prima_parte_html
<!-- ".mex("FINE DELLA PRIMA PARTE DELL'HTML PERSONALE",$pag)." -->
<?php
} # fine if (!\$framed and !\$_GET['framed'] and !\$_POST['framed'])
# ".mex("INIZIO VARIABILI MODIFICABILI",$pag)." (".mex("modificare il valore sulla destra",$pag).")
# ".mex("Inserire in questa variabile il nome della pagina se \$PHP_SELF non è definita",$pag)."
\$".mex("var_nome_pagina",$pag)." = \"\";
\$".mex("var_anno",$pag)." = $anno_modello;
\$".mex("var_tipo_db",$pag)." = \"$M_PHPR_DB_TYPE\";
\$".mex("var_nome_db",$pag)." = \"$M_PHPR_DB_NAME\";
\$".mex("var_computer_db",$pag)." = \"$M_PHPR_DB_HOST\";
\$".mex("var_porta_db",$pag)." = \"$M_PHPR_DB_PORT\";
\$".mex("var_utente_db",$pag)." = \"$M_PHPR_DB_USER\";
\$".mex("var_password_db",$pag)." = \"$M_PHPR_DB_PASS\";
\$".mex("var_carica_estensione_db",$pag)." = \"".mex("$M_PHPR_LOAD_EXT",$pag)."\";
\$".mex("var_prefisso_tabelle_db",$pag)." = \"$M_PHPR_TAB_PRE\";
\$".mex("var_lingua_modello",$pag)." = \"$lingua_modello\";
\$".mex("var_stile_soldi",$pag)." = \"".mex("$m_stile_soldi",$pag)."\";
\$".mex("var_stile_data",$pag)." = \"".mex("$m_stile_data",$pag)."\";
\$".mex("var_anteponi_nome_valuta",$pag)." = \"".mex("$anteponi_nome_valuta",$pag)."\";
\$".mex("var_utente_liste",$pag)." = \"".mex("$utente_liste",$pag)."\";
\$".mex("var_estendi_ultima_data",$pag)." = \"".mex("$estendi_ultima_data",$pag)."\";
\$".mex("var_periodi_no_richieste",$pag)." = \"$sett_no_prenota\";
\$".mex("var_tariffe_mostra",$pag)." = array($tariffe_mostra);
\$".mex("var_nomi_tariffe_imposte",$pag)." = array($nomi_tariffe_imposte);
\$".mex("var_chiedi_numero_appartamenti_per_tipologia",$pag)." = \"".mex("$chiedi_num_app_tipologia",$pag)."\";
\$".mex("var_massimo_numero_appartamenti_per_tipologia",$pag)." = \"$max_num_app_tipologia\";
\$".mex("var_aggiungi_altre_tipologie",$pag)." = \"".mex("$aggiungi_tipologie",$pag)."\";
\$".mex("var_massimo_numero_altre_tipologie",$pag)." = \"$max_num_tipologie\";
\$".mex("var_chiedi_numero_persone",$pag)." = \"".mex("$chiedi_num_persone",$pag)."\";
\$".mex("var_massimo_numero_persone",$pag)." = \"$max_num_persone\";
\$".mex("var_costo_aggiungi_letti",$pag)." = \"$costo_aggiungi_letti\";
\$".mex("var_massimo_numero_letti_aggiuntivi",$pag)." = \"$max_num_aggiungi_letti\";
\$".mex("var_aggiungi_costi_fissi",$pag)." = \"".mex("$aggiungi_costi_fissi",$pag)."\";
\$".mex("var_chiedi_costi_aggiuntivi_di_pag_inserzione",$pag)." = \"".mex("$mostra_costi_aggiuntivi",$pag)."\";
\$".mex("var_numero_colonne_costi_aggiuntivi",$pag)." = \"$num_colonne_costi_agg\";
\$".mex("var_costi_aggiuntivi_mostra",$pag)." = array($costi_attivati);
\$".mex("var_nomi_costi_agg_imposti",$pag)." = array($nomi_costi_imposti);
\$".mex("var_categorie_costi_agg_imposte",$pag)." = array($nomi_categorie_imposte);
\$".mex("var_assegna_con_regola2",$pag)." = \"".mex("$assegna_con_regola2",$pag)."\";
\$".mex("var_considera_motivazioni_regola1",$pag)." = array($motivazioni_regola1);
\$".mex("var_mostra_frase_alternativa_regola1",$pag)." = \"".mex("$mostra_frase_alternativa_regola1",$pag)."\";
\$".mex("var_mostra_caparra",$pag)." = \"".mex("$mostra_caparra",$pag)."\";
\$".mex("var_mostra_richiesta_via_mail",$pag)." = \"".mex("$mostra_richiesta_via_mail",$pag)."\";
\$".mex("var_indirizzo_email",$pag)." = \"$indirizzo_email\";
\$".mex("var_manda_copia_richiesta_email",$pag)." = \"".mex("$manda_copia_richiesta_email",$pag)."\";
\$".mex("var_maschera_email",$pag)." = \"".mex("$maschera_envelope",$pag)."\";
\$".mex("var_mostra_giorni_pieni",$pag)." = \"".mex("$mostra_giorni_pieni",$pag)."\";
\$".mex("var_mostra_bottone_paypal",$pag)." = \"".mex("$mostra_bottone_paypal",$pag)."\";
\$".mex("var_nome_modello_paypal",$pag)." = \"".$nome_modello_paypal."\";
\$".mex("var_utente_messaggio",$pag)." = \"$utente_messaggio\";
\$".mex("var_origine_prenotazione",$pag)." = \"".$orig_prenota."\";
\$".mex("var_chiedi_cognome",$pag)." = \"".mex("$chiedi_cognome",$pag)."\";
\$".mex("var_chiedi_nome",$pag)." = \"".mex("$chiedi_nome",$pag)."\";
\$".mex("var_chiedi_email",$pag)." = \"".mex("$chiedi_email",$pag)."\";
\$".mex("var_chiedi_sesso",$pag)." = \"".mex("$chiedi_sesso",$pag)."\";
\$".mex("var_chiedi_datanascita",$pag)." = \"".mex("$chiedi_datanascita",$pag)."\";
\$".mex("var_chiedi_documento",$pag)." = \"".mex("$chiedi_documento",$pag)."\";
\$".mex("var_chiedi_nazione",$pag)." = \"".mex("$chiedi_nazione",$pag)."\";
\$".mex("var_chiedi_citta",$pag)." = \"".mex("$chiedi_citta",$pag)."\";
\$".mex("var_chiedi_regione",$pag)." = \"".mex("$chiedi_regione",$pag)."\";
\$".mex("var_chiedi_via",$pag)." = \"".mex("$chiedi_via",$pag)."\";
\$".mex("var_chiedi_numcivico",$pag)." = \"".mex("$chiedi_numcivico",$pag)."\";
\$".mex("var_chiedi_cap",$pag)." = \"".mex("$chiedi_cap",$pag)."\";
\$".mex("var_chiedi_telefono",$pag)." = \"".mex("$chiedi_telefono",$pag)."\";
\$".mex("var_chiedi_telefono2",$pag)." = \"".mex("$chiedi_telefono2",$pag)."\";
\$".mex("var_chiedi_telefono3",$pag)." = \"".mex("$chiedi_telefono3",$pag)."\";
\$".mex("var_chiedi_fax",$pag)." = \"".mex("$chiedi_fax",$pag)."\";
\$".mex("var_chiedi_commento",$pag)." = \"".mex("$chiedi_commento",$pag)."\";
\$".mex("var_chiedi_oracheckin",$pag)." = \"".mex("$chiedi_oracheckin",$pag)."\";
\$".mex("var_chiedi_metodopagamento",$pag)." = \"".mex("$chiedi_metodopagamento",$pag)."\";
\$".mex("var_metodi_pagamento_da_chiedere",$pag)." = array($metodi_pagamento_da_chiedere);
\$".mex("var_nomi_metodi_pagamento_imposti",$pag)." = array($nomi_metodi_pagamento_imposti);
\$".mex("var_campi_form_personalizzati",$pag)." = array($campi_form_personalizzati);
\$".mex("var_chiedi_campi_form_personalizzati",$pag)." = array($chiedi_campi_form_personalizzati);
\$".mex("var_campi_form_doc_condizioni",$pag)." = array($campi_form_doc_condizioni);
\$".mex("var_chiedi_campi_form_doc_condizioni",$pag)." = array($chiedi_campi_form_doc_condizioni);
\$".mex("var_mostra_quadro_disponibilita",$pag)." = \"".mex("$mostra_quadro_disponibilita",$pag)."\";
\$".mex("var_raggruppa_quadro_disponibilita_con_regola_2",$pag)." = \"".mex("$raggruppa_quadro_disponibilita_con_regola_2",$pag)."\";
\$".mex("var_raggruppa_quadro_disponibilita_con_persone",$pag)." = \"".mex("$raggruppa_quadro_disponibilita_con_persone",$pag)."\";
\$".mex("var_colore_sfondo_quadro_disponibilita",$pag)." = \"$colore_sfondo_quadro_disponibilita\";
\$".mex("var_colore_inizio_settimana_quadro_disponibilita",$pag)." = \"$colore_inizio_settimana_quadro_disponibilita\";
\$".mex("var_colore_libero_quadro_disponibilita",$pag)." = \"$colore_libero_quadro_disponibilita\";
\$".mex("var_colore_occupato_quadro_disponibilita",$pag)." = \"$colore_occupato_quadro_disponibilita\";
\$".mex("var_apertura_font_quadro_disponibilita",$pag)." = \"$apertura_font_quadro_disponibilita\";
\$".mex("var_chiusura_font_quadro_disponibilita",$pag)." = \"$chiusura_font_quadro_disponibilita\";
\$".mex("var_mostra_numero_liberi_quadro_disponibilita",$pag)." = \"".mex("$mostra_numero_liberi_quadro_disponibilita",$pag)."\";
\$".mex("var_allinea_disponibilita_con_arrivo",$pag)." = \"".mex("$allinea_disponibilita_con_arrivo",$pag)."\";
\$".mex("var_mostra_calendario_scelta_date",$pag)." = \"".mex("$mostra_calendario_scelta_date",$pag)."\";
\$".mex("var_stile_riquadro_calendario",$pag)." = \"$stile_riquadro_calendario\";
\$".mex("var_stile_tabella_calendario",$pag)." = \"$stile_tabella_calendario\";
\$".mex("var_stile_bottoni_calendario",$pag)." = \"$stile_bottoni_calendario\";
\$".mex("var_stile_bottone_apertura_calendario",$pag)." = \"$stile_bottone_apertura_calendario\";
\$".mex("var_spostamento_orizzontale_calendario",$pag)." = \"$spostamento_orizzontale_calendario\";
\$".mex("var_colore_data_attiva_calendario",$pag)." = \"$colore_data_attiva_calendario\";
\$".mex("var_colore_data_selezionata_calendario",$pag)." = \"$colore_data_selezionata_calendario\";
\$".mex("var_apertura_tag_font",$pag)." = \"$apertura_tag_font\";
\$".mex("var_chiusura_tag_font",$pag)." = \"$chiusura_tag_font\";
\$".mex("var_apertura_tag_font_rosse",$pag)." = \"$apertura_tag_font_rosse\";
\$".mex("var_chiusura_tag_font_rosse",$pag)." = \"$chiusura_tag_font_rosse\";
\$".mex("var_stile_tabella_prenotazione",$pag)." = \"$stile_tabella_prenotazione\";
\$".mex("var_file_css_frame",$pag)." = \"$file_css_frame\";
\$".mex("var_apri_nuova_finestra_da_frame",$pag)." = \"".mex("$apri_nuova_finestra_da_frame",$pag)."\";
\$".mex("var_larghezza_finestra_da_frame",$pag)." = \"$larghezza_finestra_da_frame\";
\$".mex("var_altezza_finestra_da_frame",$pag)." = \"$altezza_finestra_da_frame\";
\$".mex("var_tema_modello",$pag)." = \"$tema_modello\";
");
for ($num1 = 1 ; $num1 <= $num_colori ; $num1++) fwrite($file,"\$".mex("var_colore_tema",$pag)."_$num1 = \"".${"colore_tema_".$num1}."\";
");
for ($num1 = 1 ; $num1 <= $num_valori ; $num1++) fwrite($file,"\$".mex("var_valore_tema",$pag)."_$num1 = \"".${"valore_tema_".$num1}."\";
");
fwrite($file,"
# ".mex("FRASI",$pag)."
\$".mex("var_fr_Valuta_sing",$pag)." = \"".$m_valuta_sing."\";
\$".mex("var_fr_Valuta_plur",$pag)." = \"".$m_valuta_plur."\";
\$".mex("var_fr_appartamenti",$pag)." = \"".$parola_appartamenti."\";
\$".mex("var_fr_appartamento",$pag)." = \"".$parola_appartamento."\";
\$".mex("var_fr_alternativa_regola1",$pag)." = \"".$frase_alternativa_regola1."\";
");
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) fwrite($file,"\$".mex("var_".$fr_frase[$num_fr],$pag)." = \"".${$fr_frase[$num_fr]}."\";
");
fwrite($file,"
# ".mex("FRASI EMAIL",$pag)."
\$".mex("var_fre_Email",$pag)." = \"".mex("Email",$pag)."\";
\$".mex("var_fre_Nome",$pag)." = \"".mex("Nome",$pag)."\";
\$".mex("var_fre_Commento",$pag)." = \"".mex("Commento",$pag)."\";
\$".mex("var_fre_Periodo",$pag)." = \"".mex("Periodo",$pag)."\";
\$".mex("var_fre_dal",$pag)." = \"".mex("dal",$pag)."\";
\$".mex("var_fre_al",$pag)." = \"".mex("al",$pag)."\";
\$".mex("var_fre_Tariffa",$pag)." = \"".mex("Tariffa",$pag)."\";
\$".mex("var_fre_Costi_aggiuntivi",$pag)." = \"".mex("Costi aggiuntivi",$pag)."\";
\$".mex("var_fre_sett",$pag)." = \"".mex("$parola_settimane",$pag)."\";
\$".mex("var_fre_Numero_di_appartamenti",$pag)." = \"".mex("Numero di appartamenti",'unit.php')."\";
\$".mex("var_fre_Prezzo_totale",$pag)." = \"".mex("Prezzo totale",$pag)."\";
\$".mex("var_fre_Riferimento",$pag)." = \"".mex("Riferimento",$pag)."\";
\$".mex("var_fre_Richesta_prenotazione",$pag)." = \"".mex("Richesta prenotazione",$pag)."\";
\$".mex("var_fre_Caparra",$pag)." = \"".mex("Caparra",$pag)."\";
\$".mex("var_fre_Persone",$pag)." = \"".mex("Persone",$pag)."\";
\$".mex("var_fre_Cognome",$pag)." = \"".mex("Cognome",$pag)."\";
\$".mex("var_fre_Genere",$pag)." = \"".mex("Genere",$pag)."\";
\$".mex("var_fre_Data_di_nascita",$pag)." = \"".mex("Data di nascita",$pag)."\";
\$".mex("var_fre_Documento",$pag)." = \"".mex("Documento",$pag)."\";
\$".mex("var_fre_Nazione",$pag)." = \"".mex("Nazione",$pag)."\";
\$".mex("var_fre_Citta",$pag)." = \"".mex("Città",$pag)."\";
\$".mex("var_fre_Regione",$pag)." = \"".mex("Regione",$pag)."\";
\$".mex("var_fre_Via",$pag)." = \"".mex("Via",$pag)."\";
\$".mex("var_fre_Numero_civico",$pag)." = \"".mex("Numero civico",$pag)."\";
\$".mex("var_fre_Codice_postale",$pag)." = \"".mex("Codice postale",$pag)."\";
\$".mex("var_fre_Telefono",$pag)." = \"".mex("Telefono",$pag)."\";
\$".mex("var_fre_Secondo_telefono",$pag)." = \"".mex("Secondo telefono",$pag)."\";
\$".mex("var_fre_Terzo_telefono",$pag)." = \"".mex("Terzo telefono",$pag)."\";
\$".mex("var_fre_Fax",$pag)." = \"".mex("Fax",$pag)."\";
\$".mex("var_fre_Orario_stimato_di_arrivo",$pag)." = \"".mex("Orario stimato di arrivo",$pag)."\";
\$".mex("var_fre_Metodo_di_pagamento_della_caparra",$pag)." = \"".mex("Metodo di pagamento della caparra",$pag)."\";
# ".mex("PERIODI NEI MENU",$pag)."
\$".mex("var_periodi_menu",$pag)." = \"$date_in_menu\";
\$d_names = \"$d_names\";
\$m_names = \"$m_names\";
# ".mex("FINE VARIABILI MODIFICABILI",$pag)."
############################################################################
### ".mex("NON MODIFICARE NIENTE A PARTIRE DA QUI",$pag)."
############################################################################
error_reporting(E_ALL ^ E_NOTICE);
\$PHPR_LOG = \"NO\";
\$pag = \$".mex("var_nome_pagina",$pag).";
if (!\$pag) {
if (@\$PHP_SELF or @\$_SERVER[\"PHP_SELF\"] or @\$HTTP_SERVER_VARS[\"PHP_SELF\"]) {
if (@\$_SERVER[\"PHP_SELF\"]) \$PHP_SELF = \$_SERVER[\"PHP_SELF\"];
else if (@\$HTTP_SERVER_VARS[\"PHP_SELF\"]) \$PHP_SELF = \$HTTP_SERVER_VARS[\"PHP_SELF\"];
\$pag = explode(\"/\",\$PHP_SELF);
\$pag = \$pag[(count(\$pag)-1)];
} # fine if (@\$PHP_SELF or @\$_SERVER[\"PHP_SELF\"] or...
else echo \"".mex("La variabile \\\$PHP_SELF non è definita, si dovrà editare a mano questa pagina per inserirne il nome",$pag).".<br>\";
} # fine if (!\$pag)
define(C_PERCORSO_A_DATI,\"$cost_percorso_a_dati\");
\$anno = \$".mex("var_anno",$pag).";
\$PHPR_DB_TYPE = \$".mex("var_tipo_db",$pag).";
\$PHPR_DB_NAME = \$".mex("var_nome_db",$pag).";
\$PHPR_DB_HOST = \$".mex("var_computer_db",$pag).";
\$PHPR_DB_PORT = \$".mex("var_porta_db",$pag).";
\$PHPR_DB_USER = \$".mex("var_utente_db",$pag).";
\$PHPR_DB_PASS = \$".mex("var_password_db",$pag).";
if (strtoupper(\$".mex("var_carica_estensione_db",$pag).") == \"".mex("SI",$pag)."\") \$PHPR_LOAD_EXT = \"SI\";
else \$PHPR_LOAD_EXT = \"NO\";
\$PHPR_TAB_PRE = \$".mex("var_prefisso_tabelle_db",$pag).";
");
if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH) fwrite($file,"\$HOTELD_DB_TYPE = \"\";
\$HOTELD_DB_NAME = \"\";
\$HOTELD_DB_HOST = \"\";
\$HOTELD_DB_PORT = \"\";
\$HOTELD_DB_USER = \"\";
\$HOTELD_DB_PASS = \"\";
\$HOTELD_TAB_PRE = \"\";
require('".C_EXT_DB_DATA_PATH."');
if (\$HOTELD_DB_TYPE) \$PHPR_DB_TYPE = \$HOTELD_DB_TYPE;
if (\$HOTELD_DB_NAME) \$PHPR_DB_NAME = \$HOTELD_DB_NAME;
if (\$HOTELD_DB_HOST) \$PHPR_DB_HOST = \$HOTELD_DB_HOST;
if (strcmp(\$HOTELD_DB_PORT,\"\")) \$PHPR_DB_PORT = \$HOTELD_DB_PORT;
if (\$HOTELD_DB_USER) \$PHPR_DB_USER = \$HOTELD_DB_USER;
if (strcmp(\$HOTELD_DB_PASS,\"\")) \$PHPR_DB_PASS = \$HOTELD_DB_PASS;
if (\$HOTELD_TAB_PRE) \$PHPR_TAB_PRE = \$HOTELD_TAB_PRE;
");
fwrite($file,"\$lingua_modello = \$".mex("var_lingua_modello",$pag).";
if (\$".mex("var_stile_soldi",$pag)." == \"".mex("europa",$pag)."\") \$stile_soldi = \"europa\";
if (\$".mex("var_stile_soldi",$pag)." == \"".mex("usa",$pag)."\") \$stile_soldi = \"usa\";
if (\$".mex("var_stile_data",$pag)." == \"".mex("europa",$pag)."\") \$stile_data = \"europa\";
if (\$".mex("var_stile_data",$pag)." == \"".mex("usa",$pag)."\") \$stile_data = \"usa\";
if (strtoupper(\$".mex("var_anteponi_nome_valuta",$pag).") == \"".mex("SI",$pag)."\") \$anteponi_nome_valuta = \"SI\";
else \$anteponi_nome_valuta = \"NO\";
\$utente_liste = \$".mex("var_utente_liste",$pag).";
if (strtoupper(\$".mex("var_estendi_ultima_data",$pag).") == \"".mex("SI",$pag)."\") \$estendi_ultima_data = \"SI\";
else \$estendi_ultima_data = \"NO\";
\$sett_no_prenota = \$".mex("var_periodi_no_richieste",$pag).";
unset(\$tariffe_mostra);
reset (\$".mex("var_tariffe_mostra",$pag).");
while (list (\$key, \$val) = each (\$".mex("var_tariffe_mostra",$pag).")) {
if (strtoupper(\$val) == \"".mex("SI",$pag)."\") \$tariffe_mostra[\$key] = \"SI\";
if (strtoupper(\$val) == \"".mex("NO",$pag)."\") \$tariffe_mostra[\$key] = \"NO\";
} # fine while
\$n_tariffe_imposte = \$".mex("var_nomi_tariffe_imposte",$pag).";
if (strtoupper(\$".mex("var_chiedi_numero_appartamenti_per_tipologia",$pag).") == \"".mex("SI",$pag)."\") \$chiedi_num_app_tipologia = \"SI\";
else \$chiedi_num_app_tipologia = \"NO\";
\$max_num_app_tipologia = \$".mex("var_massimo_numero_appartamenti_per_tipologia",$pag).";
if (strtoupper(\$".mex("var_aggiungi_altre_tipologie",$pag).") == \"".mex("SI",$pag)."\") \$aggiungi_tipologie = \"SI\";
else \$aggiungi_tipologie = \"NO\";
\$max_num_tipologie = \$".mex("var_massimo_numero_altre_tipologie",$pag).";
if (strtoupper(\$".mex("var_chiedi_numero_persone",$pag).") == \"".mex("SI",$pag)."\") \$chiedi_num_persone = \"SI\";
else \$chiedi_num_persone = \"NO\";
\$max_num_persone = \$".mex("var_massimo_numero_persone",$pag).";
\$costo_aggiungi_letti = \$".mex("var_costo_aggiungi_letti",$pag).";
\$max_num_aggiungi_letti = \$".mex("var_massimo_numero_letti_aggiuntivi",$pag).";
if (strtoupper(\$".mex("var_chiedi_costi_aggiuntivi_di_pag_inserzione",$pag).") == \"".mex("SI",$pag)."\") \$mostra_costi_aggiuntivi = \"SI\";
else \$mostra_costi_aggiuntivi = \"NO\";
\$num_colonne_costi_agg = \$".mex("var_numero_colonne_costi_aggiuntivi",$pag).";
if (strtoupper(\$".mex("var_aggiungi_costi_fissi",$pag).") == \"".mex("SI",$pag)."\") \$aggiungi_costi_fissi = \"SI\";
else \$aggiungi_costi_fissi = \"NO\";
unset(\$costi_agg_mostra);
reset (\$".mex("var_costi_aggiuntivi_mostra",$pag).");
while (list (\$key, \$val) = each (\$".mex("var_costi_aggiuntivi_mostra",$pag).")) {
if (strtoupper(\$val) == \"".mex("SI",$pag)."\") \$costi_agg_mostra[\$key] = \"SI\";
if (strtoupper(\$val) == \"".mex("NO",$pag)."\") \$costi_agg_mostra[\$key] = \"NO\";
} # fine while
\$n_costi_agg_imposti = \$".mex("var_nomi_costi_agg_imposti",$pag).";
\$cat_costi_agg_imposte = \$".mex("var_categorie_costi_agg_imposte",$pag).";
if (strtoupper(\$".mex("var_assegna_con_regola2",$pag).") == \"".mex("SI",$pag)."\") \$assegna_con_regola2 = \"SI\";
else \$assegna_con_regola2 = \"NO\";
unset(\$motivazioni_regola1);
reset (\$".mex("var_considera_motivazioni_regola1",$pag).");
while (list (\$key, \$val) = each (\$".mex("var_considera_motivazioni_regola1",$pag).")) {
if (strtoupper(\$val) == \"".mex("SI",$pag)."\") \$motivazioni_regola1[\$key] = \"SI\";
if (strtoupper(\$val) == \"".mex("NO",$pag)."\") \$motivazioni_regola1[\$key] = \"NO\";
} # fine while
if (strtoupper(\$".mex("var_mostra_frase_alternativa_regola1",$pag).") == \"".mex("SI",$pag)."\") \$mostra_frase_alternativa_regola1 = \"SI\";
else \$mostra_frase_alternativa_regola1 = \"NO\";
if (strtoupper(\$".mex("var_mostra_caparra",$pag).") == \"".mex("SI",$pag)."\") \$mostra_caparra = \"SI\";
else \$mostra_caparra = \"NO\";
if (strtoupper(\$".mex("var_mostra_richiesta_via_mail",$pag).") == \"".mex("SI",$pag)."\") \$mostra_richiesta_via_mail = \"SI\";
else \$mostra_richiesta_via_mail = \"NO\";
\$indirizzo_email = \$".mex("var_indirizzo_email",$pag).";
if (strtoupper(\$".mex("var_manda_copia_richiesta_email",$pag).") == \"".mex("SI",$pag)."\") \$manda_copia_richiesta_email = \"SI\";
else \$manda_copia_richiesta_email = \"NO\";
if (strtoupper(\$".mex("var_maschera_email",$pag).") == \"".mex("SI",$pag)."\") \$maschera_envelope = \"SI\";
else \$maschera_envelope = \"NO\";
if (strtoupper(\$".mex("var_mostra_giorni_pieni",$pag).") == \"".mex("SI",$pag)."\") \$mostra_giorni_pieni = \"SI\";
else \$mostra_giorni_pieni = \"NO\";
if (strtoupper(\$".mex("var_mostra_bottone_paypal",$pag).") == \"".mex("SI",$pag)."\") \$mostra_bottone_paypal = \"SI\";
else \$mostra_bottone_paypal = \"NO\";
\$nome_modello_paypal = \$".mex("var_nome_modello_paypal",$pag).";
\$utente_messaggio = \$".mex("var_utente_messaggio",$pag).";
if (strtolower(\$utente_messaggio) == strtolower(\"".mex("tutti",$pag)."\")) \$utente_messaggio = \"tutti\";
\$origine_prenotazione = \$".mex("var_origine_prenotazione",$pag).";
\$chiedi_cognome = \$".mex("var_chiedi_cognome",$pag).";
if (strtoupper(\$chiedi_cognome) == \"".mex("SI",$pag)."\") \$chiedi_cognome = \"SI\";
if (strtoupper(\$chiedi_cognome) == \"".mex("NO",$pag)."\") \$chiedi_cognome = \"NO\";
\$chiedi_nome = \$".mex("var_chiedi_nome",$pag).";
if (strtoupper(\$chiedi_nome) == \"".mex("SI",$pag)."\") \$chiedi_nome = \"SI\";
if (strtoupper(\$chiedi_nome) == \"".mex("NO",$pag)."\") \$chiedi_nome = \"NO\";
\$chiedi_email = \$".mex("var_chiedi_email",$pag).";
if (strtoupper(\$chiedi_email) == \"".mex("SI",$pag)."\") \$chiedi_email = \"SI\";
if (strtoupper(\$chiedi_email) == \"".mex("NO",$pag)."\") \$chiedi_email = \"NO\";
\$chiedi_sesso = \$".mex("var_chiedi_sesso",$pag).";
if (strtoupper(\$chiedi_sesso) == \"".mex("SI",$pag)."\") \$chiedi_sesso = \"SI\";
if (strtoupper(\$chiedi_sesso) == \"".mex("NO",$pag)."\") \$chiedi_sesso = \"NO\";
\$chiedi_datanascita = \$".mex("var_chiedi_datanascita",$pag).";
if (strtoupper(\$chiedi_datanascita) == \"".mex("SI",$pag)."\") \$chiedi_datanascita = \"SI\";
if (strtoupper(\$chiedi_datanascita) == \"".mex("NO",$pag)."\") \$chiedi_datanascita = \"NO\";
\$chiedi_documento = \$".mex("var_chiedi_documento",$pag).";
if (strtoupper(\$chiedi_documento) == \"".mex("SI",$pag)."\") \$chiedi_documento = \"SI\";
if (strtoupper(\$chiedi_documento) == \"".mex("NO",$pag)."\") \$chiedi_documento = \"NO\";
\$chiedi_nazione = \$".mex("var_chiedi_nazione",$pag).";
if (strtoupper(\$chiedi_nazione) == \"".mex("SI",$pag)."\") \$chiedi_nazione = \"SI\";
if (strtoupper(\$chiedi_nazione) == \"".mex("NO",$pag)."\") \$chiedi_nazione = \"NO\";
\$chiedi_citta = \$".mex("var_chiedi_citta",$pag).";
if (strtoupper(\$chiedi_citta) == \"".mex("SI",$pag)."\") \$chiedi_citta = \"SI\";
if (strtoupper(\$chiedi_citta) == \"".mex("NO",$pag)."\") \$chiedi_citta = \"NO\";
\$chiedi_regione = \$".mex("var_chiedi_regione",$pag).";
if (strtoupper(\$chiedi_regione) == \"".mex("SI",$pag)."\") \$chiedi_regione = \"SI\";
if (strtoupper(\$chiedi_regione) == \"".mex("NO",$pag)."\") \$chiedi_regione = \"NO\";
\$chiedi_via = \$".mex("var_chiedi_via",$pag).";
if (strtoupper(\$chiedi_via) == \"".mex("SI",$pag)."\") \$chiedi_via = \"SI\";
if (strtoupper(\$chiedi_via) == \"".mex("NO",$pag)."\") \$chiedi_via = \"NO\";
\$chiedi_numcivico = \$".mex("var_chiedi_numcivico",$pag).";
if (strtoupper(\$chiedi_numcivico) == \"".mex("SI",$pag)."\") \$chiedi_numcivico = \"SI\";
if (strtoupper(\$chiedi_numcivico) == \"".mex("NO",$pag)."\") \$chiedi_numcivico = \"NO\";
\$chiedi_cap = \$".mex("var_chiedi_cap",$pag).";
if (strtoupper(\$chiedi_cap) == \"".mex("SI",$pag)."\") \$chiedi_cap = \"SI\";
if (strtoupper(\$chiedi_cap) == \"".mex("NO",$pag)."\") \$chiedi_cap = \"NO\";
\$chiedi_telefono = \$".mex("var_chiedi_telefono",$pag).";
if (strtoupper(\$chiedi_telefono) == \"".mex("SI",$pag)."\") \$chiedi_telefono = \"SI\";
if (strtoupper(\$chiedi_telefono) == \"".mex("NO",$pag)."\") \$chiedi_telefono = \"NO\";
\$chiedi_telefono2 = \$".mex("var_chiedi_telefono2",$pag).";
if (strtoupper(\$chiedi_telefono2) == \"".mex("SI",$pag)."\") \$chiedi_telefono2 = \"SI\";
if (strtoupper(\$chiedi_telefono2) == \"".mex("NO",$pag)."\") \$chiedi_telefono2 = \"NO\";
\$chiedi_telefono3 = \$".mex("var_chiedi_telefono3",$pag).";
if (strtoupper(\$chiedi_telefono3) == \"".mex("SI",$pag)."\") \$chiedi_telefono3 = \"SI\";
if (strtoupper(\$chiedi_telefono3) == \"".mex("NO",$pag)."\") \$chiedi_telefono3 = \"NO\";
\$chiedi_fax = \$".mex("var_chiedi_fax",$pag).";
if (strtoupper(\$chiedi_fax) == \"".mex("SI",$pag)."\") \$chiedi_fax = \"SI\";
if (strtoupper(\$chiedi_fax) == \"".mex("NO",$pag)."\") \$chiedi_fax = \"NO\";
\$chiedi_commento = \$".mex("var_chiedi_commento",$pag).";
if (strtoupper(\$chiedi_commento) == \"".mex("SI",$pag)."\") \$chiedi_commento = \"SI\";
if (strtoupper(\$chiedi_commento) == \"".mex("NO",$pag)."\") \$chiedi_commento = \"NO\";
\$chiedi_oracheckin = \$".mex("var_chiedi_oracheckin",$pag).";
if (strtoupper(\$chiedi_oracheckin) == \"".mex("SI",$pag)."\") \$chiedi_oracheckin = \"SI\";
if (strtoupper(\$chiedi_oracheckin) == \"".mex("NO",$pag)."\") \$chiedi_oracheckin = \"NO\";
\$chiedi_metodopagamento = \$".mex("var_chiedi_metodopagamento",$pag).";
if (strtoupper(\$chiedi_metodopagamento) == \"".mex("SI",$pag)."\") \$chiedi_metodopagamento = \"SI\";
if (strtoupper(\$chiedi_metodopagamento) == \"".mex("NO",$pag)."\") \$chiedi_metodopagamento = \"NO\";
unset(\$metodi_pagamento_da_chiedere);
reset (\$".mex("var_metodi_pagamento_da_chiedere",$pag).");
while (list (\$key, \$val) = each (\$".mex("var_metodi_pagamento_da_chiedere",$pag).")) {
if (strtoupper(\$val) == \"".mex("SI",$pag)."\") \$metodi_pagamento_da_chiedere[\$key] = \"SI\";
if (strtoupper(\$val) == \"".mex("NO",$pag)."\") \$metodi_pagamento_da_chiedere[\$key] = \"NO\";
} # fine while
\$nomi_metodi_pagamento_imposti = \$".mex("var_nomi_metodi_pagamento_imposti",$pag).";
\$campi_form_personalizzati = \$".mex("var_campi_form_personalizzati",$pag).";
unset(\$chiedi_campi_form_personalizzati);
reset (\$".mex("var_chiedi_campi_form_personalizzati",$pag).");
while (list (\$key, \$val) = each (\$".mex("var_chiedi_campi_form_personalizzati",$pag).")) {
if (strtoupper(\$val) == \"".mex("SI",$pag)."\") \$chiedi_campi_form_personalizzati[\$key] = \"SI\";
} # fine while
\$campi_form_doc_condizioni = \$".mex("var_campi_form_doc_condizioni",$pag).";
unset(\$chiedi_campi_form_doc_condizioni);
reset (\$".mex("var_chiedi_campi_form_doc_condizioni",$pag).");
while (list (\$key, \$val) = each (\$".mex("var_chiedi_campi_form_doc_condizioni",$pag).")) {
if (strtoupper(\$val) == \"".mex("SI",$pag)."\") \$chiedi_campi_form_doc_condizioni[\$key] = \"SI\";
} # fine while
\$mostra_quadro_disp = \"\";
if (strtoupper(\$".mex("var_mostra_quadro_disponibilita",$pag).") == \"".mex("SI",$pag)."\") {
\$mostra_quadro_disp = \"app\";
if (strtoupper(\$".mex("var_raggruppa_quadro_disponibilita_con_persone",$pag).") == \"".mex("SI",$pag)."\") \$mostra_quadro_disp = \"pers\";
if (strtoupper(\$".mex("var_raggruppa_quadro_disponibilita_con_regola_2",$pag).") == \"".mex("SI",$pag)."\") \$mostra_quadro_disp = \"reg2\";
} # fine if (strtoupper(\$".mex("var_mostra_quadro_disponibilita",$pag).") == \"".mex("SI",$pag)."\")
\$c_sfondo_tab_disp = \$".mex("var_colore_sfondo_quadro_disponibilita",$pag).";
\$c_inisett_tab_disp = \$".mex("var_colore_inizio_settimana_quadro_disponibilita",$pag).";
\$c_libero_tab_disp = \$".mex("var_colore_libero_quadro_disponibilita",$pag).";
\$c_occupato_tab_disp = \$".mex("var_colore_occupato_quadro_disponibilita",$pag) .";
\$aper_font_tab_disp = \$".mex("var_apertura_font_quadro_disponibilita",$pag).";
\$chiu_font_tab_disp = \$".mex("var_chiusura_font_quadro_disponibilita",$pag).";
if (strtoupper(\$".mex("var_mostra_numero_liberi_quadro_disponibilita",$pag).") == \"".mex("SI",$pag)."\") \$mostra_num_liberi = \"SI\";
else \$mostra_num_liberi = \"NO\";
if (strtoupper(\$".mex("var_allinea_disponibilita_con_arrivo",$pag).") == \"".mex("SI",$pag)."\") \$allinea_disponibilita_con_arrivo = \"SI\";
else \$allinea_disponibilita_con_arrivo = \"NO\";
if (strtoupper(\$".mex("var_mostra_calendario_scelta_date",$pag).") == \"".mex("SI",$pag)."\") \$mostra_calendario_scelta_date = \"SI\";
else \$mostra_calendario_scelta_date = \"NO\";
\$stile_riquadro_calendario = \$".mex("var_stile_riquadro_calendario",$pag).";
\$stile_tabella_calendario = \$".mex("var_stile_tabella_calendario",$pag).";
\$stile_bottoni_calendario = \$".mex("var_stile_bottoni_calendario",$pag).";
\$stile_bottone_apertura_calendario = \$".mex("var_stile_bottone_apertura_calendario",$pag).";
\$spostamento_orizzontale_calendario = \$".mex("var_spostamento_orizzontale_calendario",$pag).";
\$colore_data_attiva_calendario = \$".mex("var_colore_data_attiva_calendario",$pag).";
\$colore_data_selezionata_calendario = \$".mex("var_colore_data_selezionata_calendario",$pag).";
\$apertura_tag_font = \$".mex("var_apertura_tag_font",$pag).";
\$chiusura_tag_font = \$".mex("var_chiusura_tag_font",$pag).";
\$apertura_tag_font_rosse = \$".mex("var_apertura_tag_font_rosse",$pag).";
\$chiusura_tag_font_rosse = \$".mex("var_chiusura_tag_font_rosse",$pag).";
\$stile_tabella_prenotazione = \$".mex("var_stile_tabella_prenotazione",$pag).";
\$file_css_frame = \$".mex("var_file_css_frame",$pag).";
if (strtoupper(\$".mex("var_apri_nuova_finestra_da_frame",$pag).") == \"".mex("SI",$pag)."\") \$apri_nuova_finestra_da_frame = \"SI\";
else \$apri_nuova_finestra_da_frame = \"NO\";
\$larghezza_finestra_da_frame = \$".mex("var_larghezza_finestra_da_frame",$pag).";
\$altezza_finestra_da_frame = \$".mex("var_altezza_finestra_da_frame",$pag).";
\$extra_head_frame = \"$extra_head_frame\";
\$tipo_periodi = \"$m_tipo_periodi\";
# FRASI
\$fr_Euro = \$".mex("var_fr_Valuta_sing",$pag).";
\$fr_Euros = \$".mex("var_fr_Valuta_plur",$pag).";
\$fr_appartamenti = \$".mex("var_fr_appartamenti",$pag).";
\$fr_appartamento = \$".mex("var_fr_appartamento",$pag).";
\$fr_alternativa_regola1 = \$".mex("var_fr_alternativa_regola1",$pag).";
");
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) fwrite($file,"\$".$fr_frase[$num_fr]." = \$".mex("var_".$fr_frase[$num_fr],$pag).";
");
fwrite($file,"\$fre_Email = \$".mex("var_fre_Email",$pag).";
\$fre_Nome = \$".mex("var_fre_Nome",$pag).";
\$fre_Commento = \$".mex("var_fre_Commento",$pag).";
\$fre_Periodo = \$".mex("var_fre_Periodo",$pag).";
\$fre_dal = \$".mex("var_fre_dal",$pag).";
\$fre_al = \$".mex("var_fre_al",$pag).";
\$fre_Tariffa = \$".mex("var_fre_Tariffa",$pag).";
\$fre_Costi_aggiuntivi = \$".mex("var_fre_Costi_aggiuntivi",$pag).";
\$fre_sett = \$".mex("var_fre_sett",$pag).";
\$fre_Numero_di_appartamenti = \$".mex("var_fre_Numero_di_appartamenti",$pag).";
\$fre_Prezzo_totale = \$".mex("var_fre_Prezzo_totale",$pag).";
\$fre_Riferimento = \$".mex("var_fre_Riferimento",$pag).";
\$fre_Richesta_prenotazione = \$".mex("var_fre_Richesta_prenotazione",$pag).";
\$fre_Caparra = \$".mex("var_fre_Caparra",$pag).";
\$fre_Persone = \$".mex("var_fre_Persone",$pag).";
\$fre_Cognome = \$".mex("var_fre_Cognome",$pag).";
\$fre_Genere = \$".mex("var_fre_Genere",$pag).";
\$fre_Data_di_nascita = \$".mex("var_fre_Data_di_nascita",$pag).";
\$fre_Documento = \$".mex("var_fre_Documento",$pag).";
\$fre_Nazione = \$".mex("var_fre_Nazione",$pag).";
\$fre_Citta = \$".mex("var_fre_Citta",$pag).";
\$fre_Regione = \$".mex("var_fre_Regione",$pag).";
\$fre_Via = \$".mex("var_fre_Via",$pag).";
\$fre_Numero_civico = \$".mex("var_fre_Numero_civico",$pag).";
\$fre_Codice_postale = \$".mex("var_fre_Codice_postale",$pag).";
\$fre_Telefono = \$".mex("var_fre_Telefono",$pag).";
\$fre_Secondo_telefono = \$".mex("var_fre_Secondo_telefono",$pag).";
\$fre_Terzo_telefono = \$".mex("var_fre_Terzo_telefono",$pag).";
\$fre_Fax = \$".mex("var_fre_Fax",$pag).";
\$fre_Orario_stimato_di_arrivo = \$".mex("var_fre_Orario_stimato_di_arrivo",$pag).";
\$fre_Metodo_di_pagamento_della_caparra = \$".mex("var_fre_Metodo_di_pagamento_della_caparra",$pag).";
# PERIODI NEI MENU
\$menu_periodi = \$".mex("var_periodi_menu",$pag).";
function mex_data(\$messaggio) {
");
if ($lingua_modello != "ita") {
if (@is_file("./includes/lang/$lingua_modello/giorni_mesi.php")) includi_file("./includes/lang/$lingua_modello/giorni_mesi.php",$file);
else if (@is_file("./includes/lang/en/giorni_mesi.php")) includi_file("./includes/lang/en/giorni_mesi.php",$file);
} # fine if ($lingua_modello != "ita")
fwrite($file,"
return \$messaggio;
} # fine function mex_data
");
includi_file("./includes/funzioni_".$M_PHPR_DB_TYPE.".php",$file);
fwrite($file,"
\$numconnessione = connetti_db(\$PHPR_DB_NAME,\$PHPR_DB_HOST,\$PHPR_DB_PORT,\$PHPR_DB_USER,\$PHPR_DB_PASS,\$PHPR_LOAD_EXT);
");
includi_file("./includes/funzioni.php",$file);
includi_file(C_DATA_PATH."/versione.php",$file);
includi_file("./includes/liberasettimane.php",$file);
includi_file("./includes/funzioni_tariffe.php",$file);
includi_file("./includes/funzioni_costi_agg.php",$file);
includi_file("./includes/funzioni_quadro_disp.php",$file);
includi_file("./includes/funzioni_clienti.php",$file);
includi_file("./includes/funzioni_dati_relutenti.php",$file);
if ($campi_form_doc_condizioni) {
includi_file("./includes/variabili_contratto.php",$file);
includi_file("./includes/funzioni_contratti.php",$file);
includi_file("./includes/funzioni_testo.php",$file);
fwrite($file,"
function crea_trad_var_vett (&\$trad_var_vett) {
\$trad_var_vett = \"\";
");
if (@is_dir("./includes/lang/es")) {
includi_file("./includes/lang/es/visualizza_contratto_var.php",$file);
fwrite($file,"
while (list(\$var_trad_ita,\$var_trad_ext) = each(\$trad_var)) \$trad_var_vett[\$var_trad_ext] = \$var_trad_ita;
unset(\$trad_var);
");
} # fine if (@is_dir("./includes/lang/es"))
if (@is_dir("./includes/lang/en")) {
includi_file("./includes/lang/en/visualizza_contratto_var.php",$file);
fwrite($file,"
while (list(\$var_trad_ita,\$var_trad_ext) = each(\$trad_var)) \$trad_var_vett[\$var_trad_ext] = \$var_trad_ita;
unset(\$trad_var);
");
} # fine if (@is_dir("./includes/lang/en"))
global $lingua_mex;
if ($lingua_mex != "ita" and $lingua_mex != "en" and $lingua_mex != "es") {
if (@is_dir("./includes/lang/$lingua_mex")) {
includi_file("./includes/lang/$lingua_mex/visualizza_contratto_var.php",$file);
fwrite($file,"
while (list(\$var_trad_ita,\$var_trad_ext) = each(\$trad_var)) \$trad_var_vett[\$var_trad_ext] = \$var_trad_ita;
unset(\$trad_var);
");
} # fine if (@is_dir("./includes/lang/$lingua_mex"))
} # fine if ($lingua_mex != "ita" and $lingua_mex != "en" and $lingua_mex != "es")
fwrite($file,"
if (!@is_array(\$trad_var_vett)) \$trad_var_vett['new_line'] = 'avanzamento_riga';
} # fine function crea_trad_var_vett
");
} # fine if ($campi_form_doc_condizioni)
if (defined("C_FILE_SCADENZA_ACCOUNT") and C_FILE_SCADENZA_ACCOUNT != "") {
$f_scad_acc = explode("/",$percorso_cartella_modello);
$num_f_scad_acc = count($f_scad_acc);
$file_scad_acc = "";
for ($num1 = 0 ; $num1 < $num_f_scad_acc ; $num1++) if ($f_scad_acc[$num1] != ".") $file_scad_acc .= "../";
$file_scad_acc .= C_FILE_SCADENZA_ACCOUNT;
fwrite($file,"
\$disattivato = \"\";
\$scadenza = trim(@implode(@file(\"$file_scad_acc\")));
\$adesso = date(\"YmdHis\");
if (!\$scadenza or \$scadenza < \$adesso) {
\$disattivato = \"SI\";
echo \"Expired account.<br>\";
} # fine (!\$scadenza or \$scadenza < \$adesso)
if (!\$disattivato) {
");
} # fine if (defined("C_FILE_SCADENZA_ACCOUNT") and C_FILE_SCADENZA_ACCOUNT != "")
includi_file("./includes/templates/modello_disponibilita.php",$file);
if (defined("C_FILE_SCADENZA_ACCOUNT") and C_FILE_SCADENZA_ACCOUNT != "") fwrite($file,"
} # fine if (!\$disattivato)
");
fwrite($file,"
if (!\$framed) {
?>
<!-- ".mex("INIZIO DELLA SECONDA PARTE DELL'HTML PERSONALE",$pag)." -->
$ultima_parte_html
<!-- ".mex("FINE DELLA SECONDA PARTE DELL'HTML PERSONALE",$pag)." --><?php } # fine if (!\$framed) ?>");
flock($file,3);
fclose($file);
$exec_crea_mod = substr(decoct(@fileperms('./crea_modelli.php')),-3,1);
if ((defined('C_CHMOD_EXEC_MODELLI') and C_CHMOD_EXEC_MODELLI == "SI") or $exec_crea_mod == "7" or $exec_crea_mod == "5") @chmod("$percorso_cartella_modello/$nome_file", 0750);
else @chmod("$percorso_cartella_modello/$nome_file", 0640);
$url_pagina = "";
if ($silenzio != "totale" or ($silenzio != "NO" and $tema_trovato and $framed_mode_example[$tema_sel])) {
$url_pagina = trova_url_pagina($nome_file,$percorso_cartella_modello,$pag);
if ($url_pagina) $url_pagina_link = $url_pagina;
else $url_pagina_link = "$percorso_cartella_modello/$nome_file";
} # fine if ($silenzio != "totale" or ($silenzio != "NO" and...
if ($silenzio == "NO") echo "<br>";
if ($silenzio != "totale") echo mex("Una pagina chiamata",$pag)." <b><a href=\"$url_pagina_link\" target=\"_blank\">$nome_file</a></b> ".mex("è stata creata nella directory",$pag)." \"$percorso_cartella_modello\".<br>";
if ($silenzio == "NO") {
if (defined('C_CARTELLA_CREA_MODELLI')) echo mex("Si può creare un link verso questa pagina dal proprio sito internet",$pag).".<br>";
else echo mex("Si può cambiare la directory dove vengono create le pagine da \"configura e personalizza\"",$pag).".<br>";
if ($tema_trovato and $framed_mode_example[$tema_sel] and $url_pagina) {
echo "<br><br>".mex("Esempio di codice html per includere il primo passo della form in modalità frame su altre pagine del sito",$pag).":<br>
<textarea rows=4 cols=108 wrap=\"off\" readonly=\"true\">
".htmlspecialchars(str_replace("[page_url]",$url_pagina,$framed_mode_example[$tema_sel]))."
</textarea><br><br>";
} # fine if ($tema_trovato and $framed_mode_example[$tema_sel] and...
} # fine if ($silenzio == "NO")
} # fine if ($file)
else if ($silenzio == "NO") echo mex("Non ho il permesso di scrittura nella cartella",$pag)." $percorso_cartella_modello.<br>";
} # fine if ($continua != "NO")
} # fine function crea_modello_disponibilita
function elimina_array_pers ($arr_pers_elimina) {
global $tablecontratti,$LIKE,$pag;
$arr_pers_elimina = aggslashdb($arr_pers_elimina);
$continua = "SI";
if (substr($arr_pers_elimina,0,1) != "a") $continua = "NO";
$arr_pers_elimina = substr($arr_pers_elimina,1);
if (controlla_num_pos($arr_pers_elimina) != "SI") $continua = "NO";
if ($continua == "SI") {
$n_arr_pers_el = esegui_query("select * from $tablecontratti where numero = '$arr_pers_elimina' and tipo $LIKE 'vett%'");
if (numlin_query($n_arr_pers_el) != 1) $continua = "NO";
else {
$n_arr_pers_el = explode(";",risul_query($n_arr_pers_el,0,"testo"));
$n_arr_pers_el = $n_arr_pers_el[0]."(".$n_arr_pers_el[1].")";
$arr_pers_el = "a".$arr_pers_elimina;
$condizioni = esegui_query("select * from $tablecontratti where tipo $LIKE 'cond%' order by numero");
$num_condizioni = numlin_query($condizioni);
for ($num1 = 0 ; $num1 < $num_condizioni ; $num1++) {
$condizione = risul_query($condizioni,$num1,'testo');
$condizione = explode("#@?",$condizione);
$elimina_cond_corr = "NO";
if ($condizione[1]) {
$se_cond = explode("#$?",$condizione[1]);
$num_se_cond = count($se_cond);
for ($num2 = 1 ; $num2 < $num_se_cond ; $num2++) {
$se_cond_corr = explode("#%?",$se_cond[$num2]);
if ($se_cond_corr[0] == $n_arr_pers_el) $elimina_cond_corr = "SI";
if ($se_cond_corr[2] == "var" and $se_cond_corr[3] == $n_arr_pers_el) $elimina_cond_corr = "SI";
} # fine for $num2
} # fine if ($condizione[1])
$azione = explode("#%?",$condizione[2]);
if ($azione[0] == "set" and ($azione[1] == $arr_pers_el or ($azione[3] == "var" and $azione[4] == $n_arr_pers_el))) $elimina_cond_corr = "SI";
if ($azione[0] == "set" and (($azione[5] == "var" and $azione[6] == $n_arr_pers_el) or ($azione[7] == "var" and $azione[8] == $n_arr_pers_el))) $elimina_cond_corr = "SI";
if ($azione[0] == "trunc" and $azione[1] == $arr_pers_el) $elimina_cond_corr = "SI";
if ($azione[0] == "oper" and ($azione[1] == $arr_pers_el or $azione[2] == $n_arr_pers_el or ($azione[4] == "var" and $azione[5] == $n_arr_pers_el))) $elimina_cond_corr = "SI";
if ($azione[0] == "unset" and $azione[1] == $arr_pers_el) $elimina_cond_corr = "SI";
if ($azione[0] == "array" and $azione[1] == $arr_pers_el) $elimina_cond_corr = "SI";
if ($elimina_cond_corr == "SI") {
$num_cond = risul_query($condizioni,$num1,'numero');
$tipo_cond = risul_query($condizioni,$num1,'tipo');
esegui_query("delete from $tablecontratti where numero = '$num_cond' and tipo = '$tipo_cond' ");
} # fine ($elimina_cond_corr == "SI")
} # fine for $num1
esegui_query("delete from $tablecontratti where numero = '$arr_pers_elimina' and tipo $LIKE 'vett%'");
echo mex("Array personalizzato eliminato",$pag).".<br>";
} # fine else if (numlin_query($n_var_pers_el) != 1)
} # fine if ($continua == "SI")
return $continua;
} # fine function elimina_arr_pers
function ripristina_backup_contr($linee_backup, $silenzio, $pag, $PHPR_TAB_PRE, $modalita, $contr_agg = "")
{
global $LIKE, $MEDIUMTEXT;
include "./includes/variabili_contratto.php";
unset($var_predef);
$versione_corrente = esegui_query("select * from " . $PHPR_TAB_PRE . "versioni where idversioni = 1");
$versione_corrente = risul_query($versione_corrente, 0, 'num_versione');
for ($num1 = 0; $num1 < count($linee_backup); $num1++) {
$linea = togli_acapo($linee_backup[$num1]);
if (substr($linea, 0, 10) == "<versione>") {
$versione_file = substr($linea, 10);
$versione_file = substr($versione_file, 0, -11);
break;
}
# fine if (substr($linea,0,10) == "<versione>")
}
# fine for $num1
if ($versione_file and ($versione_file <= $versione_corrente and $versione_file >= "2.00")) {
if ($modalita != "aggiungi") {
$contr_agg = "";
}
$contr_agg_var = $contr_agg;
$contr_agg_all = "";
$contr_agg_trovato = 0;
# Prima lettura di controllo del file contratti
$file_coerente = "SI";
$num_err = "";
$leggendo_righe = "NO";
unset($tab_presente);
$info_contr['max_contr'] = 0;
$num_linee_backup = count($linee_backup);
for ($num1 = 0; $num1 < $num_linee_backup; $num1++) {
$linea = togli_acapo($linee_backup[$num1]);
if ($linea == "</backup>" and $leggendo_righe != "SI") {
$leggendo_backup = "NO";
}
if ($leggendo_backup == "SI") {
if ($linea == "</database>" and $leggendo_righe != "SI") {
$leggendo_database = "NO";
}
if ($leggendo_database == "SI") {
if ($linea == "</tabella>" and $leggendo_righe != "SI") {
$leggendo_tabella = "NO";
}
if ($leggendo_tabella == "SI") {
if (substr($linea, 0, 13) == "<nometabella>") {
$nome_tabella = substr($linea, 13);
$nome_tabella = substr($nome_tabella, 0, -14);
}
# fine if (substr($linea,0,13) == "<nometabella>")
if ($linea == "</colonnetabella>") {
$leggendo_colonne == "NO";
if ($nome_tabella == "contratti") {
$tab_presente["contratti"] = "SI";
}
if ($nome_tabella != "contratti") {
$file_coerente = "NO";
$num_err .= "#1";
}
}
# fine if ($linea == "</colonnetabella>")
if ($leggendo_colonne == "SI") {
if (substr($linea, 0, 13) == "<nomecolonna>") {
$num_colonne++;
$nome_colonna[$num_colonne] = substr($linea, 13);
$nome_colonna[$num_colonne] = substr($nome_colonna[$num_colonne], 0, -14);
$num_colonna[$nome_colonna[$num_colonne]] = $num_colonne - 1;
}
# fine if (substr($linea,0,13) == "<nomecolonna>")
if (substr($linea, 0, 13) == "<tipocolonna>") {
$tipo_colonna[$num_colonne] = substr($linea, 13);
$tipo_colonna[$num_colonne] = substr($tipo_colonna[$num_colonne], 0, -14);
}
# fine if (substr($linea,0,13) == "<tipocolonna>")
}
# fine if ($leggendo_colonne == "SI")
if ($linea == "<colonnetabella>" and $leggendo_righe != "SI") {
$leggendo_colonne = "SI";
$num_colonne = 0;
}
# fine if ($linea == "<colonnetabella>" and $leggendo_righe != "SI")
if ($linea == "</righetabella>") {
$leggendo_righe = "NO";
}
if ($leggendo_righe == "SI") {
if (substr($linea, 0, 6) == "<riga>") {
$riga = substr($linea, 11);
} else {
$riga .= "\n" . $linea;
}
# fine else if (substr($linea,0,6) == "<riga>")
if (substr($linea, -7) == "</riga>") {
$riga = substr($riga, 0, -13);
$riga = explode("</cmp><cmp>", $riga);
if ($nome_tabella == "contratti") {
$tipo_contr = $riga[$num_colonna['tipo']];
if (substr($tipo_contr, 0, 3) == "var") {
$nome = $riga[$num_colonna['testo']];
if ($var_riserv[$nome]) {
$file_coerente = "NO";
$num_err .= "#2";
}
}
# fine if (substr($tipo_contr,0,3) == "var")
if (substr($tipo_contr, 0, 4) == "vett") {
$nome = explode(";", $riga[$num_colonna['testo']]);
if ($var_riserv[$nome[0]]) {
$file_coerente = "NO";
$num_err .= "#3";
}
if ($var_riserv[$nome[1]]) {
$file_coerente = "NO";
$num_err .= "#4";
}
}
# fine if (substr($tipo_contr,0,4) == "vett")
if ($modalita == "info") {
if ($riga[$num_colonna['tipo']] == "nomi_con" and $riga[$num_colonna['numero']] == "1") {
$info_contr['nomi_con'] = $riga[$num_colonna['testo']];
}
if (substr($riga[$num_colonna['tipo']], 0, 5) == "contr" and $riga[$num_colonna['numero']] > $info_contr['max_contr']) {
$info_contr['max_contr'] = $riga[$num_colonna['numero']];
}
}
# fine if ($modalita == "info")
if ($contr_agg and $riga[$num_colonna['numero']] == $contr_agg) {
if (substr($riga[$num_colonna['tipo']], 0, 5) == "contr") {
$contr_agg_trovato = 1;
}
if ($riga[$num_colonna['tipo']] == "impor_vc") {
$contr_agg_var = $riga[$num_colonna['testo']];
}
if ($riga[$num_colonna['tipo']] == "allegato") {
$contr_agg_all .= "," . $riga[$num_colonna['testo']] . ",";
}
}
# fine if ($contr_agg and $riga[$num_colonna['numero']] == $contr_agg)
}
# fine if ($nome_tabella == "contratti")
$lista_valori = "";
$lista_colonne = "";
unset($valore_colonna);
for ($num2 = 0; $num2 < count($riga); $num2++) {
$valore = aggslashdb($riga[$num2]);
if ($valore != "") {
$valore = str_replace("</righetabella@%&@>", "</righetabella>", $valore);
$valore = str_replace("</riga@%&@>", "</riga>", $valore);
$valore = str_replace("<riga@%&@>", "<riga>", $valore);
$valore = str_replace("</cmp@%&@>", "</cmp>", $valore);
$valore = str_replace("@%&@@%&@", "@%&@", $valore);
$valore_colonna[$nome_colonna[$num2 + 1]] = $valore;
}
# fine if ($valore != "")
}
# fine for $num2
if (defined("C_MASSIMO_NUM_CONTRATTI") and C_MASSIMO_NUM_CONTRATTI != 0 and $nome_tabella == "contratti" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_CONTRATTI * 200 + 100) {
$file_coerente = "NO";
$num_err .= "#5";
}
$linee_inserite_in_tabella[$nome_tabella]++;
}
# fine if (substr($linea,-7) == "</riga>")
}
# fine if ($leggendo_righe == "SI")
if ($linea == "<righetabella>") {
$leggendo_righe = "SI";
$linee_inserite_in_tabella[$nome_tabella] = 0;
}
# fine if ($linea == "<righetabella>")
}
# fine if ($leggendo_tabella == "SI")
if ($linea == "<tabella>") {
$leggendo_tabella = "SI";
}
}
# fine if ($leggendo_database == "SI")
if ($linea == "<database>") {
$leggendo_database = "SI";
}
}
# fine if ($leggendo_backup == "SI")
if ($linea == "<backup>") {
$leggendo_backup = "SI";
}
}
# fine for $num1
if ($tab_presente["contratti"] != "SI") {
$file_coerente = "NO";
$num_err .= "#6";
}
if ($contr_agg and !$contr_agg_trovato) {
$file_coerente = "NO";
$num_err .= "#7";
}
if ($file_coerente == "NO") {
if ($silenzio != "SI") {
echo mex("Il formato del file è errato", $pag) . ".<br>";
}
# debug backup DOCUMENTI
#if ($num_err) echo $num_err.".<br>";
} else {
unset($var_riserv);
if ($modalita == "info") {
return $info_contr;
}
if ($modalita == "rimpiazza") {
esegui_query("delete from " . $PHPR_TAB_PRE . "contratti");
}
$max_contr = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo {$LIKE} 'contr%'");
if (numlin_query($max_contr) != 0) {
$max_contr = risul_query($max_contr, 0, 0);
} else {
$max_contr = 0;
}
if (!$max_contr) {
$max_contr = 0;
}
$max_var = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo {$LIKE} 'var%'");
if (numlin_query($max_var) != 0) {
$max_var = risul_query($max_var, 0, 0);
} else {
$max_var = 0;
}
if (!$max_var) {
$max_var = 0;
}
$max_arr = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo {$LIKE} 'vett%'");
if (numlin_query($max_arr) != 0) {
$max_arr = risul_query($max_arr, 0, 0);
} else {
$max_arr = 0;
}
if (!$max_arr) {
$max_arr = 0;
}
$max_cond = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo = 'cond'");
if (numlin_query($max_cond) != 0) {
$max_cond = risul_query($max_cond, 0, 0);
} else {
$max_cond = 0;
}
if (!$max_cond) {
$max_cond = 0;
}
$max_all = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo = 'file_all'");
if (numlin_query($max_all) != 0) {
$max_all = risul_query($max_all, 0, 0);
} else {
$max_all = 0;
}
if (!$max_all) {
$max_all = 0;
}
unset($nuovo_num_contr);
unset($nuovo_num_var);
$nuovo_num_var['-1'] = '-1';
$nuovo_num_var['-2'] = '-2';
unset($nuovo_nome_var);
unset($nuovo_num_all);
$leggendo_backup = "NO";
$leggendo_database = "NO";
$leggendo_tabella = "NO";
$leggendo_colonne = "NO";
$leggendo_righe = "NO";
$leggendo_file = "NO";
$leggendo_contenuto = "NO";
$nome_file = "";
unset($linee_inserite_in_tabella);
if (defined("C_CARTELLA_CREA_MODELLI") and C_CARTELLA_CREA_MODELLI != "") {
if (C_CARTELLA_DOC != "" and @is_dir(C_CARTELLA_CREA_MODELLI . "/" . C_CARTELLA_DOC)) {
$dir_salva_home = C_CARTELLA_CREA_MODELLI . "/" . C_CARTELLA_DOC;
} else {
$dir_salva_home = C_CARTELLA_CREA_MODELLI;
}
} else {
$dir_salva_home = C_DATA_PATH;
}
for ($num1 = 0; $num1 < $num_linee_backup; $num1++) {
$linea = togli_acapo($linee_backup[$num1]);
if ($linea == "</backup>" and $leggendo_righe != "SI") {
$leggendo_backup = "NO";
}
if ($leggendo_backup == "SI") {
if ($linea == "</database>" and $leggendo_righe != "SI") {
$leggendo_database = "NO";
}
# restore del database
if ($leggendo_database == "SI") {
if ($linea == "</tabella>" and $leggendo_righe != "SI") {
$leggendo_tabella = "NO";
}
if ($leggendo_tabella == "SI") {
if (substr($linea, 0, 13) == "<nometabella>") {
$nome_tabella = substr($linea, 13);
$nome_tabella = substr($nome_tabella, 0, -14);
}
# fine if (substr($linea,0,13) == "<nometabella>")
if ($linea == "</colonnetabella>" and $leggendo_righe != "SI") {
$leggendo_colonne == "NO";
#if ($nome_tabella == "contratti") esegui_query2("create table ".$N_PHPR_TAB_PRE."contratti (numero integer, tipo varchar(8), testo $MEDIUMTEXT )",$N_PHPR_DB_TYPE);
}
# fine if ($linea == "</colonnetabella>")
if ($leggendo_colonne == "SI") {
if (substr($linea, 0, 13) == "<nomecolonna>") {
$num_colonne++;
$nome_colonna[$num_colonne] = substr($linea, 13);
$nome_colonna[$num_colonne] = substr($nome_colonna[$num_colonne], 0, -14);
$num_colonna[$nome_colonna[$num_colonne]] = $num_colonne - 1;
}
# fine if (substr($linea,0,13) == "<nomecolonna>")
if (substr($linea, 0, 13) == "<tipocolonna>") {
$tipo_colonna[$num_colonne] = substr($linea, 13);
$tipo_colonna[$num_colonne] = substr($tipo_colonna[$num_colonne], 0, -14);
}
# fine if (substr($linea,0,13) == "<tipocolonna>")
}
# fine if ($leggendo_colonne == "SI")
if ($linea == "<colonnetabella>" and $leggendo_righe != "SI") {
$leggendo_colonne = "SI";
$num_colonne = 0;
$lista_tariffe = "";
}
# fine if ($linea == "<colonnetabella>" and $leggendo_righe != "SI")
if ($linea == "</righetabella>") {
$leggendo_righe = "NO";
}
if ($leggendo_righe == "SI") {
if (substr($linea, 0, 6) == "<riga>") {
$riga = substr($linea, 11);
} else {
$riga .= "\n" . $linea;
}
# fine else if (substr($linea,0,6) == "<riga>")
if (substr($linea, -7) == "</riga>") {
$riga = substr($riga, 0, -13);
$riga = explode("</cmp><cmp>", $riga);
$lista_valori = "";
$lista_colonne = "";
unset($valore_colonna);
$inserire_riga = "SI";
$tipo_contr = $riga[$num_colonna['tipo']];
$vecchio_num = $riga[$num_colonna['numero']];
if (substr($tipo_contr, 0, 5) == "contr" or $tipo_contr == "opzeml" or $tipo_contr == "oggetto" or $tipo_contr == "allegato" or $tipo_contr == "headhtm" or $tipo_contr == "foothtm" or $tipo_contr == "est_txt" or $tipo_contr == "dir" or substr($tipo_contr, 0, 4) == "mln_" or $tipo_contr == "impor_vc" or $tipo_contr == "num_prog" or $tipo_contr == "nomefile" or $tipo_contr == "autosalv" or $tipo_contr == "compress" or $tipo_contr == "incr_np") {
if (!$contr_agg or $vecchio_num == $contr_agg) {
if (!$nuovo_num_contr[$vecchio_num]) {
if ($contr_agg) {
$nuovo_num_contr[$vecchio_num] = $max_contr + 1;
} else {
$nuovo_num_contr[$vecchio_num] = $max_contr + $vecchio_num;
}
}
# fine if (!$nuovo_num_contr[$vecchio_num])
$riga[$num_colonna['numero']] = $nuovo_num_contr[$vecchio_num];
if (substr($tipo_contr, 0, 5) == "contr" or substr($tipo_contr, 0, 4) == "mln_") {
if (@is_array($nuovo_nome_var)) {
reset($nuovo_nome_var);
while (list($v_nome, $n_nome) = each($nuovo_nome_var)) {
$riga[$num_colonna['testo']] = str_replace("[{$v_nome}]", "[{$n_nome}]", $riga[$num_colonna['testo']]);
$riga[$num_colonna['testo']] = str_replace("[c {$v_nome}=", "[c {$n_nome}=", $riga[$num_colonna['testo']]);
$riga[$num_colonna['testo']] = str_replace("[c {$v_nome}!=", "[c {$n_nome}!=", $riga[$num_colonna['testo']]);
if (substr($v_nome, -1) == ")") {
$v_nome_arr = explode("(", $v_nome);
$v_nome_arr = $v_nome_arr[0];
$n_nome_arr = explode("(", $n_nome);
$n_nome_arr = $n_nome_arr[0];
$riga[$num_colonna['testo']] = str_replace("[r4 array=\"{$v_nome_arr}\"]", "[r4 array=\"{$n_nome_arr}\"]", $riga[$num_colonna['testo']]);
$riga[$num_colonna['testo']] = str_replace("[{$v_nome_arr}('", "[{$n_nome_arr}('", $riga[$num_colonna['testo']]);
$riga[$num_colonna['testo']] = str_replace("[c {$v_nome_arr}('", "[c {$n_nome_arr}('", $riga[$num_colonna['testo']]);
}
# fine if (substr($v_nome,-1) == ")")
}
# fine while (list($v_nome,$n_nome) = each($nuovo_nome_var))
}
# fine if (@is_array($nuovo_nome_var))
}
# fine if (substr($tipo_contr,0,5) == "contr" or substr($tipo_contr,0,4) == "mln_")
if ($tipo_contr == "dir") {
if (!function_exists('formatta_dir_salva_doc')) {
include './includes/funzioni_contratti.php';
}
$dir_salva = formatta_dir_salva_doc($riga[$num_colonna['testo']]);
if ($dir_salva == "~") {
$dir_salva = $dir_salva_home;
}
if (!@is_dir($dir_salva)) {
$inserire_riga = "NO";
} else {
$fileaperto = @fopen("{$dir_salva}/prova.tmp", "a+");
if (!$fileaperto) {
$inserire_riga = "NO";
} else {
fclose($fileaperto);
unlink("{$dir_salva}/prova.tmp");
}
# fine else if (!$fileaperto)
}
# fine else if (!@is_dir($dir_salva))
}
# fine if ($tipo_contr == "dir")
if ($tipo_contr == "allegato") {
$vecchio_all = $riga[$num_colonna['testo']];
if (!$nuovo_num_all[$vecchio_all]) {
$nuovo_num_all[$vecchio_all] = $max_all + $vecchio_all;
}
$riga[$num_colonna['testo']] = $nuovo_num_all[$vecchio_all];
}
# fine if ($tipo_contr == "allegato")
if ($tipo_contr == "impor_vc") {
if (!$contr_agg) {
$vecchio_num_impor_vc = $riga[$num_colonna['testo']];
if (!$nuovo_num_contr[$vecchio_num_impor_vc]) {
$nuovo_num_contr[$vecchio_num_impor_vc] = $max_contr + $vecchio_num_impor_vc;
}
$riga[$num_colonna['testo']] = $nuovo_num_contr[$vecchio_num_impor_vc];
} else {
$inserire_riga = "NO";
}
}
# fine if ($tipo_contr == "impor_vc")
if ($tipo_contr == "num_prog") {
if (!$contr_agg) {
$vecchio_num_np = $riga[$num_colonna['testo']];
if (!$nuovo_num_contr[$vecchio_num_np]) {
$nuovo_num_contr[$vecchio_num_np] = $max_contr + $vecchio_num_np;
}
$riga[$num_colonna['testo']] = $nuovo_num_contr[$vecchio_num_np];
} else {
$inserire_riga = "NO";
}
}
# fine if ($tipo_contr == "num_prog")
} else {
$inserire_riga = "NO";
}
}
# fine if (substr($tipo_contr,0,5) == "contr" or $tipo_contr == "opzeml" or...
if (substr($tipo_contr, 0, 3) == "var") {
$contr_cond = substr($tipo_contr, 3);
if (!$contr_agg or $contr_agg_var == $contr_cond) {
if (strcmp($contr_cond, "")) {
if (!$nuovo_num_contr[$contr_cond]) {
if ($contr_agg) {
$nuovo_num_contr[$contr_cond] = $max_contr + 1;
} else {
$nuovo_num_contr[$contr_cond] = $max_contr + $contr_cond;
}
}
# fine if (!$nuovo_num_contr[$contr_cond])
$contr_cond = $nuovo_num_contr[$contr_cond];
$tipo_contr = "var{$contr_cond}";
$riga[$num_colonna['tipo']] = $tipo_contr;
}
# fine if (strcmp($contr_cond,""))
if (!$nuovo_num_var[$vecchio_num]) {
$num_var_esistente = "";
$testo = $riga[$num_colonna['testo']];
$var_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where (tipo {$LIKE} 'var%' and testo = '" . aggslashdb($testo) . "') or (tipo {$LIKE} 'vett%' and testo {$LIKE} '" . aggslashdb($testo) . ";%') ");
for ($num2 = 0; $num2 < numlin_query($var_esistente); $num2++) {
if ($testo == risul_query($var_esistente, $num2, 'testo') and $tipo_contr == risul_query($var_esistente, $num2, 'tipo')) {
$num_var_esistente = $num2 + 1;
}
}
if ($num_var_esistente) {
$nuovo_num_var[$vecchio_num] = risul_query($var_esistente, $num_var_esistente - 1, 'numero');
$inserire_riga = "NO";
} else {
$nuovo_num_var[$vecchio_num] = $max_var + $vecchio_num;
if (numlin_query($var_esistente)) {
$nuovo_nome_trovato = "NO";
$nuovo_nome = $testo;
while ($nuovo_nome_trovato == "NO") {
$nuovo_nome .= "_";
$var_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where (tipo {$LIKE} 'var%' and testo = '" . aggslashdb($nuovo_nome) . "') or (tipo {$LIKE} 'vett%' and testo {$LIKE} '" . aggslashdb($nuovo_nome) . ";%') ");
if (!numlin_query($var_esistente)) {
$nuovo_nome_trovato = "SI";
}
}
# fine while ($nuovo_nome_trovato == "NO")
$nuovo_nome_var[$testo] = $nuovo_nome;
# cambio il nome della variabile anche negli array già inseriti
reset($nuovo_nome_var);
while (list($key, $val) = each($nuovo_nome_var)) {
$nuovo_nome_var[$key] = str_replace("({$testo})", "({$nuovo_nome})", $val);
if ($val != $nuovo_nome_var[$key]) {
$nome_arr = substr($nuovo_nome_var[$key], 0, -1 * (strlen($nuovo_nome) + 2));
$arr_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where tipo = 'vett{$contr_cond}' and testo = '" . aggslashdb($nome_arr) . ";" . aggslashdb($testo) . "' ");
if (numlin_query($arr_esistente)) {
$testo_arr = explode(";", risul_query($arr_esistente, 0, 'testo'));
$testo_arr[1] = $nuovo_nome;
$testo_arr = implode(";", $testo_arr);
esegui_query("update " . $PHPR_TAB_PRE . "contratti set testo = '" . aggslashdb($testo_arr) . "' where tipo = 'vett{$contr_cond}' and testo = '" . aggslashdb($nome_arr) . ";" . aggslashdb($testo) . "' ");
}
# fine if (numlin_query($arr_esistente))
}
# fine if ($val != $nuovo_nome_var[$key])
}
# fine while (list($key,$val) = each($nuovo_nome_var))
$riga[$num_colonna['testo']] = $nuovo_nome;
}
# fine if (numlin_query($var_esistente))
}
# fine else if ($num_var_esistente)
}
# fine if (!$nuovo_num_contr[$vecchio_num])
$riga[$num_colonna['numero']] = $nuovo_num_var[$vecchio_num];
} else {
$inserire_riga = "NO";
}
}
# fine if (substr($tipo_contr,0,3) == "var")
if (substr($tipo_contr, 0, 4) == "vett") {
$contr_cond = substr($tipo_contr, 4);
if (!$contr_agg or $contr_agg_var == $contr_cond) {
if (strcmp($contr_cond, "")) {
if (!$nuovo_num_contr[$contr_cond]) {
if ($contr_agg) {
$nuovo_num_contr[$contr_cond] = $max_contr + 1;
} else {
$nuovo_num_contr[$contr_cond] = $max_contr + $contr_cond;
}
}
# fine if (!$nuovo_num_contr[$contr_cond])
$contr_cond = $nuovo_num_contr[$contr_cond];
$tipo_contr = "vett{$contr_cond}";
$riga[$num_colonna['tipo']] = $tipo_contr;
}
# fine if (strcmp($contr_cond,""))
if (!$nuovo_num_var["a{$vecchio_num}"]) {
$num_arr_esistente = "";
$testo = $riga[$num_colonna['testo']];
$nome_arr = explode(";", $testo);
$var_arr = $nome_arr[1];
$nome_arr = $nome_arr[0];
$arr_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where (tipo {$LIKE} 'var%' and testo = '" . aggslashdb($nome_arr) . "') or (tipo {$LIKE} 'vett%' and testo {$LIKE} '" . aggslashdb($nome_arr) . ";%') ");
for ($num2 = 0; $num2 < numlin_query($arr_esistente); $num2++) {
if ($testo == risul_query($arr_esistente, $num2, 'testo') and $tipo_contr == risul_query($arr_esistente, $num2, 'tipo')) {
$num_arr_esistente = $num2 + 1;
}
}
if ($num_arr_esistente) {
$nuovo_num_var["a{$vecchio_num}"] = "a" . risul_query($arr_esistente, $num_arr_esistente - 1, 'numero');
$inserire_riga = "NO";
} else {
$nuovo_num_var["a{$vecchio_num}"] = "a" . ($max_arr + $vecchio_num);
if (numlin_query($arr_esistente)) {
$nuovo_nome_trovato = "NO";
$nuovo_nome = $nome_arr;
while ($nuovo_nome_trovato == "NO") {
$nuovo_nome .= "_";
$arr_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where (tipo {$LIKE} 'var%' and testo = '" . aggslashdb($nuovo_nome) . "') or (tipo {$LIKE} 'vett%' and testo {$LIKE} '" . aggslashdb($nuovo_nome) . ";%') ");
if (!numlin_query($arr_esistente)) {
$nuovo_nome_trovato = "SI";
}
}
# fine while ($nuovo_nome_trovato == "NO")
$nuovo_nome_var["{$nome_arr}({$var_arr})"] = "{$nuovo_nome}({$var_arr})";
$riga[$num_colonna["testo"]] = $nuovo_nome . substr($testo, strlen($nome_arr));
} else {
$nuovo_nome_var["{$nome_arr}({$var_arr})"] = "{$nome_arr}({$var_arr})";
}
}
# fine else if ($num_arr_esistente)
}
# fine if (!$nuovo_num_contr["a$vecchio_num"])
$riga[$num_colonna['numero']] = substr($nuovo_num_var["a{$vecchio_num}"], 1);
} else {
$inserire_riga = "NO";
}
}
# fine if (substr($tipo_contr,0,4) == "vett")
if (substr($tipo_contr, 0, 4) == "cond") {
$contr_cond = substr($tipo_contr, 4);
if (!$contr_agg or $contr_agg_var == $contr_cond) {
if (!strcmp($contr_cond, "")) {
$riga[$num_colonna['numero']] = $max_cond + $vecchio_num;
} else {
$vecchio_num = $contr_cond;
if (!$nuovo_num_contr[$vecchio_num]) {
if ($contr_agg) {
$nuovo_num_contr[$vecchio_num] = $max_contr + 1;
} else {
$nuovo_num_contr[$vecchio_num] = $max_contr + $vecchio_num;
}
}
# fine if (!$nuovo_num_contr[$vecchio_num])
$riga[$num_colonna['tipo']] = "cond" . $nuovo_num_contr[$vecchio_num];
$contr_cond = $nuovo_num_contr[$vecchio_num];
}
# fine else if (!strcmp($contr_cond,""))
$cond_vecchia = $riga[$num_colonna['testo']];
$cond_vecchia = explode("#@?", $cond_vecchia);
$azione_vecchia = explode("#%?", $cond_vecchia[2]);
$cond_nuova = $cond_vecchia[0] . "#@?";
if ($cond_vecchia[1]) {
$cond_vecchia = explode("#\$?", $cond_vecchia[1]);
$cond_nuova .= $cond_vecchia[0];
$num_cond = count($cond_vecchia);
for ($num2 = 1; $num2 < $num_cond; $num2++) {
$cond_nuova .= "#\$?";
$cond_vett = explode("#%?", $cond_vecchia[$num2]);
if ($cond_vett[2] == "var") {
ripristina_nome_var_cond(array(0, 3), $cond_vett, $nuovo_nome_var);
} else {
ripristina_nome_var_cond(array('0'), $cond_vett, $nuovo_nome_var);
}
for ($num3 = 0; $num3 < count($cond_vett); $num3++) {
$cond_nuova .= $cond_vett[$num3] . "#%?";
}
$cond_nuova = substr($cond_nuova, 0, -3);
}
# fine for $num2
}
# fine ($cond_vecchia[1])
$cond_nuova .= "#@?" . $azione_vecchia[0];
if ($azione_vecchia[0] == "set") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
if ($azione_vecchia[3] == "var") {
ripristina_nome_var_cond(array(4), $azione_vecchia, $nuovo_nome_var);
}
if ($azione_vecchia[5] == "var") {
ripristina_nome_var_cond(array(6), $azione_vecchia, $nuovo_nome_var);
}
if ($azione_vecchia[7] == "var") {
ripristina_nome_var_cond(array(8), $azione_vecchia, $nuovo_nome_var);
}
}
# fine if ($azione_vecchia[0] == "set")
if ($azione_vecchia[0] == "trunc") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
}
if ($azione_vecchia[0] == "oper") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
if ($azione_vecchia[4] == "var") {
ripristina_nome_var_cond(array(2, 5), $azione_vecchia, $nuovo_nome_var);
} else {
ripristina_nome_var_cond(array(2), $azione_vecchia, $nuovo_nome_var);
}
}
# fine if ($azione_vecchia[0] == "oper")
if ($azione_vecchia[0] == "date") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
ripristina_nome_var_cond(array(2), $azione_vecchia, $nuovo_nome_var);
}
# fine if ($azione_vecchia[0] == "date")
if ($azione_vecchia[0] == "unset") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
}
if ($azione_vecchia[0] == "array") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
if ($azione_vecchia[2] == "cop") {
$azione_vecchia[3] = $nuovo_num_var[$azione_vecchia[3]];
}
}
# fine if ($azione_vecchia[0] == "array")
for ($num2 = 1; $num2 < count($azione_vecchia); $num2++) {
$cond_nuova .= "#%?" . $azione_vecchia[$num2];
}
$riga[$num_colonna['testo']] = $cond_nuova;
$testo = aggslashdb($riga[$num_colonna['testo']]);
#$cond_esistente = esegui_query("select * from ".$PHPR_TAB_PRE."contratti where tipo = 'cond$contr_cond' and testo = '$testo' ");
#for ($num2 = 0 ; $num2 < numlin_query($cond_esistente) ; $num2++) if ($cond_nuova == risul_query($cond_esistente,$num2,'testo')) $inserire_riga = "NO";
} else {
$inserire_riga = "NO";
}
}
# fine if (substr($tipo_contr,0,4) == "cond")
if ($tipo_contr == "file_all") {
$vecchio_all = $riga[$num_colonna['numero']];
if (!$contr_agg or str_replace(",{$vecchio_all},", "", $contr_agg_all) != $contr_agg_all) {
if (!$nuovo_num_all[$vecchio_all]) {
$nuovo_num_all[$vecchio_all] = $max_all + $vecchio_all;
}
$riga[$num_colonna['numero']] = $nuovo_num_all[$vecchio_all];
} else {
$inserire_riga = "NO";
}
}
# fine if ($tipo_contr == "file_all")
for ($num2 = 0; $num2 < count($riga); $num2++) {
$valore = aggslashdb($riga[$num2]);
if ($valore != "") {
$valore = str_replace("</righetabella@%&@>", "</righetabella>", $valore);
$valore = str_replace("</riga@%&@>", "</riga>", $valore);
$valore = str_replace("<riga@%&@>", "<riga>", $valore);
$valore = str_replace("</cmp@%&@>", "</cmp>", $valore);
$valore = str_replace("@%&@@%&@", "@%&@", $valore);
$lista_valori .= ",'" . $valore . "'";
$lista_colonne .= "," . $nome_colonna[$num2 + 1];
}
# fine if ($valore != "")
}
# fine for $num2
$lista_valori = substr($lista_valori, 1);
$lista_colonne = substr($lista_colonne, 1);
#echo "insert into $nome_tabella ($lista_colonne) values ($lista_valori)<br>";
if ($inserire_riga != "NO") {
esegui_query("insert into " . $PHPR_TAB_PRE . "{$nome_tabella} ({$lista_colonne}) values ({$lista_valori}) ");
}
}
# fine if (substr($linea,-7) == "</riga>")
}
# fine if ($leggendo_righe == "SI")
if ($linea == "<righetabella>") {
$leggendo_righe = "SI";
$linee_inserite_in_tabella[$nome_tabella] = 0;
}
# fine if ($linea == "<righetabella>")
}
# fine if ($leggendo_tabella == "SI")
if ($linea == "<tabella>") {
$leggendo_tabella = "SI";
}
}
# fine if ($leggendo_database == "SI")
if ($linea == "<database>") {
$leggendo_database = "SI";
}
}
# fine if ($leggendo_backup == "SI")
if ($linea == "<backup>") {
$leggendo_backup = "SI";
}
}
# fine for $num1
$tabelle_lock = array($PHPR_TAB_PRE . "contratti", $PHPR_TAB_PRE . "personalizza");
$altre_tab_lock = array($PHPR_TAB_PRE . "versioni");
$tabelle_lock = lock_tabelle($tabelle_lock, $altre_tab_lock);
$nomi_contratti = esegui_query("select testo from {$PHPR_TAB_PRE}" . "contratti where numero = '1' and tipo = 'nomi_con' ");
$nomi_contratti = risul_query($nomi_contratti, 0, 'testo');
if ($modalita == "rimpiazza") {
esegui_query("update {$PHPR_TAB_PRE}" . "personalizza set valpersonalizza = '" . aggslashdb($nomi_contratti) . "' where idpersonalizza = 'nomi_contratti'");
} else {
$nomi_contratti = explode("#@&", $nomi_contratti);
$n_nomi_contratti = "";
for ($num1 = 0; $num1 < count($nomi_contratti); $num1++) {
$nome_contr = explode("#?&", $nomi_contratti[$num1]);
if (!$contr_agg or $nome_contr[0] == $contr_agg) {
$n_nomi_contratti .= "#@&" . $nuovo_num_contr[$nome_contr[0]] . "#?&" . $nome_contr[1];
}
}
# fine for $num1
$d_nomi_contr = esegui_query("select * from {$PHPR_TAB_PRE}" . "personalizza where idpersonalizza = 'nomi_contratti' ");
for ($num1 = 0; $num1 < numlin_query($d_nomi_contr); $num1++) {
$idutente_contr = risul_query($d_nomi_contr, $num1, 'idutente');
$nomi_contr_utente = risul_query($d_nomi_contr, $num1, 'valpersonalizza') . $n_nomi_contratti;
esegui_query("update {$PHPR_TAB_PRE}" . "personalizza set valpersonalizza = '" . aggslashdb($nomi_contr_utente) . "' where idpersonalizza = 'nomi_contratti' and idutente = '{$idutente_contr}' ");
}
# fine for $num1
}
# fine else if ($modalita == "rimpiazza")
esegui_query("delete from {$PHPR_TAB_PRE}" . "contratti where numero = '1' and tipo = 'nomi_con' ");
unlock_tabelle($tabelle_lock);
if ($silenzio != "SI") {
echo mex("Documenti ripristinati", $pag) . ".<br>";
}
}
# fine else if ($file_coerente == "NO")
} else {
if ($silenzio != "SI") {
echo mex("La versione attuale di hoteldruid e quella del file non coincidono", $pag) . ".<br>";
}
}
}
} # fine for $num1
echo "</select>.<br>";
$anno_prec = $anno -1;
if (@is_file(C_DATA_PATH."/selectperiodi$anno_prec.1.php")) {
echo "<label><input type=\"checkbox\" name=\"importa_anno_prec\" value=\"SI\" checked>
".mex("Importa dall'anno precedente prenotazioni, tariffe (compresi costi aggiuntivi), privilegi degli utenti e regole d'assegnazione.",$pag)."</label>";
} # fine if (@is_file(C_DATI_PATH."/selectperiodi$anno_prec.1.php"))
echo "</div></form>";
} # fine else if (controlla_anno($anno) == "NO" or $id_utente != 1 or...
echo "<br><hr style=\"width: 95%\"><br>
<form accept-charset=\"utf-8\" method=\"post\" action=\"inizio.php\"><div>
<input type=\"hidden\" name=\"id_sessione\" value=\"$id_sessione\">
<br> ".mex("richiedi l'anno",$pag)."
<input type=\"text\" name=\"anno\" size=\"4\" maxlength=\"4\">
<input class=\"sbutton\" type=\"submit\" name=\"vai\" value=\"".mex("vai",$pag)."\"><br>
</div></form>";
if ($tema[$id_utente] != "base") include("./themes/".$tema[$id_utente]."/php/foot.php");
else include("./includes/foot.php");
} # fine else if ($anno_esistente == "SI")
} # fine else if (@is_file(C_DATI_PATH."/dati_connessione.php") != true)
} # fine if ($id_utente)
if (!$dir_salva) echo $contratto;
} # fine if ($mostra_contratto == "SI")
if ($mostra_torna_indietro == "SI") {
if (!$origine) $origine = "./inizio.php";
echo "<form accept-charset=\"utf-8\" method=\"post\" action=\"".htmlspecialchars($origine)."\"><div><br><br>
<input type=\"hidden\" name=\"origine_vecchia\" value=\"".htmlspecialchars($origine_vecchia)."\">
<input type=\"hidden\" name=\"anno\" value=\"$anno\">
<input type=\"hidden\" name=\"id_sessione\" value=\"$id_sessione\">
<input type=\"hidden\" name=\"torna_indietro\" value=\"1\">
".bottone_submit_contr(mex("Torna indietro",$pag),"indi","indietro")."
</div></form><br>";
} # fine if ($mostra_torna_indietro == "SI")
if (($mostra_contratto == "SI" and $mostra_headers == "SI") or $manda_mail == "SI" or $dir_salva) {
if ($tema[$id_utente] and $tema[$id_utente] != "base" and @is_dir("./themes/".$tema[$id_utente]."/php")) include("./themes/".$tema[$id_utente]."/php/foot.php");
else include("./includes/foot.php");
} # fine if (($mostra_contratto == "SI" and $mostra_headers == "SI") or...
if ($foothtm) echo $foothtm;
} # fine if ($anno_utente_attivato == "SI")
} # fine if ($id_utente)
function aggiorna_relutenti($aggiungi_rel, $rel_predefinite, $elimina_tutte_rel, $importa_rel, $id_utente, $id_utente_mod, $nuova_rel, $sup_n_rel, $cod_n_rel, $cod2_n_rel, $cod3_n_rel, $utente_importa_rel, $pag, $rel_sing, $rel_plur, $tablerel, $tablerelutenti, $rel_sup_sing = "", $rel_sup_plur = "", $tablerel_sup = "", $rel_inf_sing = "", $rel_inf_plur = "", $tablerel_inf = "")
{
if ($id_utente != 1 or $id_utente_mod == $utente_importa_rel) {
$importa_rel = "";
}
if ($aggiungi_rel or $rel_predefinite or $elimina_tutte_rel or $importa_rel) {
if (get_magic_quotes_gpc()) {
$nuova_rel = stripslashes($nuova_rel);
$cod_n_rel = stripslashes($cod_n_rel);
$cod2_n_rel = stripslashes($cod2_n_rel);
$cod3_n_rel = stripslashes($cod3_n_rel);
$sup_n_rel = stripslashes($sup_n_rel);
}
# fine if (get_magic_quotes_gpc())
$nuova_rel = htmlspecialchars($nuova_rel);
$cod_n_rel = htmlspecialchars($cod_n_rel);
$cod2_n_rel = htmlspecialchars($cod2_n_rel);
$cod3_n_rel = htmlspecialchars($cod3_n_rel);
$sup_n_rel = htmlspecialchars($sup_n_rel);
if (!$aggiungi_rel or str_replace(" ", "", $nuova_rel)) {
echo "<div id=\"avanz_{$rel_plur}\"><br>";
if ($tablerel_inf) {
$tabelle_lock = array($tablerel, $tablerel_inf, $tablerelutenti);
} else {
$tabelle_lock = array($tablerel, $tablerelutenti);
}
if ($tablerel_sup) {
$altre_tab_lock = array($tablerel_sup);
} else {
$altre_tab_lock = "";
}
$tabelle_lock = lock_tabelle($tabelle_lock, $altre_tab_lock);
unset($lista_rel);
unset($cod_rel);
unset($cod2_rel);
unset($cod3_rel);
unset($cod_rel_sup);
if ($aggiungi_rel) {
$lista_rel[0] = $nuova_rel;
$cod_rel[0] = $cod_n_rel;
$cod2_rel[0] = $cod2_n_rel;
$cod3_rel[0] = $cod3_n_rel;
if ($rel_sup_sing and $sup_n_rel) {
$sup_n_rel_esist = esegui_query("select distinct {$tablerel_sup}.id{$rel_sup_plur} from {$tablerelutenti} inner join {$tablerel_sup} on {$tablerelutenti}.id{$rel_sup_sing} = {$tablerel_sup}.id{$rel_sup_plur} where {$tablerelutenti}.idutente = '{$id_utente_mod}' and {$tablerel_sup}.nome_{$rel_sup_sing} = '" . aggslashdb($sup_n_rel) . "' ");
if (numlin_query($sup_n_rel_esist) > 0) {
$id_rel_sup_vett[0] = risul_query($sup_n_rel_esist, 0, "id{$rel_sup_plur}", $tablerel_sup);
}
}
# fine if ($rel_sup_sing and $sup_n_rel)
} else {
$rel_canc = esegui_query("select id{$rel_sing} from {$tablerelutenti} where idutente = '{$id_utente_mod}' and id{$rel_sing} is not NULL ");
$num_rel_canc = numlin_query($rel_canc);
esegui_query("delete from {$tablerelutenti} where idutente = '{$id_utente_mod}' and id{$rel_sing} is not NULL ");
$rel_usate = esegui_query("select distinct id{$rel_sing} from {$tablerelutenti} where id{$rel_sing} is not NULL");
$num_rel_usate = numlin_query($rel_usate);
for ($num1 = 0; $num1 < $num_rel_usate; $num1++) {
$relutente_usate[(int) risul_query($rel_usate, $num1, "id{$rel_sing}")] = 1;
}
# fine for $num1
for ($num1 = 0; $num1 < $num_rel_canc; $num1++) {
if (substr($num1, -3) == "000") {
http_keep_alive(". ");
}
if ($num1 > 20) {
$nolog = 1;
} else {
$nolog = 0;
}
cancella_relutente(risul_query($rel_canc, $num1, "id{$rel_sing}"), $id_utente_mod, $rel_sing, $rel_plur, $tablerel, $tablerelutenti, $rel_inf_sing, $rel_inf_plur, $tablerel_inf, "SI", $relutente_usate, $nolog);
}
# fine for $num1
unset($rel_canc);
unset($rel_usate);
unset($relutente_usate);
if ($rel_predefinite) {
include C_DATA_PATH . "/lingua.php";
global ${"lista_" . $rel_plur}, ${"cod_" . $rel_plur}, ${"cod2_" . $rel_plur}, ${"cod3_" . $rel_plur}, ${"cod_" . $rel_sup_sing . "_" . $rel_plur};
if ($lingua[$id_utente_mod] == "ita") {
include_once "./includes/lista_{$rel_plur}.php";
} else {
if (@is_file("./includes/lang/" . $lingua[$id_utente_mod] . "/lista_{$rel_plur}.php")) {
include_once "./includes/lang/" . $lingua[$id_utente_mod] . "/lista_{$rel_plur}.php";
}
}
$lista_rel = ${"lista_" . $rel_plur};
$cod_rel = ${"cod_" . $rel_plur};
$cod2_rel = ${"cod2_" . $rel_plur};
$cod3_rel = ${"cod3_" . $rel_plur};
if ($rel_sup_sing) {
$cod_rel_sup = ${"cod_" . $rel_sup_sing . "_" . $rel_plur};
}
if (@is_array($lista_rel)) {
$num_rel = count($lista_rel);
} else {
$num_rel = 0;
}
for ($num1 = 0; $num1 < $num_rel; $num1++) {
$lista_rel[$num1] = htmlspecialchars($lista_rel[$num1]);
$cod_rel[$num1] = htmlspecialchars($cod_rel[$num1]);
$cod2_rel[$num1] = htmlspecialchars($cod2_rel[$num1]);
$cod3_rel[$num1] = htmlspecialchars($cod3_rel[$num1]);
$cod_rel_sup[$num1] = htmlspecialchars($cod_rel_sup[$num1]);
}
# fine for $num1
} else {
if ($importa_rel) {
$utente_importa_rel = aggslashdb($utente_importa_rel);
$rel_ut_imp = esegui_query("select distinct {$tablerel}.nome_{$rel_sing},{$tablerelutenti}.idsup from {$tablerelutenti} inner join {$tablerel} on {$tablerelutenti}.id{$rel_sing} = {$tablerel}.id{$rel_plur} where {$tablerelutenti}.idutente = '{$utente_importa_rel}' order by {$tablerel}.nome_{$rel_sing}");
$num_rel_ut_imp = numlin_query($rel_ut_imp);
for ($num1 = 0; $num1 < $num_rel_ut_imp; $num1++) {
$rel = risul_query($rel_ut_imp, $num1, "nome_{$rel_sing}", $tablerel);
$lista_rel[$num1] = $rel;
if ($rel_sup_sing) {
$id_rel_sup_vett[$num1] = risul_query($rel_ut_imp, $num1, 'idsup', $tablerelutenti);
}
}
# fine for $num1
unset($rel_ut_imp);
}
}
# fine if ($importa_rel)
}
# fine else if ($aggiungi_rel)
$num_passa_a_var = 2;
if (@is_array($lista_rel)) {
$num_rel_agg = count($lista_rel);
} else {
$num_rel_agg = 0;
}
if ($num_rel_agg >= $num_passa_a_var) {
$rel_esistenti = esegui_query("select id{$rel_plur},nome_{$rel_sing},codice_{$rel_sing} from {$tablerel} where nome_{$rel_sing} is not NULL ");
$num_rel_esistenti = numlin_query($rel_esistenti);
for ($num1 = 0; $num1 < $num_rel_esistenti; $num1++) {
$nome_rel = risul_query($rel_esistenti, $num1, "nome_{$rel_sing}");
$rel_esistente[$nome_rel] = 1;
$id_esistente[$nome_rel] = risul_query($rel_esistenti, $num1, "id{$rel_plur}");
$cod_esistente[$nome_rel] = risul_query($rel_esistenti, $num1, "codice_{$rel_sing}");
}
# fine for $num1
unset($rel_esistenti);
$rel_esistenti2 = esegui_query("select id{$rel_sing},idsup from {$tablerelutenti} where idutente = '{$id_utente_mod}' and id{$rel_sing} is not NULL ");
$num_rel_esistenti2 = numlin_query($rel_esistenti2);
for ($num1 = 0; $num1 < $num_rel_esistenti2; $num1++) {
$id_rel = risul_query($rel_esistenti2, $num1, "id{$rel_sing}");
$rel_esistente2[$id_rel] = 1;
$idsup_esistente2[$id_rel] = risul_query($rel_esistenti2, $num1, 'idsup');
}
# fine for $num1
unset($rel_esistenti2);
}
# fine if ($num_rel_agg > $num_passa_a_var)
unset($num_max);
for ($num1 = 0; $num1 < $num_rel_agg; $num1++) {
if (substr($num1, -3) == "000") {
http_keep_alive(". ");
}
if ($num1 > 20) {
$nolog = 1;
} else {
$nolog = 0;
}
$id_rel_sup = "";
if ($rel_sup_sing and $cod_rel_sup[$num1]) {
if ($cod_sup_esist[$cod_rel_sup[$num1]]) {
$id_rel_sup = $cod_sup_esist[$cod_rel_sup[$num1]];
} else {
$rel_sup = esegui_query("select id{$rel_sup_plur} from {$tablerel_sup} where codice_{$rel_sup_sing} = '" . aggslashdb($cod_rel_sup[$num1]) . "' ");
if (numlin_query($rel_sup) > 0) {
$id_rel_sup = risul_query($rel_sup, 0, "id{$rel_sup_plur}");
$cod_sup_esist[$cod_rel_sup[$num1]] = $id_rel_sup;
}
# fine if (numlin_query($rel_sup) > 0)
}
# fine else if ($cod_sup_esistente[$cod_rel_sup[$num1]])
}
# fine if ($rel_sup_sing and $cod_rel_sup[$num1])
if ($rel_sup_sing and $id_rel_sup_vett[$num1]) {
if ($id_sup_esist[$id_rel_sup_vett[$num1]]) {
$id_rel_sup = $id_sup_esist[$id_rel_sup_vett[$num1]];
} else {
$rel_sup = esegui_query("select id{$rel_sup_plur} from {$tablerel_sup} where id{$rel_sup_plur} = '" . aggslashdb($id_rel_sup_vett[$num1]) . "' ");
if (numlin_query($rel_sup) > 0) {
$id_rel_sup = $id_rel_sup_vett[$num1];
$id_sup_esist[$id_rel_sup_vett[$num1]] = $id_rel_sup;
}
# fine if (numlin_query($rel_sup) > 0)
}
# fine else if ($cod_sup_esistente[$cod_rel_sup[$num1]])
}
# fine if ($rel_sup_sing and $id_rel_sup_vett[$num1])
if ($num_rel_agg < $num_passa_a_var) {
$rel_esistenti = esegui_query("select id{$rel_plur},nome_{$rel_sing},codice_{$rel_sing} from {$tablerel} where nome_{$rel_sing} = '" . aggslashdb($lista_rel[$num1]) . "' ");
if (numlin_query($rel_esistenti)) {
$nome_rel = risul_query($rel_esistenti, 0, "nome_{$rel_sing}");
$rel_esistente[$nome_rel] = 1;
$id_esistente[$nome_rel] = risul_query($rel_esistenti, 0, "id{$rel_plur}");
$cod_esistente[$nome_rel] = risul_query($rel_esistenti, 0, "codice_{$rel_sing}");
}
# fine if (numlin_query($rel_esistenti))
}
# fine if ($num_rel_agg <= $num_passa_a_var)
if (!$rel_esistente[$lista_rel[$num1]]) {
if (!$num_max) {
$num_max = esegui_query("select max(id{$rel_plur}) from {$tablerel} ");
$num_max = risul_query($num_max, 0, 0) + 1;
} else {
$num_max++;
}
$num_n_rel = $num_max;
esegui_query("insert into {$tablerel} (id{$rel_plur},nome_{$rel_sing},codice_{$rel_sing},codice2_{$rel_sing},codice3_{$rel_sing}) values ('{$num_n_rel}','" . aggslashdb($lista_rel[$num1]) . "','" . aggslashdb($cod_rel[$num1]) . "','" . aggslashdb($cod2_rel[$num1]) . "','" . aggslashdb($cod3_rel[$num1]) . "') ", "", $nolog);
$rel_esistente[$lista_rel[$num1]] = 1;
$id_esistente[$lista_rel[$num1]] = $num_n_rel;
$cod_esistente[$lista_rel[$num1]] = $cod_rel[$num1];
} else {
$num_n_rel = $id_esistente[$lista_rel[$num1]];
$r_cod = $cod_esistente[$lista_rel[$num1]];
if (!$r_cod and $cod_rel[$num1]) {
esegui_query("update {$tablerel} set codice_{$rel_sing} = '" . aggslashdb($cod_rel[$num1]) . "' where id{$rel_plur} = '{$num_n_rel}' ");
}
if ($cod2_rel[$num1]) {
esegui_query("update {$tablerel} set codice2_{$rel_sing} = '" . aggslashdb($cod2_rel[$num1]) . "' where id{$rel_plur} = '{$num_n_rel}' ");
}
if ($cod3_rel[$num1]) {
esegui_query("update {$tablerel} set codice3_{$rel_sing} = '" . aggslashdb($cod3_rel[$num1]) . "' where id{$rel_plur} = '{$num_n_rel}' ");
}
if ($num_rel_agg < $num_passa_a_var) {
$rel_esistenti2 = esegui_query("select idsup from {$tablerelutenti} where idutente = '{$id_utente_mod}' and id{$rel_sing} = '{$num_n_rel}' ");
if (numlin_query($rel_esistenti2)) {
$rel_esistente2[$num_n_rel] = 1;
$idsup_esistente2[$num_n_rel] = risul_query($rel_esistenti2, 0, 'idsup');
}
# fine if (numlin_query($rel_esistenti2))
}
# fine if ($num_rel_agg < $num_passa_a_var)
}
# fine else if (!$rel_esistente[$lista_rel[$num1]])
if (!$rel_esistente2[$num_n_rel]) {
if ($id_rel_sup) {
esegui_query("insert into {$tablerelutenti} (idutente,id{$rel_sing},idsup) values ('{$id_utente_mod}','{$num_n_rel}','{$id_rel_sup}') ", "", $nolog);
} else {
esegui_query("insert into {$tablerelutenti} (idutente,id{$rel_sing}) values ('{$id_utente_mod}','{$num_n_rel}') ", "", $nolog);
}
$rel_esistente2[$num_n_rel] = 1;
$idsup_esistente2[$num_n_rel] = $id_rel_sup;
} elseif ($id_rel_sup) {
$idsup = $idsup_esistente2[$num_n_rel];
if (!$idsup) {
esegui_query("update {$tablerelutenti} set idsup = '{$id_rel_sup}' where idutente = '{$id_utente_mod}' and id{$rel_sing} = '{$num_n_rel}' ");
}
}
# fine elseif ($id_rel_sup)
}
# fine for $num1
unlock_tabelle($tabelle_lock);
echo "<br></div>\n<script type=\"text/javascript\">\n<!--\nvar avanz = document.getElementById('avanz_{$rel_plur}');\navanz.style.display = 'none';\n-->\n</script>\n";
switch ($rel_sing) {
case "regione":
if ($aggiungi_rel and $pag) {
echo mex("Nuova regione/provincia aggiunta", $pag) . ".<br>";
}
if ($rel_predefinite and $pag) {
echo mex("Regioni/provincie predefinite ripristinate", $pag) . ".<br>";
}
if ($elimina_tutte_rel and $pag) {
echo mex("Regioni/provincie cancellate", $pag) . ".<br>";
}
if ($importa_rel and $pag) {
echo mex("Regioni/provincie importate", $pag) . ".<br>";
}
break;
case "documentoid":
if ($aggiungi_rel and $pag) {
echo mex("Nuovo tipo di documento di identità aggiunto", $pag) . ".<br>";
}
if ($rel_predefinite and $pag) {
echo mex("Tipi di documento di identità predefiniti ripristinati", $pag) . ".<br>";
}
if ($elimina_tutte_rel and $pag) {
echo mex("Tipi di documento di identità cancellati", $pag) . ".<br>";
}
if ($importa_rel and $pag) {
echo mex("Tipi di documento di identità importati", $pag) . ".<br>";
}
break;
case "citta":
$rel_sing = "città";
$rel_plur = "città";
default:
if ($aggiungi_rel and $pag) {
echo mex("Nuova {$rel_sing} aggiunta", $pag) . ".<br>";
}
if ($rel_predefinite and $pag) {
echo mex(ucfirst($rel_plur) . " predefinite ripristinate", $pag) . ".<br>";
}
if ($elimina_tutte_rel and $pag) {
echo mex(ucfirst($rel_plur) . " cancellate", $pag) . ".<br>";
}
if ($importa_rel and $pag) {
echo mex(ucfirst($rel_plur) . " importate", $pag) . ".<br>";
}
}
# fine switch ($rel_sing)
unset($lista_rel);
unset($cod_rel);
unset($cod2_rel);
unset($cod3_rel);
unset($cod_rel_sup);
unset($rel_esistente);
unset($id_esistente);
unset($cod_esistente);
unset($rel_esistente2);
unset($idsup_esistente2);
}
# fine if (!$aggiungi_rel or str_replace(" ","",$nuova_rel))
}
# fine if ($aggiungi_rel or $rel_predefinite or...
}
function mostra_frame_rel($id, $rel, $rel_sup, $id_ut_sel, $cmp, $mostra_cod, $pieno, $titolo, $size = "20", $maxlength = "50")
{
global $tablerelutenti, $tablenazioni, $tableregioni, $tablecitta, $tabledocumentiid, $tableparentele;
trova_rel($rel, $rel_sing, $rel_plur, $tablerel);
trova_rel($rel_sup, $rel_sup_sing, $rel_sup_plur, $tablerel_sup);
if (get_magic_quotes_gpc()) {
$id = stripslashes($id);
}
$id = htmlspecialchars($id);
$id_sup = esegui_query("select distinct {$tablerel_sup}.id{$rel_sup_plur} from {$tablerelutenti} inner join {$tablerel_sup} on {$tablerelutenti}.id{$rel_sup_sing} = {$tablerel_sup}.id{$rel_sup_plur} where {$tablerelutenti}.idutente = '{$id_ut_sel}' and {$tablerel_sup}.nome_{$rel_sup_sing} = '" . aggslashdb($id) . "' ");
if (numlin_query($id_sup)) {
$is_id = "= '" . risul_query($id_sup, 0, "id{$rel_sup_plur}", $tablerel_sup) . "'";
} else {
$is_id = "is NULL";
}
echo "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"\n \"http://www.w3.org/TR/html4/strict.dtd\">\n<html>\n<head>\n<meta http-equiv=\"Content-Type\" content=\"text/html;charset=utf-8\" >\n<title> {$titolo} </title>\n</head>\n<body>\n<div id=\"dati_rel\">";
$rel_utente = esegui_query("select distinct {$tablerel}.nome_{$rel_sing},{$tablerel}.codice_{$rel_sing},{$tablerel}.codice2_{$rel_sing},{$tablerel}.codice3_{$rel_sing} from {$tablerelutenti} inner join {$tablerel} on {$tablerelutenti}.id{$rel_sing} = {$tablerel}.id{$rel_plur} where {$tablerelutenti}.idutente = '{$id_ut_sel}' and {$tablerelutenti}.idsup {$is_id} order by {$tablerel}.nome_{$rel_sing}");
$num_rel_utente = numlin_query($rel_utente);
if ($num_rel_utente) {
echo "<select name=\"{$cmp}\" id=\"{$cmp}\">";
if ($pieno != "SI") {
echo "<option value=\"\">------</option>";
}
for ($num1 = 0; $num1 < $num_rel_utente; $num1++) {
$rel = htmlspecialchars(risul_query($rel_utente, $num1, "nome_{$rel_sing}", $tablerel));
echo "<option value=\"{$rel}\">{$rel}";
if ($mostra_cod) {
$codice = htmlspecialchars(risul_query($rel_utente, $num1, "codice_{$rel_sing}", $tablerel));
$codice2 = htmlspecialchars(risul_query($rel_utente, $num1, "codice2_{$rel_sing}", $tablerel));
$codice3 = htmlspecialchars(risul_query($rel_utente, $num1, "codice3_{$rel_sing}", $tablerel));
if (strcmp($codice, "")) {
echo " ({$codice})";
}
if (strcmp($codice2, "")) {
echo " (" . mex("2°", 'personalizza.php') . " {$codice2})";
}
if (strcmp($codice3, "")) {
echo " (" . mex("3°", 'personalizza.php') . " {$codice3})";
}
}
# fine if ($mostra_cod)
echo "</option>";
}
# fine for $num1
echo "</select>";
} else {
echo "<input type=\"text\" name=\"{$cmp}\" id=\"{$cmp}\" size=\"{$size}\" maxlength=\"{$maxlength}\">";
}
echo "</div>\n</body>\n</html>\n";
}
function ins_nome_giorno (&$var,$g_corr) {
$var .= "<small>";
if ($g_corr == "0") $var .= mex(" Do","giorni_mesi.php");
if ($g_corr == "1") $var .= mex(" Lu","giorni_mesi.php");
if ($g_corr == "2") $var .= mex(" Ma","giorni_mesi.php");
if ($g_corr == "3") $var .= mex(" Me","giorni_mesi.php");
if ($g_corr == "4") $var .= mex(" Gi","giorni_mesi.php");
if ($g_corr == "5") $var .= mex(" Ve","giorni_mesi.php");
if ($g_corr == "6") $var .= mex(" Sa","giorni_mesi.php");
$var = str_replace(" ","<br>",$var);
$var .= "</small>";
} # fine function ins_nome_giorno
for ($num1 = 0; $num1 < $num_gruppi; $num1++) {
$id_gruppo = risul_query($gruppi, $num1, 'idgruppi');
$nome_gruppo = risul_query($gruppi, $num1, 'nome_gruppo');
echo "<option value=\"gr{$id_gruppo}\">" . mex("del gruppo", $pag) . " {$nome_gruppo}</option>";
}
# fine for $num1
echo "</select>\n" . mex("dall'utente", $pag) . "\n<select name=\"id_utente_esporta\">{$option_select_utenti}</select>\n<input class=\"sbutton\" type=\"submit\" value=\"" . mex("Importa", $pag) . "\">\n</div></form><br>";
}
# fine if ($num_lista_utenti > 2)
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0) {
$num_utenti_esistenti = esegui_query("select idutenti from {$tableutenti}");
$num_utenti_esistenti = numlin_query($num_utenti_esistenti);
if ($num_utenti_esistenti >= C_MASSIMO_NUM_UTENTI) {
$aggiungi_utenti = "NO";
}
}
# fine if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0)
if ($aggiungi_utenti != "NO") {
echo "<form accept-charset=\"utf-8\" method=\"post\" action=\"gestione_utenti.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n" . mex("Aggiungi", $pag) . "\n " . mex("un nuovo utente chiamato", $pag) . " <input type=\"text\" name=\"nome\" size=\"15\">\n<input class=\"sbutton\" type=\"submit\" name=\"aggiungi_utente\" value=\"" . mex("Aggiungi", $pag) . "\">\n</div></form>";
}
# fine if ($aggiungi_utenti != "NO")
echo "<br><div style=\"text-align: center;\">\n<form accept-charset=\"utf-8\" method=\"post\" action=\"personalizza.php\"><div>\n<input type=\"hidden\" name=\"anno\" value=\"{$anno}\">\n<input type=\"hidden\" name=\"id_sessione\" value=\"{$id_sessione}\">\n<input class=\"sbutton\" type=\"submit\" name=\"torna\" value=\"" . mex("Torna indietro", $pag) . "\">\n</div></form><br></div>";
}
# fine if ($mostra_tabella_iniziale != "NO")
if ($tema[$id_utente] and $tema[$id_utente] != "base" and @is_dir("./themes/" . $tema[$id_utente] . "/php")) {
include "./themes/" . $tema[$id_utente] . "/php/foot.php";
} else {
include "./includes/foot.php";
}
}
# fine if ($id_utente and $id_utente == 1)
function crea_messaggio_contr_salva($nome_file_contr, $num_file_salva, $num_contr_esist, $nome_file_contr_esist, $numero_contratto, $nomi_contratti, $dir_salva, $tipo_contratto, $num_ripeti, $origine, $origine_vecchia, $lista_var_form, $mostra_headers, $anno, $id_sessione, $id_utente, $tema, $tableversioni, $tabletransazioni, $pag)
{
global $PHPR_TAB_PRE, $priv_cancella_contratti;
$nome_file_contr_orig = $nome_file_contr;
$num_file_salva_orig = $num_file_salva;
if ($num_contr_esist) {
$nome_file_contr = $nome_file_contr_esist;
$num_file_salva = count($nome_file_contr);
}
# fine if ($num_contr_esist)
$tabelle_lock = array($tableversioni, $tabletransazioni);
$adesso = date("YmdHis", time() + C_DIFF_ORE * 3600);
list($usec, $sec) = explode(' ', microtime());
mt_srand((double) $sec + (double) $usec * 100000);
$val_casuale = mt_rand(100000, 999999);
$versione_transazione = prendi_numero_versione($tableversioni);
$ultimo_accesso = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600);
$id_transazione = $adesso . $val_casuale . $versione_transazione;
esegui_query("insert into {$tabletransazioni} (idtransazioni,idsessione,tipo_transazione,anno,dati_transazione1,dati_transazione2,dati_transazione3,dati_transazione4,dati_transazione5,ultimo_accesso) values ('{$id_transazione}','{$id_sessione}','con_s','{$anno}','" . aggslashdb($dir_salva) . "','" . aggslashdb(serialize($nome_file_contr)) . "','{$tipo_contratto}','" . aggslashdb($origine) . "','" . aggslashdb($origine_vecchia) . "','{$ultimo_accesso}')");
unlock_tabelle($tabelle_lock);
if ($tipo_contratto == "contrrtf") {
$sec_aspetta = 2;
} else {
$sec_aspetta = 6;
}
$url_reload = "./{$pag}?id_sessione={$id_sessione}&anno={$anno}&id_transazione={$id_transazione}&numero_contratto={$numero_contratto}";
if ($num_file_salva == 1) {
$target = "";
} else {
$target = " target=\"_blank\"";
}
if ($mostra_headers == "NO") {
if ($num_file_salva == 1) {
$extra_head = "<meta http-equiv=\"refresh\" content=\"{$sec_aspetta}; url={$url_reload}&n_file=1\">\n";
}
if ($tema[$id_utente] and $tema[$id_utente] != "base" and @is_dir("./themes/" . $tema[$id_utente] . "/php")) {
include "./themes/" . $tema[$id_utente] . "/php/head.php";
} else {
include "./includes/head.php";
}
}
# fine if ($mostra_headers == "NO")
if ($num_contr_esist and $num_file_salva_orig == 1) {
echo "<div style=\"line-height: 180%\"><br>";
} else {
echo "<div style=\"line-height: 130%\"><br>";
}
if ($num_contr_esist) {
if ($num_ripeti > 1) {
echo mex("Documenti già esistenti riguardanti queste prenotazioni", $pag) . ":<br>";
} else {
echo mex("Documenti già esistenti riguardanti questa prenotazione", $pag) . ":<br>";
}
}
# fine if ($num_contr_esist)
for ($num1 = 1; $num1 <= $num_file_salva; $num1++) {
if ($num_contr_esist and $num_file_salva_orig == 1) {
echo "<form accept-charset=\"utf-8\" method=\"post\" action=\"{$pag}\"><div>\n{$lista_var_form}\n<input type=\"hidden\" name=\"sovrascrivi\" value=\"" . htmlspecialchars($nome_file_contr[$num1]) . "\">";
}
# fine if ($num_contr_esist and $num_file_salva_orig == 1)
if (!$num_contr_esist) {
echo ucfirst(mex("documento", $pag)) . " ";
if ($nomi_contratti['salv'][$numero_contratto] != $nomi_contratti[$numero_contratto]) {
echo "\"" . $nomi_contratti[$numero_contratto] . "\" ";
}
echo mex("<span class=\"colblu\">salvato</span> come", $pag);
}
# fine if (!$num_contr_esist)
echo " <b><a style=\"color: #000000;\" href=\"{$url_reload}&n_file={$num1}\"{$target}>" . $nome_file_contr[$num1] . "</a></b>";
if ($num_contr_esist and $num_file_salva_orig == 1 and $priv_cancella_contratti != "n") {
echo " " . bottone_submit_contr(mex("Sovrascrivi", $pag)) . "\n.</div></form>";
} else {
echo ".<br>";
}
}
# fine for $num1
echo "<br></div>";
if (!$num_contr_esist) {
if ($priv_cancella_contratti != "n") {
echo "<form accept-charset=\"utf-8\" method=\"post\" action=\"{$pag}\"><div>\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=\"id_transazione\" value=\"{$id_transazione}\">\n<input type=\"hidden\" name=\"cancella\" value=\"SI\">";
if ($num_file_salva == 1) {
echo " " . bottone_submit_contr(mex("Cancella il documento", $pag));
} else {
echo bottone_submit_contr(mex("Cancella i documenti", $pag));
}
echo "</div></form><br>";
}
# fine if ($priv_cancella_contratti != "n")
} else {
echo "<br>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"{$pag}\"><div>\n{$lista_var_form}\n<input type=\"hidden\" name=\"cont_salva\" value=\"SI\">";
if ($num_file_salva_orig == 1) {
echo " " . bottone_submit_contr(mex("Salva un nuovo documento", $pag));
} else {
echo bottone_submit_contr(mex("Salva dei nuovi documenti", $pag));
}
echo "</div></form><br>";
}
# fine else if (!$num_contr_esist)
}
function crea_nuovo_anno($anno, $PHPR_TAB_PRE, $DATETIME, $tipo_periodi, $giorno_ini_fine, $mese_ini, $mese_fine, $importa_anno_prec, $silenzio, $pag)
{
allunga_tempo_limite();
global $lingua_mex, $LIKE, $ILIKE, $PHPR_DB_TYPE;
$lingua_mex_orig = $lingua_mex;
include_once "./includes/funzioni_menu.php";
include C_DATA_PATH . "/lingua.php";
$lingua_mex = $lingua[1];
$tableanni = $PHPR_TAB_PRE . "anni";
$tableprivilegi = $PHPR_TAB_PRE . "privilegi";
$tabletransazioni = $PHPR_TAB_PRE . "transazioni";
$tabletransazioniweb = $PHPR_TAB_PRE . "transazioniweb";
$tablepersonalizza = $PHPR_TAB_PRE . "personalizza";
$tablemessaggi = $PHPR_TAB_PRE . "messaggi";
$tableinterconnessioni = $PHPR_TAB_PRE . "interconnessioni";
$tablecontratti = $PHPR_TAB_PRE . "contratti";
$tableutenti = $PHPR_TAB_PRE . "utenti";
$tablerelclienti = $PHPR_TAB_PRE . "relclienti";
if ($PHPR_DB_TYPE == "mysql" or $PHPR_DB_TYPE == "mysqli") {
@esegui_query("SET default_storage_engine=MYISAM", 1);
}
$filelock = fopen(C_DATA_PATH . "/anni.lock", "w+");
if ($filelock) {
flock($filelock, 2);
$anno_esistente = esegui_query("select * from {$tableanni} where idanni = {$anno}");
if (numlin_query($anno_esistente) == 0) {
if (C_CAMBIA_TIPO_PERIODI == "NO") {
$tipo_periodi_esistenti = esegui_query("select * from {$tableanni} order by idanni desc");
if (numlin_query($tipo_periodi_esistenti) != 0) {
$tipo_periodi = risul_query($tipo_periodi_esistenti, 0, 'tipo_periodi');
}
}
# fine if (C_CAMBIA_TIPO_PERIODI == "NO")
if ($tipo_periodi != "g") {
$tipo_periodi = "s";
}
// creo la tabella con periodi settimanali e prezzi e la tabella con i nomi delle tariffe
$tableperiodi = $PHPR_TAB_PRE . "periodi" . $anno;
$tablenometariffe = $PHPR_TAB_PRE . "ntariffe" . $anno;
if ($importa_anno_prec == "SI") {
$anno_prec = $anno - 1;
$tablenometariffe_prec = $PHPR_TAB_PRE . "ntariffe" . $anno_prec;
$num_tariffe_tab = esegui_query("select nomecostoagg from {$tablenometariffe_prec} where idntariffe = 1");
$num_tariffe_tab = risul_query($num_tariffe_tab, 0, 'nomecostoagg');
} else {
$num_tariffe_tab = 8;
}
$query = "create table {$tableperiodi} (idperiodi integer primary key, datainizio date not null, datafine date";
$query2 = "create table {$tablenometariffe} (idntariffe integer, nomecostoagg varchar(40), tipo_ca varchar(2), valore_ca float8, valore_perc_ca float8, arrotonda_ca float4, tasseperc_ca float4, associasett_ca varchar(1), numsett_ca varchar(20), moltiplica_ca text, periodipermessi_ca text, beniinv_ca text, appincompatibili_ca text, variazione_ca varchar(20), mostra_ca varchar(10), categoria_ca text, letto_ca varchar(1), numlimite_ca integer, regoleassegna_ca varchar(30), utente_inserimento integer";
$num_col_tariffe_db = $num_tariffe_tab;
if ($num_col_tariffe_db < 12) {
$num_col_tariffe_db = 12;
}
for ($num1 = 1; $num1 <= $num_col_tariffe_db; $num1++) {
$nome_nuova_tariffa = "tariffa" . $num1;
$query .= ", {$nome_nuova_tariffa} float8, {$nome_nuova_tariffa}" . "p float8";
$query2 .= ", {$nome_nuova_tariffa} varchar(40)";
}
# fine for $num1
$crea_tab = esegui_query($query . ")");
if ($crea_tab) {
esegui_query($query2 . ")");
function estrai_col_tabella($col_table)
{
$col_table = explode(",", $col_table);
for ($num1 = 0; $num1 < count($col_table); $num1++) {
$col = explode(" ", trim($col_table[$num1]));
$tutte_col .= $col[0] . ",";
}
# fine for $num1
return substr($tutte_col, 0, -1);
}
# fine function estrai_col_tabella
# Creo la tabella delle prernotazioni
$tableprenotazioni = $PHPR_TAB_PRE . "prenota" . $anno;
$col_tableprenota = "idprenota integer primary key, idclienti integer, idappartamenti varchar(100), iddatainizio integer, iddatafine integer, assegnazioneapp varchar(4), app_assegnabili text, num_persone integer, idprenota_compagna text, tariffa text, tariffesettimanali text, incompatibilita text, sconto float8, tariffa_tot float8, caparra float8, commissioni float8, tasseperc float4, pagato float8, metodo_pagamento text, codice varchar(10), origine varchar(70), commento text, conferma varchar(4), checkin {$DATETIME}, checkout {$DATETIME}, id_anni_prec text, datainserimento {$DATETIME}, hostinserimento varchar(50), data_modifica {$DATETIME}, utente_inserimento integer ";
esegui_query("create table {$tableprenotazioni} ({$col_tableprenota})");
$col_tableprenota = estrai_col_tabella($col_tableprenota);
# Creo la tabella con i costi aggiuntivi delle prenotazioni
$tablecostiprenota = $PHPR_TAB_PRE . "costiprenota" . $anno;
$col_tablecostiprenota = "idcostiprenota integer primary key, idprenota integer, tipo varchar(2), nome varchar(40), valore float8, valore_perc float8, arrotonda float4, tasseperc float4, associasett varchar(1), settimane text, moltiplica text, categoria text, letto varchar(1), numlimite integer, idntariffe integer, variazione varchar(10), varmoltiplica text, varnumsett varchar(20), varperiodipermessi text, varbeniinv text, varappincompatibili text, vartariffeassociate varchar(10), vartariffeincomp text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer";
esegui_query("create table {$tablecostiprenota} ({$col_tablecostiprenota})");
$col_tablecostiprenota = estrai_col_tabella($col_tablecostiprenota);
crea_indice($tablecostiprenota, "idprenota", $PHPR_TAB_PRE . "iidpcostiprenota" . $anno);
esegui_query("insert into {$tablecostiprenota} (idcostiprenota,numlimite) values ('1','1')");
# Creo la tabella le relazioni tra prenotazioni e clienti non titolari
$tablerclientiprenota = $PHPR_TAB_PRE . "rclientiprenota" . $anno;
$col_tablerclientiprenota = "idprenota integer, idclienti integer, num_ordine integer, parentela varchar(70), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer";
esegui_query("create table {$tablerclientiprenota} ({$col_tablerclientiprenota})");
$col_tablerclientiprenota = estrai_col_tabella($col_tablerclientiprenota);
crea_indice($tablerclientiprenota, "idprenota", $PHPR_TAB_PRE . "iidprclientiprenota" . $anno);
# Creo la tabella per le regole di assegnazione
$tableregole = $PHPR_TAB_PRE . "regole" . $anno;
$col_tableregole = "idregole integer, app_agenzia varchar(100), tariffa_chiusa text, tariffa_per_app text, tariffa_per_utente text, tariffa_per_persone text, tariffa_commissioni integer, iddatainizio integer, iddatafine integer, motivazione text, motivazione2 text";
esegui_query("create table {$tableregole} ({$col_tableregole})");
$col_tableregole = estrai_col_tabella($col_tableregole);
# Creo la tabella con i costi di gestione
$tablecosti = $PHPR_TAB_PRE . "costi" . $anno;
$col_tablecosti = "idcosti integer unique,nome_costo text, val_costo float8, tipo_costo text, nome_cassa varchar(70), persona_costo text, provenienza_costo text, metodo_pagamento text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer";
esegui_query("create table {$tablecosti} ({$col_tablecosti})");
$col_tablecosti = estrai_col_tabella($col_tablecosti);
# Creo la tabella per la storia entrate-uscite
$tablesoldi = $PHPR_TAB_PRE . "soldi" . $anno;
$col_tablesoldi = "idsoldi integer unique, motivazione text, id_pagamento text, metodo_pagamento text, saldo_prenota float8, saldo_cassa float8, soldi_prima float8, data_inserimento {$DATETIME}, utente_inserimento integer";
esegui_query("create table {$tablesoldi} ({$col_tablesoldi})");
$col_tablesoldi = estrai_col_tabella($col_tablesoldi);
$tabelle_lock = array($tableanni, $tableprenotazioni, $tablecostiprenota, $tablerclientiprenota, $tablenometariffe, $tableperiodi, $tablerelclienti, $tablecosti, $tableregole, $tablesoldi, $tablepersonalizza, $tableprivilegi, $tabletransazioni);
if ($importa_anno_prec == "SI") {
$anno_prec = $anno - 1;
$tablenometariffe_prec = $PHPR_TAB_PRE . "ntariffe" . $anno_prec;
$tableprenota_prec = $PHPR_TAB_PRE . "prenota" . $anno_prec;
$tablecostiprenota_prec = $PHPR_TAB_PRE . "costiprenota" . $anno_prec;
$tablerclientiprenota_prec = $PHPR_TAB_PRE . "rclientiprenota" . $anno_prec;
$tableperiodi_prec = $PHPR_TAB_PRE . "periodi" . $anno_prec;
$tableregole_prec = $PHPR_TAB_PRE . "regole" . $anno_prec;
$tablesoldi_prec = $PHPR_TAB_PRE . "soldi" . $anno_prec;
$tablecosti_prec = $PHPR_TAB_PRE . "costi" . $anno_prec;
$tabelle_lock = array($tableanni, $tableprenota_prec, $tableprenotazioni, $tablecostiprenota_prec, $tablecostiprenota, $tablerclientiprenota_prec, $tablerclientiprenota, $tablenometariffe, $tableperiodi, $tablerelclienti, $tablecosti_prec, $tablecosti, $tableregole, $tablesoldi_prec, $tablesoldi, $tableinterconnessioni, $tablemessaggi, $tablepersonalizza, $tableprivilegi, $tabletransazioni);
$altre_tab_lock = array($tablenometariffe_prec, $tableperiodi_prec, $tableregole_prec, $tablecontratti, $tableutenti);
$max_data_ini_prec = esegui_query("select max(datainizio) from {$tableperiodi_prec}");
if (numlin_query($max_data_ini_prec) != 0) {
$max_data_ini_prec = risul_query($max_data_ini_prec, 0, 0);
$max_mese_prec = 0;
if (substr($max_data_ini_prec, 0, 4) >= $anno) {
$max_mese_prec = substr($max_data_ini_prec, 5, 2);
}
if (substr($max_data_ini_prec, 0, 4) == $anno + 1) {
$max_mese_prec = $max_mese_prec + 12;
}
if (substr($max_data_ini_prec, 0, 4) == $anno + 2) {
$max_mese_prec = $max_mese_prec + 24;
}
if (substr($max_data_ini_prec, 0, 4) == $anno + 3) {
$max_mese_prec = $max_mese_prec + 36;
}
if (substr($max_data_ini_prec, 0, 4) == $anno + 4) {
$max_mese_prec = $max_mese_prec + 48;
}
if ($max_mese_prec > $mese_fine) {
$mese_fine = $max_mese_prec;
}
$data_ini_agg = date("Y-m-d", mktime(0, 0, 0, substr($max_data_ini_prec, 5, 2) + 1, 1, substr($max_data_ini_prec, 0, 4)));
} else {
$max_data_ini_prec = "";
$max_mese_prec = "";
$data_ini_agg = "";
}
# fine else if (numlin_query($max_data_ini_prec) != 0)
} else {
unset($altre_tab_lock);
}
$tabelle_lock = lock_tabelle($tabelle_lock, $altre_tab_lock);
# Elimino tutte le transazioni, potrebbero contenere date dell'anno creato
esegui_query("delete from {$tabletransazioni}");
# Inserisco l'anno nella tabella anni
esegui_query("insert into {$tableanni} (idanni,tipo_periodi) values ('{$anno}','{$tipo_periodi}')");
esegui_query("insert into {$tablecosti} (idcosti) values ('0')");
esegui_query("insert into {$tablesoldi} (idsoldi,motivazione,soldi_prima) values ('1','soldi_prenotazioni_cancellate','0')");
// trovo il primo giorno di inizio/fine dell'anno (nel caso di periodi settimanali)
$numgiorno = 1;
$giorno_ini_fine = (string) $giorno_ini_fine;
if ($giorno_ini_fine != "0" and $giorno_ini_fine != "1" and $giorno_ini_fine != "2" and $giorno_ini_fine != "3" and $giorno_ini_fine != "4" and $giorno_ini_fine != "5" and $giorno_ini_fine != "6") {
$giorno_ini_fine = 6;
}
do {
$nomegiorno = date("w", mktime(0, 0, 0, 1, $numgiorno, $anno));
$numgiorno = $numgiorno + 1;
} while ($nomegiorno != $giorno_ini_fine);
$numgiorno = $numgiorno - 1;
if ($tipo_periodi == "g") {
$numgiorno = 1;
$aggiungi_giorni = 1;
} else {
$aggiungi_giorni = 7;
}
if ($mese_ini > $mese_fine) {
if ($silenzio != "SI") {
echo mex("I mesi erano indicati erroneamente, sono stati inseriti i mesi da Gennaio a Dicembre", $pag) . ".<br>";
}
$mese_ini = 1;
if ($mese_fine < 12) {
$mese_fine = 12;
}
}
# fine if ($mese_ini > $mese_fine)
$anno_fine = $anno + 3;
$idperiodi = 1;
$fileaperto = fopen(C_DATA_PATH . "/selectperiodi{$anno}.1.php", "a+");
flock($fileaperto, 2);
$date_option = "";
$n_date_menu = 0;
do {
$datainizio = date("Y-m-d", mktime(0, 0, 0, 1, $numgiorno, $anno));
$annocreato = date("Y", mktime(0, 0, 0, 1, $numgiorno, $anno));
$mesecreato = date("n", mktime(0, 0, 0, 1, $numgiorno, $anno));
$nome_giorno = date("D", mktime(0, 0, 0, 1, $numgiorno, $anno));
$nome_mese = date("M", mktime(0, 0, 0, 1, $numgiorno, $anno));
$numero_giorno = date("d", mktime(0, 0, 0, 1, $numgiorno, $anno));
$numero_anno = $annocreato;
$numgiorno = $numgiorno + $aggiungi_giorni;
$datafine = date("Y-m-d", mktime(0, 0, 0, 1, $numgiorno, $anno));
$annocreato2 = date("Y", mktime(0, 0, 0, 1, $numgiorno, $anno));
$mesecreato2 = date("n", mktime(0, 0, 0, 1, $numgiorno, $anno));
if ($annocreato > $anno) {
$diff = $annocreato - $anno;
$mesecreato = $diff * 12 + $mesecreato;
}
# fine if ($annocreato > $anno)
if ($annocreato2 > $anno) {
$diff = $annocreato2 - $anno;
$mesecreato2 = $diff * 12 + $mesecreato2;
}
# fine if ($annocreato2 > $anno)
if ($mesecreato >= $mese_ini and $mesecreato <= $mese_fine) {
esegui_query("insert into {$tableperiodi} ( idperiodi, datainizio, datafine) values ( {$idperiodi}, '{$datainizio}', '{$datafine}')");
if ($tipo_periodi == "g") {
if ($nome_giorno == "Sun") {
$nome_giorno = mex(" Do", $pag);
}
if ($nome_giorno == "Mon") {
$nome_giorno = mex(" Lu", $pag);
}
if ($nome_giorno == "Tue") {
$nome_giorno = mex(" Ma", $pag);
}
if ($nome_giorno == "Wed") {
$nome_giorno = mex(" Me", $pag);
}
if ($nome_giorno == "Thu") {
$nome_giorno = mex(" Gi", $pag);
}
if ($nome_giorno == "Fri") {
$nome_giorno = mex(" Ve", $pag);
}
if ($nome_giorno == "Sat") {
$nome_giorno = mex(" Sa", $pag);
}
} else {
$nome_giorno = "";
}
if ($nome_mese == "Jan") {
$nome_mese = mex("Gen", $pag);
}
if ($nome_mese == "Feb") {
$nome_mese = mex("Feb", $pag);
}
if ($nome_mese == "Mar") {
$nome_mese = mex("Mar", $pag);
}
if ($nome_mese == "Apr") {
$nome_mese = mex("Apr", $pag);
}
if ($nome_mese == "May") {
$nome_mese = mex("Mag", $pag);
}
if ($nome_mese == "Jun") {
$nome_mese = mex("Giu", $pag);
}
if ($nome_mese == "Jul") {
$nome_mese = mex("Lug", $pag);
}
if ($nome_mese == "Aug") {
$nome_mese = mex("Ago", $pag);
}
if ($nome_mese == "Sep") {
$nome_mese = mex("Set", $pag);
}
if ($nome_mese == "Oct") {
$nome_mese = mex("Ott", $pag);
}
if ($nome_mese == "Nov") {
$nome_mese = mex("Nov", $pag);
}
if ($nome_mese == "Dec") {
$nome_mese = mex("Dic", $pag);
}
if (!$date_option) {
$a_ini_menu = substr($datainizio, 0, 4);
$m_ini_menu = substr($datainizio, 5, 2) - 1;
$g_ini_menu = substr($datainizio, 8, 2);
}
# fine if (!$date_option)
$n_date_menu++;
$date_option .= "<option value=\\\"{$datainizio}\\\">{$nome_mese} {$numero_giorno}{$nome_giorno}, {$numero_anno}</option>\n";
$idperiodi = $idperiodi + 1;
$datafine2 = $datafine;
}
# fine if ($mesecreato >= $mese_ini and $mesecreato <= $mese_fine)
} while ($annocreato2 <= $anno_fine or $mesecreato2 == 48);
$numero_mese = substr($datafine2, 5, 2);
if ($numero_mese == "01") {
$nome_mese = mex("Gen", $pag);
}
if ($numero_mese == "02") {
$nome_mese = mex("Feb", $pag);
}
if ($numero_mese == "03") {
$nome_mese = mex("Mar", $pag);
}
if ($numero_mese == "04") {
$nome_mese = mex("Apr", $pag);
}
if ($numero_mese == "05") {
$nome_mese = mex("Mag", $pag);
}
if ($numero_mese == "06") {
$nome_mese = mex("Giu", $pag);
}
if ($numero_mese == "07") {
$nome_mese = mex("Lug", $pag);
}
if ($numero_mese == "08") {
$nome_mese = mex("Ago", $pag);
}
if ($numero_mese == "09") {
$nome_mese = mex("Set", $pag);
}
if ($numero_mese == "10") {
$nome_mese = mex("Ott", $pag);
}
if ($numero_mese == "11") {
$nome_mese = mex("Nov", $pag);
}
if ($numero_mese == "12") {
$nome_mese = mex("Dic", $pag);
}
$numero_giorno = substr($datafine2, 8, 2);
$numero_anno = substr($datafine2, 0, 4);
$n_date_menu++;
$date_option .= "<option value=\\\"{$datafine2}\\\">{$nome_mese} {$numero_giorno}, {$numero_anno}</option>\n";
fwrite($fileaperto, "<?php \n\n\$y_ini_menu[0] = \"{$a_ini_menu}\";\n\$m_ini_menu[0] = \"{$m_ini_menu}\";\n\$d_ini_menu[0] = \"{$g_ini_menu}\";\n\$n_dates_menu[0] = \"{$n_date_menu}\";\n\$d_increment[0] = \"{$aggiungi_giorni}\";\n\$d_names = \"\\\"" . mex(" Do", $pag) . "\\\",\\\"" . mex(" Lu", $pag) . "\\\",\\\"" . mex(" Ma", $pag) . "\\\",\\\"" . mex(" Me", $pag) . "\\\",\\\"" . mex(" Gi", $pag) . "\\\",\\\"" . mex(" Ve", $pag) . "\\\",\\\"" . mex(" Sa", $pag) . "\\\"\";\n\$m_names = \"\\\"" . mex("Gen", $pag) . "\\\",\\\"" . mex("Feb", $pag) . "\\\",\\\"" . mex("Mar", $pag) . "\\\",\\\"" . mex("Apr", $pag) . "\\\",\\\"" . mex("Mag", $pag) . "\\\",\\\"" . mex("Giu", $pag) . "\\\",\\\"" . mex("Lug", $pag) . "\\\",\\\"" . mex("Ago", $pag) . "\\\",\\\"" . mex("Set", $pag) . "\\\",\\\"" . mex("Ott", $pag) . "\\\",\\\"" . mex("Nov", $pag) . "\\\",\\\"" . mex("Dic", $pag) . "\\\"\";\n\n\$dates_options_list = \"\n\n{$date_option}\n\";\n\n?>");
flock($fileaperto, 3);
fclose($fileaperto);
if ($importa_anno_prec == "SI" and @is_file(C_DATA_PATH . "/selperiodimenu" . ($anno - 1) . ".1.php")) {
estendi_menu_date(C_DATA_PATH . "/selperiodimenu" . ($anno - 1) . ".1.php", C_DATA_PATH . "/selperiodimenu{$anno}.1.php", $tipo_periodi, date("Y-m-d", mktime(0, 0, 0, $mese_ini, 1, $anno)), $data_ini_agg, date("Y-m-d", mktime(0, 0, 0, $mese_fine + 1, 1, $anno)), $anno, $pag);
} else {
copy(C_DATA_PATH . "/selectperiodi{$anno}.1.php", C_DATA_PATH . "/selperiodimenu{$anno}.1.php");
}
$lista_clienti_importati = "";
# Importo eventuali prenotazioni, tariffe e regole dell'anno precedente
if ($importa_anno_prec == "SI") {
$tableprenota = $tableprenotazioni;
$data_inizio_periodi = esegui_query("select * from {$tableperiodi} where idperiodi = 1");
$data_inizio_periodi = risul_query($data_inizio_periodi, 0, 'datainizio');
$ini_periodo_interferenza = esegui_query("select * from {$tableperiodi_prec} where datainizio = '{$data_inizio_periodi}'");
$num_periodo_interferenza = numlin_query($ini_periodo_interferenza);
$tipo_periodi_prec = esegui_query("select * from {$tableanni} where idanni = {$anno_prec}");
$tipo_periodi_prec = risul_query($tipo_periodi_prec, 0, 'tipo_periodi');
if ($tipo_periodi_prec != $tipo_periodi) {
$num_periodo_interferenza = 0;
}
if ($num_periodo_interferenza == 0) {
if ($silenzio != "SI") {
echo mex("Non ci sono periodi che riguardano il ", $pag) . $anno . mex(" nel ", $pag) . $anno_prec . mex(", o il giorno di inizio/fine locazione era differente, sono stati importati solo i data riguardanti costi aggiuntivi, caparra, nome delle tariffe, privilegi degli utenti e regole di assegnazione 2 e 3", $pag) . ".<br>";
}
} else {
$id_data_fine_periodi = esegui_query("select max(idperiodi) from {$tableperiodi}");
$id_data_fine_periodi = risul_query($id_data_fine_periodi, 0, 0);
$id_data_ini_periodi_prec = risul_query($ini_periodo_interferenza, 0, 'idperiodi');
$id_data_fine_periodi_prec = esegui_query("select max(idperiodi) from {$tableperiodi_prec}");
$id_data_fine_periodi_prec = risul_query($id_data_fine_periodi_prec, 0, 0);
$num_periodi_prec = $id_data_fine_periodi_prec - $id_data_ini_periodi_prec + 1;
if ($num_periodi_prec > $id_data_fine_periodi) {
$id_data_fine_periodi_prec = $id_data_ini_periodi_prec + $id_data_fine_periodi - 1;
$prenota_non_importabili = esegui_query("select * from {$tableprenota_prec} where iddatafine > {$id_data_fine_periodi_prec} ");
$num_prenota_non_importabili = numlin_query($prenota_non_importabili);
if ($num_prenota_non_importabili != 0) {
echo "<br>ERROR<br>";
}
}
# fine if ($num_periodi_prec > $id_data_fine_periodi)
$idprenota_corr = 0;
$max_idprenota_prec = esegui_query("select max(idprenota) from {$tableprenota_prec}");
$max_idprenota_prec = risul_query($max_idprenota_prec, 0, 0) + 1;
$max_idcostiprenota_prec = esegui_query("select max(idcostiprenota) from {$tablecostiprenota_prec}");
$max_idcostiprenota_prec = risul_query($max_idcostiprenota_prec, 0, 0) + 1;
$prenota_gia_iniziate = esegui_query("select * from {$tableprenota_prec} where iddatainizio < {$id_data_ini_periodi_prec} and iddatafine >= {$id_data_ini_periodi_prec} and iddatafine <= {$id_data_fine_periodi_prec} ");
$num_prenota_gia_iniziate = numlin_query($prenota_gia_iniziate);
for ($num1 = 0; $num1 < $num_prenota_gia_iniziate; $num1 = $num1 + 1) {
$idprenota = risul_query($prenota_gia_iniziate, $num1, 'idprenota');
$idclienti = risul_query($prenota_gia_iniziate, $num1, 'idclienti');
$lista_clienti_importati .= "and idclienti != '{$idclienti}' ";
$idappartamenti = risul_query($prenota_gia_iniziate, $num1, 'idappartamenti');
$iddatafine = risul_query($prenota_gia_iniziate, $num1, 'iddatafine');
$iddatafine = $iddatafine - $id_data_ini_periodi_prec + 1;
$datainserimento = risul_query($prenota_gia_iniziate, $num1, 'datainserimento');
$hostinserimento = risul_query($prenota_gia_iniziate, $num1, 'hostinserimento');
$data_modifica = risul_query($prenota_gia_iniziate, $num1, 'data_modifica');
$utente_inserimento = risul_query($prenota_gia_iniziate, $num1, 'utente_inserimento');
$checkin = risul_query($prenota_gia_iniziate, $num1, 'checkin');
$checkout = risul_query($prenota_gia_iniziate, $num1, 'checkout');
$codice = risul_query($prenota_gia_iniziate, $num1, 'codice');
$idprenota_corr++;
esegui_query("insert into {$tableprenota} (idprenota,idclienti,idappartamenti,iddatainizio,iddatafine,assegnazioneapp,commento,codice,datainserimento,hostinserimento,utente_inserimento) values ('{$idprenota_corr}','{$idclienti}','{$idappartamenti}','0',{$iddatafine},'k','{$idprenota}','{$codice}','{$datainserimento}','{$hostinserimento}','{$utente_inserimento}') ");
if ($checkin) {
esegui_query("update {$tableprenota} set checkin = '" . aggslashdb($checkin) . "' where idprenota = '{$idprenota_corr}'");
}
if ($checkout) {
esegui_query("update {$tableprenota} set checkout = '" . aggslashdb($checkout) . "' where idprenota = '{$idprenota_corr}'");
}
esegui_query("update {$tablecostiprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tablecostiprenota} select {$col_tablecostiprenota} from {$tablecostiprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tablecostiprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablecostiprenota_prec} set idprenota = '{$idprenota}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablerclientiprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tablerclientiprenota} select {$col_tablerclientiprenota} from {$tablerclientiprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tablerclientiprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablerclientiprenota_prec} set idprenota = '{$idprenota}' where idprenota = '{$max_idprenota_prec}'");
}
# fine for $num1
$nuovo_idprenota = "";
$nuovo_iddatainizio = "";
$nuovo_iddatafine = "";
$prenota_importate = esegui_query("select * from {$tableprenota_prec} where iddatainizio >= '{$id_data_ini_periodi_prec}' and iddatafine <= '{$id_data_fine_periodi_prec}' order by idprenota ");
$num_prenota_importate = numlin_query($prenota_importate);
for ($num1 = 0; $num1 < $num_prenota_importate; $num1 = $num1 + 1) {
$idprenota = risul_query($prenota_importate, $num1, 'idprenota');
$iddatainizio = risul_query($prenota_importate, $num1, 'iddatainizio');
$iddatainizio = $iddatainizio - $id_data_ini_periodi_prec + 1;
$iddatafine = risul_query($prenota_importate, $num1, 'iddatafine');
$iddatafine = $iddatafine - $id_data_ini_periodi_prec + 1;
$idclienti = risul_query($prenota_importate, $num1, 'idclienti');
$lista_clienti_importati .= "and idclienti != '{$idclienti}' ";
$id_anni_prec = risul_query($prenota_importate, $num1, 'id_anni_prec');
if (!$id_anni_prec) {
$id_anni_prec = ";";
}
$id_anni_prec .= "{$anno_prec},{$idprenota};";
$idprenota_corr++;
esegui_query("update {$tableprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tableprenota} select {$col_tableprenota} from {$tableprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tableprenota} set iddatainizio = '{$iddatainizio}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tableprenota} set iddatafine = '{$iddatafine}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tableprenota} set id_anni_prec = '{$id_anni_prec}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tableprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("delete from {$tableprenota_prec} where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablecostiprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tablecostiprenota} select {$col_tablecostiprenota} from {$tablecostiprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tablecostiprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("delete from {$tablecostiprenota_prec} where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablerclientiprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tablerclientiprenota} select {$col_tablerclientiprenota} from {$tablerclientiprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tablerclientiprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("delete from {$tablerclientiprenota_prec} where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tableinterconnessioni} set idlocale = '{$idprenota_corr}', anno = '{$anno}' where idlocale = '{$idprenota}' and ( tipoid = 'prenota' or tipoid = 'mess' ) and anno = '{$anno_prec}' ");
$nuovo_idprenota[$idprenota] = $idprenota_corr;
$nuovo_iddatainizio[$idprenota] = $iddatainizio;
$nuovo_iddatafine[$idprenota] = $iddatafine;
}
# fine for $num1
esegui_query("update {$tablecostiprenota} set numlimite = '" . ($idprenota_corr + 1) . "' where idcostiprenota = '1'");
$prenota_compagne = esegui_query("select idprenota,idprenota_compagna from {$tableprenota} where idprenota_compagna != '' ");
$num_prenota_compagne = numlin_query($prenota_compagne);
for ($num1 = 0; $num1 < $num_prenota_compagne; $num1++) {
$idprenota = risul_query($prenota_compagne, $num1, 'idprenota');
$idprenota_compagna = risul_query($prenota_compagne, $num1, 'idprenota_compagna');
$idprenota_compagna = explode(",", $idprenota_compagna);
$n_idprenota_compagna = $nuovo_idprenota[$idprenota_compagna[0]];
for ($num2 = 1; $num2 < count($idprenota_compagna); $num2++) {
$n_idprenota_compagna .= "," . $nuovo_idprenota[$idprenota_compagna[$num2]];
}
esegui_query("update {$tableprenota} set idprenota_compagna = '{$n_idprenota_compagna}' where idprenota = '{$idprenota}'");
}
# fine for $num1
$id_costi_agg_importati = esegui_query("select idcostiprenota from {$tablecostiprenota} where idcostiprenota != '1' order by idcostiprenota");
$num_id_costi_agg_importati = numlin_query($id_costi_agg_importati);
for ($num1 = 0; $num1 < $num_costi_agg_importati; $num1++) {
$idcostiprenota = risul_query($id_costi_agg_importati, $num1, 'idcostiprenota');
$max_idcostiprenota_prec++;
esegui_query("update {$tablecostiprenota} set idcostiprenota = '{$max_idcostiprenota_prec}' where idcostiprenota = '{$idcostiprenota}'");
}
# fine for $num1
$costi_agg_importati = esegui_query("select * from {$tablecostiprenota} where idcostiprenota != '1' order by idcostiprenota");
$num_costi_agg_importati = numlin_query($costi_agg_importati);
for ($num1 = 0; $num1 < $num_costi_agg_importati; $num1++) {
$idcostiprenota = risul_query($costi_agg_importati, $num1, 'idcostiprenota');
$settimane = risul_query($costi_agg_importati, $num1, 'settimane');
if (str_replace(",", "", $settimane) != $settimane) {
$settimane = explode(",", $settimane);
$settimane_nuove = ",";
for ($num2 = 1; $num2 < count($settimane) - 1; $num2++) {
$settimane_nuove .= $settimane[$num2] - $id_data_ini_periodi_prec + 1 . ",";
}
esegui_query("update {$tablecostiprenota} set settimane = '{$settimane_nuove}' where idcostiprenota = '{$idcostiprenota}'");
}
# fine if (str_replace(",","",$settimane) != $settimane)
$varperiodipermessi = risul_query($costi_agg_importati, $num1, 'varperiodipermessi');
if ($varperiodipermessi) {
$vpp_nuovi = substr($varperiodipermessi, 0, 1);
$varperiodipermessi = explode(",", substr($varperiodipermessi, 1));
for ($num2 = 0; $num2 < count($varperiodipermessi); $num2++) {
$id_data_fine_vpp = explode("-", $varperiodipermessi[$num2]);
$id_data_inizio_vpp = $id_data_fine_vpp[0];
$id_data_fine_vpp = $id_data_fine_vpp[1];
if ($id_data_fine_vpp >= $id_data_ini_periodi_prec and $id_data_inizio_vpp <= $id_data_fine_periodi_prec) {
if ($id_data_inizio_vpp < $id_data_ini_periodi_prec) {
$id_data_inizio_vpp = $id_data_ini_periodi_prec;
}
if ($id_data_fine_vpp > $id_data_fine_periodi_prec) {
$id_data_fine_vpp = $id_data_fine_periodi_prec;
}
$id_data_inizio_vpp = $id_data_inizio_vpp - $id_data_ini_periodi_prec + 1;
$id_data_fine_vpp = $id_data_fine_vpp - $id_data_ini_periodi_prec + 1;
$vpp_nuovi .= $id_data_inizio_vpp . "-" . $id_data_fine_vpp . ",";
}
# fine if ($id_data_fine_vpp >= $id_data_ini_periodi_prec and...
}
# fine for $num2
if (strlen($vpp_nuovi) > 1) {
$vpp_nuovi = substr($vpp_nuovi, 0, -1);
}
esegui_query("update {$tablecostiprenota} set varperiodipermessi = '{$vpp_nuovi}' where idcostiprenota = '{$idcostiprenota}'");
}
# fine if ($varperiodipermessi)
esegui_query("update {$tablecostiprenota} set idcostiprenota = '" . ($num1 + 2) . "' where idcostiprenota = '{$idcostiprenota}'");
}
# fine for $num1
$tariffe_importate = esegui_query("select * from {$tableperiodi_prec} where idperiodi >= '{$id_data_ini_periodi_prec}' and idperiodi <= '{$id_data_fine_periodi_prec}' ");
$num_tariffe_iportate = numlin_query($tariffe_importate);
for ($num1 = 0; $num1 < $num_tariffe_iportate; $num1 = $num1 + 1) {
$idperiodi = risul_query($tariffe_importate, $num1, 'idperiodi');
$idperiodi = $idperiodi - $id_data_ini_periodi_prec + 1;
for ($num2 = 1; $num2 <= $num_tariffe_tab; $num2++) {
$tariffa = (string) risul_query($tariffe_importate, $num1, "tariffa" . $num2);
if (strcmp($tariffa, "")) {
esegui_query("update {$tableperiodi} set tariffa{$num2} = '{$tariffa}' where idperiodi = {$idperiodi} ");
}
$tariffap = (string) risul_query($tariffe_importate, $num1, "tariffa" . $num2 . "p");
if (strcmp($tariffap, "")) {
esegui_query("update {$tableperiodi} set tariffa{$num2}" . "p = '{$tariffap}' where idperiodi = {$idperiodi} ");
}
}
# fine for $num2
}
# fine for $num1
$regole_prec = esegui_query("select * from {$tableregole_prec} where iddatafine >= '{$id_data_ini_periodi_prec}' ");
$num_regole_prec = numlin_query($regole_prec);
for ($num1 = 0; $num1 < $num_regole_prec; $num1 = $num1 + 1) {
$idregole = risul_query($regole_prec, $num1, 'idregole');
$app_agenzia = risul_query($regole_prec, $num1, 'app_agenzia');
$tariffa_chiusa = risul_query($regole_prec, $num1, 'tariffa_chiusa');
$tariffa_commissioni = risul_query($regole_prec, $num1, 'tariffa_commissioni');
$iddatainizio = risul_query($regole_prec, $num1, 'iddatainizio');
$motivazione = risul_query($regole_prec, $num1, 'motivazione');
$motivazione2 = risul_query($regole_prec, $num1, 'motivazione2');
if ($iddatainizio < $id_data_ini_periodi_prec) {
$iddatainizio = $id_data_ini_periodi_prec;
}
$iddatainizio = $iddatainizio - $id_data_ini_periodi_prec + 1;
$iddatafine = risul_query($regole_prec, $num1, 'iddatafine');
if ($iddatafine > $id_data_fine_periodi_prec) {
$iddatafine = $id_data_fine_periodi_prec;
}
$iddatafine = $iddatafine - $id_data_ini_periodi_prec + 1;
if ($tariffa_commissioni) {
esegui_query("insert into {$tableregole} (idregole,tariffa_commissioni,iddatainizio,iddatafine) values ('{$idregole}','{$tariffa_commissioni}','{$iddatainizio}','{$iddatafine}') ");
} else {
if ($tariffa_chiusa) {
esegui_query("insert into {$tableregole} (idregole,tariffa_chiusa,iddatainizio,iddatafine) values ('{$idregole}','{$tariffa_chiusa}','{$iddatainizio}','{$iddatafine}') ");
} else {
esegui_query("insert into {$tableregole} (idregole,app_agenzia,iddatainizio,iddatafine) values ('{$idregole}','{$app_agenzia}','{$iddatainizio}','{$iddatafine}') ");
}
}
# fine else $tariffa_commissioni)
if (strcmp($motivazione, "")) {
esegui_query("update {$tableregole} set motivazione = '" . aggslashdb($motivazione) . "' where idregole = '{$idregole}' ");
}
if (strcmp($motivazione2, "")) {
esegui_query("update {$tableregole} set motivazione2 = '" . aggslashdb($motivazione2) . "' where idregole = '{$idregole}' ");
}
}
# fine for $num1
$soldi_importati = esegui_query("select * from {$tablesoldi_prec} where data_inserimento >= '{$data_inizio_periodi}' and saldo_prenota is not NULL order by idsoldi");
$num_soldi_importati = numlin_query($soldi_importati);
$idsoldi_corr = 1;
for ($num1 = 0; $num1 < $num_soldi_importati; $num1++) {
$motiv = explode(";", risul_query($soldi_importati, $num1, 'motivazione'));
if ($nuovo_idprenota[$motiv[3]]) {
$idsoldi_corr++;
$idsoldi_prec = risul_query($soldi_importati, $num1, 'idsoldi');
$n_motiv = $motiv[0] . ";" . $nuovo_iddatainizio[$motiv[3]] . ";" . $nuovo_iddatafine[$motiv[3]] . ";" . $nuovo_idprenota[$motiv[3]];
esegui_query("insert into {$tablesoldi} select {$col_tablesoldi} from {$tablesoldi_prec} where idsoldi = '{$idsoldi_prec}' ");
esegui_query("delete from {$tablesoldi_prec} where idsoldi = '{$idsoldi_prec}' ");
esegui_query("update {$tablesoldi} set motivazione = '{$n_motiv}' where idsoldi = '{$idsoldi_prec}' ");
esegui_query("update {$tablesoldi} set idsoldi = '{$idsoldi_corr}' where idsoldi = '{$idsoldi_prec}' ");
}
# fine if ($nuovo_idprenota[$motiv[3]])
}
# fine for $num1
$costi_importati = esegui_query("select * from {$tablecosti_prec} where datainserimento >= '{$data_inizio_periodi}' and tipo_costo is not NULL order by idcosti");
$num_costi_importati = numlin_query($costi_importati);
$idcosti_corr = 0;
for ($num1 = 0; $num1 < $num_costi_importati; $num1++) {
$idcosti_corr++;
$idcosti_prec = risul_query($costi_importati, $num1, 'idcosti');
esegui_query("insert into {$tablecosti} select {$col_tablecosti} from {$tablecosti_prec} where idcosti = '{$idcosti_prec}' ");
esegui_query("delete from {$tablecosti_prec} where idcosti = '{$idcosti_prec}' ");
esegui_query("update {$tablecosti} set idcosti = '{$idcosti_corr}' where idcosti = '{$idcosti_prec}' ");
}
# fine for $num1
$costo_cassa = 0;
$data_lim = $anno + 1 . "-01-01 00:00:00";
$costi_cassa = esegui_query("select * from {$tablecosti} where tipo_costo = 'e' and provenienza_costo = 'p' and datainserimento < '{$data_lim}' ");
$num_costi_cassa = numlin_query($costi_cassa);
for ($num2 = 0; $num2 < $num_costi_cassa; $num2++) {
$costo_cassa = $costo_cassa + risul_query($costi_cassa, $num2, 'val_costo');
}
if ($costo_cassa) {
esegui_query("update {$tablecosti} set val_costo = '{$costo_cassa}' where idcosti = '0' ");
}
unset($cassa_prec);
$costi_non_importati = esegui_query("select * from {$tablecosti_prec} where tipo_costo is not NULL order by idcosti");
$num_costi_non_importati = numlin_query($costi_non_importati);
for ($num1 = 0; $num1 < $num_costi_non_importati; $num1++) {
$tipo_costo = risul_query($costi_non_importati, $num1, 'tipo_costo');
$val_costo = risul_query($costi_non_importati, $num1, 'val_costo');
$utente_costo = risul_query($costi_non_importati, $num1, 'utente_inserimento');
if ($tipo_costo == "e") {
$cassa_prec[$utente_costo] = $cassa_prec[$utente_costo] + (double) $val_costo;
} else {
$cassa_prec[$utente_costo] = $cassa_prec[$utente_costo] - (double) $val_costo;
}
}
# fine for $num1
if (@is_array($cassa_prec)) {
$datainserimento = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600);
reset($cassa_prec);
while (list($utente_costo, $val_costo) = each($cassa_prec)) {
$idcosti_corr++;
esegui_query("insert into {$tablecosti} (idcosti,nome_costo,val_costo,persona_costo,tipo_costo,datainserimento,hostinserimento,utente_inserimento) values ('{$idcosti_corr}','{$anno_prec}','{$val_costo}','','e','{$datainserimento}','{$HOSTNAME}','{$utente_costo}') ");
}
# fine (list($utente_costo,$val_costo) = each($cassa_prec))
}
# fine if (@is_array($cassa_prec))
# aggiorno i messaggi con prenotazioni del nuovo anno già inserite, quelli da inserire sono aggiornati con i modelli internet
$messaggi_importati = esegui_query("select * from {$tablemessaggi} where stato = 'ins' and dati_messaggio18 = '{$anno_prec}' ");
$num_messaggi_importati = numlin_query($messaggi_importati);
for ($num1 = 0; $num1 < $num_messaggi_importati; $num1++) {
$agg_mess = 1;
$n_lista_pren = "";
$lista_pren = explode(",", risul_query($messaggi_importati, $num1, 'dati_messaggio1'));
for ($num2 = 0; $num2 < count($lista_pren); $num2++) {
if ($nuovo_idprenota[$lista_pren[$num2]]) {
$n_lista_pren .= $nuovo_idprenota[$lista_pren[$num2]] . ",";
} else {
$agg_mess = 0;
}
}
# fine for $num2
if ($agg_mess) {
$idmess = risul_query($messaggi_importati, $num1, 'idmessaggi');
$n_lista_pren = substr($n_lista_pren, 0, -1);
esegui_query("update {$tablemessaggi} set dati_messaggio1 = '{$n_lista_pren}', dati_messaggio18 = '{$anno}' where idmessaggi = '{$idmess}' ");
}
# fine if ($agg_mess)
}
# fine for $num1
# aggiorno i numeri delle prenotazioni importate nei nomi dei documenti già creati nel nuovo anno
$dirs_salva = esegui_query("select * from {$tablecontratti} where tipo = 'dir'");
$num_dirs_salva = numlin_query($dirs_salva);
if ($num_dirs_salva) {
unset($contr_salva_in);
$max_contr = esegui_query("select max(numero) from {$tablecontratti} where tipo {$LIKE} 'contr%'");
$max_contr = risul_query($max_contr, 0, 0);
if (defined("C_CARTELLA_CREA_MODELLI") and C_CARTELLA_CREA_MODELLI != "") {
if (C_CARTELLA_DOC != "" and @is_dir(C_CARTELLA_CREA_MODELLI . "/" . C_CARTELLA_DOC)) {
$dir_salva_home = C_CARTELLA_DOC;
} else {
$dir_salva_home = "";
}
} else {
$dir_salva_home = C_DATA_PATH;
}
$utenti = esegui_query("select * from " . $PHPR_TAB_PRE . "utenti order by idutenti");
$num_utenti = numlin_query($utenti);
unset($nomi_contr_ut);
$parola_documento = mex("documento", 'visualizza_contratto.php');
for ($num1 = 0; $num1 < $num_utenti; $num1++) {
$idutente_contr = risul_query($utenti, $num1, 'idutenti');
for ($num2 = 1; $num2 <= $max_contr; $num2++) {
$nomi_contr_ut[$idutente_contr][$num2] = $parola_documento . $num2;
}
$nomi_contratti = esegui_query("select valpersonalizza from {$tablepersonalizza} where idpersonalizza = 'nomi_contratti' and idutente = '{$idutente_contr}'");
$nomi_contratti = risul_query($nomi_contratti, 0, 'valpersonalizza');
$nomi_contratti = explode("#@&", $nomi_contratti);
$num_nomi_contratti = count($nomi_contratti);
for ($num2 = 0; $num2 < $num_nomi_contratti; $num2++) {
$dati_nome_contratto = explode("#?&", $nomi_contratti[$num2]);
$nomi_contr_ut[$idutente_contr][$dati_nome_contratto[0]] = $dati_nome_contratto[1];
}
# fine for $num2
}
# fine for $num1
unset($prefissi_contr);
for ($num1 = 0; $num1 < $num_dirs_salva; $num1++) {
$dir_salva = risul_query($dirs_salva, 0, 'testo');
if ($dir_salva == "~") {
$dir_salva = $dir_salva_home;
}
if (defined('C_CARTELLA_CREA_MODELLI') and C_CARTELLA_CREA_MODELLI != "") {
$dir_salva = C_CARTELLA_CREA_MODELLI . "/" . str_replace("..", "", $dir_salva);
}
if (!@is_dir($dir_salva)) {
$dir_salva = "";
}
$num_contr = risul_query($dirs_salva, 0, 'numero');
$tipo_contratto = esegui_query("select tipo from " . $PHPR_TAB_PRE . "contratti where numero = '{$num_contr}' and tipo {$LIKE} 'contr%' ");
$tipo_contratto = risul_query($tipo_contratto, 0, 'tipo');
$suff_file = "html";
if ($tipo_contratto == "contrrtf") {
$suff_file = "rtf";
}
if ($tipo_contratto == "contrtxt") {
$suff_file = "txt";
}
$filelock_contr = fopen($dir_salva . "/crea_contr.lock", "w+");
flock($filelock_contr, 2);
for ($num2 = 0; $num2 < $num_utenti; $num2++) {
$idutente_contr = risul_query($utenti, $num1, 'idutenti');
if (!$prefissi_contr[$dir_salva . "/" . $nomi_contr_ut[$idutente_contr][$num_contr]]) {
$nome_contratto = $nomi_contr_ut[$idutente_contr][$num_contr];
$prefissi_contr[$dir_salva . "/" . $nome_contratto] = 1;
$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) {
$resto_nome_contr = substr($contr_corr, strlen($nome_contratto));
if (substr($resto_nome_contr, 0, 6) == "_{$anno}" . "_") {
if (preg_replace("/_[0-9]{4,4}_[0-9]{5,5}(_[0-9]+(-[0-9]+)?)*\\.{$suff_file}/", "", $resto_nome_contr) == "") {
$num_pren_esist = substr($resto_nome_contr, 12);
$num_pren_esist = substr($num_pren_esist, 0, -1 * (strlen($suff_file) + 1));
if ($num_pren_esist) {
$agg_contr = 1;
$n_lista_pren = "";
$num_pren_esist = explode("_", $num_pren_esist);
for ($num3 = 0; $num3 < count($num_pren_esist); $num3++) {
$num_pren_esist2 = explode("-", $num_pren_esist[$num3]);
$fine_for = $num_pren_esist2[count($num_pren_esist2) - 1];
for ($num4 = $num_pren_esist2[0]; $num4 <= $fine_for; $num4++) {
if (!$nuovo_idprenota[$num4]) {
$agg_contr = 0;
break;
}
# fine if (!$nuovo_idprenota[$num4])
if ($num4 == $num_pren_esist2[0]) {
$n_lista_pren .= "_" . $nuovo_idprenota[$num4];
} elseif ($num4 == $fine_for) {
$n_lista_pren .= "-" . $nuovo_idprenota[$num4];
}
}
# fine for $num4
}
# fine for $num3
if ($agg_contr) {
$n_nome_contr = $nome_contratto . substr($resto_nome_contr, 0, 11) . $n_lista_pren . ".{$suff_file}";
rename($dir_salva . "/" . $contr_corr, $dir_salva . "/" . $n_nome_contr);
}
# fine if ($agg_contr)
}
# fine if ($num_pren_esist)
}
# fine if (preg_replace("/_[0-9]{4,4}_[0-9]{5,5}\.$suff_file/","",$resto_nome_contr) == "")
}
# fine if (substr($resto_nome_contr,0,6) == "_$anno"."_")
}
# fine if (substr($contr_corr,0,strlen($nome_contratto)) == $nome_contratto)
}
# fine if ($contr_corr != "." and $contr_corr != ".." and...
}
# fine while ($fattura_corr = readdir($fatture_dir))
closedir($contr_dir);
}
# fine if (!$prefissi_contr[$dir_salva."/".$nomi_contr_ut[$idutente_contr][$num_contr]])
}
# fine for $num2
flock($filelock_contr, 3);
fclose($filelock_contr);
unlink($dir_salva . "/crea_contr.lock");
}
# fine for $num1
}
# fine if ($num_dirs_salva)
}
# fine else if ($num_periodo_interferenza == 0)
$colonne = "idntariffe,nomecostoagg,tipo_ca,valore_ca,valore_perc_ca,arrotonda_ca,tasseperc_ca,associasett_ca,numsett_ca,moltiplica_ca,periodipermessi_ca,beniinv_ca,appincompatibili_ca,variazione_ca,mostra_ca,categoria_ca,letto_ca,numlimite_ca,regoleassegna_ca,utente_inserimento";
for ($num1 = 1; $num1 <= $num_tariffe_tab; $num1++) {
$nome_nuova_tariffa = "tariffa" . $num1;
$colonne .= ",{$nome_nuova_tariffa}";
}
# fine for $num1
esegui_query("insert into {$tablenometariffe} ({$colonne}) select {$colonne} from {$tablenometariffe_prec}");
$costi_agg_importati = esegui_query("select * from {$tablenometariffe} where idntariffe > 10 ");
$num_costi_agg_importati = numlin_query($costi_agg_importati);
for ($num1 = 0; $num1 < $num_costi_agg_importati; $num1++) {
$idntariffe = risul_query($costi_agg_importati, $num1, 'idntariffe');
$periodipermessi = risul_query($costi_agg_importati, $num1, 'periodipermessi_ca');
if ($periodipermessi) {
$pp_nuovi = substr($periodipermessi, 0, 1);
$periodipermessi = explode(",", substr($periodipermessi, 1));
for ($num2 = 0; $num2 < count($periodipermessi); $num2++) {
$id_data_fine_pp = explode("-", $periodipermessi[$num2]);
$id_data_inizio_pp = $id_data_fine_pp[0];
$id_data_fine_pp = $id_data_fine_pp[1];
if ($id_data_fine_pp >= $id_data_ini_periodi_prec and $id_data_inizio_pp <= $id_data_fine_periodi_prec) {
if ($id_data_inizio_pp < $id_data_ini_periodi_prec) {
$id_data_inizio_pp = $id_data_ini_periodi_prec;
}
if ($id_data_fine_pp > $id_data_fine_periodi_prec) {
$id_data_fine_pp = $id_data_fine_periodi_prec;
}
$id_data_inizio_pp = $id_data_inizio_pp - $id_data_ini_periodi_prec + 1;
$id_data_fine_pp = $id_data_fine_pp - $id_data_ini_periodi_prec + 1;
$pp_nuovi .= $id_data_inizio_pp . "-" . $id_data_fine_pp . ",";
}
# fine if ($id_data_fine_pp >= $id_data_ini_periodi_prec and...
}
# fine for $num2
if (strlen($pp_nuovi) > 1) {
$pp_nuovi = substr($pp_nuovi, 0, -1);
}
esegui_query("update {$tablenometariffe} set periodipermessi_ca = '{$pp_nuovi}' where idntariffe = '{$idntariffe}'");
}
# fine if ($periodipermessi)
}
# fine for $num1
esegui_query("insert into {$tableregole} select {$col_tableregole} from {$tableregole_prec} where tariffa_per_app != ''");
esegui_query("insert into {$tableregole} select {$col_tableregole} from {$tableregole_prec} where tariffa_per_utente != ''");
esegui_query("insert into {$tableregole} select {$col_tableregole} from {$tableregole_prec} where tariffa_per_persone != ''");
esegui_query("insert into {$tableregole} select {$col_tableregole} from {$tableregole_prec} where tariffa_commissioni is not NULL and iddatainizio is NULL ");
$privilegi_prec = esegui_query("select * from {$tableprivilegi} where anno = '{$anno_prec}'");
for ($num1 = 0; $num1 < numlin_query($privilegi_prec); $num1++) {
$idutente_p = risul_query($privilegi_prec, $num1, 'idutente');
$regole1_consentite_p = risul_query($privilegi_prec, $num1, 'regole1_consentite');
$tariffe_consentite_p = risul_query($privilegi_prec, $num1, 'tariffe_consentite');
$costi_agg_consentiti_p = risul_query($privilegi_prec, $num1, 'costi_agg_consentiti');
$contratti_consentiti_p = risul_query($privilegi_prec, $num1, 'contratti_consentiti');
$cassa_pagamenti_p = aggslashdb(risul_query($privilegi_prec, $num1, 'cassa_pagamenti'));
$priv_ins_prenota_p = risul_query($privilegi_prec, $num1, 'priv_ins_prenota');
$priv_mod_prenota_p = risul_query($privilegi_prec, $num1, 'priv_mod_prenota');
$priv_mod_pers_p = risul_query($privilegi_prec, $num1, 'priv_mod_pers');
$priv_ins_clienti_p = risul_query($privilegi_prec, $num1, 'priv_ins_clienti');
$prefisso_clienti_p = risul_query($privilegi_prec, $num1, 'prefisso_clienti');
$priv_ins_costi_p = risul_query($privilegi_prec, $num1, 'priv_ins_costi');
$priv_vedi_tab_p = risul_query($privilegi_prec, $num1, 'priv_vedi_tab');
$priv_ins_tariffe_p = risul_query($privilegi_prec, $num1, 'priv_ins_tariffe');
$priv_ins_regole_p = risul_query($privilegi_prec, $num1, 'priv_ins_regole');
esegui_query("insert into {$tableprivilegi} (idutente,anno,regole1_consentite,tariffe_consentite,costi_agg_consentiti,contratti_consentiti,cassa_pagamenti,priv_ins_prenota,priv_mod_prenota,priv_mod_pers,priv_ins_clienti,prefisso_clienti,priv_ins_costi,priv_vedi_tab,priv_ins_tariffe,priv_ins_regole) values ('{$idutente_p}','{$anno}','{$regole1_consentite_p}','{$tariffe_consentite_p}','{$costi_agg_consentiti_p}','{$contratti_consentiti_p}','{$cassa_pagamenti_p}','{$priv_ins_prenota_p}','{$priv_mod_prenota_p}','{$priv_mod_pers_p}','{$priv_ins_clienti_p}','{$prefisso_clienti_p}','{$priv_ins_costi_p}','{$priv_vedi_tab_p}','{$priv_ins_tariffe_p}','{$priv_ins_regole_p}')");
$lingua_mex = $lingua[$idutente_p];
crea_menu_date(C_DATA_PATH . "/selectperiodi{$anno}.1.php", C_DATA_PATH . "/selectperiodi{$anno}.{$idutente_p}.php", $tipo_periodi);
if (@is_file(C_DATA_PATH . "/selperiodimenu" . ($anno - 1) . ".{$idutente_p}.php")) {
estendi_menu_date(C_DATA_PATH . "/selperiodimenu" . ($anno - 1) . ".{$idutente_p}.php", C_DATA_PATH . "/selperiodimenu{$anno}.{$idutente_p}.php", $tipo_periodi, date("Y-m-d", mktime(0, 0, 0, $mese_ini, 1, $anno)), $data_ini_agg, date("Y-m-d", mktime(0, 0, 0, $mese_fine + 1, 1, $anno)), $anno, $pag);
} else {
copy(C_DATA_PATH . "/selectperiodi{$anno}.{$idutente_p}.php", C_DATA_PATH . "/selperiodimenu{$anno}.{$idutente_p}.php");
}
$lingua_mex = $lingua[1];
$giorno_vedi_ini_sett = esegui_query("select valpersonalizza_num from {$tablepersonalizza} where idpersonalizza = 'giorno_vedi_ini_sett{$anno_prec}' and idutente = '{$idutente_p}'");
if (numlin_query($giorno_vedi_ini_sett) == 1 and $tipo_periodi == "g") {
esegui_query("insert into {$tablepersonalizza} (idpersonalizza,valpersonalizza_num,idutente) values ('giorno_vedi_ini_sett{$anno}','" . risul_query($giorno_vedi_ini_sett, 0, "valpersonalizza_num") . "','{$idutente_p}')");
}
}
# fine for $num1
$giorno_vedi_ini_sett = esegui_query("select valpersonalizza_num from {$tablepersonalizza} where idpersonalizza = 'giorno_vedi_ini_sett{$anno_prec}' and idutente = '1'");
if (numlin_query($giorno_vedi_ini_sett) == 1 and $tipo_periodi == "g") {
esegui_query("insert into {$tablepersonalizza} (idpersonalizza,valpersonalizza_num,idutente) values ('giorno_vedi_ini_sett{$anno}','" . risul_query($giorno_vedi_ini_sett, 0, "valpersonalizza_num") . "','1')");
}
$inserisci_in_ntariffe = "NO";
}
# fine if ($importa_anno_prec == "SI")
if ($inserisci_in_ntariffe != "NO") {
# rigo 1: nomi tariffe; 2-3: caparra (% e arrotondo).
for ($numtariffe = 1; $numtariffe <= 6; $numtariffe = $numtariffe + 1) {
esegui_query("insert into {$tablenometariffe} (idntariffe) values ('{$numtariffe}')");
}
# fine for $numtariffe
esegui_query("update {$tablenometariffe} set nomecostoagg = '8' where idntariffe = '1'");
esegui_query("update {$tablenometariffe} set numlimite_ca = '11' where idntariffe = '1'");
}
# fine if ($inserisci_in_ntariffe != "NO")
esegui_query("delete from {$tablerelclienti} where tipo = 'cc' {$lista_clienti_importati}");
unlock_tabelle($tabelle_lock);
if ($silenzio != "SI") {
echo "<br> " . mex("Anno ", $pag) . $anno . mex(" creato", $pag) . "! <br><br>";
}
if ($importa_anno_prec == "SI" and C_RESTRIZIONI_DEMO_ADMIN != "SI") {
if ($silenzio != "SI") {
$silenzio_mod = "SI";
} else {
$silenzio_mod = "totale";
}
global $anno_modello_presente, $num_periodi_date, $modello_esistente, $cambia_frasi, $lingua_modello, $percorso_cartella_modello, $nome_file;
$pag_orig = $pag;
$pag = "crea_modelli.php";
include "./includes/templates/funzioni_modelli.php";
$modello_esistente = "SI";
$cambia_frasi = "NO";
$anno_modello = $anno;
include "./includes/templates/frasi_mod_disp.php";
include "./includes/templates/funzioni_mod_disp.php";
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if (@is_file("{$percorso_cartella_modello}/mdl_disponibilita.php")) {
$lingua_modello = "ita";
$nome_file = mex2("mdl_disponibilita", $pag, $lingua_modello) . ".php";
$num_periodi_date = "";
recupera_var_modello_disponibilita($nome_file, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
if ($anno_modello_presente == $anno_prec) {
aggiorna_var_anno_modello_disponibilita($id_data_ini_periodi_prec, $tableperiodi_prec, $tableperiodi, $tabletransazioniweb, $tablemessaggi, $tipo_periodi);
crea_modello_disponibilita($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($anno_modello_presente == $anno_prec)
}
# fine if (@is_file("$percorso_cartella_modello/modello_disponibilita.php"))
}
# fine for $num_cart
$lang_dir = opendir("./includes/lang/");
include C_DATA_PATH . "/lingua.php";
while ($ini_lingua = readdir($lang_dir)) {
if ($ini_lingua != "." && $ini_lingua != "..") {
$nome_file = mex2("mdl_disponibilita", $pag, $ini_lingua) . ".php";
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if (@is_file("{$percorso_cartella_modello}/{$nome_file}")) {
$lingua_modello = $ini_lingua;
$num_periodi_date = "";
recupera_var_modello_disponibilita($nome_file, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
if ($anno_modello_presente == $anno_prec) {
aggiorna_var_anno_modello_disponibilita($id_data_ini_periodi_prec, $tableperiodi_prec, $tableperiodi, $tabletransazioniweb, $tablemessaggi, $tipo_periodi);
crea_modello_disponibilita($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($anno_modello_presente == $anno_prec)
}
# fine if (@is_file("$percorso_cartella_modello/$nome_file"))
}
# fine for $num_cart
}
# fine if ($file != "." && $file != "..")
}
# fine while ($file = readdir($lang_dig))
closedir($lang_dir);
$templates_dir = opendir("./includes/templates/");
while ($modello_ext = readdir($templates_dir)) {
if ($modello_ext != "." and $modello_ext != ".." and @is_dir("./includes/templates/{$modello_ext}")) {
include "./includes/templates/{$modello_ext}/name.php";
include "./includes/templates/{$modello_ext}/phrases.php";
include "./includes/templates/{$modello_ext}/functions.php";
$funz_recupera_var_modello = "recupera_var_modello_" . $modello_ext;
$funz_crea_modello = "crea_modello_" . $modello_ext;
$funz_aggiorna_var_anno_modello = "aggiorna_var_anno_modello_" . $modello_ext;
if ($template_file_name["ita"]) {
$nome_file = $template_file_name["ita"];
} else {
$nome_file = "ita_" . $template_file_name["en"];
}
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if (@is_file("{$percorso_cartella_modello}/{$nome_file}")) {
$lingua_modello = "ita";
$num_periodi_date = "";
$funz_recupera_var_modello($nome_file, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
if ($anno_modello_presente == $anno_prec) {
$funz_aggiorna_var_anno_modello($id_data_ini_periodi_prec, $tableperiodi_prec, $tableperiodi, $tabletransazioniweb, $tablemessaggi, $tipo_periodi);
$funz_crea_modello($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($anno_modello_presente == $anno_prec)
}
# fine if (@is_file("$percorso_cartella_modello/$nome_file"))
}
# fine for $num_cart
$lang_dir = opendir("./includes/lang/");
while ($ini_lingua = readdir($lang_dir)) {
if ($ini_lingua != "." && $ini_lingua != "..") {
if ($template_file_name[$ini_lingua]) {
$nome_file = $template_file_name[$ini_lingua];
} else {
$nome_file = $ini_lingua . "_" . $template_file_name["en"];
}
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if (@is_file("{$percorso_cartella_modello}/{$nome_file}")) {
$lingua_modello = $ini_lingua;
$num_periodi_date = "";
$funz_recupera_var_modello($nome_file, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
if ($anno_modello_presente == $anno_prec) {
$funz_aggiorna_var_anno_modello($id_data_ini_periodi_prec, $tableperiodi_prec, $tableperiodi, $tabletransazioniweb, $tablemessaggi, $tipo_periodi);
$funz_crea_modello($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($anno_modello_presente == $anno_prec)
}
# fine if (@is_file("$percorso_cartella_modello/$nome_file"))
}
# fine for $num_cart
}
# fine if ($file != "." && $file != "..")
}
# fine while ($file = readdir($lang_dir))
closedir($lang_dir);
}
# fine if ($modello_ext != "." and $modello_ext != ".." and...
}
# fine while ($file = readdir($lang_dig))
closedir($templates_dir);
$pag = $pag_orig;
if ($silenzio != "SI") {
echo "<br>";
}
}
# fine if ($importa_anno_prec == "SI" and C_RESTRIZIONI_DEMO_ADMIN != "SI")
} else {
if ($silenzio != "SI") {
echo mex("Non ho i permessi per creare nuove tabelle nel database", $pag) . ".<br>";
}
}
} else {
if ($silenzio != "SI") {
echo mex("Anno già creato", $pag) . ".<br>";
}
}
flock($filelock, 3);
fclose($filelock);
unlink(C_DATA_PATH . "/anni.lock");
} else {
if ($silenzio != "SI") {
echo mex("Non ho i permessi di scrittura sulla cartella data", $pag) . ".<br>";
}
}
$lingua_mex = $lingua_mex_orig;
}
function mext_rat ($messaggio,$pag,$lingua="") {
if ($lingua) $lingua_mex = $lingua;
else global $lingua_mex;
if ($lingua_mex != "en" and $lingua_mex != "ita" and $lingua_mex != "es") {
if (@is_file("./includes/lang/$lingua_mex/modt_rat.php")) include("./includes/lang/$lingua_mex/modt_rat.php");
} # fine if ($lingua_mex != "en" and...
if ($tr != 1) {
# messaggi in inglese di default
if ($lingua_mex != "es" and $lingua_mex != "ita") {
switch ($messaggio) {
case "Pagina della tabella con le tariffe": $messaggio = "Page of the rates table"; $tr = 1; break;
case "Crea la pagina con la tabella delle tariffe": $messaggio = "Create the rates table page"; $tr = 1; break;
case "Mostra tariffe": $messaggio = "Show rates"; $tr = 1; break;
case "Tabella Tariffe": $messaggio = "Rates Table"; $tr = 1; break;
case "Stile tabella tariffe": $messaggio = "Rates table style"; $tr = 1; break;
case "Costi aggiuntivi": $messaggio = "Extra costs"; $tr = 1; break;
case "della tariffa": $messaggio = "of the rate"; $tr = 1; break;
case "della tariffa senza persone": $messaggio = "of the rate without persons"; $tr = 1; break;
case "della tariffa di una persona": $messaggio = "of the rate of one person"; $tr = 1; break;
case "del prezzo totale": $messaggio = "of total price"; $tr = 1; break;
case "della caparra": $messaggio = "of deposit"; $tr = 1; break;
case "del resto della caparra": $messaggio = "of deposit rest"; $tr = 1; break;
case "alla settimana": $messaggio = "per week"; $tr = 1; break;
case "al giorno": $messaggio = "per day"; $tr = 1; break;
case "a persona": $messaggio = "per person"; $tr = 1; break;
case "obbligatorio con": $messaggio = "obligatory with"; $tr = 1; break;
case "tutte le tariffe": $messaggio = "all rates"; $tr = 1; break;
case "*p": $messaggio = "*p"; $tr = 1; break;
case "": $messaggio = ""; $tr = 1; break;
case "": $messaggio = ""; $tr = 1; break;
case "var_stile_tabella_tariffe": $messaggio = "var_rates_table_style"; $tr = 1; break;
case "var_fr_Costi_aggiuntivi": $messaggio = "var_phr_Extra_costs"; $tr = 1; break;
case "var_fr_della_tariffa": $messaggio = "var_phr_of_the_rate"; $tr = 1; break;
case "var_fr_della_tariffa_senza_persone": $messaggio = "var_phr_of_the_rate_without_persons"; $tr = 1; break;
case "var_fr_della_tariffa_di_una_persona": $messaggio = "var_phr_of_the_rate_of_one_person"; $tr = 1; break;
case "var_fr_del_prezzo_totale": $messaggio = "var_phr_of_total_price"; $tr = 1; break;
case "var_fr_della_caparra": $messaggio = "var_phr_of_deposit"; $tr = 1; break;
case "var_fr_del_resto_della_caparra": $messaggio = "var_phr_of_deposit_rest"; $tr = 1; break;
case "var_fr_alla_settimana": $messaggio = "var_phr_per_week"; $tr = 1; break;
case "var_fr_a_persona": $messaggio = "var_phr_per_person"; $tr = 1; break;
case "var_fr_obbligatorio_con": $messaggio = "var_phr_obligatory_with"; $tr = 1; break;
case "var_fr_tutte_le_tariffe": $messaggio = "var_phr_all_rates"; $tr = 1; break;
case "var_fr_per_p": $messaggio = "var_phr_per_p"; $tr = 1; break;
case "var_fr_": $messaggio = "var_phr_"; $tr = 1; break;
case "var_fr_": $messaggio = "var_phr_"; $tr = 1; break;
} # fine switch ($messaggio)
} # fine if ($lingua_mex != "es" and $lingua_mex != "ita")
if ($lingua_mex == "es") {
switch ($messaggio) {
case "Pagina della tabella con le tariffe": $messaggio = "Página de la tabla con las tarifas"; $tr = 1; break;
case "Crea la pagina con la tabella delle tariffe": $messaggio = "Crea la página con la tabla de las tarifas"; $tr = 1; break;
case "Mostra tariffe": $messaggio = "Enseñar las tarifas"; $tr = 1; break;
case "Tabella Tariffe": $messaggio = "Tabla de las Tarifas"; $tr = 1; break;
case "Stile tabella tariffe": $messaggio = "Estilo de la tabla de las tarifas"; $tr = 1; break;
case "Costi aggiuntivi": $messaggio = "Costes añadidos"; $tr = 1; break;
case "della tariffa": $messaggio = "de la tarifa"; $tr = 1; break;
case "della tariffa senza persone": $messaggio = "de la tarifa sin personas"; $tr = 1; break;
case "della tariffa di una persona": $messaggio = "de la tarifa de una persona"; $tr = 1; break;
case "del prezzo totale": $messaggio = "del precio total"; $tr = 1; break;
case "della caparra": $messaggio = "de la fianza"; $tr = 1; break;
case "del resto della caparra": $messaggio = "del resto de la fianza"; $tr = 1; break;
case "alla settimana": $messaggio = "a la semana"; $tr = 1; break;
case "al giorno": $messaggio = "al día"; $tr = 1; break;
case "a persona": $messaggio = "por persona"; $tr = 1; break;
case "obbligatorio con": $messaggio = "obligatorio con"; $tr = 1; break;
case "tutte le tariffe": $messaggio = "todas las tarifas"; $tr = 1; break;
case "*p": $messaggio = "*p"; $tr = 1; break;
case "": $messaggio = ""; $tr = 1; break;
case "": $messaggio = ""; $tr = 1; break;
case "var_stile_tabella_tariffe": $messaggio = "var_estilo_tabla_reservas"; $tr = 1; break;
case "var_fr_Costi_aggiuntivi": $messaggio = "var_fr_Costes_agnadidos"; $tr = 1; break;
case "var_fr_della_tariffa": $messaggio = "var_fr_de_la_tarifa"; $tr = 1; break;
case "var_fr_della_tariffa_senza_persone": $messaggio = "var_fr_de_la_tarifa_sin_personas"; $tr = 1; break;
case "var_fr_della_tariffa_di_una_persona": $messaggio = "var_fr_de_la_tarifa_de_una_persona"; $tr = 1; break;
case "var_fr_del_prezzo_totale": $messaggio = "var_fr_del_precio_total"; $tr = 1; break;
case "var_fr_della_caparra": $messaggio = "var_fr_de_la_fianza"; $tr = 1; break;
case "var_fr_del_resto_della_caparra": $messaggio = "var_fr_del_resto_de_la_fianza"; $tr = 1; break;
case "var_fr_alla_settimana": $messaggio = "var_fr_a_la_semana"; $tr = 1; break;
case "var_fr_a_persona": $messaggio = "var_fr_por_persona"; $tr = 1; break;
case "var_fr_obbligatorio_con": $messaggio = "var_fr_obligatorio_con"; $tr = 1; break;
case "var_fr_tutte_le_tariffe": $messaggio = "var_fr_todas_las_tarifas"; $tr = 1; break;
case "var_fr_per_p": $messaggio = "var_fr_por_p"; $tr = 1; break;
case "var_fr_": $messaggio = "var_fr_"; $tr = 1; break;
case "var_fr_": $messaggio = "var_fr_"; $tr = 1; break;
} # fine switch ($messaggio)
} # fine if ($lingua_mex == "es")
if ($tr != 1) {
if ($lingua) $messaggio = mex2($messaggio,$pag,$lingua);
else $messaggio = mex($messaggio,$pag);
} # fine if ($tr != 1)
} # fine if ($tr != 1)
return $messaggio;
} # fine function mext_rat
@unlink(C_DATA_PATH . "/ini.php");
}
# fine if (C_UTILIZZA_SEMPRE_DEFAULTS == "AUTO" and @is_file(C_DATI_PATH."/ini.php"))
$tablemessaggi = $PHPR_TAB_PRE . "messaggi";
$testo = "<div style=\"max-width: 600px; line-height: 1.1;\">";
if (C_NASCONDI_MARCA != "SI") {
$testo .= "<h4>" . mex("Benvenuto a HotelDruid!", $pag) . "</h4><br>";
}
$testo .= "" . mex("Questi sono alcuni semplici passi che puoi seguire per configurare le funzionalità di base di HotelDruid", $pag) . ":<br>\n<ul style=\"line-height: 1.2;\">\n<li>" . mex("Inserisci le informazioni sugli appartamenti dalla", 'unit.php') . "\n <em><b><a href=\"./visualizza_tabelle.php?tipo_tabella=appartamenti&<sessione>\">" . mex("tabella appartamenti", 'unit.php') . "</a></b></em>, \n " . mex("utilizzando l'apposito tasto al di sotto di essa", $pag) . ". " . mex("Gli appartamenti possono essere creati, cancellati e rinominati", 'unit.php') . ". \n " . mex("Si consiglia di inserire almeno la capienza massima per ogni appartamento", 'unit.php') . ".<br><br></li>\n<li>" . mex("Inserisci il numero di tariffe, un nome per ciascuna di esse ed i prezzi corrispondenti dalla", $pag) . " \n <em><b><a href=\"./creaprezzi.php?<sessione>\">" . mex("pagina inserimento prezzi", $pag) . "</a></b></em>.\n " . mex("Considera che le tariffe di HotelDruid fungono anche da tipologie di appartamenti", 'unit.php') . " (" . mex("vedi passo successivo", $pag) . ").<br><br></li>\n<li>" . mex("Associa una lista di appartamenti ad ogni tariffa, inserendo una regola di assegnazione 2 per ognuna di esse, dalla", 'unit.php') . " \n <em><b><a href=\"./crearegole.php?<sessione>#regola2\">" . mex("pagina inserimento regole", $pag) . "</a></b></em>.\n " . mex("Ogni appatamento può essere associato a più tariffe", 'unit.php') . ".<br><br></li>\n<li>" . mex("Se questo server web è pubblico si può abilitare il login e creare nuovi utenti dalla", $pag) . "\n <em><b><a href=\"./gestione_utenti.php?<sessione>\">" . mex("pagina gestione utenti", $pag) . "</a></b></em>.<br><br></li>\n<li>" . mex("Vai alla pagina", $pag) . "\n \"<em><b><a href=\"./personalizza.php?<sessione>\">" . mex("configura e personalizza", $pag) . "</a></b></em>\"\n " . mex("per cambiare il nome della valuta, abilitare la registrazione delle entrate, inserire i metodi di pagamento, ed impostare molte altre opzioni", $pag) . ".<br><br></li>\n</ul></div>";
if (C_NASCONDI_MARCA == "SI") {
$testo = str_replace("HotelDruid", mex("questo programma", $pag), $testo);
}
$testo = aggslashdb($testo);
$datainserimento = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600);
esegui_query("insert into {$tablemessaggi} (idmessaggi,tipo_messaggio,idutenti,idutenti_visto,datavisione,mittente,testo,datainserimento) values ('1','sistema',',1,',',1,','{$datainserimento}','1','{$testo}','{$datainserimento}')");
echo mex("Dati inseriti", $pag) . "!<br>" . mex("Tutti i data permanenti sono stati inseriti", $pag) . ".<br>";
echo "><br>\n</div></form>\"";
if (C_CREA_ULTIMO_ACCESSO == "SI") {
$fileaperto = @fopen(C_DATA_PATH . "/ultimo_accesso", "w+");
@fwrite($fileaperto, date("d-m-Y H:i:s"));
@fclose($fileaperto);
@chmod(C_DATA_PATH . "/ultimo_accesso", 0644);
}
# fine if (C_CREA_ULTIMO_ACCESSO == "SI")
}
# fine if ($insappartamenti and !@is_file(C_DATI_PATH."/selectappartamenti.php"))
if ($mostra_form_iniziale != "NO") {
// prima form di inserimento
echo "<h4>" . mex2("Inserimento dei data permanenti", $pag, $lingua) . "</h4><br>\n" . mex2("Inserisci questi data per poi creare il database", $pag, $lingua) . ".<br>\n<br>\n<form accept-charset=\"utf-8\" method=\"post\" action=\"createdb.php\"><div>\n" . mex2("Tipo di database", $pag, $lingua) . ": \n<select name=\"tipo_db\">";
if (C_CREADB_TIPODB == "postgresql") {
$selected = " selected";
function inserisci_prenotazione($inizioperiodo, $fineperiodo, $lista_app, $tipotariffa, $numpersone, $prenota_vicine, $idclienti, $conferma, $pagato, $caparra, $met_paga_caparra, $commissioni, $origine_prenota, $sconto, $giorno_stima_checkin, $ora_stima_checkin, $min_stima_checkin, $commento, &$stato, $anno, $PHPR_TAB_PRE, $ins_passato = "", $id_utente_imp = "", $id_prenota_imp = "", $tariffe_sett_imp = "", $ins_costi_agg = "")
{
global $id_utente, $HOSTNAME;
$PHPR_TAB_PRE = aggslashdb($PHPR_TAB_PRE);
$anno = aggslashdb($anno);
$tableprenota = $PHPR_TAB_PRE . "prenota" . $anno;
$tablecostiprenota = $PHPR_TAB_PRE . "costiprenota" . $anno;
$tableperiodi = $PHPR_TAB_PRE . "periodi" . $anno;
$tableregole = $PHPR_TAB_PRE . "regole" . $anno;
$tableappartamenti = $PHPR_TAB_PRE . "appartamenti";
$tablepersonalizza = $PHPR_TAB_PRE . "personalizza";
$tableclienti = $PHPR_TAB_PRE . "clienti";
$tablenometariffe = $PHPR_TAB_PRE . "ntariffe" . $anno;
if (!function_exists('tab_a_var')) {
include "./includes/liberasettimane.php";
}
if (!function_exists('dati_tariffe')) {
include "./includes/funzioni_tariffe.php";
}
include "./includes/sett_gio.php";
$Euro = nome_valuta();
$stile_soldi = stile_soldi();
$stile_data = stile_data();
$num_tipologie = count($inizioperiodo);
$appartamenti = esegui_query("select * from {$tableappartamenti} ");
$numappartamenti = numlin_query($appartamenti);
$id_app_richiesti = 0;
$dati_tariffe = dati_tariffe($tablenometariffe, "", "", $tableregole);
if ($ins_costi_agg) {
if (!function_exists('dati_costi_agg_ntariffe')) {
include "./includes/funzioni_costi_agg.php";
}
$dati_ca = dati_costi_agg_ntariffe($tablenometariffe, $dati_tariffe['num'], "NO", "", $tableappartamenti);
}
# fine if ($ins_costi_agg)
for ($n_t = 1; $n_t <= $num_tipologie; $n_t++) {
$inizioperiodo_orig[$n_t] = $inizioperiodo[$n_t];
$fineperiodo_orig[$n_t] = $fineperiodo[$n_t];
$idinizioperiodo = esegui_query("select idperiodi from {$tableperiodi} where datainizio = '" . aggslashdb($inizioperiodo[$n_t]) . "' ");
$num_idinizioperiodo = numlin_query($idinizioperiodo);
if ($num_idinizioperiodo == 0) {
$idinizioperiodo = 10000;
} else {
$idinizioperiodo = risul_query($idinizioperiodo, 0, 'idperiodi');
}
$inizioperiodo[$n_t] = $idinizioperiodo;
if (!$idinizioperiodo_tot or $idinizioperiodo < $idinizioperiodo_tot) {
$idinizioperiodo_tot = $idinizioperiodo;
}
$idfineperiodo = esegui_query("select idperiodi from {$tableperiodi} where datafine = '" . aggslashdb($fineperiodo[$n_t]) . "' ");
$num_idfineperiodo = numlin_query($idfineperiodo);
if ($num_idfineperiodo == 0) {
$idfineperiodo = -1;
} else {
$idfineperiodo = risul_query($idfineperiodo, 0, 'idperiodi');
}
$fineperiodo[$n_t] = $idfineperiodo;
if (!$idfineperiodo_tot or $idfineperiodo > $idfineperiodo_tot) {
$idfineperiodo_tot = $idfineperiodo;
}
$id_periodo_corrente = calcola_id_periodo_corrente($anno);
if ($id_periodo_corrente > $idinizioperiodo and !$ins_passato) {
$data_sbagliata = "SI";
}
if ($idfineperiodo < $idinizioperiodo or $data_sbagliata == "SI") {
$inserire = "NO";
$mess_errore .= mex("Le date sono sbagliate", "clienti.php");
if ($num_tipologie > 1) {
$mess_errore .= " (" . mex("tipologia", "clienti.php") . " {$n_t})";
}
$mess_errore .= ".<br>";
}
# fine if ($idfineperiodo < $idinizioperiodo or...
if (substr($tipotariffa[$n_t], 0, 7) != "tariffa" or controlla_num_pos(substr($tipotariffa[$n_t], 7)) == "NO") {
$tariffa_sbagliata = "SI";
} else {
$tar_sett_imp = $tariffe_sett_imp[$n_t];
for ($num1 = $inizioperiodo[$n_t]; $num1 <= $fineperiodo[$n_t]; $num1++) {
$rigasettimana = esegui_query("select * from {$tableperiodi} where idperiodi = '{$num1}' ");
$esistetariffa = risul_query($rigasettimana, 0, $tipotariffa[$n_t]);
$esistetariffap = risul_query($rigasettimana, 0, $tipotariffa[$n_t] . "p");
if ((!strcmp($esistetariffa, "") or $esistetariffa < 0) and (!strcmp($esistetariffap, "") or $esistetariffap < 0) and !strcmp($tar_sett_imp[$num1], "")) {
$tariffa_sbagliata = "SI";
}
if ($dati_tariffe[$tipotariffa[$n_t]]['chiusa'][$num1] and !strcmp($tar_sett_imp[$num1], "")) {
$tariffa_sbagliata = "SI";
}
}
# fine for $num1
}
# fine else if (substr($tipotariffa[$n_t],0,7) != "tariffa" or...
if ($tariffa_sbagliata == "SI") {
$inserire = "NO";
$mess_errore .= mex("Si deve inserire il tipo di tariffa", "clienti.php");
if ($num_tipologie > 1) {
$mess_errore .= "(" . mex("tipologia", "clienti.php") . " {$n_t})";
}
$mess_errore .= ".<br>";
} else {
# se vi è una regola 2 per la tariffa
unset($app_regola2_predef);
if (!$lista_app[$n_t]) {
$lista_app[$n_t] = trova_app_regola2($tipotariffa[$n_t], $regole2, $num_regole2, $app_regola2_predef, $id_periodo_corrente, $idinizioperiodo, $idfineperiodo, $tipo_periodi, $anno, $tableregole);
}
# fine if (!$lista_app[$n_t])
$id_utente_ins = "";
# se vi è una regola 3 per la tariffa
if ($id_utente == 1) {
$regole3 = esegui_query("select * from {$tableregole} where tariffa_per_utente = '" . aggslashdb($tipotariffa[$n_t]) . "'");
if (numlin_query($regole3) == 1) {
$id_utente_ins = risul_query($regole3, 0, 'iddatainizio');
}
}
# fine if ($id_utente == 1)
if (!$id_utente_ins and $id_utente_imp) {
$id_utente_ins = $id_utente_imp;
}
if (!$id_utente_ins and $id_utente) {
$id_utente_ins = $id_utente;
}
if (!$id_utente_ins) {
$id_utente_ins = 1;
}
# se vi è una regola 4 per la tariffa
if (!$numpersone[$n_t]) {
$regole4 = esegui_query("select * from {$tableregole} where tariffa_per_persone = '" . aggslashdb($tipotariffa[$n_t]) . "'");
if (numlin_query($regole4) == 1) {
$numpersone[$n_t] = risul_query($regole4, 0, 'iddatainizio');
}
}
# fine if (!$numpersone[$n_t])
if (!$numpersone) {
if ($dati_tariffe[$tipotariffa[$n_t]]['moltiplica'] == "p") {
$inserire = "NO";
$mess_errore .= mex("Si deve inserire il numero delle persone per questa tariffa", "clienti.php");
if ($num_tipologie > 1) {
$mess_errore .= "(" . mex("tipologia", "clienti.php") . " {$n_t})";
}
$mess_errore .= ".<br>";
}
# fine if ($dati_tariffe[$tipotariffa[$n_t]]['moltiplica'] == "p")
}
# fine if (!$numpersone)
}
# fine else if ($tariffa_sbagliata == "SI")
if (controlla_num_pos($idclienti[$n_t]) == "NO") {
$inserire = "NO";
} else {
$cliente_esistente = esegui_query("select cognome from {$tableclienti} where idclienti = '" . $idclienti[$n_t] . "' ");
if (numlin_query($cliente_esistente) != 1) {
$inserire = "NO";
} else {
$cognome = risul_query($cliente_esistente, 0, "cognome");
}
}
# fine else if (controlla_num_pos($idclienti[$n_t]) == "NO")
$app_richiesti_id[$n_t] = "";
$assegnazioneapp[$n_t] = "v";
if ($lista_app[$n_t]) {
$assegnazioneapp[$n_t] = "c";
$vett_app = explode(",", $lista_app[$n_t]);
$num_app = count($vett_app);
if ($num_app == 1) {
$assegnazioneapp[$n_t] = "k";
}
for ($num1 = 0; $num1 < $num_app; $num1++) {
$appo = aggslashdb($vett_app[$num1]);
$app_richiesti_id[$n_t][$appo] = "SI";
$appartamento_esistente = esegui_query("select idappartamenti from {$tableappartamenti} where idappartamenti = '{$appo}' ");
if (numlin_query($appartamento_esistente) != 1) {
$inserire = "NO";
$mess_errore .= mex("L'appartamento", 'unit.php') . " <div style=\"display: inline; color: red;\">{$appo}</div> " . mex("contenuto nella lista non esiste", "clienti.php");
if ($num_tipologie > 1) {
$mess_errore .= " (" . mex("tipologia", "clienti.php") . " {$n_t})";
}
$mess_errore .= ".<br>";
}
# fine if (numlin_query($appartamento_esistente) != 1)
}
# fine for $num1
}
# fine if ($lista_app[$n_t])
if ($numpersone[$n_t]) {
if (controlla_num_pos($numpersone[$n_t]) == "NO") {
$inserire = "NO";
$mess_errore .= mex("Il numero di persone è sbagliato", "clienti.php");
if ($num_tipologie > 1) {
$mess_errore .= " (" . mex("tipologia", "clienti.php") . " {$n_t})";
}
$mess_errore .= ".<br>";
}
# fine if (controlla_num_pos($numpersone[$n_t]) == "NO")
$app_richiesti_copia = $app_richiesti_id[$n_t];
$posti = 0;
if ($app_regola2_predef) {
$app_regola2_predef = ",{$app_regola2_predef},";
$posto_reg2_orig = 0;
}
# fine if ($app_regola2_predef)
for ($num1 = 0; $num1 < $numappartamenti; $num1++) {
$idapp = risul_query($appartamenti, $num1, 'idappartamenti');
$maxoccupanti = risul_query($appartamenti, $num1, 'maxoccupanti');
if (!$app_richiesti_copia or $app_richiesti_copia[$idapp] == "SI") {
if ($maxoccupanti and $maxoccupanti < $numpersone[$n_t]) {
$app_richiesti_id[$n_t][$idapp] = "NO";
} else {
$app_richiesti_id[$n_t][$idapp] = "SI";
$posti++;
}
# fine else if ($maxoccupanti and $maxoccupanti < $numpersone[$n_t])
}
# fine if (!$app_richiesti_copia or $app_richiesti_copia[$idapp] == "SI")
if ($app_regola2_predef) {
if (str_replace(",{$idapp},", "", $app_regola2_predef) != $app_regola2_predef) {
if (!$maxoccupanti or $maxoccupanti >= $numpersone[$n_t]) {
$posto_reg2_orig = 1;
}
}
# fine if (str_replace(",$idapp,","",$app_regola2_predef) != $app_regola2_predef)
}
# fine if ($app_regola2_predef)
}
# fine for $num1
if ($posti == 0 or $app_regola2_predef and !$posto_reg2_orig) {
$mess_errore .= mex("Non c'è nessun appartamento tra quelli richiesti che possa ospitare", 'unit.php') . " " . $numpersone[$n_t] . " " . mex("persone", "clienti.php");
if ($num_tipologie > 1) {
$mess_errore .= " (" . mex("tipologia", "clienti.php") . " {$n_t})";
}
$mess_errore .= ".<br>";
$inserire = "NO";
}
# fine if ($posti == 0 or...
}
# fine if ($numpersone[$n_t])
unset($lista_app_richiesti);
if (!$app_richiesti_id[$n_t]) {
$lista_app_richiesti = ",tutti,,";
} else {
while (list($key, $val) = each($app_richiesti_id[$n_t])) {
if ($val == "SI") {
$lista_app_richiesti .= $key . ",";
}
}
}
$lista_app_richiesti = substr($lista_app_richiesti, 0, -1);
$id_app_richiesti++;
$app_richiesti[$id_app_richiesti] = $lista_app_richiesti;
$idinizioperiodo_vett[$id_app_richiesti] = $idinizioperiodo;
$idfineperiodo_vett[$id_app_richiesti] = $idfineperiodo;
$app_richiesti[",numero,"] = $id_app_richiesti;
if ($num_tipologie > 1 and $prenota_vicine == "SI") {
$app_richiesti[",vicini,"] = "SI";
}
if ($id_prenota_imp) {
if (controlla_num_pos($id_prenota_imp[$n_t]) == "SI") {
$id_esistente = esegui_query("select idprenota from {$tableprenota} where idprenota = '" . $id_prenota_imp[$n_t] . "' ");
if (numlin_query($id_esistente)) {
unset($id_prenota_imp);
}
} else {
unset($id_prenota_imp);
}
}
# fine if ($id_prenota_imp)
}
# fine for $n_t
if ($inserire != "NO") {
$app_agenzia = esegui_query("select * from {$tableregole} where app_agenzia != ''{$condizioni_regole1_non_sel}");
$num_app_agenzia = numlin_query($app_agenzia);
$minuti_durata_insprenota = esegui_query("select valpersonalizza_num from {$tablepersonalizza} where idpersonalizza = 'minuti_durata_insprenota' and idutente = '1'");
$minuti_durata_insprenota = risul_query($minuti_durata_insprenota, 0, 'valpersonalizza_num');
$lim_prenota_temp = aggslashdb(date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600 - $minuti_durata_insprenota * 60));
esegui_query("delete from {$tableprenota} where idclienti = '0' and datainserimento < '" . $lim_prenota_temp . "' ");
#Se ci sono regole per $app_agenzia inserisco false prenotazioni fisse in $app_prenota_id2
if ($num_app_agenzia != 0) {
unset($limiti_var);
unset($app_prenota_id);
unset($app_orig_prenota_id);
unset($inizio_prenota_id);
unset($fine_prenota_id);
unset($app_assegnabili_id);
unset($prenota_in_app_sett);
unset($dati_app);
unset($profondita);
$limiti_var['n_ini'] = $idinizioperiodo_tot;
$limiti_var['n_fine'] = $idfineperiodo_tot;
$limiti_var['lim_prenota_temp'] = $lim_prenota_temp;
$profondita['iniziale'] = "";
$profondita['attuale'] = 1;
$max_prenota = esegui_query("select max(idprenota) from {$tableprenota}");
if (numlin_query($max_prenota) != 0) {
$tot_prenota = risul_query($max_prenota, 0, 0);
} else {
$tot_prenota = 0;
}
$profondita['tot_prenota_ini'] = $tot_prenota;
$profondita['tot_prenota_attuale'] = $tot_prenota;
tab_a_var($limiti_var, $app_prenota_id, $app_orig_prenota_id, $inizio_prenota_id, $fine_prenota_id, $app_assegnabili_id, $prenota_in_app_sett, $anno, $dati_app, $profondita, $PHPR_TAB_PRE . "prenota");
unset($info_periodi_ag);
$info_periodi_ag['numero'] = 0;
for ($num1 = 0; $num1 < $num_app_agenzia; $num1++) {
$mot2 = risul_query($app_agenzia, $num1, 'motivazione2');
if ($mot2 == "x") {
$info_periodi_ag['app'][$info_periodi_ag['numero']] = risul_query($app_agenzia, $num1, 'app_agenzia');
$info_periodi_ag['ini'][$info_periodi_ag['numero']] = risul_query($app_agenzia, $num1, 'iddatainizio');
$info_periodi_ag['fine'][$info_periodi_ag['numero']] = risul_query($app_agenzia, $num1, 'iddatafine');
$info_periodi_ag['numero']++;
}
# fine if ($mot2 == "x")
}
# fine for $num1
if ($info_periodi_ag['numero']) {
inserisci_prenota_fittizie($info_periodi_ag, $profondita, $app_prenota_id, $inizio_prenota_id, $fine_prenota_id, $prenota_in_app_sett, $app_assegnabili_id);
}
$limiti_var2 = $limiti_var;
$profondita2 = $profondita;
$prenota_in_app_sett2 = $prenota_in_app_sett;
$inizio_prenota_id2 = $inizio_prenota_id;
$fine_prenota_id2 = $fine_prenota_id;
$app_prenota_id2 = $app_prenota_id;
$app_assegnabili_id2 = $app_assegnabili_id;
unset($info_periodi_ag);
$info_periodi_ag['numero'] = 0;
for ($num1 = 0; $num1 < $num_app_agenzia; $num1++) {
$mot2 = risul_query($app_agenzia, $num1, 'motivazione2');
if ($mot2 != "x") {
$info_periodi_ag['app'][$info_periodi_ag['numero']] = risul_query($app_agenzia, $num1, 'app_agenzia');
$info_periodi_ag['ini'][$info_periodi_ag['numero']] = risul_query($app_agenzia, $num1, 'iddatainizio');
$info_periodi_ag['fine'][$info_periodi_ag['numero']] = risul_query($app_agenzia, $num1, 'iddatafine');
$info_periodi_ag['numero']++;
}
# fine if ($mot2 != "x")
}
# fine for $num1
if ($info_periodi_ag['numero']) {
inserisci_prenota_fittizie($info_periodi_ag, $profondita2, $app_prenota_id2, $inizio_prenota_id2, $fine_prenota_id2, $prenota_in_app_sett2, $app_assegnabili_id2);
}
$occupare_app_agenzia_sempre = "NO";
for ($num1 = $idinizioperiodo_tot; $num1 <= $idfineperiodo_tot; $num1++) {
$numprenotazioni = 0;
for ($num2 = 0; $num2 < $dati_app['totapp']; $num2++) {
if ($prenota_in_app_sett2[$dati_app['posizione'][$num2]][$num1]) {
$numprenotazioni++;
}
}
if ($numprenotazioni >= $numappartamenti) {
$occupare_app_agenzia_sempre = "SI";
}
}
# fine for $num1
if ($occupare_app_agenzia_sempre != "SI") {
$app_orig_prenota_id = $app_prenota_id2;
liberasettimane($idinizioperiodo_vett, $idfineperiodo_vett, $limiti_var2, $anno, $fatto_libera, $app_liberato, $profondita2, $app_richiesti, $app_prenota_id2, $app_orig_prenota_id, $inizio_prenota_id2, $fine_prenota_id2, $app_assegnabili_id2, $prenota_in_app_sett2, $dati_app, $PHPR_TAB_PRE . "prenota");
} else {
$fatto_libera = "NO";
}
if ($fatto_libera == "SI") {
$risul_agg = aggiorna_tableprenota($app_prenota_id2, $app_orig_prenota_id, $tableprenota);
if (!$risul_agg) {
$fatto_libera = "NO";
} else {
$occupare_app_agenzia = "NO";
$appartamento = $app_liberato;
}
# fine else if (!$risul_agg)
} else {
$occupare_app_agenzia = "SI";
$limiti_var['t_limite'] = time() + $sec_limite_libsett;
$app_liberato = "";
$app_orig_prenota_id = $app_prenota_id;
liberasettimane($idinizioperiodo_vett, $idfineperiodo_vett, $limiti_var, $anno, $fatto_libera2, $app_liberato, $profondita, $app_richiesti, $app_prenota_id, $app_orig_prenota_id, $inizio_prenota_id, $fine_prenota_id, $app_assegnabili_id, $prenota_in_app_sett, $dati_app, $PHPR_TAB_PRE . "prenota");
if ($fatto_libera2 != "NO") {
$risul_agg = aggiorna_tableprenota($app_prenota_id, $app_orig_prenota_id, $tableprenota);
if (!$risul_agg) {
$fatto_libera2 = "NO";
}
}
# fine if ($fatto_libera2 != "NO")
if ($fatto_libera2 == "NO") {
$inserire = "NO";
$mess_errore .= mex("Nel periodo selezionato non è possibile ospitare il cliente negli appartamenti richiesti", 'unit.php') . ".<br>";
for ($n_t = 1; $n_t <= $num_tipologie; $n_t++) {
$mess_prenota .= mex("Prenotazione", "prenota.php") . mex("dal", "prenota.php") . " <b>" . formatta_data($inizioperiodo_orig[$n_t], $stile_data) . "</b> " . mex("al", "prenota.php") . " <b>" . formatta_data($fineperiodo_orig[$n_t], $stile_data) . "</b>";
$mess_prenota .= " " . mex("a nome di", "prenota.php") . " <b>{$cognome}</b> ";
if ($numpersone[$n_t]) {
$mess_prenota .= " " . mex("per", "prenota.php") . " <b>" . $numpersone[$n_t] . "</b> " . mex("persone", "prenota.php") . "";
}
if ($dati_tariffe[$tipotariffa[$n_t]]['nome']) {
$nometariffa_vedi = $dati_tariffe[$tipotariffa[$n_t]]['nome'];
} else {
$nometariffa_vedi = mex("tariffa", "prenota.php") . substr($tipotariffa[$n_t], 7);
}
$mess_prenota .= ", " . mex("tariffa", "prenota.php") . " \"{$nometariffa_vedi}\".<br><br>";
}
# fine for $n_t
} else {
$appartamento = $app_liberato;
$mess_regola1 .= mex("Sono stati fatti i seguenti spostamenti nei periodi della <div style=\"display: inline; color: blue;\">regola di assegnazione 1</div>", "clienti.php") . ":<br>";
for ($num1 = 0; $num1 < $num_app_agenzia; $num1++) {
$mot2 = risul_query($app_agenzia, $num1, 'motivazione2');
if ($mot2 != "x") {
$id_app_agenzia = risul_query($app_agenzia, $num1, 'app_agenzia');
$idinizio_app_agenzia = risul_query($app_agenzia, $num1, 'iddatainizio');
$idfine_app_agenzia = risul_query($app_agenzia, $num1, 'iddatafine');
$motivazione_app_agenzia = risul_query($app_agenzia, $num1, 'motivazione');
$idprenota_cambiate_da_ag = esegui_query("select idprenota from {$tableprenota} where idappartamenti = '{$id_app_agenzia}' and iddatainizio <= '{$idfine_app_agenzia}' and iddatafine >= '{$idinizio_app_agenzia}'");
$num_idprenota_cambiate_da_ag = numlin_query($idprenota_cambiate_da_ag);
for ($num2 = 0; $num2 < $num_idprenota_cambiate_da_ag; $num2 = $num2 + 1) {
$idprenota_cambiata = risul_query($idprenota_cambiate_da_ag, $num2, 'idprenota');
if ($app_prenota_id[$idprenota_cambiata] and $app_prenota_id[$idprenota_cambiata] != $id_app_agenzia) {
$idapp_camb = $app_prenota_id[$idprenota_cambiata];
$dati_cambiati = esegui_query("select * from {$tableprenota} where idprenota = '{$idprenota_cambiata}'");
$idclienti_camb = risul_query($dati_cambiati, 0, 'idclienti');
$cliente_camb = esegui_query("select cognome from {$tableclienti} where idclienti = '{$idclienti_camb}'");
if ($idclienti_camb) {
$cliente_camb = risul_query($cliente_camb, 0, 'cognome');
} else {
$cliente_camb = "?";
}
$iddatainizio_camb = $inizio_prenota_id[$idprenota_cambiata];
$datainizio_camb = esegui_query("select datainizio from {$tableperiodi} where idperiodi = '{$iddatainizio_camb}'");
$datainizio_camb = risul_query($datainizio_camb, 0, 'datainizio');
$datainizio_camb_f = formatta_data($datainizio_camb, $stile_data);
$iddatafine_camb = $fine_prenota_id[$idprenota_cambiata];
$datafine_camb = esegui_query("select datafine from {$tableperiodi} where idperiodi = '{$iddatafine_camb}'");
$datafine_camb = risul_query($datafine_camb, 0, 'datafine');
$datafine_camb_f = formatta_data($datafine_camb, $stile_data);
$mess_regola1 .= mex("La prenotazione dal", "clienti.php") . " {$datainizio_camb_f} " . mex("al", "clienti.php") . " {$datafine_camb_f} " . mex("a nome di", "clienti.php") . " {$cliente_camb} " . mex("verrà spostata dall'appartamento", 'unit.php') . " <div style=\"display: inline; color: blue;\"><b>{$id_app_agenzia}</b></div> (<b>{$motivazione_app_agenzia}</b>) " . mex("al", "clienti.php") . " {$idapp_camb}.<br>";
}
# fine if ($app_prenota_id[$idprenota_cambiata] and $app_prenota_id[$idprenota_cambiata] != $id_app_agenzia)
}
# fine for $num2
$idprenota_cambiate_a_ag = prenota_in_app_e_periodo($id_app_agenzia, $idinizio_app_agenzia, $idfine_app_agenzia, $prenota_in_app_sett, $fine_prenota_id, $num_pca);
for ($num2 = 1; $num2 <= $num_pca; $num2++) {
$idprenota_cambiata = $idprenota_cambiate_a_ag[$num2];
if ($app_orig_prenota_id[$idprenota_cambiata] and $app_prenota_id[$idprenota_cambiata] != $app_orig_prenota_id[$idprenota_cambiata]) {
$dati_cambiati = esegui_query("select * from {$tableprenota} where idprenota = {$idprenota_cambiata}");
$idapp_camb = $app_orig_prenota_id[$idprenota_cambiata];
$idclienti_camb = risul_query($dati_cambiati, 0, 'idclienti');
$cliente_camb = esegui_query("select cognome from {$tableclienti} where idclienti = {$idclienti_camb}");
if ($idclienti_camb) {
$cliente_camb = risul_query($cliente_camb, 0, 'cognome');
} else {
$cliente_camb = "?";
}
$iddatainizio_camb = $inizio_prenota_id[$idprenota_cambiata];
$datainizio_camb = esegui_query("select datainizio from {$tableperiodi} where idperiodi = {$iddatainizio_camb}");
$datainizio_camb = risul_query($datainizio_camb, 0, 'datainizio');
$datainizio_camb_f = formatta_data($datainizio_camb, $stile_data);
$iddatafine_camb = $fine_prenota_id[$idprenota_cambiata];
$datafine_camb = esegui_query("select datafine from {$tableperiodi} where idperiodi = {$iddatafine_camb}");
$datafine_camb = risul_query($datafine_camb, 0, 'datafine');
$datafine_camb_f = formatta_data($datafine_camb, $stile_data);
$mess_regola1 .= mex("La prenotazione dal", "clienti.php") . " {$datainizio_camb_f} " . mex("al", "clienti.php") . " {$datafine_camb_f} " . mex("a nome di", "clienti.php") . " {$cliente_camb} " . mex("verrà spostata dall'appartamento", 'unit.php') . " {$idapp_camb} " . mex("al", "clienti.php") . " <div style=\"display: inline; color: blue;\"><b>{$id_app_agenzia}</b></div> (<b>{$motivazione_app_agenzia}</b>).<br>";
}
# fine if ($app_orig_prenota_id[$idprenota_cambiata] and...
}
# fine for $num2
for ($num2 = 1; $num2 <= $id_app_richiesti; $num2++) {
if ($id_app_richiesti > 1) {
$appartamento_controlla = $appartamento[$num2];
} else {
$appartamento_controlla = $appartamento;
}
if ($id_app_agenzia == $appartamento_controlla and $idinizio_app_agenzia <= $idfineperiodo and $idfine_app_agenzia >= $idinizioperiodo) {
$mess_regola1 .= mex("La nuova prenotazione verrà inserita nell'appartamento", 'unit.php') . " <div style=\"display: inline; color: blue;\"><b>{$id_app_agenzia}</b></div> (<b>{$motivazione_app_agenzia}</b>).<br>";
}
# fine if ($id_app_agenzia == $appartamento_controlla and ...
}
# fine for $num2
}
# fine if ($mot2 != "x")
}
# fine for $num1
}
# fine else if ($fatto_libera2 == "NO")
}
# fine else if ($fatto_libera == "SI")
} else {
# se non ci sono app_agenzia della regola di assegnazione 1
unset($limiti_var);
unset($profondita_);
unset($app_prenota_id_);
unset($app_orig_prenota_id_);
unset($inizio_prenota_id_);
unset($fine_prenota_id_);
unset($app_assegnabili_id_);
unset($prenota_in_app_sett_);
unset($dati_app_);
unset($app_liberato);
$limiti_var["lim_prenota_temp"] = $lim_prenota_temp;
liberasettimane($idinizioperiodo_vett, $idfineperiodo_vett, $limiti_var, $anno, $fatto_libera, $app_liberato, $profondita_, $app_richiesti, $app_prenota_id_, $app_orig_prenota_id_, $inizio_prenota_id_, $fine_prenota_id_, $app_assegnabili_id_, $prenota_in_app_sett_, $dati_app_, $PHPR_TAB_PRE . "prenota");
if ($fatto_libera == "NO") {
$inserire = "NO";
$mess_errore .= mex("Nel periodo selezionato non è possibile ospitare il cliente in un appartamento tra quelli richiesti", 'unit.php') . ".<br>";
for ($n_t = 1; $n_t <= $num_tipologie; $n_t++) {
$mess_prenota .= mex("Prenotazione", "prenota.php") . mex("dal", "prenota.php") . " <b>" . formatta_data($inizioperiodo_orig[$n_t], $stile_data) . "</b> " . mex("al", "prenota.php") . " <b>" . formatta_data($fineperiodo_orig[$n_t], $stile_data) . "</b>";
$mess_prenota .= " " . mex("a nome di", "prenota.php") . " <b>{$cognome}</b> ";
if ($numpersone[$n_t]) {
$mess_prenota .= " " . mex("per", "prenota.php") . " <b>" . $numpersone[$n_t] . "</b> " . mex("persone", "prenota.php") . "";
}
if ($dati_tariffe[$tipotariffa[$n_t]]['nome']) {
$nometariffa_vedi = $dati_tariffe[$tipotariffa[$n_t]]['nome'];
} else {
$nometariffa_vedi = mex("tariffa", "prenota.php") . substr($tipotariffa[$n_t], 7);
}
$mess_prenota .= ", " . mex("tariffa", "prenota.php") . " \"{$nometariffa_vedi}\".<br><br>";
}
# fine for $n_t
} else {
$appartamento = $app_liberato;
}
}
# fine else if ($num_app_agenzia != 0)
}
# fine if ($inserire != "NO")
if ($inserire != "NO") {
$metodi_pagamento = esegui_query("select valpersonalizza from {$tablepersonalizza} where idpersonalizza = 'metodi_pagamento' and idutente = '{$id_utente}'");
$metodi_pagamento = risul_query($metodi_pagamento, 0, 'valpersonalizza');
if ($metodi_pagamento) {
$metodi_pagamento = explode(",", $metodi_pagamento);
}
$origini_prenota = esegui_query("select valpersonalizza from {$tablepersonalizza} where idpersonalizza = 'origini_prenota' and idutente = '{$id_utente}'");
$origini_prenota = risul_query($origini_prenota, 0, 'valpersonalizza');
if ($origini_prenota) {
$origini_prenota = explode(",", $origini_prenota);
}
for ($n_t = 1; $n_t <= $num_tipologie; $n_t++) {
$lunghezza_periodo = $fineperiodo[$n_t] - $inizioperiodo[$n_t] + 1;
$max_idprenota = esegui_query("select numlimite from {$tablecostiprenota} where idcostiprenota = '1'");
$max_idprenota = risul_query($max_idprenota, 0, 'numlimite');
if ($id_prenota_imp[$n_t]) {
$idprenota = $id_prenota_imp[$n_t];
} else {
$idprenota = $max_idprenota;
}
if ($idprenota >= $max_idprenota) {
esegui_query("update {$tablecostiprenota} set numlimite = '" . ($idprenota + 1) . "' where idcostiprenota = '1'");
}
$mess_prenota .= mex("Prenotazione", "prenota.php") . " {$idprenota} " . mex("dal", "prenota.php") . " <b>" . formatta_data($inizioperiodo_orig[$n_t], $stile_data) . "</b> " . mex("al", "prenota.php") . " <b>" . formatta_data($fineperiodo_orig[$n_t], $stile_data) . "</b> ({$lunghezza_periodo} " . mex("{$parola_settiman}", "prenota.php");
if ($lunghezza_periodo == 1) {
$mess_prenota .= mex("{$lettera_a}", "prenota.php");
} else {
$mess_prenota .= mex("{$lettera_e}", "prenota.php");
}
$mess_prenota .= ") " . mex("a nome di", "prenota.php") . " <b>{$cognome}</b> ";
if ($numpersone[$n_t]) {
$mess_prenota .= mex("per", 'prenota.php') . " <b>" . $numpersone[$n_t] . "</b> " . mex("persone", 'prenota.php') . " ";
}
$mess_prenota .= mex("nell'appartamento", 'unit.php') . " <b>" . $appartamento[$n_t] . "</b>";
if ($assegnazioneapp[$n_t] == "k") {
$mess_prenota .= " (" . mex("fisso", "unit.php") . ")";
} else {
$mess_prenota .= " (" . mex("mobile", "prenota.php");
if ($lista_app[$n_t]) {
$mess_prenota .= " " . mex("in", "prenota.php") . " " . str_replace(",", ", ", $lista_app[$n_t]);
}
$mess_prenota .= ")";
}
# fine else if ($assegnazioneapp[$n_t] == "k")
$mess_prenota .= ":<br><br>";
$costo_tariffa_tot = (double) 0;
unset($lista_tariffe_sett);
unset($lista_tariffep_sett);
$tar_sett_imp = $tariffe_sett_imp[$n_t];
for ($num2 = $inizioperiodo[$n_t]; $num2 <= $fineperiodo[$n_t]; $num2++) {
$riga_tariffa = esegui_query("select * from {$tableperiodi} where idperiodi = {$num2}");
if (strcmp($tar_sett_imp[$num2], "")) {
$costo_tariffa = $tar_sett_imp[$num2];
} else {
$costo_tariffa = risul_query($riga_tariffa, 0, $tipotariffa[$n_t]);
}
if ($dati_tariffe[$tipotariffa[$n_t]]['moltiplica'] == "p") {
if (!strcmp($costo_tariffa, "")) {
$costo_tariffa = 0;
}
if (strcmp($tar_sett_imp[$num2], "")) {
$costo_tariffap = 0;
} else {
$costo_tariffap = risul_query($riga_tariffa, 0, $tipotariffa[$n_t] . "p");
}
if (!strcmp($costo_tariffap, "")) {
$costo_tariffap = 0;
}
$costo_tariffap = (double) $costo_tariffap * (double) $numpersone[$n_t];
$lista_tariffep_sett .= "," . $costo_tariffap;
$costo_tariffa = (double) $costo_tariffa + $costo_tariffap;
}
# fine if ($dati_tariffe[$tipotariffa[$n_t]]['moltiplica'] == "p")
$costo_tariffa_tot = (double) $costo_tariffa_tot + (double) $costo_tariffa;
$lista_tariffe_sett .= "," . $costo_tariffa;
}
# fine for $num2
$lista_tariffe_sett = substr($lista_tariffe_sett, 1);
if ($lista_tariffep_sett) {
$lista_tariffep_sett = substr($lista_tariffep_sett, 1);
$lista_tariffe_sett .= ";{$lista_tariffep_sett}";
}
# fine if ($lista_tariffep_sett)
$costo_tariffa = $costo_tariffa_tot;
$nometariffa = $dati_tariffe[$tipotariffa[$n_t]]['nome'];
if ($nometariffa == "") {
$nometariffa = $tipotariffa[$n_t];
$nometariffa_vedi = mex("tariffa", "prenota.php") . substr($tipotariffa[$n_t], 7);
} else {
$nometariffa_vedi = $nometariffa;
}
$nometariffa = aggslashdb($nometariffa);
$tariffa = $nometariffa . "#@&" . $costo_tariffa_tot;
if ($dati_tariffe[$tipotariffa[$n_t]]['moltiplica'] == "p") {
$tariffa .= "#@&p";
}
$costo_tariffa_tot_p = punti_in_num($costo_tariffa_tot, $stile_soldi);
$mess_prenota .= "{$costo_tariffa_tot_p} {$Euro} " . mex("tariffa", "prenota.php") . " \"{$nometariffa_vedi}\"<br>";
$valori = "abcdefghijkmnpqrstuvwxz";
srand((double) microtime() * 1000000);
unset($cod_prenota);
for ($num2 = 0; $num2 < 4; $num2++) {
$cod_prenota .= substr($valori, rand(0, 22), 1);
}
if ($conferma[$n_t] == "SI") {
$conf = "S";
} else {
$conf = "N";
}
if ($pagato[$n_t] > 0) {
$conf = "S";
}
$datainserimento = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600);
esegui_query("insert into {$tableprenota} (idprenota,idclienti,idappartamenti,iddatainizio,iddatafine,tariffa,tariffesettimanali,codice,conferma,datainserimento,hostinserimento,utente_inserimento) values ('{$idprenota}','" . $idclienti[$n_t] . "','" . aggslashdb($appartamento[$n_t]) . "','" . $inizioperiodo[$n_t] . "','" . $fineperiodo[$n_t] . "','{$tariffa}','{$lista_tariffe_sett}','{$cod_prenota}','{$conf}','{$datainserimento}','{$HOSTNAME}','{$id_utente_ins}')");
if ($numpersone[$n_t]) {
esegui_query("update {$tableprenota} set num_persone = '" . $numpersone[$n_t] . "' where idprenota = '{$idprenota}' ");
}
# fine if ($numpersone[$n_t])
if ($dati_tariffe[$tipotariffa[$n_t]]['tasse_percent']) {
esegui_query("update {$tableprenota} set tasseperc = '" . $dati_tariffe[$tipotariffa[$n_t]]['tasse_percent'] . "' where idprenota = '{$idprenota}' ");
}
# fine if ($dati_tariffe[$tipotariffa[$n_t]]['tasse_percent'])
$caparra[$n_t] = formatta_soldi($caparra[$n_t]);
if (controlla_soldi($caparra[$n_t], "pos") == "NO") {
$caparra[$n_t] = "";
}
if (!$caparra[$n_t]) {
$caparra[$n_t] = calcola_caparra($dati_tariffe, $tipotariffa[$n_t], $inizioperiodo[$n_t], $fineperiodo[$n_t], $costo_tariffa_tot, $lista_tariffe_sett);
}
$sconto[$n_t] = (double) formatta_soldi($sconto[$n_t]);
if ($sconto[$n_t] and controlla_soldi($sconto[$n_t]) == "SI") {
if ($sconto[$n_t] > $costo_tariffa_tot) {
$sconto[$n_t] = $costo_tariffa_tot;
}
esegui_query("update {$tableprenota} set sconto = '" . $sconto[$n_t] . "' where idprenota = '{$idprenota}' ");
$sconto_p = punti_in_num($sconto[$n_t], $stile_soldi);
if (substr($sconto_p, 0, 1) == "-") {
$sconto_p = substr($sconto_p, 1);
} else {
$mess_prenota .= "-";
}
$mess_prenota .= "{$sconto_p} {$Euro} " . mex("Sconto", "prenota.php") . "<br>";
$costo_tariffa_tot = (double) $costo_tariffa_tot - (double) $sconto[$n_t];
}
# fine if ($sconto[$n_t] and...
$commissioni[$n_t] = formatta_soldi($commissioni[$n_t]);
if (controlla_soldi($commissioni[$n_t], "pos") == "NO") {
$commissioni[$n_t] = "";
}
if (!$commissioni[$n_t]) {
$commissioni[$n_t] = calcola_commissioni($dati_tariffe, $tipotariffa[$n_t], $inizioperiodo[$n_t], $fineperiodo[$n_t], $lista_tariffe_sett, $sconto[$n_t], 0);
}
esegui_query("update {$tableprenota} set tariffa_tot = '{$costo_tariffa_tot}' where idprenota = '{$idprenota}' ");
$costo_tariffa_tot_p = punti_in_num($costo_tariffa_tot, $stile_soldi);
$mess_prenota .= "<b>{$costo_tariffa_tot_p} {$Euro} " . mex("TOTALE", "prenota.php") . "</b><br>";
if ($lista_app[$n_t]) {
esegui_query("update {$tableprenota} set app_assegnabili = '" . $lista_app[$n_t] . "' where idprenota = '{$idprenota}' ");
}
# fine if ($lista_app[$n_t])
if ($assegnazioneapp[$n_t]) {
esegui_query("update {$tableprenota} set assegnazioneapp = '" . $assegnazioneapp[$n_t] . "' where idprenota = '{$idprenota}' ");
}
# fine if ($assegnazioneapp[$n_t])
if ($caparra[$n_t]) {
if ($caparra[$n_t] > $costo_tariffa_tot) {
$caparra[$n_t] = $costo_tariffa_tot;
}
esegui_query("update {$tableprenota} set caparra = '" . $caparra[$n_t] . "' where idprenota = '{$idprenota}' ");
$da_pagare = $costo_tariffa_tot - $caparra[$n_t];
$caparra_p = punti_in_num($caparra[$n_t], $stile_soldi);
$da_pagare_p = punti_in_num($da_pagare, $stile_soldi);
$mess_prenota .= "<br>" . mex("Caparra", "prenota.php") . ": <b>{$caparra_p}</b> {$Euro} (" . mex("resto da pagare", "prenota.php") . ": {$da_pagare_p} {$Euro}).<br>";
}
# fine if ($caparra[$n_t])
$met_trovato = "NO";
if ($met_paga_caparra[$n_t] and $metodi_pagamento) {
for ($num2 = 0; $num2 < count($metodi_pagamento); $num2++) {
if ($met_paga_caparra[$n_t] == $metodi_pagamento[$num2]) {
$met_trovato = "SI";
}
}
# fine for $num2
if ($met_trovato == "SI") {
esegui_query("update {$tableprenota} set metodo_pagamento = '" . aggslashdb($met_paga_caparra[$n_t]) . "' where idprenota = '{$idprenota}' ");
if (!$caparra) {
$mess_prenota .= "<br>";
}
$mess_prenota .= mex("Metodo pagamento caparra", "prenota.php") . ": <b>" . $met_paga_caparra[$n_t] . "</b>.<br>";
}
# fine if ($met_trovato == "SI")
}
# fine if ($met_paga_caparra[$n_t] and $metodi_pagamento)
if ($commissioni[$n_t]) {
esegui_query("update {$tableprenota} set commissioni = '" . $commissioni[$n_t] . "' where idprenota = '{$idprenota}' ");
$resto_comm = $costo_tariffa_tot - $commissioni[$n_t];
$commissioni_p = punti_in_num($commissioni[$n_t], $stile_soldi);
$resto_comm_p = punti_in_num($resto_comm, $stile_soldi);
if (!$caparra[$n_t] and $met_trovato == "NO") {
$mess_prenota .= "<br>";
}
$mess_prenota .= mex("Commissioni", "prenota.php") . ": <b>{$commissioni_p}</b> {$Euro} (" . mex("resto commissioni", "prenota.php") . ": {$resto_comm_p} {$Euro}).<br>";
}
# fine if ($commissioni[$n_t])
# calcolo costi nulli, non letto e senza inventario da associare alla tariffa, tutti come se fossero "se possibile"
if ($ins_costi_agg == "costi_nulli") {
unset($num_letti_agg);
unset($num_costi_presenti);
$oggi_costo = date("Ymd", time() + C_DIFF_ORE * 3600);
for ($num_costo = 0; $num_costo < $dati_ca['num']; $num_costo++) {
if (!$dati_ca[$num_costo]['valore'] and !$dati_ca[$num_costo]['valore_perc'] and $dati_ca[$num_costo]['letto'] != "s" and !$dati_ca[$num_costo]['tipo_beniinv']) {
$associa_costo = "NO";
$associa_costo_tariffa = associa_costo_a_tariffa($dati_ca, $num_costo, $tipotariffa[$n_t], $fineperiodo[$n_t] - $inizioperiodo[$n_t] + 1);
if ($associa_costo_tariffa == "SI") {
$associa_costo = "SI";
}
if ($associa_costo_tariffa != "SI" and !$dati_ca[$num_costo]["incomp_" . $tipotariffa[$n_t]]) {
if ($dati_ca[$num_costo]['assegna_con_num_prenota'] and count($inizioperiodo) >= $dati_ca[$num_costo]['assegna_con_num_prenota']) {
$associa_costo = "SI";
}
if ($dati_ca[$num_costo]['assegna_da_ini_prenota']) {
$giorni_lim = substr($dati_ca[$num_costo]['assegna_da_ini_prenota'], 1);
$limite = date("Ymd", mktime(0, 0, 0, substr($inizioperiodo_orig[$n_t], 5, 2), substr($inizioperiodo_orig[$n_t], 8, 2) - $giorni_lim, substr($inizioperiodo_orig[$n_t], 0, 4)));
if (substr($dati_ca[$num_costo]['assegna_da_ini_prenota'], 0, 1) == ">" and $oggi_costo < $limite) {
$associa_costo = "SI";
}
if (substr($dati_ca[$num_costo]['assegna_da_ini_prenota'], 0, 1) == "<" and $oggi_costo > $limite) {
$associa_costo = "SI";
}
}
# fine if ($dati_ca[$num_costo][assegna_da_ini_prenota])
}
# fine if ($associa_costo_tariffa != "SI" and...
if ($associa_costo == "SI") {
#if ($dati_ca[$num_costo][tipo_val] == "q" and $costo_totale_presente = "SI") $associa_costo = "NO";
$settimane_costo = calcola_settimane_costo($tableperiodi, $dati_ca, $num_costo, $inizioperiodo[$n_t], $fineperiodo[$n_t], "", "");
calcola_moltiplica_costo($dati_ca, $num_costo, $moltiplica, $inizioperiodo[$n_t], $fineperiodo[$n_t], $settimane_costo, "", $numpersone[$n_t], $num_letti_agg);
$num_costi_presenti_copia = $num_costi_presenti;
$periodo_costo_trovato = trova_periodo_permesso_costo($dati_ca, $num_costo, $inizioperiodo[$n_t], $fineperiodo[$n_t], $settimane_costo);
if ($periodo_costo_trovato == "NO") {
$associa_costo = "NO";
} else {
if (controlla_num_limite_costo($tablecostiprenota, $tableprenota, $dati_ca, $num_costo, $num_costi_presenti_copia, $inizioperiodo[$n_t], $fineperiodo[$n_t], $settimane_costo, $moltiplica) == "NO") {
$associa_costo = "NO";
}
}
if ($associa_costo == "SI") {
$num_costi_presenti = $num_costi_presenti_copia;
$idcostiprenota = esegui_query("select max(idcostiprenota) from {$tablecostiprenota}");
$idcostiprenota = risul_query($idcostiprenota, 0, 0) + 1;
$tipo_ca = $dati_ca[$num_costo]['tipo'] . $dati_ca[$num_costo]['tipo_val'];
$valore_ca = $dati_ca[$num_costo]['valore'];
$valore_perc_ca = $dati_ca[$num_costo]['valore_perc'];
$associasett_ca = $dati_ca[$num_costo]['associasett'];
if ($dati_ca[$num_costo]['var_percentuale'] != "s" and $dati_ca[$num_costo]['tipo_val'] != "f") {
$tipo_ca = $dati_ca[$num_costo]['tipo'] . "f";
$moltiplica = 1;
if ($dati_ca[$num_costo]['tipo'] == "s") {
$settimane_costo = 1;
$associasett_ca = "n";
}
# fine if ($dati_ca[$num_costo][tipo] == "s")
}
# fine if ($dati_ca[$num_costo][var_percentuale] != "s" and...
if ($dati_ca[$num_costo]['var_moltiplica'] == "s") {
$varmoltiplica_ca = $dati_ca[$num_costo]['moltiplica'] . $dati_ca[$num_costo]['molt_max'] . $dati_ca[$num_costo]['molt_agg'] . "," . $dati_ca[$num_costo]['molt_max_num'];
} else {
$varmoltiplica_ca = "cx0,";
}
if ($dati_ca[$num_costo]['var_numsett'] == "s") {
$varnumsett_ca = $dati_ca[$num_costo]['numsett_orig'];
} else {
$varnumsett_ca = "c";
}
if ($dati_ca[$num_costo]['var_periodip'] == "s") {
$varperiodipermessi_ca = $dati_ca[$num_costo]['periodipermessi_orig'];
} else {
$varperiodipermessi_ca = "";
}
$varbeniinv_ca = "";
$varappincompatibili_ca = "";
if ($dati_ca[$num_costo]['var_tariffea'] == "s") {
$vartariffeassociate_ca = "p" . $dati_ca[$num_costo][$tipotariffa[$n_t]];
} else {
$vartariffeassociate_ca = "";
}
$vartariffeincomp_ca = "";
if ($dati_ca[$num_costo]['var_tariffei'] == "s") {
for ($numtariffa = 1; $numtariffa <= $dati_tariffe['num']; $numtariffa++) {
if ($dati_ca[$num_costo]["incomp_tariffa" . $numtariffa] == "i") {
$vartariffeincomp_ca .= "," . $numtariffa;
}
}
# fine for $numtariffa
if ($vartariffeincomp_ca) {
$vartariffeincomp_ca = substr($vartariffeincomp_ca, 1);
}
}
# fine if ($dati_ca[$num_costo][var_tariffei] == "s")
if ($dati_ca[$num_costo]['var_comb'] == "s") {
$variazione_ca = $dati_ca[$num_costo]['combina'];
} else {
$variazione_ca = "n";
}
$variazione_ca .= $dati_ca[$num_costo]['escludi_tot_perc'];
esegui_query("insert into {$tablecostiprenota} (idcostiprenota,idprenota,tipo,nome,valore,associasett,settimane,moltiplica,letto,idntariffe,variazione,varmoltiplica,varnumsett,varperiodipermessi,varbeniinv,varappincompatibili,vartariffeassociate,vartariffeincomp,datainserimento,hostinserimento,utente_inserimento) values ('{$idcostiprenota}','{$idprenota}','{$tipo_ca}','" . aggslashdb($dati_ca[$num_costo]['nome']) . "','{$valore_ca}','{$associasett_ca}','{$settimane_costo}','{$moltiplica}','" . $dati_ca[$num_costo]['letto'] . "','" . $dati_ca[$num_costo]['id'] . "','{$variazione_ca}','{$varmoltiplica_ca}','{$varnumsett_ca}','{$varperiodipermessi_ca}','{$varbeniinv_ca}','{$varappincompatibili_ca}','{$vartariffeassociate_ca}','{$vartariffeincomp_ca}','{$datainserimento}','{$HOSTNAME}','{$id_utente_ins}')");
if (substr($tipo_ca, 1, 1) != "f") {
esegui_query("update {$tablecostiprenota} set valore_perc = '{$valore_perc_ca}', arrotonda = '" . $dati_ca[$num_costo]['arrotonda'] . "' where idcostiprenota = '{$idcostiprenota}'");
}
if ($dati_ca[$num_costo]['tasseperc']) {
esegui_query("update {$tablecostiprenota} set tasseperc = '" . $dati_ca[$num_costo]['tasseperc'] . "' where idcostiprenota = '{$idcostiprenota}'");
}
if (strcmp($dati_ca[$num_costo]['categoria'], "")) {
esegui_query("update {$tablecostiprenota} set categoria = '" . $dati_ca[$num_costo]['categoria'] . "' where idcostiprenota = '{$idcostiprenota}'");
}
}
# fine if ($associa_costo == "SI")
}
# fine if ($associa_costo == "SI")
}
# fine if (!$dati_ca[$num_costo]['valore'] and !$dati_ca[$num_costo]['valore_perc'] and...
}
# fine for $num_costo
}
# fine if ($ins_costi_agg == "costi_nulli")
if ($origine_prenota[$n_t] and $origini_prenota) {
$orig_trovata = "NO";
for ($num2 = 0; $num2 < count($origini_prenota); $num2++) {
if ($origine_prenota[$n_t] == $origini_prenota[$num2]) {
$orig_trovata = "SI";
}
}
# fine for $num2
if ($orig_trovata == "SI") {
$origine_prenota[$n_t] = aggslashdb($origine_prenota[$n_t]);
esegui_query("update {$tableprenota} set origine = '" . $origine_prenota[$n_t] . "' where idprenota = '{$idprenota}' ");
if (!$caparra[$n_t] and $met_trovato == "NO" and !$commissioni[$n_t]) {
$mess_prenota .= "<br>";
}
$mess_prenota .= mex("Origine", "prenota.php") . ": <b>" . stripslashes($origine_prenota[$n_t]) . "</b>.<br>";
}
# fine if ($orig_trovata == "SI")
}
# fine if ($origine_prenota[$n_t] and $origini_prenota)
if ($giorno_stima_checkin[$n_t] and $ora_stima_checkin[$n_t] and $min_stima_checkin[$n_t]) {
if ($tipo_periodi == "g") {
$giorni_periodo = $lunghezza_periodo;
} else {
$giorni_periodo = $lunghezza_periodo * 7;
}
if (controlla_num_pos($giorno_stima_checkin[$n_t]) == "SI" and $giorno_stima_checkin[$n_t] >= 1 and $giorno_stima_checkin[$n_t] <= 7 and $giorno_stima_checkin[$n_t] <= $giorni_periodo + 1) {
$data_stima_checkin = esegui_query("select datainizio from {$tableperiodi} where idperiodi = '" . $inizioperiodo[$n_t] . "'");
$data_stima_checkin = risul_query($data_stima_checkin, 0, 'datainizio');
$data_ini_prenota_f = formatta_data($data_stima_checkin, $stile_data);
$anno_dts = substr($data_stima_checkin, 0, 4);
$mese_dts = substr($data_stima_checkin, 5, 2);
$giorno_dts = substr($data_stima_checkin, 8, 2);
$data_stima_checkin = date("Y-m-d", mktime(0, 0, 0, $mese_dts, $giorno_dts + $giorno_stima_checkin[$n_t] - 1, $anno_dts));
$stima_checkin = $data_stima_checkin . " " . $ora_stima_checkin[$n_t] . ":" . $min_stima_checkin[$n_t] . ":00";
if (preg_match("/[0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:00/", $stima_checkin)) {
esegui_query("update {$tableprenota} set checkout = '{$stima_checkin}' where idprenota = '{$idprenota}' ");
$mess_prenota .= "<br>" . mex("Orario stimato di entrata", "prenota.php") . ": <b>" . substr(str_replace($data_ini_prenota_f, "", formatta_data($stima_checkin, $stile_data)), 0, -3) . "</b>.<br>";
}
# fine if (preg_match("/[0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:00/",$stima_checkin))
}
# fine if (controlla_num_pos($giorno_stima_checkin) == "SI" and...
}
# fine if ($giorno_stima_checkin[$n_t] and $ora_stima_checkin[$n_t] and $min_stima_checkin[$n_t])
if ($commento[$n_t]) {
$commento[$n_t] = htmlspecialchars($commento[$n_t]);
$mess_prenota .= "<br>" . mex("Commento", "prenota.php") . ": " . $commento[$n_t] . "<br>";
$commento[$n_t] = aggslashdb($commento[$n_t]);
esegui_query("update {$tableprenota} set commento = '" . $commento[$n_t] . "' where idprenota = '{$idprenota}' ");
}
# fine if ($commento[$n_t])
$mess_prenota .= "<br>" . mex("Prenotazione", "prenota.php") . " {$idprenota} " . mex("inserita", "prenota.php") . "!<br>";
if ($n_t != $num_tipologie) {
$mess_prenota .= "<hr style=\"width: 95%\">";
}
$lista_idprenota .= ",{$idprenota}";
$lista_idini .= "," . $inizioperiodo[$n_t];
$lista_idfine .= "," . $fineperiodo[$n_t];
#$costo_tot_mess = (double) $costo_tot_mess + (double) $costo_tariffa_tot;
#$caparra_mess = (double) $caparra_mess + (double) $caparra;
}
# fine for $n_t
$lista_idprenota = substr($lista_idprenota, 1);
$lista_idini = substr($lista_idini, 1);
$lista_idfine = substr($lista_idfine, 1);
if ($prenota_vicine == "SI") {
$lista_idprenota_vett = explode(",", $lista_idprenota);
for ($num1 = 0; $num1 < count($lista_idprenota_vett); $num1++) {
$idprenota = $lista_idprenota_vett[$num1];
$idprenota_vicine = substr(str_replace("," . $idprenota . ",", ",", "," . $lista_idprenota . ","), 1, -1);
esegui_query("update {$tableprenota} set idprenota_compagna = '{$idprenota_vicine}' where idprenota = '{$idprenota}' ");
}
# fine for $num1
}
# fine if ($prenota_vicine == "SI")
$stato['inserita'] = "SI";
}
# fine if ($inserire != "NO")
if (!@is_array($stato) or $stato['inserita'] != "SI") {
$stato['inserita'] = "NO";
}
$stato['mess_errore'] = $mess_errore;
$stato['mess_regola1'] = $mess_regola1;
$stato['mess_prenota'] = $mess_prenota;
$stato['lista_idprenota'] = $lista_idprenota;
$stato['idinizioperiodo'] = $lista_idini;
$stato['idfineperiodo'] = $lista_idfine;
return $lista_idprenota;
}
</div></form>";
echo "<hr style=\"width: 95%\"><br><div style=\"text-align: center;\">
<form accept-charset=\"utf-8\" method=\"post\" action=\"modifica_app.php\"><div>
<input type=\"hidden\" name=\"anno\" value=\"$anno\">
<input type=\"hidden\" name=\"id_sessione\" value=\"$id_sessione\">
<input type=\"hidden\" name=\"idappartamenti\" value=\"$idappartamenti\">
<input class=\"sbutton\" id=\"canc\" type=\"submit\" name=\"cancella_app\" value=\"".mex($fr1."Cancella l'appartamento",'unit.php')." $idappartamenti\">
</div><br></form></div>
<hr style=\"width: 95%\"><br><div style=\"text-align: center;\">
<form accept-charset=\"utf-8\" method=\"post\" action=\"visualizza_tabelle.php\"><div>
<input type=\"hidden\" name=\"anno\" value=\"$anno\">
<input type=\"hidden\" name=\"id_sessione\" value=\"$id_sessione\">
<input type=\"hidden\" name=\"tipo_tabella\" value=\"appartamenti\">
<input class=\"sbutton\" id=\"indi\" type=\"submit\" name=\"torna\" value=\"".mex("Torna indietro",$pag)."\">
</div></form><br></div>";
} # fine if ($mostra_form_modifica != "NO")
if ($tema[$id_utente] and $tema[$id_utente] != "base" and @is_dir("./themes/".$tema[$id_utente]."/php")) include("./themes/".$tema[$id_utente]."/php/foot.php");
else include("./includes/foot.php");
} # fine if ($id_utente and $id_utente == 1)
echo "<a class=\"nav\" href=\"./visualizza_tabelle.php?$sessione_anno_var&tipo_tabella=appartamenti\"> <b>$fr_APPARTAMENTI</b> </a></td><td>";
} # fine if ($priv_vedi_tab_appartamenti != "n")
} # fine if ($priv_vedi_tab_mesi != "n" or $priv_vedi_tab_prenotazioni != "n" or...
if ($modifica_pers != "NO" or ($priv_crea_backup == "s" and $installazione_subordinata != "SI")) {
echo "|</td><td><div class=\"drop\"><ul>
<li><a class=\"nav\" href=\"./personalizza.php?$sessione_anno_var\"> <b>".mex("CONFIGURA","head.php")."</b> </a>";
echo "<ul>";
if ($id_utente == 1) {
if ($installazione_subordinata != "SI") {
echo "<li><a href=\"./gestione_utenti.php?$sessione_anno_var\"> <b>".mex("UTENTI","head.php")."</b> </a></li>
<li><a href=\"./crea_modelli.php?$sessione_anno_var\"> <b>".mex("SITO WEB","head.php")."</b> </a></li>";
} # fine if ($installazione_subordinata != "SI")
if (C_RESTRIZIONI_DEMO_ADMIN != "SI" and C_CREA_SUBORDINAZIONI != "NO") echo "<li><a href=\"./interconnessioni.php?$sessione_anno_var\"> <b>".mex("INTERCONN.","head.php")."</b> </a></li>";
} # fine if ($id_utente == 1)
if ($priv_crea_backup == "s" and $installazione_subordinata != "SI") echo "<li><a href=\"./crea_backup.php?$sessione_anno_var\"> <b>".mex("BACKUP","head.php")."</b> </a></li>";
if ($modifica_pers != "NO") echo "<li><a href=\"./personalizza.php?$sessione_anno_var#contratti\"> <b>".mex("DOCUMENTI","head.php")."</b> </a></li>";
echo "</ul></li></ul></div></td><td>";
} # fine if ($modifica_pers != "NO" or ($priv_crea_backup == "s" and...
echo "</td></tr></table></td>";
if ($idprenota_origine) $anno = $anno - 1;
if ($mostra_X == "SI") {
if (@is_array($_POST)) reset($_POST);
for ($num1 = 0 ; $num1 < count($_POST) ; $num1++) {
$lista_var_X .= "&".key($_POST)."=".$_POST[key($_POST)];
next($_POST);
} # fine for $num1
if (@is_array($_GET)) reset($_GET);
for($num1 = 0 ; $num1 < count($_GET); $num1++) {
$lista_var_X .= "&".key($_GET)."=".$_GET[key($_GET)];
