[interchange-cvs] interchange - racke modified 2 files

[interchange-core@icdevgroup.org]

User:      racke
Date:      2003-06-12 11:40:51 GMT
Modified:  code/SystemTag soap.coretag
Modified:  lib/Vend SOAP.pm
Log:
soap_entity tag added

Revision  Changes    Path
1.3       +3 -0      interchange/code/SystemTag/soap.coretag


rev 1.3, prev_rev 1.2
Index: soap.coretag
===================================================================
RCS file: /anon_cvs/repository/interchange/code/SystemTag/soap.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- soap.coretag	7 May 2003 01:07:28 -0000	1.2
+++ soap.coretag	12 Jun 2003 11:40:50 -0000	1.3
@@ -2,3 +2,6 @@
 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



2.11      +12 -2     interchange/lib/Vend/SOAP.pm


rev 2.11, prev_rev 2.10
Index: SOAP.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/SOAP.pm,v
retrieving revision 2.10
retrieving revision 2.11
diff -u -r2.10 -r2.11
--- SOAP.pm	7 May 2003 17:23:21 -0000	2.10
+++ SOAP.pm	12 Jun 2003 11:40:51 -0000	2.11
@@ -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 @@
 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;
@@ -166,6 +166,16 @@
 	$::Scratch->{$opt->{result}} = $result if $opt->{result};
 	return '' if $opt->{init};
 	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'},