soap_entity tag added

interchange · Jun 12, 2003 · 3c04fd5 · 3c04fd5
1 parent adad82f
commit 3c04fd5
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 2 deletions.
diff --git a/code/SystemTag/soap.coretag b/code/SystemTag/soap.coretag
@@ -2,3 +2,6 @@ UserTag soap                Order        call uri proxy
 UserTag soap                addAttr
 UserTag soap                PosNumber    3
 UserTag soap                MapRoutine   Vend::SOAP::tag_soap
+
+UserTag soap_entity			addAttr
+UserTag soap_entity			MapRoutine   Vend::SOAP::tag_soap_entity
diff --git a/lib/Vend/SOAP.pm b/lib/Vend/SOAP.pm
@@ -1,6 +1,6 @@
 # Vend::SOAP - Handle SOAP connections for Interchange
 #
-# $Id: SOAP.pm,v 2.10 2003-05-07 17:23:21 racke Exp $
+# $Id: SOAP.pm,v 2.11 2003-06-12 11:40:51 racke Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -34,7 +34,7 @@ require SOAP::Transport::HTTP;
 use strict;
 
 use vars qw($VERSION @ISA $AUTOLOAD);
-$VERSION = substr(q$Revision: 2.10 $, 10);
+$VERSION = substr(q$Revision: 2.11 $, 10);
 @ISA = qw/SOAP::Server/;
 
 my %Allowed_tags;
@@ -168,6 +168,16 @@ sub tag_soap {
 	return $result;
 }
 
+sub tag_soap_entity {
+	my ($opt) = @_;
+	my ($obj);
+
+	if ($opt->{tree}) {
+		$opt->{value} = map {$Tag->soap_data_entity($_)} @{$opt->{value}};
+	}
+	$obj = new SOAP::Data (%$opt);
+}
+
 my %intrinsic = (local => sub {$CGI::remote_addr eq '127.0.0.1'},
 				never => sub {return 0},
 				always => sub {return 1});