Mailinglist Archive: yast-commit (477 mails)

[jreidinger@xxxxxxxxxxxxxxxx]

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@xxxxxxxxxxxx
For additional commands, e-mail: yast-commit+help@xxxxxxxxxxxx