Index: trunk/kernel/units/languages/languages_item.php
===================================================================
diff -u -r1566 -r4169
--- trunk/kernel/units/languages/languages_item.php	(.../languages_item.php)	(revision 1566)
+++ trunk/kernel/units/languages/languages_item.php	(.../languages_item.php)	(revision 4169)
@@ -7,6 +7,20 @@
 			$sql = 'SELECT MAX('.$this->IDField.') FROM '.kTempTablesHandler::GetLiveName($this->TableName);
 			return $this->Conn->GetOne($sql) + 1;
 		}
+		
+		function setPrimary($reset_primary = true)
+		{
+			if ($reset_primary) {
+				$sql = 'UPDATE '.$this->TableName.'
+						SET PrimaryLang = 0';
+				$this->Conn->Query($sql);
+			}
+			
+			$sql = 'UPDATE '.$this->TableName.'
+					SET PrimaryLang = 1, Enabled = 1
+					WHERE '.$this->IDField.' = '.$this->GetID();
+			$this->Conn->Query($sql);				
+		}
 	}
 
 ?>
\ No newline at end of file