use warnings;
use base qw/DBIx::Class::Storage::DBI::MSSQL/;
+use mro 'c3';
+
use List::Util();
sub insert_bulk {
- my ($self, $source, $cols, $data) = @_;
+ my $self = shift;
+ my ($source, $cols, $data) = @_;
my $identity_insert = 0;
$self->dbh->do("SET IDENTITY_INSERT $table ON");
}
- next::method(@_);
+ $self->next::method(@_);
if ($identity_insert) {
my $table = $source->from;
my $self = shift;
my ($op, $extra_bind, $ident, $args) = @_;
+# cast MONEY values properly
+ if ($op eq 'insert' || $op eq 'update') {
+ my $fields = $args->[0];
+ my $col_info = $self->_resolve_column_info($ident, [keys %$fields]);
+
+ for my $col (keys %$fields) {
+ if ($col_info->{$col}{data_type} eq 'money') {
+ my $val = $fields->{$col};
+
+ $fields->{$col} = \['CAST(? AS MONEY)', [ $col => $val ]];
+ }
+ }
+ }
+
my ($sql, $bind) = $self->next::method (@_);
if ($op eq 'insert') {