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 |
|