diff options
Diffstat (limited to 'databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm')
| -rw-r--r-- | databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm | 39 |
1 files changed, 6 insertions, 33 deletions
diff --git a/databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm b/databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm index 905e18b07978..3f84859e4e74 100644 --- a/databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm +++ b/databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm @@ -1,9 +1,12 @@ ---- AsForm.pm.orig Mon Dec 27 16:43:44 2004 -+++ AsForm.pm Wed Dec 29 20:31:57 2004 -@@ -1,19 +1,18 @@ +--- lib/Class/DBI/AsForm.pm.orig Wed Sep 7 11:53:35 2005 ++++ lib/Class/DBI/AsForm.pm Wed Sep 7 11:55:48 2005 +@@ -1,18 +1,17 @@ package Class::DBI::AsForm; -use 5.006; +-our $VERSION = '2.42'; ++use vars qw($VERSION $OLD_STYLE @EXPORT); ++$VERSION = '2.42'; use strict; -use warnings; @@ -15,38 +18,8 @@ -our $OLD_STYLE = 0; -our @EXPORT = qw( to_cgi to_field _to_textarea _to_textfield _to_select -+use vars qw($OLD_STYLE @EXPORT $VERSION); +$OLD_STYLE = 0; +@EXPORT = qw( to_cgi to_field _to_textarea _to_textfield _to_select type_of ); --our $VERSION = '2.41'; -+$VERSION = '2.41'; =head1 NAME - -@@ -106,14 +105,14 @@ - my ($self, $col) = @_; - my $a = - HTML::Element->new("textarea", name => $col, rows => "3", cols => "22"); -- if (ref $self) { $a->push_content($self->$col) } -+ if (ref $self) { $a->push_content($self->$col()) } - $OLD_STYLE && return $a->as_HTML; - $a; - } - - sub _to_textfield { - my ($self, $col) = @_; -- my $value = ref $self && $self->$col; -+ my $value = ref $self && $self->$col(); - my $a = HTML::Element->new("input", type => "text", name => $col); - $a->attr("value" => $value) if $value; - $OLD_STYLE && return $a->as_HTML; -@@ -129,7 +128,7 @@ - my $sel = HTML::Element->new("option", value => $_->id); - $sel->attr("selected" => "selected") - if ref $self -- and eval { $_->id eq $self->$col->id }; -+ and eval { $_->id eq $self->$col()->id }; - $sel->push_content($_->stringify_self); - $a->push_content($sel); - } |