="A" && $cad[$i]<="H") ||
($cad[$i]>="a" && $cad[$i]<="h"))
{
$res .= $corresp[strtoupper($cad[$i])];
}
else
{
$error=True;
}
}
if (!$error) //realiza la segunda conversión (pares octales a hexadecimal)
{
$res2="";
for ($i=0;$i<$lcad;$i=$i+2)
{
$temp=$res[$i] . $res[$i+1];
$res2 .= $coct[$temp];
}
}
//Obtiene el resultado sin intercambio de caracteres.
//Ahora hay que convertir los pares en hexadecimal a cadena
if (!$error)
{
$lres2=strlen($res2);
if ($lres2%2==0)
{
$final_res="";
for ($i=0;$i<$lres2;$i=$i+2)
{
$temp=$res2[$i] . $res2[$i+1];
eval("\$final_res .= \"\\x$temp\";");
}
return $final_res;
}
else
return "";
}
else
return "";
}
else
return "";
}
//Devuelve si existe o no el cd en cuestión en la base de datos
Function if_exists_cd($cd_id)
{
return $cd_exists;
}
//Dando el id del cd y el número de cd en el álbum obtiene todos los
//datos del cd y los vuelca en variables
Function get_cd_parameters()
{
global $id,$ncd;
global $cd_exists,$database_name;
global $nombre_imagen,$cd_title,$agno_cd,$precio_cd,$precio_soc,$current_cd;
global $cd_number,$cd_content,$discografica,$autor,$canciones;
global $stock;
connect();
$cad=desencripta($id);
$num=desencripta($ncd);
if (!ctype_digit($num))
$num=1;
else
{
if ($num=="" || $num<1) $num=1;
}
$nombre_imagen=construir_nombre_imagen($cad);
if ($cad!="" && ctype_digit($cad))
{
$SQL_cad="SELECT * FROM discos,temas WHERE discos.ref=temas.ref_cd AND discos.ref=$cad ORDER BY temas.posicion";
$resultid=mysql_db_query($database_name,$SQL_cad);
$damefila=mysql_fetch_array($resultid);
if ($damefila) //hay un cd con esa identidad
{
$cd_exists=true; //existe el cd
$agno_cd=$damefila["agno"];
$cd_title=$damefila["titulo"];
$precio_cd=$damefila["precio"];
$precio_soc=$damefila["precio_socio"];
$discografica=$damefila["discografica"];
$generos=$damefila["generos"];
$autor=$damefila["autor"];
$cd_number=$damefila["unidades"];
$cd_content=$damefila["contenido"];
$stock=$damefila["disponible"];
if ($num>$cd_number)
$current_cd=$cd_number;
else
$current_cd=$num;
while ($damefila) //introduce en el array canciones los datos del cd actual
{
if (elimina_letras($damefila["num_cd"])==$current_cd) //la canción pertenece al cd_actual
{
$canciones[$damefila["posicion"]-1]=$damefila["titulo_tema"];
}
$damefila=mysql_fetch_array($resultid);
}
mysql_free_result($resultid);
}
else //el cd no está asociado a canciones
{
$SQL_cad="SELECT * FROM discos WHERE ref=$cad";
$resultid=mysql_db_query($database_name,$SQL_cad);
$damefila=mysql_fetch_array($resultid);
if ($damefila)
{
$agno_cd=$damefila["agno"];
if ($agno_cd<1800) $agno_cd="(no disponible)";
$cd_title=$damefila["titulo"];
$precio_cd=$damefila["precio"];
$discografica=$damefila["discografica"];
$cd_content=$damefila["contenido"];
if ($discografica=="") $discografica="(no disponible)";
$generos=$damefila["generos"];
$autor=$damefila["autor"];
$cd_number=$damefila["unidades"];
if ($num>$cd_number)
$current_cd=$cd_number;
else
$current_cd=$num;
}
else
{
$agno_cd="(desconocido)";
$cd_title="(desconocido)";
$precio_cd="(desconocido)";
$discografica="(desconocido)";
$generos="(desconocido)";
$autor="(desconocido)";
$cd_number="(desconocido)";
$cd_content="(desconocido)";
$current_cd=1;
}
mysql_free_result($resultid);
}
}
}
Function list_cd_numbers($num)
{
global $cd_number,$this_file,$id;
global $cd_content;
if ($cd_number>1)
{
$j=0;
$continente=explode (" ",$cd_content);
$cd_tot=1;
foreach ($continente as $contenido)
{
if ((strcasecmp($contenido,"CD")==0) || (strcasecmp($contenido,"DVD")==0))
{
if ($j>0)
$numero_cds=$continente[$j-1];
else
$numero_cds=1;
$k=1;
do
{
if ($cd_tot!=$num)
{
echo "";
echo "";
echo strtoupper($contenido) . " " . $k . " \n";
}
else
{
echo "";
echo strtoupper($contenido) . " " . $k . " \n";
}
++$k;
++$cd_tot;
}
while ($k<=$numero_cds);
}
++$j;
}
}
else
echo " ";
}
Function listar_canciones()
{
global $canciones;
$i=1;
echo "
\n";
foreach ($canciones As $cancion)
{
if ($cancion!="")
{
echo "
![](\"cesta.gif\")