:- module(yaz_admin,
	  [ http_yaz_logout/1
	  ]).

:- use_module(library(http/http_dispatch)).
:- use_module(library(http/http_parameters)).
:- use_module(library(http/html_write)).
:- use_module(library(http/html_head)).
:- use_module(user(user_db)).

:- use_module(library(yaz_util)).
:- use_module(components(yaz_page)).
:- use_module(applications(yaz_home)).
:- use_module(applications(yaz_videos)).
:- use_module(applications(yaz_tags)).

:- http_handler(yaz(logout), http_yaz_logout, []).

%%	http_yaz_logout(+Request)
%
%	Do logout and start at YAZ home page

http_yaz_logout(Request) :-
	(   logged_on(User, _),
	    nonvar(User)
	->  logout(User)
	),
	http_location_by_id(http_yaz_home, Home),
	http_redirect(moved, Home, Request).