print CGI::redirect(-uri=>"login.cgi?msg=$book->{no_access}")
  if $book->{user_access_level} < $book->{required_access_level};