From 5fd283d827959ffedce21faeecf74f011b42d751 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 29 Jun 2008 21:27:26 +0000
Subject: add item tags around submissions

---
 lib/Net/GlobalPOPs/MediaServicesAPI.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'lib/Net/GlobalPOPs/MediaServicesAPI.pm')

diff --git a/lib/Net/GlobalPOPs/MediaServicesAPI.pm b/lib/Net/GlobalPOPs/MediaServicesAPI.pm
index 6b671fd..1622eaf 100644
--- a/lib/Net/GlobalPOPs/MediaServicesAPI.pm
+++ b/lib/Net/GlobalPOPs/MediaServicesAPI.pm
@@ -134,10 +134,12 @@ sub AUTOLOAD {
 
       $w->dataElement( 'requesttype' => $function );
 
-      foreach my $opt ( keys %$opts ) {
-
-        $w->dataElement( $opt => $opts->{$opt} );
-
+      if ( keys %$opts ) {
+        $w->startTag('item');
+          foreach my $opt ( keys %$opts ) {
+            $w->dataElement( $opt => $opts->{$opt} );
+          }
+        $w->endTag('item');
       }
 
     $w->endTag('body');
-- 
cgit v1.2.1