# Copyright (c) 2006-2007 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: StandardSubmit.bunit,v 1.7 2008/08/16 04:56:51 nagler Exp $ Widget({ new_params => sub { my($case, $params) = @_; my($f) = shift(@$params); $case->put('the_form', $f); return [@$params ? shift(@$params) : (), { form_class => $f, form_model => [['->get_request'], 'Model.'.$f], %{shift(@$params) || {}}, }]; }, setup_render => sub { my($req, $case, $params) = @_; Bivio::Biz::Model->new(req(), $case->get('the_form'))->put_on_request; return; }, }); [ ['ContactForm'] => qr{
.*.*.*
}, ['ContactForm', 'ok_button'] => qr{
.*.*
}, ['UserLoginForm'] => qr{
.*.*.*
}, ['UserLoginForm', ''] => '', ['UserLoginForm', 'ok_button'] => qr{
.*.*
}, ['UserLoginForm', 'ok_button'] => qr{
.*.*
}, ['UserLoginForm', 'ok_button', {labels => {ok_button => 'StandardSubmit.bunit'}}] => qr{
.*.*
}, ];