[Arsperl-users] Printing Array fields
Brought to you by:
jeffmurphy
|
From: Tarakad R. V. (K. 21)
<vis...@cr...> - 2008-08-12 10:27:43
|
> 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
|