1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
###########################################################################
# Copyright (c) Nate Wiger http://nateware.com. All Rights Reserved.
# Please visit http://formbuilder.org for tutorials, support, and examples.
###########################################################################
# file fields are rendered exactly like text fields
package CGI::FormBuilder::Field::file;
use strict;
use warnings;
no warnings 'uninitialized';
use CGI::FormBuilder::Util;
use CGI::FormBuilder::Field::text;
use base 'CGI::FormBuilder::Field::text';
our $VERSION = '3.08';
*render = \&tag;
sub tag {
my $self = shift;
# special catch to make life easier (too action-at-a-distance?)
# if there's a 'file' field, set the form enctype if they forgot
if ($self->{_form}->smartness) {
$self->{_form}{enctype} ||= 'multipart/form-data';
debug 2, "verified enctype => 'multipart/form-data' for 'file' field";
}
return $self->SUPER::tag(@_);
}
1;
__END__
|
