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_disks_proposal.ycp < prev    next >
Text File  |  2006-11-29  |  2KB  |  71 lines
  1. /**
  2.  * Module:    vm_disks_proposal.ycp
  3.  *
  4.  * Authors:    Ladislav Slezak <lslezak@suse.cz>
  5.  *
  6.  * Purpose:     Proposal for virtual disk configuration
  7.  *
  8.  * $Id: vm_disks_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.     string func = (string) WFM::Args (0);
  19.     map param = (map) WFM::Args (1);
  20.     map ret = $[];
  21.  
  22.     if ( func == "MakeProposal" )
  23.     {
  24.     boolean force_reset      = param["force_reset"     ]:false;
  25.     boolean language_changed = param["language_changed"]:false;
  26.  
  27.  
  28.     if (force_reset)
  29.     {
  30.         VM::ResetDiskConfig();
  31.     }
  32.  
  33.     list<string> tmp = VM::GetDiskProposal();
  34.  
  35.     ret = VM::GetDiskProposalWarning();
  36.     ret = add(ret, "preformatted_proposal", HTML::List(tmp));
  37.     }
  38.     else if ( func == "AskUser" )
  39.     {
  40.     boolean has_next = param["has_next"]:false;
  41.  
  42.     // call some function that displays a user dialog
  43.     // or a sequence of dialogs here:
  44.     //
  45.     // sequence = DummyMod::AskUser( has_next );
  46.  
  47.     symbol result = (symbol) WFM::CallFunction ("inst_vm_disks",
  48.                             [true, has_next]);
  49.  
  50.     // Fill return map
  51.  
  52.     ret = $[ "workflow_sequence" : result ];
  53.     }
  54.     else if ( func == "Description" )
  55.     {
  56.         if (VM_Common::proposal_type == "boot")
  57.             ret = $[];
  58.         else
  59.             ret =
  60.                 $[
  61.                   // this is a heading
  62.                   "rich_text_title"    :    _("Disks"),
  63.                   // this is a menu entry
  64.                  "menu_title"    :    _("&Disks"),
  65.                  "id"        :    "vm_disk_stuff"
  66.                 ];
  67.     }
  68.  
  69.     return ret;
  70. }
  71.