home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / boot / i386 / root / usr / share / YaST2 / modules / CustomDialogs.ycp < prev    next >
Text File  |  2006-11-29  |  2KB  |  59 lines

  1. /**
  2.  * File:    modules/CustomDialogs.ycp
  3.  * Module:    yast2
  4.  * Summary:    Installation mode
  5.  * Authors:    Klaus Kaempf <kkaempf@suse.de>
  6.  *
  7.  * $Id: CustomDialogs.ycp 27936 2006-02-13 20:01:14Z olh $
  8.  *
  9.  */
  10. {
  11.     module "CustomDialogs";
  12.  
  13.     global map load_file_locale (list<string> patterns, string file_path , string language)
  14.     {
  15.         string text = "";
  16.         string file = "";
  17.         integer i = 0;
  18.         while (i < size(patterns))
  19.         {
  20.             string p = patterns[i]:"";
  21.             string tmp = file_path + "/" + p;
  22.             if (!issubstring(p, "%"))
  23.             {
  24.                 y2debug("no pattern");
  25.                 y2debug("checking for %1", tmp );
  26.                 text = (string)SCR::Read (.target.string, [tmp, ""]);
  27.                 if (text != "")
  28.                     break;
  29.                 else
  30.                 {
  31.                     i = i + 1;
  32.                     continue;
  33.                 }
  34.             }
  35.             file = sformat (tmp, language);
  36.             y2debug("checking for %1", file );
  37.             text = (string)SCR::Read (.target.string, [file, ""]);
  38.             if (text != "")
  39.                 break;
  40.  
  41.             file = sformat (tmp, substring (language, 0, 2));
  42.             y2debug("checking for %1", file );
  43.             text = (string)SCR::Read (.target.string, [file, ""]);
  44.             if (text != "")
  45.                 break;
  46.  
  47.             file = sformat (tmp, "en");
  48.             y2debug("checking for %1", file );
  49.             text = (string)SCR::Read (.target.string, [file, ""]);
  50.             if (text != "")
  51.                 break;
  52.             i = i + 1;
  53.         }
  54.         return $["text":text, "file":file];
  55.     }
  56.  
  57.  
  58. }
  59.