#616 #637: Actualizar lista de tickets cerrados; función {{{ogRaiseError}}} muestra traza de llamada de funciones afectadas.

git-svn-id: https://opengnsys.es/svn/branches/version1.0@4191 a21b9725-9963-47de-94b9-378ad31fedc9

2 files changed, 9 insertions, 5 deletions

diff --git a/client/engine/Image.lib b/client/engine/Image.lib
index 971007aa..602af897 100755
--- a/client/engine/Image.lib
+++ b/client/engine/Image.lib
@@ -4,7 +4,7 @@
 #@brief   Librería o clase Image
 #@class   Image
 #@brief   Funciones para creación, restauración y clonación de imágenes de sistemas.
-#@version 1.0
+#@version 1.0.5
 #@warning License: GNU GPLv3+
 #*/
 
@@ -63,7 +63,7 @@ case "$TOOL" in
         PARAM1="partimage -M -f3 -o -d -B gui=no -c -z0 --volume=0 save $PART stdout"
         ;;
     partclone)
-        FS="$(ogGetFsType $(ogDevToDisk $PART 2>/dev/null))"
+        FS="$(ogGetFsType $(ogDevToDisk $PART 2>/dev/null) 2>/dev/null)"
         umount $PART 2>/dev/null
         case "$FS" in
             EXT[234]) PARAM1="partclone.extfs" ;;
diff --git a/client/engine/System.lib b/client/engine/System.lib
index ffdf4007..17f63d07 100755
--- a/client/engine/System.lib
+++ b/client/engine/System.lib
@@ -66,17 +66,20 @@ fi
 #@param   str_logtype    tipo de registro de incidencias.
 #@param   int_errcode    código de error.
 #@param   str_errmessage mensajes complementarios de error.
-#@return  str_message - Mensaje de error.
+#@return  str_message - Mensaje de error, incluyendo las funciones relacionadas.
 #@warning No definidas
 #@note    Mensajes internacionales del fichero de idiomas.
 #@version 0.9 - Primera versión para OpenGnSys.
 #@author  Ramon Gomez, ETSII Universidad de Sevilla
 #@date    2009-07-21
+#@version 1.0.5 - Muestra en el mensaje todas las funciones relacionadas (separadas por <-).
+#@author  Ramon Gomez, ETSII Universidad de Sevilla
+#@date    2014-03-17
 #*/ 
 function ogRaiseError () {
 
 # Variables locales
-local CONT=1 LOGS MSG CODE
+local CONT=1 LOGS MSG CODE FUNCS
 
 # Selección de rgistros de incidencias.
 while [ $CONT ]; do
@@ -125,7 +128,8 @@ case "$CODE" in
 esac
 
 # Mostrar mensaje de error y salir con el código indicado.
-ogEcho $LOGS error "${FUNCNAME[1]}: $MSG" >&2
+FUNCS="${FUNCNAME[@]:1}"
+ogEcho $LOGS error "${FUNCS// /<-}: $MSG" >&2
 return $CODE
 }