[Arsperl-users] Printing Array fields

[Tarakad R. V. (K. 21) <vis...@cr...>]

> Hello,
> 
> Im trying to print "Work Log" and Im getting ARRAY(0xa68d70) instead
> of the value.
> 
> Can someone advice please.  The displayorder contains the fields I
> want to print.  All fields print ok except the Work Log
> 
>    foreach $ticket ( sort keys %tickets ) {
>                 (%v_tick = ars_GetEntry($$ctrl, $schema, $ticket)) ||
> die "$ars_errstr - can't get $ticket from schema $schema";
>                 my $curline;
>                 foreach $id ( @displayorder ) {
>                         $curval=$v_tick{$f_tick{$id}};
>                         if ( $t{$id} eq "enum" ) {
> $tmp=getEnumValue($id,$curval); $curval=$tmp;}
>                         if ( $t{$id} eq "time" && $curval > 0 ) {
> $tmp=`perl -le 'print scalar localtime $curval'`;
> $curval=UnixDate($tmp,"%m/%d/%Y %T");}
>                         $curval=~ s/\n/ /g;  # Replace New line with
> space
>                         $curval=~ s/^M/ /g;  # Replace Control M with
> space
>                         $curval=~ s/,/ /g;  # Replace Comma with space
>                         $curline.="$curval,";
>                         #print "$curval,";
>                 }
>                 printoutput "$curline";
>           }
> 
Regards,
Vishi