From 9b1bdfb9c9c80483f6cec3274956c0623542e581 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 18 Sep 2016 09:50:12 +0000
Subject: [PATCH] tvplanit: Fix typo when saving 2nd website specification of
 contact

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5178 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdata.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas
index edd7bda5b..87d37e468 100644
--- a/components/tvplanit/source/vpdata.pas
+++ b/components/tvplanit/source/vpdata.pas
@@ -2212,7 +2212,7 @@ end;
 
 procedure TVpContact.SetWebsite2(Value: String);
 begin
-  if Value <> FWebsite1 then begin
+  if Value <> FWebsite2 then begin
     FWebsite2 := Value;
     Changed := true;
   end;
@@ -2229,7 +2229,7 @@ end;
 procedure TVpContact.SetWebsiteType2(Value: Integer);
 begin
   if Value <> FWebsiteType2 then begin
-    FWebsiteType1 := Value;
+    FWebsiteType2 := Value;
     Changed := true;
   end;
 end;