5 description => "Store actual cost in foreign currency and currency from the invoices",
8 my ($dbh, $out) = @$args{qw(dbh out)};
9 unless ( column_exists('aqorders', 'invoice_unitprice') ) {
12 ADD COLUMN invoice_unitprice decimal(28,6) DEFAULT NULL COMMENT 'the unit price in foreign currency' AFTER estimated_delivery_date
15 say $out "Added column 'aqorders.invoice_unitprice'";
17 unless ( column_exists('aqorders', 'invoice_currency') ) {
20 ADD COLUMN invoice_currency varchar(10) DEFAULT NULL COMMENT 'the currency of the invoice_unitprice' AFTER invoice_unitprice,
21 ADD CONSTRAINT `aqorders_invoice_currency` FOREIGN KEY (`invoice_currency`) REFERENCES `currency` (`currency`) ON DELETE SET NULL ON UPDATE SET NULL
24 say $out "Added column 'aqorders.invoice_currency'";