=cut
-use Data::Dumper;
sub quotation_info {
my $p = shift;
'detail_items' => \@items
}
];
- warn Dumper $sections;
return { 'error' => '', 'sections' => $sections }
}
my $error = $quotation->order;
+ $quotation->set('disabled' => 'Y');
+ $error ||= $quotation->replace;
+
return { 'error' => $error };
}