Author: jreidinger Date: Thu Jun 11 14:51:23 2009 New Revision: 57536 URL: http://svn.opensuse.org/viewcvs/yast?rev=57536&view=rev Log: complete language YaPI Modified: trunk/country/language/src/YaPI/LANGUAGE.pm Modified: trunk/country/language/src/YaPI/LANGUAGE.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/country/language/src/YaPI/LANGUAGE.pm?rev=57536&r1=57535&r2=57536&view=diff ============================================================================== --- trunk/country/language/src/YaPI/LANGUAGE.pm (original) +++ trunk/country/language/src/YaPI/LANGUAGE.pm Thu Jun 11 14:51:23 2009 @@ -1,7 +1,7 @@ package YaPI::LANGUAGE; use strict; -use YaST::YCP qw(:LOGGING); +use YaST::YCP qw(Boolean); use YaPI; textdomain("language"); @@ -38,7 +38,10 @@ "boolean","string"]; } sub SetCurrentLanguage { -#TODO + my $self = shift; + my $value = shift; + Language->QuickSet($value); + Language->Save(); return 1; } @@ -46,14 +49,18 @@ "boolean"]; } sub IsUTF8 { - return Language->use_utf8; + return Language->GetExpertValues->{"use_utf8"}; } BEGIN{$TYPEINFO{SetUTF8} = ["function", "boolean","boolean"]; } sub SetUTF8 { -#TODO + my $self = shift; + my $value = shift; + my $arg = { "use_utf8" => YaST::YCP::Boolean($value) }; + Language->SetExpertValues($arg); + Language->Save(); return 1; } @@ -61,14 +68,18 @@ "string"]; } sub GetRootLang { - return Language->rootlang; + return Language->GetExpertValues->{"rootlang"}; } BEGIN{$TYPEINFO{SetRootLang} = ["function", "boolean","string"]; } sub SetRootLang { -#TODO + my $self = shift; + my $value = shift; + my $arg = { "rootlang" => $value }; + Language->SetExpertValues($arg); + Language->Save(); return 1; } -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org