query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { borrowers => 1 }
flagsrequired => { catalogue => 1 }
});
my $shelfname = $input->param('shelfname');
-