|
Lines 782-795
sub process_quote {
Link Here
|
| 782 |
my $basketno = $added_baskets[$i]; |
782 |
my $basketno = $added_baskets[$i]; |
| 783 |
|
783 |
|
| 784 |
# Check if this basket has a PO number conflict |
784 |
# Check if this basket has a PO number conflict |
| 785 |
if ( exists $baskets_with_po_conflicts{$b} ) { |
785 |
if ( exists $baskets_with_po_conflicts{$basketno} ) { |
| 786 |
my $conflict_info = $baskets_with_po_conflicts{$b}; |
786 |
my $conflict_info = $baskets_with_po_conflicts{$basketno}; |
| 787 |
$logger->warn( "Auto-order blocked for basket $b due to duplicate PO number '" |
787 |
$logger->warn( "Auto-order blocked for basket $basketno due to duplicate PO number '" |
| 788 |
. $conflict_info->{po_number} |
788 |
. $conflict_info->{po_number} |
| 789 |
. "' (existing basket: " |
789 |
. "' (existing basket: " |
| 790 |
. $conflict_info->{existing_basket} |
790 |
. $conflict_info->{existing_basket} |
| 791 |
. ")" ); |
791 |
. ")" ); |
| 792 |
$logger->info("Basket $b remains open due to PO number conflict"); |
792 |
$logger->info("Basket $basketno remains open due to PO number conflict"); |
| 793 |
next; |
793 |
next; |
| 794 |
} |
794 |
} |
| 795 |
|
795 |
|