# Copyright (c) 2001-2005 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: source.bview,v 2.3 2009/11/28 02:59:25 nagler Exp $

view_class_map('HTMLWidget');
view_shortcuts('Bivio::PetShop::ViewShortcuts');

my($source_name) = sub {
    my($source) = @_;
    my($req) = $source->get_request;
    return $req->get('query')->{'s'}
	    if $req->get('query') && $req->get('query')->{'s'};
    return '';
};

view_main(Page({
    style => StyleSheet('/f/base.css'),
    head => Title({values => [Join([[$source_name]])]}),
    string_font => 'page_text',
    body => Join([
	Grid([
	    [
		Link(Image('banner2', 'none'), 'MAIN'),
		vs_blank_cell(2),
		String([$source_name], 'page_heading')->put(cell_expand => 1),
	    ],
	], {
	    bgcolor => 'header_background',
	    expand => 1,
	}),
	SourceCode({
	    uri => 'src',
	}),
    ]),
}));