Record numbers of drinkers are flocking to the Theresienwiese fairground despite the soaring cost of beer