# Copyright (c) 2006 bivio Software, Inc.  All Rights Reserved.
# $Id: TupleForm.PL,v 1.1 2006/10/26 12:35:51 nagler Exp $
FormModel({
    setup_request => sub {
	my($params) = shift->get('params');
	req()->put(
	    query => ref($params->[0]) || !defined($params->[0]) ? undef
		: {this => shift(@$params)},
	);
	return;
    },
});
1;