jj

app/DpmaXmlParser/DPMAConnectPatents.vb

@@ -17,25 +17,6 @@ Public Class DPMAConnectPatents
         _service.Open()
     End Sub
 
-    Public Function SearchPatents(query As String) As XmlDocument
-        Dim doc As New XmlDocument()
-        Dim xmlstring As String
-
-        Try
-            xmlstring = _service.search(_user, _pass, query)
-            doc.LoadXml(xmlstring)
-
-            Dim ErrorMessage = doc.SelectSingleNode("Hitlist/ErrorMessage")
-            If Not IsNothing(ErrorMessage) Then
-                Throw New Exception(ErrorMessage.InnerText)
-            End If
-        Catch ex As Exception
-            Throw ex
-        End Try
-
-        Return doc
-    End Function
-
     Public Function Search(query As String) As XmlDocument
         Dim doc As New XmlDocument()
         Dim xmlstring As String