function dump_tabella($tabella, &$file, $cond = "")
{
# Keep alive
http_keep_alive();
global $PHPR_TAB_PRE, $id_utente;
fwrite($file, "<tabella>\n<nometabella>{$tabella}</nometabella>\n<colonnetabella>\n");
if ($tabella == "transazioni") {
$contenuto_tab = esegui_query("select * from {$PHPR_TAB_PRE}{$tabella} where tipo_transazione != 'err_l'");
} else {
if ($tabella == "contratti") {
$contenuto_tab = esegui_query("select * from {$PHPR_TAB_PRE}{$tabella} order by tipo desc, numero");
} else {
$contenuto_tab = esegui_query("select * from {$PHPR_TAB_PRE}{$tabella} {$cond}");
}
}
# fine else if ($tabella == "transazioni")
$num_colonne = numcampi_query($contenuto_tab);
$num_righe = numlin_query($contenuto_tab);
for ($num1 = 0; $num1 < $num_colonne; $num1++) {
$nome_colonna = nomecampo_query($contenuto_tab, $num1);
$tipo_colonna = tipocampo_query($contenuto_tab, $num1);
$dim_colonna = dimcampo_query($contenuto_tab, $num1);
fwrite($file, "<nomecolonna>{$nome_colonna}</nomecolonna>\n<tipocolonna>{$tipo_colonna}</tipocolonna>\n");
#fwrite($file,"<nomecolonna>$nome_colonna</nomecolonna>
#<tipocolonna>$tipo_colonna</tipocolonna>
#<dimcolonna>$dim_colonna</dimcolonna>
#");
}
# fine for $num1
fwrite($file, "</colonnetabella>\n<righetabella>\n");
for ($num1 = 0; $num1 < $num_righe; $num1++) {
# Keep alive
if (substr($num1, -4) == "0000") {
http_keep_alive(" ");
}
$riga_corr = "";
$riga = arraylin_query($contenuto_tab, $num1);
for ($num2 = 0; $num2 < $num_colonne; $num2++) {
$riga[$num2] = str_replace("@%&@", "@%&@@%&@", $riga[$num2]);
$riga[$num2] = str_replace("</cmp>", "</cmp@%&@>", $riga[$num2]);
if ($id_utente == "b" and $tabella == "utenti") {
if ($num2 == 1 and $riga[0] == "1") {
$riga[$num2] = "u" . $riga[0];
}
if ($num2 == 2 and $riga[0] == "1") {
$riga[$num2] = "u" . $riga[0];
}
if ($num2 == 2 and $riga[0] != "1") {
$riga[$num2] = "";
}
if ($num2 == 4 and $riga[0] == "1") {
$riga[$num2] = "t";
}
if ($num2 == 4 and $riga[0] != "1") {
$riga[$num2] = "n";
}
}
# fine if ($id_utente == "b" and $tabella == "utenti")
$riga_corr .= "<cmp>" . $riga[$num2] . "</cmp>";
}
# fine for $num2
$riga_corr = str_replace("</righetabella>", "</righetabella@%&@>", $riga_corr);
$riga_corr = str_replace("</riga>", "</riga@%&@>", $riga_corr);
$riga_corr = str_replace("<riga>", "<riga@%&@>", $riga_corr);
fwrite($file, "<riga>{$riga_corr}</riga>\n");
}
# fine for $num1
fwrite($file, "</righetabella>\n</tabella>\n");
}
esegui_query("update $tabletransazioniweb set dati_transazione6 = '$tar_pay' where idtransazioni = '$idtrans' ");
} # fine for $num1
$file_interconnessioni = C_DATA_PATH."/dati_interconnessioni.php";
if (@is_file($file_interconnessioni)) {
$filelock = crea_lock_file($file_interconnessioni);
$cont_file = implode("",file($file_interconnessioni));
$cont_file = str_replace("\"$tar_vecchia\"","\"$tar_nuova\"",$cont_file);
scrivi_file($cont_file,$file_interconnessioni);
distruggi_lock_file($filelock,$file_interconnessioni);
} # fine if (@is_file($file_interconnessioni))
} # fine function cambia_num_tar
$num_colonne = numcampi_query($riga_tar);
$max_num_col_tariffa = $max_tar;
for ($num1 = 0 ; $num1 < $num_colonne ; $num1++) {
$nome_colonna = nomecampo_query($riga_tar,$num1);
if (substr($nome_colonna,0,7) == "tariffa") {
$num_col_tariffa = str_replace ("tariffa","",$nome_colonna);
if ($num_col_tariffa > $max_num_col_tariffa) $max_num_col_tariffa = $num_col_tariffa;
} # fine if (substr($nome_colonna,0,7) == "tariffa")
} # fine for $num1
if ($max_num_col_tariffa == $max_tar) {
$max_num_col_tariffa++;
$nome_nuova_tariffa = "tariffa".$max_num_col_tariffa;
$risul = @esegui_query("alter table $tablenometariffe add column $nome_nuova_tariffa varchar(40)","silenzio");
@esegui_query("alter table $tableperiodi add column $nome_nuova_tariffa float8","silenzio");
@esegui_query("alter table $tableperiodi add column $nome_nuova_tariffa"."p float8","silenzio");
if (!$risul) $errore = "SI";
} # fine if ($max_num_col_tariffa == $max_tar)
if ($errore != "SI") {
unset($tar_cambiata);