Author: jreidinger Date: Mon Jun 22 13:32:40 2009 New Revision: 57679 URL: http://svn.opensuse.org/viewcvs/yast?rev=57679&view=rev Log: change YaPI names to conform convences 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=57679&r1=57678&r2=57679&view=diff ============================================================================== --- trunk/country/language/src/YaPI/LANGUAGE.pm (original) +++ trunk/country/language/src/YaPI/LANGUAGE.pm Mon Jun 22 13:32:40 2009 @@ -15,16 +15,16 @@ our %TYPEINFO; -BEGIN{$TYPEINFO{GetSettings} = ["function", +BEGIN{$TYPEINFO{Read} = ["function", ["map","string","any"] ,["map","string","string"]]; } -sub GetSettings { +sub Read { my $self = shift; my $values = shift; my $ret = {}; if ($values->{"languages"} eq "true"){ - my $languages = Language->GetLanguagesMap(0); + $ret->{"languages"} = Language->GetLanguagesMap(0); } if ($values->{"current"} eq "true"){ $ret->{"current"} = Language->language; @@ -39,10 +39,10 @@ return $ret; } -BEGIN{$TYPEINFO{SetSettings} = ["function", +BEGIN{$TYPEINFO{Write} = ["function", "boolean",["map","string","string"]]; } -sub SetSettings { +sub Write { my $self = shift; my $values = shift; if ( defined $values->{"current"}){ -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org