+ if ($__hidID == -1 ) {\r
+ $__hidID = info_obtener_mayor_id_info() + 1;\r
+ $resultado = $objInfo->ingresar( $__hidID, $pTema, $pURL, $pAutor, $pComentario );\r
+ if ( $resultado == "" ) {\r
+ echo ok("Se agregó la información.");\r
+ } else {\r
+ echo warn($resultado);\r
+ }\r
+ } else {\r
+ $resultado = $objInfo->modificar( $__hidID, $pTema, $pURL, $pAutor, $pComentario );\r
+ if ( $resultado == "" ) {\r
+ echo ok("Se modificó la información.");\r
+ } else {\r
+ echo warn($resultado);\r
+ }\r
+ }\r
+ return $__hidID;\r
+}\r
+\r
+function info_listar_infos ($header, $simpleSort = 1, $tema = -1) {\r
+ file_log_add($_SESSION['user']->getId(),"Se listaron las informaciones");\r
+ $arrInfos = info_obtener_infos(true,$simpleSort,$tema);\r
+ info_listador($header,$arrInfos,'Informaciones',6);\r
+}\r
+/************** Fin Funciones para Infos ***************/\r
+\r
+\r
+\r
+\r
+/************** Funciones para Comentarios ***************/\r
+\r
+function info_obtener_comentarios($pInfo_ID) {\r
+ $arr = array();\r
+ $comentariosCSVConst = 'data/comentarios.' . $pInfo_ID . '.csv';\r
+\r
+ if (is_file($comentariosCSVConst)) {\r
+ $arrFile = fgetallcsv($comentariosCSVConst);\r
+ if ($arrFile) {\r
+ foreach ( $arrFile as $record_comentario) {\r
+ $objComentario = new Comentario($record_comentario,$pInfo_ID,1);\r
+ $objInfo = new Info($pInfo_ID,0);\r
+\r
+ /*Datos del usuario original*/\r
+ $objComentario->autor_original = $objInfo->autor;\r
+\r
+ /*Datos del usuario del comentario*/\r
+ $objUsuario = new Usuario($objComentario->autor);\r
+ $objComentario->autor_foto = $objUsuario->getFotoFilename();\r
+ $objComentario->autor_apellido = $objUsuario->getApellido();\r
+\r
+ $arr[] = $objComentario;\r
+ }\r
+ }\r
+ }\r
+ return $arr;\r
+}\r
+\r
+function info_obtener_mayor_id_comentario($pInfo_ID) {\r
+ $arrComentarios = info_obtener_comentarios($pInfo_ID);\r
+ $cantidad_comentarios = count($arrComentarios);\r
+\r
+ $maxId = 0;\r
+ if ($cantidad_comentarios != 0) {\r
+ $objComentario = $arrComentarios[$cantidad_comentarios - 1];\r
+ $maxId = $objComentario->id;\r
+ }\r
+ return $maxId;\r
+}\r
+\r