[interchange-cvs] interchange - racke modified lib/Vend/SOAP.pm

[interchange-core@icdevgroup.org]

User:      racke
Date:      2003-06-12 15:09:50 GMT
Modified:  lib/Vend SOAP.pm
Log:
fixed silly cut&waste error

Revision  Changes    Path
2.12      +4 -3      interchange/lib/Vend/SOAP.pm


rev 2.12, prev_rev 2.11
Index: SOAP.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/SOAP.pm,v
retrieving revision 2.11
retrieving revision 2.12
diff -u -r2.11 -r2.12
--- SOAP.pm	12 Jun 2003 11:40:51 -0000	2.11
+++ SOAP.pm	12 Jun 2003 15:09:50 -0000	2.12
@@ -1,6 +1,6 @@
 # Vend::SOAP - Handle SOAP connections for Interchange
 #
-# $Id: SOAP.pm,v 2.11 2003/06/12 11:40:51 racke Exp $
+# $Id: SOAP.pm,v 2.12 2003/06/12 15:09:50 racke Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -34,7 +34,7 @@
 use strict;
 
 use vars qw($VERSION @ISA $AUTOLOAD);
-$VERSION = substr(q$Revision: 2.11 $, 10);
+$VERSION = substr(q$Revision: 2.12 $, 10);
 @ISA = qw/SOAP::Server/;
 
 my %Allowed_tags;
@@ -173,9 +173,10 @@
 	my ($obj);
         
 	if ($opt->{tree}) {
-		$opt->{value} = map {$Tag->soap_data_entity($_)} @{$opt->{value}};
+		$opt->{value} = map {tag_soap_entity($_)} @{$opt->{value}};
 	}
 	$obj = new SOAP::Data (%$opt);
+	return $obj;
 }
 
 my %intrinsic = (local => sub {$CGI::remote_addr eq '127.0.0.1'},