# Copyright (c) 2001-2009 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: login.bview,v 2.3 2009/11/28 02:59:01 nagler Exp $ # # Login page # view_parent('menu'); view_put( header_title => 'Sign In', menu_content => Join([ '
', String('Please sign into the bOP Pet Shop Demo', 'page_heading'), '



', Form('UserLoginForm', Grid([ [ vs_form_field('UserLoginForm.login'), ], [ vs_form_field('UserLoginForm.RealmOwner.password'), ], [ vs_blank_cell(), ImageFormButton({ cell_colspan => 2, image => 'submit', field => 'ok_button', alt => 'Submit', }), ], [ vs_blank_cell(), ], [ vs_blank_cell(), Link('New User', 'USER_ACCOUNT_CREATE'), ], [ vs_blank_cell(), Link('Forgot Password?', 'GENERAL_USER_PASSWORD_QUERY'), ], ], { align => 'left', pad => 2, string_font => 'page_text', })), ]), );