#--------------------------------------------------------------------------------- sub dialog_common { $dialog{'common'}{'head'} = qq(