[vuser] r595 committed - Add escape for &

[vu...@googlecode.com]

Revision: 595
Author: perlstalker
Date: Thu Sep 1 15:51:35 2011
Log: Add escape for &
http://code.google.com/p/vuser/source/detail?r=595

Modified:
/VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/ApiProtocol/V2_0.pm
/VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/Provisioning.pm

=======================================
---
/VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/ApiProtocol/V2_0.pm
Fri Nov 27 22:27:35 2009
+++
/VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/ApiProtocol/V2_0.pm
Thu Sep 1 15:51:35 2011
@@ -13,7 +13,7 @@
use Moose;
extends 'VUser::Google::ApiProtocol';

-our $VERSION = '0.5.1';
+our $VERSION = '0.5.2';

has 'google_host' => (is => 'ro',
default => 'www.google.com'
@@ -70,6 +70,8 @@
my $lwp = LWP::UserAgent->new;

if (defined $lwp) {
+ # TODO: add proxy support here
+
$lwp->agent($self->useragent);
$lwp->from($self->admin.'@'.$self->domain);

=======================================
--- /VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/Provisioning.pm
Tue Nov 17 23:17:24 2009
+++ /VUser-Google-ProvisioningAPI/trunk/lib/VUser/Google/Provisioning.pm
Thu Sep 1 15:51:35 2011
@@ -2,7 +2,7 @@
use warnings;
use strict;

-our $VERSION = '0.2.0';
+our $VERSION = '0.2.1';

use Moose;

@@ -32,11 +32,13 @@
}

# Escape " with " for XML
+# & with &
sub _escape_quotes {
my $self = shift;
my $text = shift;

- $text =~ s/\"/"/;
+ $text =~ s/\"/"/g;
+ $text =~ s/\&/&/g;

return $text;
}