Canada 'humiliates' itself as Olympians don 'tents' — presidential adviser