[Bio] / FigWebServices / AttribXMLRPC.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/AttribXMLRPC.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Fri Nov 3 22:33:01 2006 UTC revision 1.2, Fri Nov 10 19:27:23 2006 UTC
# Line 56  Line 56 
56  {  {
57      my($self, $value) = @_;      my($self, $value) = @_;
58    
59      return $self->{xmlrpc}->string($value);      my $new;
60        if (ref($value) eq "ARRAY")
61        {
62            $new = [];
63            for my $v (@$value)
64            {
65                push(@$new, $self->coerce_to_string($v));
66            }
67        }
68        elsif (ref($value) eq "HASH")
69        {
70            $new = {};
71            for my $k (keys(%$value))
72            {
73                $new->{$k} = $self->coerce_to_string($value->{$k});
74            }
75        }
76        else
77        {
78            $new = $self->{xmlrpc}->string($value);
79        }
80        return $new;
81  }  }
82    
83  #  #
# Line 123  Line 144 
144          #          #
145          for $_ (@func_ret)          for $_ (@func_ret)
146          {          {
             if (ref($_))  
             {  
                 push(@$ret, $_);  
             }  
             else  
             {  
147                  push(@$ret, $self->coerce_to_string($_));                  push(@$ret, $self->coerce_to_string($_));
148              }              }
         }  
149          return $ret;          return $ret;
150      }      }
151  }  }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3