use strict;
use utf8;
-use YAML;
-
use parent qw(SL::DBUpgrade2::Base);
use SL::DBUtils;
+use SL::YAML;
sub prepare_statements {
my ($self) = @_;
$self->{h_draft}->execute('ar') || die $self->{h_draft}->errstr;
while (my $draft_record = $self->{h_draft}->fetchrow_hashref) {
- my $draft = YAML::Load($draft_record->{form});
+ my $draft = SL::YAML::Load($draft_record->{form});
my $currency_id = $self->{currency_ids_by_name}->{$draft->{currency}};
my $employee_id = $draft_record->{employee_id} || $draft->{employee_id} || (split m{--}, $draft->{employee})[1] || undef;
$self->{h_draft}->execute('ap') || die $self->{h_draft}->errstr;
while (my $draft_record = $self->{h_draft}->fetchrow_hashref) {
- my $draft = YAML::Load($draft_record->{form});
+ my $draft = SL::YAML::Load($draft_record->{form});
my $currency_id = $self->{currency_ids_by_name}->{$draft->{currency}};
my $employee_id = $draft_record->{employee_id} || $draft->{employee_id} || (split m{--}, $draft->{employee})[1] || undef;
$self->{h_draft}->execute('gl') || die $self->{h_draft}->errstr;
while (my $draft_record = $self->{h_draft}->fetchrow_hashref) {
- my $draft = YAML::Load($draft_record->{form});
+ my $draft = SL::YAML::Load($draft_record->{form});
my $employee_id = $draft_record->{employee_id} || $draft->{employee_id} || (split m{--}, $draft->{employee})[1] || undef;
my @values = (