# Copyright (c) 2007-2010 bivio Software, Inc.  All Rights Reserved.
#
# Visit http://www.bivio.biz for more info.
# 
# This library is free software; you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as
# published by the Free Software Foundation; either version 2.1 of the
# License, or (at your option) any later version.
# 
# This library is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
# 
# You should have received a copy of the GNU Lesser General Public
# License along with this library;  If not, you may get a copy from:
# http://www.opensource.org/licenses/lgpl-license.html
# 
# $Id: FormModel.bunit,v 1.4 2010/03/03 23:47:17 nagler Exp $
FormModel({
    class_name => 'Model.UserLoginForm',
    setup_request => sub {
	my($params) = shift->get('params');
	req()->initialize_fully(shift(@$params));
	return;
    },
});
[
    [LOGIN => {
	login => 'no such user',
	'RealmOwner.password' => 'no match',
    }] => sub {
	return [0];
    },
    [FORM_MODEL_BUNIT_LOGIN => {
	login => 'no such user',
	'RealmOwner.password' => 'no match',
    }] => sub {
	return [{
	    method => 'server_redirect',
	    task_id => 'SITE_ROOT',
	    path_info => undef,
	    query => undef,
	}];
    },
    get_visible_non_button_names => [
	[] => [[qw(RealmOwner.password login)]],
    ],
];