RT# 33362 - fixed discount_mixin to not throw perl error when trying to discount...