Año 2009
### CPHP $num_noticias_recientes = 6;
if (entidad('','codigo')=='3058' || entidad('','nombre_dominio')=='ruralcaja'){
$a=substr (directorio_actual(),4,4);
$a=$a*1;
if ($a==0){
$a=date ('Y');
if (!is_dir ("ano-".$a)){$a=$a-1;}
}
if(strpos(directorio(),'fundacion-san-isidro/')){
$xml = simplexml_load_file(absolute_ref(raiz().entidad().'es/comun/informacion-corporativa/fundacion-san-isidro/sala-de-prensa/noticias-rss.xml'));
} else {
$xml = simplexml_load_file(absolute_ref(raiz().entidad().'es/comun/informacion-corporativa/sala-de-prensa/noticias-rss.xml'));
}
}
else
{
$a=substr (directorio_actual(),-5);
$a=$a*1;
if ($a==0){
$a=date ('Y');
if (!is_dir ("ano-".$a)){$a=$a-1;}
}
$xml = simplexml_load_file(absolute_ref(raiz().entidad().'es/comun/informacion-corporativa/compromiso-social/historico-noticias-caixaltea/noticias-rss-'.entidad('','nombre_dominio').'.xml'));
}
if (directorio_actual()=='historico-noticias-caixaltea/')
{
echo '
'.traduccion('noticias mas recientes').'
';
echo '
';
$ano_mostrar_enlace = '';
for ($x=0;$x<$num_noticias_recientes;$x++){
$publicaciones=$xml->channel->item[$x];
if($x == 0) $ano_mostrar_enlace = substr($publicaciones->pubDate,12,4);
if(entidad('','codigo')=='3058' || entidad('','nombre_dominio')=='ruralcaja') $enlace=idioma().segmento().substr($publicaciones->link,strlen('https://www.cajamar.es/es/comun/'),strlen($publicaciones->link)-strlen('https://www.cajamar.es/es/comun/'));
else
$enlace=idioma().segmento().substr($publicaciones->link,strlen('https://www.'.substr(entidad(),0,-1).'.es/es/comun/'),strlen($publicaciones->link)-strlen('https://www.'.substr(entidad(),0,-1).'.es/es/comun/'));
$enlace=substr($enlace,0,strlen($enlace)-4).'php';
echo'
'.substr($publicaciones->pubDate,5,2).'
'.substr($publicaciones->pubDate,8,3).'
';
crea_referencia(raiz().entidad().$enlace,'','','
','
','','',$publicaciones->title, $publicaciones->title);
echo '
'.$publicaciones->description.' ';
crea_referencia(raiz().entidad().$enlace,'','','','','','',traduccion('leer-mas'), $publicaciones->title);
echo '
';
echo '
';
}
$noticia_sig=$xml->channel->item[$num_noticias_recientes+1];
// Si quedan m�noticias del a�o actual (el mismo a�o al de la �ltima nota de prensa introducida) por mostrar. Se pone el enlace al a�o.
if(substr($noticia_sig->pubDate,12,4) == $ano_mostrar_enlace) {
echo'
';
crea_referencia(raiz().entidad().idioma().'comun/informacion-corporativa/compromiso-social/historico-noticias-caixaltea/ano-'.$ano_mostrar_enlace.'/','','','Más notas de prensa del ');
echo'
';
}
} else {
foreach ($xml->channel->item as $publicaciones) {
if(entidad('','codigo')=='3058' || entidad('','nombre_dominio')=='ruralcaja')
$enlace=idioma().segmento().substr($publicaciones->link,strlen('https://www.cajamar.es/es/comun/'),strlen($publicaciones->link)-strlen('https://www.cajamar.es/es/comun/'));
else
$enlace=idioma().segmento().substr($publicaciones->link,strlen('https://www.'.substr(entidad(),0,-1).'.es/es/comun/'),strlen($publicaciones->link)-strlen('https://www.'.substr(entidad(),0,-1).'.es/es/comun/'));
$enlace=substr($enlace,0,strlen($enlace)-4).'php';
if ($a == substr($publicaciones->pubDate,12,4)){
echo'
'.substr($publicaciones->pubDate,5,2).'
'.substr($publicaciones->pubDate,8,3).'
';
crea_referencia(raiz().entidad().$enlace,'','','
','
','','',$publicaciones->title, $publicaciones->title);
echo '
'.$publicaciones->description.' ';
crea_referencia(raiz().entidad().$enlace,'','','','','','',traduccion('leer-mas'), $publicaciones->title);
echo '
';
echo '
';
}
}
} ###
