From 4933d49c1503d9b55d1bba2fee449722c2349621 Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 20 Feb 2006 02:44:09 +0000 Subject: [PATCH] fixing COPY create method since fieldmapper only has "Essential" columns from CDBI now git-svn-id: svn://svn.open-ils.org/ILS/trunk@3126 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm | 6 +++--- .../OpenILS/Application/Storage/Driver/Pg/storage.pm | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm index ad9cdad316..657d96e971 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm @@ -83,7 +83,7 @@ sub fast_flesh_sth { } my $fm_class = 'Fieldmapper::'.$class; - my $field_list = join ',', $class->columns('All'); + my $field_list = join ',', $class->columns('Essential'); my $sth; if (!$like) { @@ -260,7 +260,7 @@ sub create_from_fieldmapper { my %hash = map { defined $fm->$_ ? ($_ => $fm->$_) : () - } grep { $_ ne $primary } $class->columns('All'); + } grep { $_ ne $primary } $class->columns('Essential'); if ($class->find_column( 'last_xact_id' )) { my $xact_id = $class->current_xact_id; @@ -386,7 +386,7 @@ sub modify_from_fieldmapper { %hash = map { defined $fm->$_ ? ($_ => ''.$fm->$_) : () - } grep { $_ ne $primary } $class->columns('All'); + } grep { $_ ne $primary } $class->columns('Essential'); } else { %hash = %{$fm}; } diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm index 8b19a510ca..58199ec971 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/storage.pm @@ -223,7 +223,7 @@ my $pri = $cdbi->columns('Primary'); - my @cols = grep {$_ ne $pri} $cdbi->columns('All'); + my @cols = grep {$_ ne $pri} $cdbi->columns('Essential'); my $col_list = join ',', @cols; -- 2.43.2