bin/mozilla/drafts.pl

   1 #======================================================================
   2 # LX-Office ERP
   3 #
   4 #======================================================================
   5 #
   6 # Saving and loading drafts
   7 #
   8 #======================================================================
   9
  10 use SL::Drafts;
  11
  12 require "bin/mozilla/common.pl";
  13
  14 sub save_draft {
  15   $lxdebug->enter_sub();
  16
  17   if (!$form->{draft_id} && !$form->{draft_description}) {
  18     restore_form($form->{SAVED_FORM}, 1) if ($form->{SAVED_FORM});
  19     delete($form->{SAVED_FORM});
  20     $form->{remove_draft} = 1;
  21     $form->{SAVED_FORM} = save_form();
  22
  23     $form->header();
  24     print($form->parse_html_template("drafts/save_new"));
  25     return $lxdebug->leave_sub();
  26   }
  27
  28   my ($draft_id, $draft_description) =
  29     ($form->{draft_id}, $form->{draft_description});
  30
  31   restore_form($form->{SAVED_FORM}, 1);
  32   delete($form->{SAVED_FORM});
  33
  34   Drafts->save(\%myconfig, $form, $draft_id, $draft_description);
  35
  36   $form->{saved_message} = $locale->text("Draft saved.");
  37
  38   update();
  39
  40   $lxdebug->leave_sub();
  41 }
  42
  43 sub remove_draft {
  44   $lxdebug->enter_sub();
  45
  46   Drafts->remove(\%myconfig, $form, $form->{draft_id}) if ($form->{draft_id});
  47
  48   delete($form->{draft_id});
  49   delete($form->{draft_description});
  50
  51   $lxdebug->leave_sub();
  52 }
  53
  54 sub load_draft_maybe {
  55   $lxdebug->enter_sub();
  56
  57   $lxdebug->leave_sub() and return 0 if ($form->{DONT_LOAD_DRAFT});
  58
  59   my ($draft_nextsub) = @_;
  60
  61   my @drafts = Drafts->list(\%myconfig, $form);
  62
  63   $lxdebug->leave_sub() and return 0 unless (@drafts);
  64
  65   $draft_nextsub = "add" unless ($draft_nextsub);
  66
  67   delete($form->{action});
  68   my $saved_form = save_form();
  69
  70   $form->header();
  71   print($form->parse_html_template("drafts/load",
  72                                    { "DRAFTS" => \@drafts,
  73                                      "SAVED_FORM" => $saved_form,
  74                                      "draft_nextsub" => $draft_nextsub }));
  75
  76   $lxdebug->leave_sub();
  77
  78   return 1;
  79 }
  80
  81 sub dont_load_draft {
  82   $lxdebug->enter_sub();
  83
  84   my $draft_nextsub = $form->{draft_nextsub};
  85   $draft_nextsub = "add" unless ($form->{draft_nextsub});
  86   restore_form($form->{SAVED_FORM}, 1);
  87   delete($form->{SAVED_FORM});
  88   delete($form->{action});
  89   $form->{DONT_LOAD_DRAFT} = 1;
  90
  91   call_sub($draft_nextsub);
  92
  93   $lxdebug->leave_sub();
  94 }
  95
  96 sub load_draft {
  97   $lxdebug->enter_sub();
  98
  99   my ($old_form, $id, $description) = Drafts->load(\%myconfig, $form, $form->{id});
 100   if ($old_form) {
 101     restore_form($old_form, 1);
 102     $form->{draft_id} = $id;
 103     $form->{draft_description} = $description;
 104     $form->{remove_draft} = 'checked';
 105   }
 106
 107   update();
 108
 109   $lxdebug->leave_sub();
 110 }
 111
 112 sub delete_drafts {
 113   $lxdebug->enter_sub();
 114
 115   my @ids;
 116   foreach (keys(%{$form})) {
 117     push(@ids, $1) if (/^checked_(.*)/ && $form->{$_});
 118   }
 119   Drafts->remove(\%myconfig, $form, @ids) if (@ids);
 120   restore_form($form->{SAVED_FORM}, 1);
 121   delete($form->{SAVED_FORM});
 122
 123   add();
 124
 125   $lxdebug->leave_sub();
 126 }
 127
 128 sub draft_action_dispatcher {
 129   $lxdebug->enter_sub();
 130
 131   if ($form->{draft_action} eq $locale->text("Skip")) {
 132     dont_load_draft();
 133   } elsif ($form->{draft_action} eq $locale->text("Delete drafts")) {
 134     delete_drafts();
 135   }
 136
 137   $lxdebug->leave_sub();
 138 }
 139
 140 1;