sub _getoffset {
my ($shelf,$args) = @_;