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 / clients / vm_source_proposal.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  1.7 KB  |  80 lines
  1. /**
  2.  * Module:    vm_source_proposal.ycp
  3.  *
  4.  * Authors:    Ladislav Slezak <lslezak@suse.cz>
  5.  *
  6.  * Purpose:     Proposal for installation source configuration
  7.  *
  8.  * $Id: vm_source_proposal.ycp 29389 2006-03-26 05:40:23Z mgfritch $
  9.  *
  10.  */
  11. {
  12.     textdomain "vm";
  13.  
  14.     import "VM";
  15.     import "VM_Common";
  16.     import "HTML";
  17.  
  18.     import "Report";
  19.     Report::DisplayErrors(true, 0);
  20.  
  21.     string func = (string) WFM::Args (0);
  22.     map param = (map) WFM::Args (1);
  23.     map ret = $[];
  24.  
  25.     if ( func == "MakeProposal" )
  26.     {
  27.     boolean force_reset      = param["force_reset"     ]:false;
  28.     boolean language_changed = param["language_changed"]:false;
  29.  
  30.     if (force_reset)
  31.     {
  32.         VM::ResetSource();
  33.     }
  34.  
  35.     ret = $[ "preformatted_proposal" : HTML::List(VM::GetSourceProposal()) ];
  36.  
  37.     map warn = VM::GetSourceProposalWarning();
  38.     if (warn != nil && size(warn) > 0)
  39.     {
  40.         ret = union(ret, warn);
  41.     }
  42.     }
  43.     else if ( func == "AskUser" )
  44.     {
  45.     boolean has_next = param["has_next"]:false;
  46.  
  47.     symbol result = (symbol) WFM::CallFunction ("inst_vm_source",
  48.                             [true, has_next]);
  49.  
  50.     ret = $[ "workflow_sequence" : result ];
  51.     }
  52.     else if ( func == "Description" )
  53.     {
  54.  
  55.     if (VM_Common::proposal_type == "install") {
  56.         ret = $[
  57.             // this is a heading
  58.             "rich_text_title"    : _("Operating System Installation"),
  59.             // this is a menu entry
  60.             "menu_title"        : _("Operating &System Installation"),
  61.             "id"            : "vm_source_stuff"
  62.         ];
  63.     }
  64.     else if (VM::GetVirtualizationType() == "para") {
  65.         ret = $[
  66.             // this is a heading
  67.             "rich_text_title"    : _("Operating System Boot"),
  68.             // this is a menu entry
  69.             "menu_title"        : _("Operating &System Boot"),
  70.             "id"            : "vm_source_stuff"
  71.         ];
  72.     }
  73.     else {
  74.         ret = $[];
  75.     }
  76.     }
  77.  
  78.     return ret;
  79. }
  80.