[ljcom] r11794: LJSUP-11858: Vkontakte integration

U   trunk/htdocs/manage/settings/vkontakte.bml

Modified: trunk/htdocs/manage/settings/vkontakte.bml
===================================================================
--- trunk/htdocs/manage/settings/vkontakte.bml	2012-04-25 12:11:49 UTC (rev 11793)
+++ trunk/htdocs/manage/settings/vkontakte.bml	2012-04-25 12:19:28 UTC (rev 11794)
@@ -84,7 +84,7 @@
         $u->set_prop( 'vkontakte_link'         => $link );
 
         my $sys_uid   = LJ::get_userid("system");
-        LJ::statushistory_add($u->userid, $sys_uid, 'vk_connect', 'User is connected to vk successful');
+        LJ::statushistory_add($u->userid, $sys_uid, 'vk_connect', "User is connected to vk successful ${link}id$vkuid");
 
         return LJ::Request->redirect($settings_page);
     } else {
@@ -96,12 +96,14 @@
                 'auth_token' => LJ::Request->get_param('auth_token'),
             );
 
+        my $link  = $u->prop('vkontakte_link');
+        my $vkuid = $u->prop('vkontakte_userid');
         $u->clear_prop($_)
             foreach qw( vkontakte_userid vkontakte_access_token
                         vkontakte_name vkontakte_link );
 
         my $sys_uid   = LJ::get_userid("system");
-        LJ::statushistory_add($u->userid, $sys_uid, 'vk_connect', 'User is disconnected from vkontakte');
+        LJ::statushistory_add($u->userid, $sys_uid, 'vk_connect', "User is disconnected from vkontakte ${link}id$vkuid");
 
         return LJ::Request->redirect($settings_page);
     }