SL/Drafts.pm

   1 #======================================================================
   2 # LX-Office ERP
   3 #
   4 #======================================================================
   5 #
   6 # Saving and loading drafts
   7 #
   8 #======================================================================
   9
  10 package Drafts;
  11
  12 use YAML;
  13
  14 use SL::Common;
  15 use SL::DBUtils;
  16
  17 sub get_module {
  18   $main::lxdebug->enter_sub();
  19
  20   my ($self, $form) = @_;
  21
  22   my ($module, $submodule);
  23
  24   $module = $form->{"script"};
  25   $module =~ s/\.pl$//;
  26   if (grep({ $module eq $_ } qw(is ir ar ap))) {
  27     $submodule = "invoice";
  28   } else {
  29     $submodule = "unknown";
  30   }
  31
  32   $main::lxdebug->leave_sub();
  33
  34   return ($module, $submodule);
  35 }
  36
  37 sub save {
  38   $main::lxdebug->enter_sub();
  39
  40   my ($self, $myconfig, $form, $draft_id, $draft_description) = @_;
  41
  42   my ($dbh, $sth, $query, %saved, @dont_save, $dumped);
  43
  44   $dbh = $form->dbconnect_noauto($myconfig);
  45
  46   my ($module, $submodule) = $self->get_module($form);
  47
  48   $query = "SELECT COUNT(*) FROM drafts WHERE id = ?";
  49   my ($res) = selectrow_query($form, $dbh, $query, $draft_id);
  50   if (!$res) {
  51     $draft_id = $module . "-" . $submodule . "-" . Common::unique_id();
  52     $query = "INSERT INTO drafts (id, module, submodule) VALUES (?, ?, ?)";
  53     do_query($form, $dbh, $query, $draft_id, $module, $submodule);
  54   }
  55
  56   @dont_save = qw(login password action);
  57   map({ $saved{$_} = $form->{$_};
  58         delete($form->{$_}); } @dont_save);
  59   $dumped = YAML::Dump($form);
  60   map({ $form->{$_} = $saved{$_}; } @dont_save);
  61
  62   $query =
  63     qq|UPDATE drafts SET description = ?, form = ?, employee_id = | .
  64     qq|  (SELECT id FROM employee WHERE login = ?) | .
  65     qq|WHERE id = ?|;
  66
  67   do_query($form, $dbh, $query, $draft_description, $dumped,
  68            $form->{login}, $draft_id);
  69
  70   $dbh->commit();
  71   $dbh->disconnect();
  72
  73   $form->{draft_id} = $draft_id;
  74   $form->{draft_description} = $draft_description;
  75
  76   $main::lxdebug->leave_sub();
  77 }
  78
  79 sub load {
  80   $main::lxdebug->enter_sub();
  81
  82   my ($self, $myconfig, $form, $draft_id) = @_;
  83
  84   my ($dbh, $sth, $query, @values);
  85
  86   $dbh = $form->dbconnect($myconfig);
  87
  88   $query = qq|SELECT id, description, form FROM drafts WHERE id = ?|;
  89
  90   $sth = $dbh->prepare($query);
  91   $sth->execute($draft_id) || $form->dberror("$query ($draft_id)");
  92
  93   my @values;
  94   if (my $ref = $sth->fetchrow_hashref()) {
  95     @values = ($ref->{form}, $ref->{id}, $ref->{description});
  96   }
  97   $sth->finish();
  98
  99 #  do_query($form, $dbh, "DELETE FROM drafts WHERE id = ?", $draft_id);
 100
 101   $dbh->disconnect();
 102
 103   $main::lxdebug->leave_sub();
 104
 105   return @values;
 106 }
 107
 108 sub remove {
 109   $main::lxdebug->enter_sub();
 110
 111   my ($self, $myconfig, $form, @draft_ids) = @_;
 112
 113   return $main::lxdebug->leave_sub() unless (@draft_ids);
 114
 115   my ($dbh, $sth, $query);
 116
 117   $dbh = $form->dbconnect($myconfig);
 118
 119   $query = qq|DELETE FROM drafts WHERE id IN (| .
 120     join(", ", map({ "?" } @draft_ids)) . qq|)|;
 121   do_query($form, $dbh, $query, @draft_ids);
 122
 123   $dbh->disconnect();
 124
 125   $main::lxdebug->leave_sub();
 126 }
 127
 128 sub list {
 129   $main::lxdebug->enter_sub();
 130
 131   my ($self, $myconfig, $form) = @_;
 132
 133   my ($dbh, $sth, $query, @values);
 134
 135   $dbh = $form->dbconnect($myconfig);
 136
 137   my ($module, $submodule) = $self->get_module($form);
 138
 139   my @list = ();
 140   $query =
 141     qq|SELECT d.id, d.description, d.itime::timestamp(0) AS itime, | .
 142     qq|  e.name AS employee_name | .
 143     qq|FROM drafts d | .
 144     qq|LEFT JOIN employee e ON d.employee_id = e.id | .
 145     qq|WHERE (d.module = ?) AND (d.submodule = ?) | .
 146     qq|ORDER BY d.itime|;
 147   my @values = ($module, $submodule);
 148
 149   $sth = $dbh->prepare($query);
 150   $sth->execute(@values) ||
 151     $form->dberror($query . " (" . join(", ", @values) . ")");
 152
 153   while (my $ref = $sth->fetchrow_hashref()) {
 154     push(@list, $ref);
 155   }
 156   $sth->finish();
 157
 158   $dbh->disconnect();
 159
 160   $main::lxdebug->leave_sub();
 161
 162   return @list;
 163 }
 164
 165 1;