[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.2, Fri Nov 10 19:27:23 2006 UTC revision 1.6, Thu Nov 16 22:45:43 2006 UTC
# Line 73  Line 73 
73              $new->{$k} = $self->coerce_to_string($value->{$k});              $new->{$k} = $self->coerce_to_string($value->{$k});
74          }          }
75      }      }
76      else      elsif ($value =~ /^(-?(?:\d+(?:\.\d*)?|\.\d+)|([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)$/)
77      {      {
78          $new = $self->{xmlrpc}->string($value);          $new = $self->{xmlrpc}->string($value);
79      }      }
80        else
81        {
82            $new = $value;
83        }
84      return $new;      return $new;
85  }  }
86    
# Line 173  Line 177 
177  #  #
178    
179  my $methods = {  my $methods = {
180      'GetAll' => $wrapper->wrap_array_return("GetAll"),      'GetAttributes' => $wrapper->wrap_array_return("GetAttributes"),
181      'InsertValue' => $wrapper->wrap_scalar_return("InsertValue"),      'AddAttribute' => $wrapper->wrap_scalar_return("AddAttribute"),
182      'DeleteValue' => $wrapper->wrap_scalar_return("DeleteValue"),      'DeleteAttribute' => $wrapper->wrap_scalar_return("DeleteAttribute"),
183      'GetSecondaryFields' => $wrapper->wrap_array_return("GetSecondaryFields"),      'ChangeAttribute' => $wrapper->wrap_scalar_return("ChangeAttribute"),
184        'EraseAttribute' => $wrapper->wrap_scalar_return("EraseAttribute"),
185        'GetAttributeKeys' => $wrapper->wrap_array_return("GetAttributeKeys"),
186  };  };
187    
188  process_cgi_call($methods);  process_cgi_call($methods);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3