Foro - Perl en Español

Tengo el siguiente array o hash o lo que sea... que luego siempre lo llamo como no es

Código: Seleccionar todo

STATUS: $VAR1 = bless( {
                  'alert' => '',
                  'transation_id' => undef,
                  'sip_fee_type' => '01',
                  'item' => bless( {                                   
                           'hold_queue' => [
                                       {
                                           'hold_type' => '2',
                                           'patron_id' => undef,
                                           'expiration_date' => '20081125    110158',
                                           'pickup_location' => 'LAXE1',
                                           'item_id' => '9'
                                        }
                           ],               
                  'patron' => bless( {                                 
                           'hold_items' => [
                                                         '2'
                           ],
                           'hold_queue' => [],
                           'items' => []
                  }, 'C4::SIP::ILS::Patron' ),

y quiero acceder al valor de hold_type. He puesto lo siguiente:



Y me sale el siguiente error:

Código: Seleccionar todo

Pseudo-hashes are deprecated at /var/www/kohaclone/C4/SIP/Sip/MsgType.pm line 1404.
Use of uninitialized value in concatenation (.) or string at /var/www/kohaclone/C4/SIP/Sip/MsgType.pm line 1404.
ESTE ES EL VALOR:  at /var/www/kohaclone/C4/SIP/Sip/MsgType.pm line 1404.

Y no sé qué hacer, ni veo el problema. ¿Alguna idea? Gracias

(Me imagino que estaré accediendo mal...)

El objeto que muestras es de tipo C4::SIP::ILS::Patron, así que deberías leer la documentación de este módulo, para acceder a sus entrañas.

Veo complicado el tema de la documentación... por lo que he visto en Internet "Pseudo-hashes are deprecated" se refiere a un error en el acceso a un hash de hashes... he visto ejemplos de cómo listar todo (por ejemplo: http://www.perlmonks.org/?node_id=116162) pero yo solo quiero acceder a uno de los campos, a hold_type...

EL software que usas es el Koha, un gestor de bibliotecas.

Me he bajado el software, la versión 3.00.01, y he abierto el fichero que marca error. Aparece un comentario, así que lo más seguro es que no coincida con la versión que tu tienes.

Deberías publicar aquí el trozo de código que da error. Unas líneas alrededor de él, para ver si lo encontramos.

$status->{'item'}->{'hold_queue'} es un arrayref, not un hashref. Pero no deberías mirar dentro de un objeto.

No nos mostraste el código actual, no es completo y los paréntesis, acoladas y abrazaderas no son cerradas correctamente.