[fixmystreet.com] Remove unused Barnet code.

34 files changed, 3 insertions, 3123 deletions

diff --git a/cpanfile b/cpanfile
index aaaa869a4..d7abc3315 100644
--- a/cpanfile
+++ b/cpanfile
@@ -90,9 +90,6 @@ requires 'YAML';
 feature 'uk', 'FixMyStreet.com specific requirements' => sub {
     # East Hampshire
     requires 'SOAP::Lite';
-    # Barnet
-    # TODO: This can perhaps be removed since Barnet switched to email for problem reports
-    requires 'SOAP::WSDL';
 };
 
 feature 'open311-endpoint', 'Open311::Endpoint specific requirements' => sub {
@@ -105,7 +102,7 @@ feature 'open311-endpoint', 'Open311::Endpoint specific requirements' => sub {
 };
 
 feature 'zurich', 'Zueri wie neu specific requirements' => sub {
-#    # Geocoder
+    # Geocoder
     requires 'SOAP::Lite';
 };
 
diff --git a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE.pm b/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE.pm
deleted file mode 100644
index 2c398ab1b..000000000
--- a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE.pm
+++ /dev/null
@@ -1,248 +0,0 @@
-
-package BarnetElements::Z_CRM_SERVICE_ORDER_CREATE;
-use strict;
-use warnings;
-
-{ # BLOCK to scope variables
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }
-
-__PACKAGE__->__set_name('Z_CRM_SERVICE_ORDER_CREATE');
-__PACKAGE__->__set_nillable();
-__PACKAGE__->__set_minOccurs();
-__PACKAGE__->__set_maxOccurs();
-__PACKAGE__->__set_ref();
-
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Element
-    SOAP::WSDL::XSD::Typelib::ComplexType
-);
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %ET_RETURN_of :ATTR(:get<ET_RETURN>);
-my %IT_PROBLEM_DESC_of :ATTR(:get<IT_PROBLEM_DESC>);
-my %IV_CUST_EMAIL_of :ATTR(:get<IV_CUST_EMAIL>);
-my %IV_CUST_NAME_of :ATTR(:get<IV_CUST_NAME>);
-my %IV_KBID_of :ATTR(:get<IV_KBID>);
-my %IV_PROBLEM_ID_of :ATTR(:get<IV_PROBLEM_ID>);
-my %IV_PROBLEM_LOC_of :ATTR(:get<IV_PROBLEM_LOC>);
-my %IV_PROBLEM_SUB_of :ATTR(:get<IV_PROBLEM_SUB>);
-
-__PACKAGE__->_factory(
-    [ qw(        ET_RETURN
-        IT_PROBLEM_DESC
-        IV_CUST_EMAIL
-        IV_CUST_NAME
-        IV_KBID
-        IV_PROBLEM_ID
-        IV_PROBLEM_LOC
-        IV_PROBLEM_SUB
-
-    ) ],
-    {
-        'ET_RETURN' => \%ET_RETURN_of,
-        'IT_PROBLEM_DESC' => \%IT_PROBLEM_DESC_of,
-        'IV_CUST_EMAIL' => \%IV_CUST_EMAIL_of,
-        'IV_CUST_NAME' => \%IV_CUST_NAME_of,
-        'IV_KBID' => \%IV_KBID_of,
-        'IV_PROBLEM_ID' => \%IV_PROBLEM_ID_of,
-        'IV_PROBLEM_LOC' => \%IV_PROBLEM_LOC_of,
-        'IV_PROBLEM_SUB' => \%IV_PROBLEM_SUB_of,
-    },
-    {
-        'ET_RETURN' => 'BarnetTypes::TABLE_OF_BAPIRET2',
-        'IT_PROBLEM_DESC' => 'BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT',
-        'IV_CUST_EMAIL' => 'BarnetTypes::char241',
-        'IV_CUST_NAME' => 'BarnetTypes::char50',
-        'IV_KBID' => 'BarnetTypes::char50',
-        'IV_PROBLEM_ID' => 'BarnetTypes::char35',
-        'IV_PROBLEM_LOC' => 'BarnetTypes::BAPI_TTET_ADDRESS_COM',
-        'IV_PROBLEM_SUB' => 'BarnetTypes::char40',
-    },
-    {
-
-        'ET_RETURN' => 'ET_RETURN',
-        'IT_PROBLEM_DESC' => 'IT_PROBLEM_DESC',
-        'IV_CUST_EMAIL' => 'IV_CUST_EMAIL',
-        'IV_CUST_NAME' => 'IV_CUST_NAME',
-        'IV_KBID' => 'IV_KBID',
-        'IV_PROBLEM_ID' => 'IV_PROBLEM_ID',
-        'IV_PROBLEM_LOC' => 'IV_PROBLEM_LOC',
-        'IV_PROBLEM_SUB' => 'IV_PROBLEM_SUB',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-} # end of BLOCK
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetElements::Z_CRM_SERVICE_ORDER_CREATE
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined element
-Z_CRM_SERVICE_ORDER_CREATE from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-
-=head1 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * ET_RETURN
-
- $element->set_ET_RETURN($data);
- $element->get_ET_RETURN();
-
-
-
-
-=item * IT_PROBLEM_DESC
-
- $element->set_IT_PROBLEM_DESC($data);
- $element->get_IT_PROBLEM_DESC();
-
-
-
-
-=item * IV_CUST_EMAIL
-
- $element->set_IV_CUST_EMAIL($data);
- $element->get_IV_CUST_EMAIL();
-
-
-
-
-=item * IV_CUST_NAME
-
- $element->set_IV_CUST_NAME($data);
- $element->get_IV_CUST_NAME();
-
-
-
-
-=item * IV_KBID
-
- $element->set_IV_KBID($data);
- $element->get_IV_KBID();
-
-
-
-
-=item * IV_PROBLEM_ID
-
- $element->set_IV_PROBLEM_ID($data);
- $element->get_IV_PROBLEM_ID();
-
-
-
-
-=item * IV_PROBLEM_LOC
-
- $element->set_IV_PROBLEM_LOC($data);
- $element->get_IV_PROBLEM_LOC();
-
-
-
-
-=item * IV_PROBLEM_SUB
-
- $element->set_IV_PROBLEM_SUB($data);
- $element->get_IV_PROBLEM_SUB();
-
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
- my $element = BarnetElements::Z_CRM_SERVICE_ORDER_CREATE->new($data);
-
-Constructor. The following data structure may be passed to new():
-
- {
-   ET_RETURN =>  { # BarnetTypes::TABLE_OF_BAPIRET2
-     item =>  { # BarnetTypes::BAPIRET2
-       TYPE => $some_value, # char1
-       ID => $some_value, # char20
-       NUMBER => $some_value, # numeric3
-       MESSAGE => $some_value, # char220
-       LOG_NO => $some_value, # char20
-       LOG_MSG_NO => $some_value, # numeric6
-       MESSAGE_V1 => $some_value, # char50
-       MESSAGE_V2 => $some_value, # char50
-       MESSAGE_V3 => $some_value, # char50
-       MESSAGE_V4 => $some_value, # char50
-       PARAMETER => $some_value, # char32
-       ROW =>  $some_value, # int
-       FIELD => $some_value, # char30
-       SYSTEM => $some_value, # char10
-     },
-   },
-   IT_PROBLEM_DESC =>  { # BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT
-     item =>  { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT
-       TEXT_LINE => $some_value, # char132
-     },
-   },
-   IV_CUST_EMAIL => $some_value, # char241
-   IV_CUST_NAME => $some_value, # char50
-   IV_KBID => $some_value, # char50
-   IV_PROBLEM_ID => $some_value, # char35
-   IV_PROBLEM_LOC =>  { # BarnetTypes::BAPI_TTET_ADDRESS_COM
-     COUNTRY2 => $some_value, # char2
-     REGION => $some_value, # char3
-     COUNTY => $some_value, # char30
-     CITY => $some_value, # char30
-     POSTALCODE => $some_value, # char10
-     STREET => $some_value, # char30
-     STREETNUMBER => $some_value, # char5
-     GEOCODE => $some_value, # char32
-   },
-   IV_PROBLEM_SUB => $some_value, # char40
- },
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE/Exception.pm b/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE/Exception.pm
deleted file mode 100644
index ae95d3234..000000000
--- a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE/Exception.pm
+++ /dev/null
@@ -1,64 +0,0 @@
-
-package BarnetElements::Z_CRM_SERVICE_ORDER_CREATE::Exception;
-use strict;
-use warnings;
-
-{ # BLOCK to scope variables
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }
-
-__PACKAGE__->__set_name('Z_CRM_SERVICE_ORDER_CREATE.Exception');
-__PACKAGE__->__set_nillable();
-__PACKAGE__->__set_minOccurs();
-__PACKAGE__->__set_maxOccurs();
-__PACKAGE__->__set_ref();
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Element
-    BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException
-);
-
-}
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetElements::Z_CRM_SERVICE_ORDER_CREATE::Exception
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined element
-Z_CRM_SERVICE_ORDER_CREATE.Exception from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-
-=head1 METHODS
-
-=head2 new
-
- my $element = BarnetElements::Z_CRM_SERVICE_ORDER_CREATE::Exception->new($data);
-
-Constructor. The following data structure may be passed to new():
-
- { # BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException
-   Name => $some_value, # Z_CRM_SERVICE_ORDER_CREATE.RfcExceptions
-   Text =>  $some_value, # string
-   Message =>  { # BarnetTypes::RfcException::Message
-     ID =>  $some_value, # string
-     Number => $some_value, # RfcException.Message.Number
-   },
- },
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATEResponse.pm b/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATEResponse.pm
deleted file mode 100644
index 5755d0b49..000000000
--- a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATEResponse.pm
+++ /dev/null
@@ -1,183 +0,0 @@
-
-package BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse;
-use strict;
-use warnings;
-
-{ # BLOCK to scope variables
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }
-
-__PACKAGE__->__set_name('Z_CRM_SERVICE_ORDER_CREATEResponse');
-__PACKAGE__->__set_nillable();
-__PACKAGE__->__set_minOccurs();
-__PACKAGE__->__set_maxOccurs();
-__PACKAGE__->__set_ref();
-
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Element
-    SOAP::WSDL::XSD::Typelib::ComplexType
-);
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %ET_RETURN_of :ATTR(:get<ET_RETURN>);
-my %EV_ORDER_GUID_of :ATTR(:get<EV_ORDER_GUID>);
-my %EV_ORDER_NO_of :ATTR(:get<EV_ORDER_NO>);
-my %IT_PROBLEM_DESC_of :ATTR(:get<IT_PROBLEM_DESC>);
-
-__PACKAGE__->_factory(
-    [ qw(        ET_RETURN
-        EV_ORDER_GUID
-        EV_ORDER_NO
-        IT_PROBLEM_DESC
-
-    ) ],
-    {
-        'ET_RETURN' => \%ET_RETURN_of,
-        'EV_ORDER_GUID' => \%EV_ORDER_GUID_of,
-        'EV_ORDER_NO' => \%EV_ORDER_NO_of,
-        'IT_PROBLEM_DESC' => \%IT_PROBLEM_DESC_of,
-    },
-    {
-        'ET_RETURN' => 'BarnetTypes::TABLE_OF_BAPIRET2',
-        'EV_ORDER_GUID' => 'BarnetTypes::char32',
-        'EV_ORDER_NO' => 'BarnetTypes::char10',
-        'IT_PROBLEM_DESC' => 'BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT',
-    },
-    {
-
-        'ET_RETURN' => 'ET_RETURN',
-        'EV_ORDER_GUID' => 'EV_ORDER_GUID',
-        'EV_ORDER_NO' => 'EV_ORDER_NO',
-        'IT_PROBLEM_DESC' => 'IT_PROBLEM_DESC',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-} # end of BLOCK
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined element
-Z_CRM_SERVICE_ORDER_CREATEResponse from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-
-=head1 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * ET_RETURN
-
- $element->set_ET_RETURN($data);
- $element->get_ET_RETURN();
-
-
-
-
-=item * EV_ORDER_GUID
-
- $element->set_EV_ORDER_GUID($data);
- $element->get_EV_ORDER_GUID();
-
-
-
-
-=item * EV_ORDER_NO
-
- $element->set_EV_ORDER_NO($data);
- $element->get_EV_ORDER_NO();
-
-
-
-
-=item * IT_PROBLEM_DESC
-
- $element->set_IT_PROBLEM_DESC($data);
- $element->get_IT_PROBLEM_DESC();
-
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
- my $element = BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse->new($data);
-
-Constructor. The following data structure may be passed to new():
-
- {
-   ET_RETURN =>  { # BarnetTypes::TABLE_OF_BAPIRET2
-     item =>  { # BarnetTypes::BAPIRET2
-       TYPE => $some_value, # char1
-       ID => $some_value, # char20
-       NUMBER => $some_value, # numeric3
-       MESSAGE => $some_value, # char220
-       LOG_NO => $some_value, # char20
-       LOG_MSG_NO => $some_value, # numeric6
-       MESSAGE_V1 => $some_value, # char50
-       MESSAGE_V2 => $some_value, # char50
-       MESSAGE_V3 => $some_value, # char50
-       MESSAGE_V4 => $some_value, # char50
-       PARAMETER => $some_value, # char32
-       ROW =>  $some_value, # int
-       FIELD => $some_value, # char30
-       SYSTEM => $some_value, # char10
-     },
-   },
-   EV_ORDER_GUID => $some_value, # char32
-   EV_ORDER_NO => $some_value, # char10
-   IT_PROBLEM_DESC =>  { # BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT
-     item =>  { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT
-       TEXT_LINE => $some_value, # char132
-     },
-   },
- },
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetInterfaces/service/ZLBB_SERVICE_ORDER.pm b/perllib/BarnetInterfaces/service/ZLBB_SERVICE_ORDER.pm
deleted file mode 100644
index 94e0cd4db..000000000
--- a/perllib/BarnetInterfaces/service/ZLBB_SERVICE_ORDER.pm
+++ /dev/null
@@ -1,166 +0,0 @@
-package BarnetInterfaces::service::ZLBB_SERVICE_ORDER;
-use strict;
-use warnings;
-use Class::Std::Fast::Storable;
-use Scalar::Util qw(blessed);
-use base qw(SOAP::WSDL::Client::Base);
-
-# only load if it hasn't been loaded before
-require BarnetTypemaps::service
-    if not BarnetTypemaps::service->can('get_class');
-
-sub START {
-    $_[0]->set_proxy('http://lbbcrmdev.barnet.gov.uk:8000/sap/bc/srt/rfc/sap/zlbb_service_order/200/zlbb_service_order/zlbb_service_order') if not $_[2]->{proxy};
-    $_[0]->set_class_resolver('BarnetTypemaps::service')
-        if not $_[2]->{class_resolver};
-
-    $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
-}
-
-sub Z_CRM_SERVICE_ORDER_CREATE {
-    my ($self, $body, $header) = @_;
-    die "Z_CRM_SERVICE_ORDER_CREATE must be called as object method (\$self is <$self>)" if not blessed($self);
-    return $self->SUPER::call({
-        operation => 'Z_CRM_SERVICE_ORDER_CREATE',
-        soap_action => '',
-        style => 'document',
-        body => {
-            
-
-           'use'            => 'literal',
-            namespace       => 'http://schemas.xmlsoap.org/wsdl/soap/',
-            encodingStyle   => '',
-            parts           =>  [qw( BarnetElements::Z_CRM_SERVICE_ORDER_CREATE )],
-        },
-        header => {
-            
-        },
-        headerfault => {
-            
-        }
-    }, $body, $header);
-}
-
-
-
-
-1;
-
-
-
-__END__
-
-=pod
-
-=head1 NAME
-
-BarnetInterfaces::service::ZLBB_SERVICE_ORDER - SOAP Interface for the service Web Service
-
-=head1 SYNOPSIS
-
- use BarnetInterfaces::service::ZLBB_SERVICE_ORDER;
- my $interface = BarnetInterfaces::service::ZLBB_SERVICE_ORDER->new();
-
- my $response;
- $response = $interface->Z_CRM_SERVICE_ORDER_CREATE();
-
-
-
-=head1 DESCRIPTION
-
-SOAP Interface for the service web service
-located at http://lbbcrmdev.barnet.gov.uk:8000/sap/bc/srt/rfc/sap/zlbb_service_order/200/zlbb_service_order/zlbb_service_order.
-
-=head1 SERVICE service
-
-
-
-=head2 Port ZLBB_SERVICE_ORDER
-
-
-
-=head1 METHODS
-
-=head2 General methods
-
-=head3 new
-
-Constructor.
-
-All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>.
-
-=head2 SOAP Service methods
-
-Method synopsis is displayed with hash refs as parameters.
-
-The commented class names in the method's parameters denote that objects
-of the corresponding class can be passed instead of the marked hash ref.
-
-You may pass any combination of objects, hash and list refs to these
-methods, as long as you meet the structure.
-
-List items (i.e. multiple occurences) are not displayed in the synopsis.
-You may generally pass a list ref of hash refs (or objects) instead of a hash
-ref - this may result in invalid XML if used improperly, though. Note that
-SOAP::WSDL always expects list references at maximum depth position.
-
-XML attributes are not displayed in this synopsis and cannot be set using
-hash refs. See the respective class' documentation for additional information.
-
-
-
-=head3 Z_CRM_SERVICE_ORDER_CREATE
-
-
-
-Returns a L<BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse|BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse> object.
-
- $response = $interface->Z_CRM_SERVICE_ORDER_CREATE( {
-    ET_RETURN =>  { # BarnetTypes::TABLE_OF_BAPIRET2
-      item =>  { # BarnetTypes::BAPIRET2
-        TYPE => $some_value, # char1
-        ID => $some_value, # char20
-        NUMBER => $some_value, # numeric3
-        MESSAGE => $some_value, # char220
-        LOG_NO => $some_value, # char20
-        LOG_MSG_NO => $some_value, # numeric6
-        MESSAGE_V1 => $some_value, # char50
-        MESSAGE_V2 => $some_value, # char50
-        MESSAGE_V3 => $some_value, # char50
-        MESSAGE_V4 => $some_value, # char50
-        PARAMETER => $some_value, # char32
-        ROW =>  $some_value, # int
-        FIELD => $some_value, # char30
-        SYSTEM => $some_value, # char10
-      },
-    },
-    IT_PROBLEM_DESC =>  { # BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT
-      item =>  { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT
-        TEXT_LINE => $some_value, # char132
-      },
-    },
-    IV_CUST_EMAIL => $some_value, # char241
-    IV_CUST_NAME => $some_value, # char50
-    IV_KBID => $some_value, # char50
-    IV_PROBLEM_ID => $some_value, # char35
-    IV_PROBLEM_LOC =>  { # BarnetTypes::BAPI_TTET_ADDRESS_COM
-      COUNTRY2 => $some_value, # char2
-      REGION => $some_value, # char3
-      COUNTY => $some_value, # char30
-      CITY => $some_value, # char30
-      POSTALCODE => $some_value, # char10
-      STREET => $some_value, # char30
-      STREETNUMBER => $some_value, # char5
-      GEOCODE => $some_value, # char32
-    },
-    IV_PROBLEM_SUB => $some_value, # char40
-  },,
- );
-
-
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL on Fri Apr  8 10:23:03 2011
-
-=cut
diff --git a/perllib/BarnetTypemaps/service.pm b/perllib/BarnetTypemaps/service.pm
deleted file mode 100644
index dd9f98162..000000000
--- a/perllib/BarnetTypemaps/service.pm
+++ /dev/null
@@ -1,103 +0,0 @@
-
-package BarnetTypemaps::service;
-use strict;
-use warnings;
-
-our $typemap_1 = {
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/EV_ORDER_NO' => 'BarnetTypes::char10',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/GEOCODE' => 'BarnetTypes::char32',
-               'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/COUNTRY2' => 'BarnetTypes::char2',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/NUMBER' => 'BarnetTypes::numeric3',
-               'Z_CRM_SERVICE_ORDER_CREATE/IT_PROBLEM_DESC/item' => 'BarnetTypes::CRMT_SERVICE_REQUEST_TEXT',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE_V1' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/POSTALCODE' => 'BarnetTypes::char10',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/LOG_NO' => 'BarnetTypes::char20',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE_V2' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE_V3' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_SUB' => 'BarnetTypes::char40',
-               'Z_CRM_SERVICE_ORDER_CREATE/IT_PROBLEM_DESC/item/TEXT_LINE' => 'BarnetTypes::char132',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/LOG_NO' => 'BarnetTypes::char20',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN' => 'BarnetTypes::TABLE_OF_BAPIRET2',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/ROW' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/IT_PROBLEM_DESC/item' => 'BarnetTypes::CRMT_SERVICE_REQUEST_TEXT',
-               'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/PARAMETER' => 'BarnetTypes::char32',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item' => 'BarnetTypes::BAPIRET2',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_CUST_NAME' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE_V2' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/ROW' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
-               'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-               'Z_CRM_SERVICE_ORDER_CREATE.Exception/Message/ID' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/IT_PROBLEM_DESC' => 'BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/NUMBER' => 'BarnetTypes::numeric3',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse' => 'BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse',
-               'Z_CRM_SERVICE_ORDER_CREATE.Exception/Text' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE_V1' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/PARAMETER' => 'BarnetTypes::char32',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE' => 'BarnetTypes::char220',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/TYPE' => 'BarnetTypes::char1',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE' => 'BarnetTypes::char220',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC' => 'BarnetTypes::BAPI_TTET_ADDRESS_COM',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/TYPE' => 'BarnetTypes::char1',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_CUST_EMAIL' => 'BarnetTypes::char241',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/FIELD' => 'BarnetTypes::char30',
-               'Z_CRM_SERVICE_ORDER_CREATE.Exception/Name' => 'BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcExceptions',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/IT_PROBLEM_DESC/item/TEXT_LINE' => 'BarnetTypes::char132',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/ID' => 'BarnetTypes::char20',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/EV_ORDER_GUID' => 'BarnetTypes::char32',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/SYSTEM' => 'BarnetTypes::char10',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN' => 'BarnetTypes::TABLE_OF_BAPIRET2',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_ID' => 'BarnetTypes::char35',
-               'Z_CRM_SERVICE_ORDER_CREATE' => 'BarnetElements::Z_CRM_SERVICE_ORDER_CREATE',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/REGION' => 'BarnetTypes::char3',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/LOG_MSG_NO' => 'BarnetTypes::numeric6',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE_V4' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/FIELD' => 'BarnetTypes::char30',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/SYSTEM' => 'BarnetTypes::char10',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/COUNTY' => 'BarnetTypes::char30',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/LOG_MSG_NO' => 'BarnetTypes::numeric6',
-               'Z_CRM_SERVICE_ORDER_CREATE.Exception/Message' => 'BarnetTypes::RfcException::Message',
-               'Z_CRM_SERVICE_ORDER_CREATE/IT_PROBLEM_DESC' => 'BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT',
-               'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item' => 'BarnetTypes::BAPIRET2',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/CITY' => 'BarnetTypes::char30',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE_V4' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATE.Exception' => 'BarnetElements::Z_CRM_SERVICE_ORDER_CREATE::Exception',
-               'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/STREETNUMBER' => 'BarnetTypes::char5',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/ID' => 'BarnetTypes::char20',
-               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/STREET' => 'BarnetTypes::char30',
-               'Z_CRM_SERVICE_ORDER_CREATE.Exception/Message/Number' => 'BarnetTypes::RfcException::Message::Number',
-               'Z_CRM_SERVICE_ORDER_CREATE/IV_KBID' => 'BarnetTypes::char50',
-               'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE_V3' => 'BarnetTypes::char50'
-             };
-;
-
-sub get_class {
-  my $name = join '/', @{ $_[1] };
-  return $typemap_1->{ $name };
-}
-
-sub get_typemap {
-    return $typemap_1;
-}
-
-1;
-
-__END__
-
-__END__
-
-=pod
-
-=head1 NAME
-
-BarnetTypemaps::service - typemap for service
-
-=head1 DESCRIPTION
-
-Typemap created by SOAP::WSDL for map-based SOAP message parsers.
-
-=cut
-
diff --git a/perllib/BarnetTypes/BAPIRET2.pm b/perllib/BarnetTypes/BAPIRET2.pm
deleted file mode 100644
index 2ca20894c..000000000
--- a/perllib/BarnetTypes/BAPIRET2.pm
+++ /dev/null
@@ -1,219 +0,0 @@
-package BarnetTypes::BAPIRET2;
-use strict;
-use warnings;
-
-
-__PACKAGE__->_set_element_form_qualified(0);
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' };
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %TYPE_of :ATTR(:get<TYPE>);
-my %ID_of :ATTR(:get<ID>);
-my %NUMBER_of :ATTR(:get<NUMBER>);
-my %MESSAGE_of :ATTR(:get<MESSAGE>);
-my %LOG_NO_of :ATTR(:get<LOG_NO>);
-my %LOG_MSG_NO_of :ATTR(:get<LOG_MSG_NO>);
-my %MESSAGE_V1_of :ATTR(:get<MESSAGE_V1>);
-my %MESSAGE_V2_of :ATTR(:get<MESSAGE_V2>);
-my %MESSAGE_V3_of :ATTR(:get<MESSAGE_V3>);
-my %MESSAGE_V4_of :ATTR(:get<MESSAGE_V4>);
-my %PARAMETER_of :ATTR(:get<PARAMETER>);
-my %ROW_of :ATTR(:get<ROW>);
-my %FIELD_of :ATTR(:get<FIELD>);
-my %SYSTEM_of :ATTR(:get<SYSTEM>);
-
-__PACKAGE__->_factory(
-    [ qw(        TYPE
-        ID
-        NUMBER
-        MESSAGE
-        LOG_NO
-        LOG_MSG_NO
-        MESSAGE_V1
-        MESSAGE_V2
-        MESSAGE_V3
-        MESSAGE_V4
-        PARAMETER
-        ROW
-        FIELD
-        SYSTEM
-
-    ) ],
-    {
-        'TYPE' => \%TYPE_of,
-        'ID' => \%ID_of,
-        'NUMBER' => \%NUMBER_of,
-        'MESSAGE' => \%MESSAGE_of,
-        'LOG_NO' => \%LOG_NO_of,
-        'LOG_MSG_NO' => \%LOG_MSG_NO_of,
-        'MESSAGE_V1' => \%MESSAGE_V1_of,
-        'MESSAGE_V2' => \%MESSAGE_V2_of,
-        'MESSAGE_V3' => \%MESSAGE_V3_of,
-        'MESSAGE_V4' => \%MESSAGE_V4_of,
-        'PARAMETER' => \%PARAMETER_of,
-        'ROW' => \%ROW_of,
-        'FIELD' => \%FIELD_of,
-        'SYSTEM' => \%SYSTEM_of,
-    },
-    {
-        'TYPE' => 'BarnetTypes::char1',
-        'ID' => 'BarnetTypes::char20',
-        'NUMBER' => 'BarnetTypes::numeric3',
-        'MESSAGE' => 'BarnetTypes::char220',
-        'LOG_NO' => 'BarnetTypes::char20',
-        'LOG_MSG_NO' => 'BarnetTypes::numeric6',
-        'MESSAGE_V1' => 'BarnetTypes::char50',
-        'MESSAGE_V2' => 'BarnetTypes::char50',
-        'MESSAGE_V3' => 'BarnetTypes::char50',
-        'MESSAGE_V4' => 'BarnetTypes::char50',
-        'PARAMETER' => 'BarnetTypes::char32',
-        'ROW' => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
-        'FIELD' => 'BarnetTypes::char30',
-        'SYSTEM' => 'BarnetTypes::char10',
-    },
-    {
-
-        'TYPE' => 'TYPE',
-        'ID' => 'ID',
-        'NUMBER' => 'NUMBER',
-        'MESSAGE' => 'MESSAGE',
-        'LOG_NO' => 'LOG_NO',
-        'LOG_MSG_NO' => 'LOG_MSG_NO',
-        'MESSAGE_V1' => 'MESSAGE_V1',
-        'MESSAGE_V2' => 'MESSAGE_V2',
-        'MESSAGE_V3' => 'MESSAGE_V3',
-        'MESSAGE_V4' => 'MESSAGE_V4',
-        'PARAMETER' => 'PARAMETER',
-        'ROW' => 'ROW',
-        'FIELD' => 'FIELD',
-        'SYSTEM' => 'SYSTEM',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetTypes::BAPIRET2
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined complexType
-BAPIRET2 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-=head2 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * TYPE
-
-
-=item * ID
-
-
-=item * NUMBER
-
-
-=item * MESSAGE
-
-
-=item * LOG_NO
-
-
-=item * LOG_MSG_NO
-
-
-=item * MESSAGE_V1
-
-
-=item * MESSAGE_V2
-
-
-=item * MESSAGE_V3
-
-
-=item * MESSAGE_V4
-
-
-=item * PARAMETER
-
-
-=item * ROW
-
-
-=item * FIELD
-
-
-=item * SYSTEM
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor. The following data structure may be passed to new():
-
- { # BarnetTypes::BAPIRET2
-   TYPE => $some_value, # char1
-   ID => $some_value, # char20
-   NUMBER => $some_value, # numeric3
-   MESSAGE => $some_value, # char220
-   LOG_NO => $some_value, # char20
-   LOG_MSG_NO => $some_value, # numeric6
-   MESSAGE_V1 => $some_value, # char50
-   MESSAGE_V2 => $some_value, # char50
-   MESSAGE_V3 => $some_value, # char50
-   MESSAGE_V4 => $some_value, # char50
-   PARAMETER => $some_value, # char32
-   ROW =>  $some_value, # int
-   FIELD => $some_value, # char30
-   SYSTEM => $some_value, # char10
- },
-
-
-
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/BAPI_TTET_ADDRESS_COM.pm b/perllib/BarnetTypes/BAPI_TTET_ADDRESS_COM.pm
deleted file mode 100644
index b4a8b00ca..000000000
--- a/perllib/BarnetTypes/BAPI_TTET_ADDRESS_COM.pm
+++ /dev/null
@@ -1,165 +0,0 @@
-package BarnetTypes::BAPI_TTET_ADDRESS_COM;
-use strict;
-use warnings;
-
-
-__PACKAGE__->_set_element_form_qualified(0);
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' };
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %COUNTRY2_of :ATTR(:get<COUNTRY2>);
-my %REGION_of :ATTR(:get<REGION>);
-my %COUNTY_of :ATTR(:get<COUNTY>);
-my %CITY_of :ATTR(:get<CITY>);
-my %POSTALCODE_of :ATTR(:get<POSTALCODE>);
-my %STREET_of :ATTR(:get<STREET>);
-my %STREETNUMBER_of :ATTR(:get<STREETNUMBER>);
-my %GEOCODE_of :ATTR(:get<GEOCODE>);
-
-__PACKAGE__->_factory(
-    [ qw(        COUNTRY2
-        REGION
-        COUNTY
-        CITY
-        POSTALCODE
-        STREET
-        STREETNUMBER
-        GEOCODE
-
-    ) ],
-    {
-        'COUNTRY2' => \%COUNTRY2_of,
-        'REGION' => \%REGION_of,
-        'COUNTY' => \%COUNTY_of,
-        'CITY' => \%CITY_of,
-        'POSTALCODE' => \%POSTALCODE_of,
-        'STREET' => \%STREET_of,
-        'STREETNUMBER' => \%STREETNUMBER_of,
-        'GEOCODE' => \%GEOCODE_of,
-    },
-    {
-        'COUNTRY2' => 'BarnetTypes::char2',
-        'REGION' => 'BarnetTypes::char3',
-        'COUNTY' => 'BarnetTypes::char30',
-        'CITY' => 'BarnetTypes::char30',
-        'POSTALCODE' => 'BarnetTypes::char10',
-        'STREET' => 'BarnetTypes::char30',
-        'STREETNUMBER' => 'BarnetTypes::char5',
-        'GEOCODE' => 'BarnetTypes::char32',
-    },
-    {
-
-        'COUNTRY2' => 'COUNTRY2',
-        'REGION' => 'REGION',
-        'COUNTY' => 'COUNTY',
-        'CITY' => 'CITY',
-        'POSTALCODE' => 'POSTALCODE',
-        'STREET' => 'STREET',
-        'STREETNUMBER' => 'STREETNUMBER',
-        'GEOCODE' => 'GEOCODE',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetTypes::BAPI_TTET_ADDRESS_COM
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined complexType
-BAPI_TTET_ADDRESS_COM from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-=head2 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * COUNTRY2
-
-
-=item * REGION
-
-
-=item * COUNTY
-
-
-=item * CITY
-
-
-=item * POSTALCODE
-
-
-=item * STREET
-
-
-=item * STREETNUMBER
-
-
-=item * GEOCODE
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor. The following data structure may be passed to new():
-
- { # BarnetTypes::BAPI_TTET_ADDRESS_COM
-   COUNTRY2 => $some_value, # char2
-   REGION => $some_value, # char3
-   COUNTY => $some_value, # char30
-   CITY => $some_value, # char30
-   POSTALCODE => $some_value, # char10
-   STREET => $some_value, # char30
-   STREETNUMBER => $some_value, # char5
-   GEOCODE => $some_value, # char32
- },
-
-
-
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/CRMT_SERVICE_REQUEST_TEXT.pm b/perllib/BarnetTypes/CRMT_SERVICE_REQUEST_TEXT.pm
deleted file mode 100644
index 39e2ad1ce..000000000
--- a/perllib/BarnetTypes/CRMT_SERVICE_REQUEST_TEXT.pm
+++ /dev/null
@@ -1,102 +0,0 @@
-package BarnetTypes::CRMT_SERVICE_REQUEST_TEXT;
-use strict;
-use warnings;
-
-
-__PACKAGE__->_set_element_form_qualified(0);
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' };
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %TEXT_LINE_of :ATTR(:get<TEXT_LINE>);
-
-__PACKAGE__->_factory(
-    [ qw(        TEXT_LINE
-
-    ) ],
-    {
-        'TEXT_LINE' => \%TEXT_LINE_of,
-    },
-    {
-        'TEXT_LINE' => 'BarnetTypes::char132',
-    },
-    {
-
-        'TEXT_LINE' => 'TEXT_LINE',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetTypes::CRMT_SERVICE_REQUEST_TEXT
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined complexType
-CRMT_SERVICE_REQUEST_TEXT from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-=head2 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * TEXT_LINE
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor. The following data structure may be passed to new():
-
- { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT
-   TEXT_LINE => $some_value, # char132
- },
-
-
-
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/RfcException/Message.pm b/perllib/BarnetTypes/RfcException/Message.pm
deleted file mode 100644
index 71b94bf7c..000000000
--- a/perllib/BarnetTypes/RfcException/Message.pm
+++ /dev/null
@@ -1,111 +0,0 @@
-package BarnetTypes::RfcException::Message;
-use strict;
-use warnings;
-
-
-__PACKAGE__->_set_element_form_qualified(0);
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' };
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %ID_of :ATTR(:get<ID>);
-my %Number_of :ATTR(:get<Number>);
-
-__PACKAGE__->_factory(
-    [ qw(        ID
-        Number
-
-    ) ],
-    {
-        'ID' => \%ID_of,
-        'Number' => \%Number_of,
-    },
-    {
-        'ID' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-        'Number' => 'BarnetTypes::RfcException::Message::Number',
-    },
-    {
-
-        'ID' => 'ID',
-        'Number' => 'Number',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetTypes::RfcException::Message
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined complexType
-RfcException.Message from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-=head2 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * ID
-
-
-=item * Number
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor. The following data structure may be passed to new():
-
- { # BarnetTypes::RfcException::Message
-   ID =>  $some_value, # string
-   Number => $some_value, # RfcException.Message.Number
- },
-
-
-
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/RfcException/Message/Number.pm b/perllib/BarnetTypes/RfcException/Message/Number.pm
deleted file mode 100644
index 9353df454..000000000
--- a/perllib/BarnetTypes/RfcException/Message/Number.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::RfcException::Message::Number;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-RfcException.Message.Number from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/TABLE_OF_BAPIRET2.pm b/perllib/BarnetTypes/TABLE_OF_BAPIRET2.pm
deleted file mode 100644
index c248bc907..000000000
--- a/perllib/BarnetTypes/TABLE_OF_BAPIRET2.pm
+++ /dev/null
@@ -1,117 +0,0 @@
-package BarnetTypes::TABLE_OF_BAPIRET2;
-use strict;
-use warnings;
-
-
-__PACKAGE__->_set_element_form_qualified(0);
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' };
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %item_of :ATTR(:get<item>);
-
-__PACKAGE__->_factory(
-    [ qw(        item
-
-    ) ],
-    {
-        'item' => \%item_of,
-    },
-    {
-        'item' => 'BarnetTypes::BAPIRET2',
-    },
-    {
-
-        'item' => 'item',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetTypes::TABLE_OF_BAPIRET2
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined complexType
-TABLE_OF_BAPIRET2 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-=head2 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * item
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor. The following data structure may be passed to new():
-
- { # BarnetTypes::TABLE_OF_BAPIRET2
-   item =>  { # BarnetTypes::BAPIRET2
-     TYPE => $some_value, # char1
-     ID => $some_value, # char20
-     NUMBER => $some_value, # numeric3
-     MESSAGE => $some_value, # char220
-     LOG_NO => $some_value, # char20
-     LOG_MSG_NO => $some_value, # numeric6
-     MESSAGE_V1 => $some_value, # char50
-     MESSAGE_V2 => $some_value, # char50
-     MESSAGE_V3 => $some_value, # char50
-     MESSAGE_V4 => $some_value, # char50
-     PARAMETER => $some_value, # char32
-     ROW =>  $some_value, # int
-     FIELD => $some_value, # char30
-     SYSTEM => $some_value, # char10
-   },
- },
-
-
-
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/TABLE_OF_CRMT_SERVICE_REQUEST_TEXT.pm b/perllib/BarnetTypes/TABLE_OF_CRMT_SERVICE_REQUEST_TEXT.pm
deleted file mode 100644
index 62eb7b774..000000000
--- a/perllib/BarnetTypes/TABLE_OF_CRMT_SERVICE_REQUEST_TEXT.pm
+++ /dev/null
@@ -1,104 +0,0 @@
-package BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT;
-use strict;
-use warnings;
-
-
-__PACKAGE__->_set_element_form_qualified(0);
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' };
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %item_of :ATTR(:get<item>);
-
-__PACKAGE__->_factory(
-    [ qw(        item
-
-    ) ],
-    {
-        'item' => \%item_of,
-    },
-    {
-        'item' => 'BarnetTypes::CRMT_SERVICE_REQUEST_TEXT',
-    },
-    {
-
-        'item' => 'item',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined complexType
-TABLE_OF_CRMT_SERVICE_REQUEST_TEXT from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-=head2 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * item
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor. The following data structure may be passed to new():
-
- { # BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT
-   item =>  { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT
-     TEXT_LINE => $some_value, # char132
-   },
- },
-
-
-
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcException.pm b/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcException.pm
deleted file mode 100644
index 8d04adf53..000000000
--- a/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcException.pm
+++ /dev/null
@@ -1,123 +0,0 @@
-package BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException;
-use strict;
-use warnings;
-
-
-__PACKAGE__->_set_element_form_qualified(0);
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' };
-
-our $XML_ATTRIBUTE_CLASS;
-undef $XML_ATTRIBUTE_CLASS;
-
-sub __get_attr_class {
-    return $XML_ATTRIBUTE_CLASS;
-}
-
-use Class::Std::Fast::Storable constructor => 'none';
-use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
-
-Class::Std::initialize();
-
-{ # BLOCK to scope variables
-
-my %Name_of :ATTR(:get<Name>);
-my %Text_of :ATTR(:get<Text>);
-my %Message_of :ATTR(:get<Message>);
-
-__PACKAGE__->_factory(
-    [ qw(        Name
-        Text
-        Message
-
-    ) ],
-    {
-        'Name' => \%Name_of,
-        'Text' => \%Text_of,
-        'Message' => \%Message_of,
-    },
-    {
-        'Name' => 'BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcExceptions',
-        'Text' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-        'Message' => 'BarnetTypes::RfcException::Message',
-    },
-    {
-
-        'Name' => 'Name',
-        'Text' => 'Text',
-        'Message' => 'Message',
-    }
-);
-
-} # end BLOCK
-
-
-
-
-
-
-
-1;
-
-
-=pod
-
-=head1 NAME
-
-BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined complexType
-Z_CRM_SERVICE_ORDER_CREATE.RfcException from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-
-=head2 PROPERTIES
-
-The following properties may be accessed using get_PROPERTY / set_PROPERTY
-methods:
-
-=over
-
-=item * Name
-
-
-=item * Text
-
-
-=item * Message
-
-
-
-
-=back
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor. The following data structure may be passed to new():
-
- { # BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException
-   Name => $some_value, # Z_CRM_SERVICE_ORDER_CREATE.RfcExceptions
-   Text =>  $some_value, # string
-   Message =>  { # BarnetTypes::RfcException::Message
-     ID =>  $some_value, # string
-     Number => $some_value, # RfcException.Message.Number
-   },
- },
-
-
-
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcExceptions.pm b/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcExceptions.pm
deleted file mode 100644
index ffc2237bc..000000000
--- a/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcExceptions.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcExceptions;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-Z_CRM_SERVICE_ORDER_CREATE.RfcExceptions from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char1.pm b/perllib/BarnetTypes/char1.pm
deleted file mode 100644
index d0bab8e5e..000000000
--- a/perllib/BarnetTypes/char1.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char1;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char1 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char10.pm b/perllib/BarnetTypes/char10.pm
deleted file mode 100644
index 6ff454e4b..000000000
--- a/perllib/BarnetTypes/char10.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char10;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char10 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char132.pm b/perllib/BarnetTypes/char132.pm
deleted file mode 100644
index 46a41077b..000000000
--- a/perllib/BarnetTypes/char132.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char132;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char132 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char2.pm b/perllib/BarnetTypes/char2.pm
deleted file mode 100644
index 35c476fbe..000000000
--- a/perllib/BarnetTypes/char2.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char2;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char2 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char20.pm b/perllib/BarnetTypes/char20.pm
deleted file mode 100644
index 1c2df092a..000000000
--- a/perllib/BarnetTypes/char20.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char20;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char20 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char220.pm b/perllib/BarnetTypes/char220.pm
deleted file mode 100644
index 7ccde81f8..000000000
--- a/perllib/BarnetTypes/char220.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char220;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char220 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char241.pm b/perllib/BarnetTypes/char241.pm
deleted file mode 100644
index e6567554f..000000000
--- a/perllib/BarnetTypes/char241.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char241;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char241 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char3.pm b/perllib/BarnetTypes/char3.pm
deleted file mode 100644
index f9d001cda..000000000
--- a/perllib/BarnetTypes/char3.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char3;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char3 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char30.pm b/perllib/BarnetTypes/char30.pm
deleted file mode 100644
index 91d98eb30..000000000
--- a/perllib/BarnetTypes/char30.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char30;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char30 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char32.pm b/perllib/BarnetTypes/char32.pm
deleted file mode 100644
index c5efdaabd..000000000
--- a/perllib/BarnetTypes/char32.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char32;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char32 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char35.pm b/perllib/BarnetTypes/char35.pm
deleted file mode 100644
index 40aef3d7a..000000000
--- a/perllib/BarnetTypes/char35.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char35;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char35 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char40.pm b/perllib/BarnetTypes/char40.pm
deleted file mode 100644
index 4402875c1..000000000
--- a/perllib/BarnetTypes/char40.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char40;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char40 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char5.pm b/perllib/BarnetTypes/char5.pm
deleted file mode 100644
index fed108437..000000000
--- a/perllib/BarnetTypes/char5.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char5;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char5 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/char50.pm b/perllib/BarnetTypes/char50.pm
deleted file mode 100644
index 34e5720d1..000000000
--- a/perllib/BarnetTypes/char50.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::char50;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-char50 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/numeric3.pm b/perllib/BarnetTypes/numeric3.pm
deleted file mode 100644
index c473d2866..000000000
--- a/perllib/BarnetTypes/numeric3.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::numeric3;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-numeric3 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/BarnetTypes/numeric6.pm b/perllib/BarnetTypes/numeric6.pm
deleted file mode 100644
index b5438c1aa..000000000
--- a/perllib/BarnetTypes/numeric6.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package BarnetTypes::numeric6;
-use strict;
-use warnings;
-
-sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'};
-
-# derivation by restriction
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::string);
-
-
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-
-
-=head1 DESCRIPTION
-
-Perl data type class for the XML Schema defined simpleType
-numeric6 from the namespace urn:sap-com:document:sap:rfc:functions.
-
-
-
-
-
-This clase is derived from 
-   SOAP::WSDL::XSD::Typelib::Builtin::string
-. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
-like it's base type.
-
-# Description of restrictions not implemented yet.
-
-
-=head1 METHODS
-
-=head2 new
-
-Constructor.
-
-=head2 get_value / set_value
-
-Getter and setter for the simpleType's value.
-
-=head1 OVERLOADING
-
-Depending on the simple type's base type, the following operations are overloaded
-
- Stringification
- Numerification
- Boolification
-
-Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
-
-=head1 AUTHOR
-
-Generated by SOAP::WSDL
-
-=cut
-
diff --git a/perllib/FixMyStreet/DB/Result/Problem.pm b/perllib/FixMyStreet/DB/Result/Problem.pm
index 88794ee52..9706087aa 100644
--- a/perllib/FixMyStreet/DB/Result/Problem.pm
+++ b/perllib/FixMyStreet/DB/Result/Problem.pm
@@ -637,16 +637,13 @@ sub body {
     return $body;
 }
 
-# returns true if the external id is the council's ref, i.e., useful to publish it
-# (by way of an example, the barnet send method returns a useful reference when
-# it succeeds, so that is the ref we should show on the problem report page).
+# returns true if the external id is the council's ref, i.e., useful to publish it.
 #     Future: this is installation-dependent so maybe should be using the contact
 #             data to determine if the external id is public on a council-by-council basis.
 #     Note:   this only makes sense when called on a problem that has been sent!
 sub can_display_external_id {
     my $self = shift;
-    if ($self->external_id && $self->send_method_used && 
-        ($self->send_method_used eq 'barnet' || $self->bodies_str =~ /2237/)) {
+    if ($self->external_id && $self->send_method_used && $self->bodies_str =~ /2237/) {
         return 1;
     }
     return 0;    
diff --git a/perllib/FixMyStreet/SendReport/Barnet.pm b/perllib/FixMyStreet/SendReport/Barnet.pm
deleted file mode 100644
index 07adb4c33..000000000
--- a/perllib/FixMyStreet/SendReport/Barnet.pm
+++ /dev/null
@@ -1,208 +0,0 @@
-package FixMyStreet::SendReport::Barnet;
-
-use Moose;
-
-BEGIN { extends 'FixMyStreet::SendReport'; }
-
-use Encode;
-use Utils;
-use mySociety::Config;
-use mySociety::Web qw(ent);
-
-# specific council numbers
-use constant COUNCIL_ID_BARNET     => 2489;
-use constant MAX_LINE_LENGTH       => 132;
-
-sub construct_message {
-    my %h = @_;
-    my $message = <<EOF;
-Subject: $h{title}
-
-Details: $h{detail}
-
-$h{fuzzy}, or to provide an update on the problem, please visit the following link:
-
-$h{url}
-
-$h{closest_address}
-EOF
-}
-
-
-sub send {
-    my ( $self, $row, $h ) = @_;
-
-    my %h = %$h;
-
-    $h{message} = construct_message(%h);
-
-    my $return = 1;
-    my $err_msg = "";
-
-    my $default_kbid = 14; # This is the default, "Street Scene"
-    my $kbid = sprintf( "%050d",  Utils::barnet_categories()->{$h{category}} || $default_kbid);
-
-    my $geo_code = "$h{easting} $h{northing}"; 
-
-    require BarnetInterfaces::service::ZLBB_SERVICE_ORDER;
-    my $interface = BarnetInterfaces::service::ZLBB_SERVICE_ORDER->new();
-    
-    my ($nearest_postcode, $nearest_street) = ('', '');
-    for ($h{closest_address}) {
-        $nearest_postcode = sprintf("%-10s", $1) if /Nearest postcode [^:]+: ((\w{1,4}\s?\w+|\w+))/;
-        # use partial postcode or comma as delimiter, strip leading number (possible letter 221B) off too
-        #    "99 Foo Street, London N11 1XX" becomes Foo Street
-        #    "99 Foo Street N11 1XX" becomes Foo Street
-        $nearest_street = $1 if /Nearest road [^:]+: (?:\d+\w? )?(.*?)(\b[A-Z]+\d|,|$)/m;
-    }
-    my $postcode = mySociety::PostcodeUtil::is_valid_postcode($h{query})
-        ? $h{query} : $nearest_postcode; # use given postcode if available
-    
-    # note: endpoint can be of form 'https://username:password@url'
-    my $body = FixMyStreet::App->model("DB::Body")->search( { 'body_areas.area_id' => COUNCIL_ID_BARNET }, { join => "body_areas" } )->first;
-    if ($body and $body->endpoint) {
-        $interface->set_proxy($body->endpoint);
-        # Barnet web service doesn't like namespaces in the elements so use a prefix
-        $interface->set_prefix('urn');
-        # uncomment these lines to print XML that will be sent rather
-        # than connecting to the endpoint
-        #$interface->outputxml(1);
-        #$interface->no_dispatch(1);
-    } else {
-        die "Barnet webservice FAIL: looks like you're missing some config data: no endpoint (URL) found for area ID " . COUNCIL_ID_BARNET;
-    }
-    
-    eval {    
-        my $result = $interface->Z_CRM_SERVICE_ORDER_CREATE( {
-            ET_RETURN =>  { # ignored by server
-              item =>  {
-                  TYPE => "", ID => "", NUMBER => "", MESSAGE => "", LOG_NO => "", LOG_MSG_NO => "", 
-                  MESSAGE_V1 => "", MESSAGE_V2 => "", MESSAGE_V3 => "", MESSAGE_V4 => "", PARAMETER => "", 
-                  ROW =>  "", FIELD => "", SYSTEM => "",
-                },
-            },
-            IT_PROBLEM_DESC =>  { # MyTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT
-              item =>  [ # MyTypes::CRMT_SERVICE_REQUEST_TEXT
-                map { { TEXT_LINE => $_ } } split_text_with_entities(ent(encode_utf8($h{message})), 132) # char132
-              ],
-            },
-            IV_CUST_EMAIL => truncate_string_with_entities(ent(encode_utf8($h{email})), 241), # char241
-            IV_CUST_NAME  => truncate_string_with_entities(ent(encode_utf8($h{name})),   50), # char50
-            IV_KBID => $kbid,        # char50
-            IV_PROBLEM_ID => $h{id}, # char35
-            IV_PROBLEM_LOC =>  {     # MyTypes::BAPI_TTET_ADDRESS_COM
-              COUNTRY2 => 'GB',      # char2
-              REGION => "",          # char3
-              COUNTY => "",          # char30
-              CITY => "",            # char30
-              POSTALCODE => $postcode,   # char10
-              STREET => truncate_string_with_entities(ent(encode_utf8($nearest_street)), 30), # char30
-              STREETNUMBER => "",    # char5
-              GEOCODE => $geo_code,  # char32
-            },
-            IV_PROBLEM_SUB => truncate_string_with_entities(ent(encode_utf8($h{title})), 40), # char40
-          },
-        );
-        if ($result) {
-            # currently not using this: get_EV_ORDER_GUID (maybe that's the customer number in the CRM)
-            if (my $barnet_id = $result->get_EV_ORDER_NO()) {
-                $row->external_id( $barnet_id );
-                $row->external_body( 'Barnet Borough Council' ); # better to use $row->body()?
-                $row->send_method_used('barnet');
-                $return = 0;
-            } else {
-                my @returned_items = split  /<item[^>]*>/, $result->get_ET_RETURN;
-                my @messages = ();
-                foreach my $item (@returned_items) {
-                    if ($item=~/<MESSAGE [^>]*>\s*(\S.*?)<\/MESSAGE>/) { # if there's a non-null MESSAGE in there, grab it
-                        push @messages, $1;  # best stab at extracting useful error message back from convoluted response
-                    }
-                }
-                push @messages, "service returned no external id" unless @messages;
-                $err_msg = "Failed (problem id $h{id}): " . join(" \n ", @messages);
-            }
-        } else {
-            my %fault = (
-                    'code' =>  $result->get_faultcode(),
-                    'actor' =>  $result->get_faultactor(),
-                    'string' =>  $result->get_faultstring(),
-                    'detail' =>  $result->get_detail(), # possibly only contains debug info
-                );
-            foreach (keys %fault) {
-                $fault{$_}="" unless defined $fault{$_};
-                $fault{$_}=~s/^\s*|\s*$//g;
-            }
-            $fault{actor}&&=" (actor: $fault{actor})";
-            $fault{'detail'} &&= "\n" . $fault{'detail'};
-            $err_msg = "Failed (problem id $h{id}): Fault $fault{code}$fault{actor}\n$fault{string}$fault{detail}";
-        }
-
-    };
-    if ($err_msg) {
-        # for timeouts, we can tidy the message a wee bit (i.e. strip the 'error deserializing...' message)
-        $err_msg=~s/(?:Error deserializing message:.*)(Can't connect to [a-zA-Z0-9.:]+\s*\(Connection timed out\)).*/$1/s;
-        print "$err_msg\n";
-    }
-    if ($@) {
-        my $e = shift;
-        print "Caught an error: $@\n"; 
-    }
-    if ( $return ) {
-        $self->error( "Error sending to Barnet: $err_msg" );
-    }
-    $self->success( !$return );
-    return $return;
-}
-
-# for barnet webservice: max-length fields require truncate and split
-
-# truncate_string_with_entities
-# args:    text to truncate
-#          max number of chars
-# returns: string truncated
-# Note: must not partially truncate an entity (e.g., &amp;)
-sub truncate_string_with_entities {
-    my ($str, $max_len) = @_;
-    my $retVal = "";
-    foreach my $chunk  (split /(\&(?:\#\d+|\w+);)/, $str) {
-        if ($chunk=~/^\&(\#\d+|\w+);$/){
-            my $next = $retVal.$chunk;
-            last if length $next > $max_len;
-            $retVal=$next
-        } else {
-            $retVal.=$chunk;
-            if (length $retVal > $max_len) {
-                $retVal = substr($retVal, 0, $max_len);
-                last
-            }
-        } 
-    }
-    return $retVal
-}
-
-# split_text_with_entities into lines
-# args:    text to be broken into lines
-#          max length (option: uses constant MAX_LINE_LENGTH)
-# returns: array of lines
-# Must not to split an entity (e.g., &amp;)
-# Not worrying about hyphenating here, since a word is only ever split if 
-# it's longer than the whole line, which is uncommon in genuine problem reports
-sub split_text_with_entities {
-    my ($text, $max_line_length) = @_;
-    $max_line_length ||= MAX_LINE_LENGTH;
-    my @lines;
-    foreach my $line (split "\n", $text) {
-        while (length $line > $max_line_length) {
-            if (! ($line =~ s/^(.{1,$max_line_length})\s//                 # break on a space
-                or $line =~ s/^(.{1,$max_line_length})(\&(\#\d+|\w+);)/$2/ # break before an entity
-                or $line =~ s/(.{$max_line_length})//)) {                  # break the word ruthlessly
-                $line =~ s/(.*)//; # otherwise gobble whole line (which is now shorter than max length)
-            }
-            push @lines, $1;
-        }
-        push @lines, $line;
-    }
-    return @lines;
-}
-
-1;
diff --git a/perllib/Utils.pm b/perllib/Utils.pm
index 21a7311f2..87c1a10d6 100644
--- a/perllib/Utils.pm
+++ b/perllib/Utils.pm
@@ -91,37 +91,6 @@ sub truncate_coordinate {
     return $out;
 }
 
-sub barnet_categories {
-    # The values here are KBIDs from Barnet's system: see bin/send-reports for formatting.
-    # They are no longer used since Barnet switched to email for delivery of problem reports.
-    # and can be removed when SendReport/Barnet.pm is removed.
-    if (mySociety::Config::get('STAGING_SITE')) { # note staging site must use different KBIDs
-        return {
-             'Street scene misc'        => 14 # for test
-        }
-    } else {
-        return {
-            'Accumulated Litter'        => 349,
-            'Dog Bin'                   => 203,
-            'Dog Fouling'               => 288,
-            'Drain or Gully'            => 256,
-            'Fly Posting'               => 465,
-            'Fly Tipping'               => 449,
-            'Graffiti'                  => 292,
-            'Gritting'                  => 200,
-            'Highways'                  => 186,
-            'Litter Bin Overflowing'    => 205,
-            'Manhole Cover'             => 417,
-            'Overhanging Foliage'       => 421,
-            'Pavement Damaged/Cracked'  => 195,
-            'Pothole'                   => 204,
-            'Road Sign'                 => 80,
-            'Roadworks'                 => 246,
-            'Street Lighting'           => 251,
-        };
-    }
-}
-
 =head2 trim_text
 
     my $text = trim_text( $text_to_trim );