Author: sparky
Date: Mon Oct 26 01:40:29 2009
New Revision: 10856
Modified:
toys/rsget.pl/RSGet/Form.pm
Log:
- get/set method and action
Modified: toys/rsget.pl/RSGet/Form.pm
==============================================================================
--- toys/rsget.pl/RSGet/Form.pm (original)
+++ toys/rsget.pl/RSGet/Form.pm Mon Oct 26 01:40:29 2009
@@ -184,6 +184,25 @@
}
}
+sub action
+{
+ my $self = shift;
+ if ( @_ ) {
+ $self->{action} = shift;
+ }
+ return $self->{action};
+}
+
+sub method
+{
+ my $self = shift;
+ if ( @_ ) {
+ my $method = shift;
+ $self->{post} = $method eq "post" ? 1 : 0;
+ }
+ return $self->{post} ? "post" : "get";
+}
+
sub dump
{
my $self = shift;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
