On Feb 15, [EMAIL PROTECTED] contorted a few electrons to say...
modperl> to be more fully compliant with ActiveState's PerlScript
modperl> we need the following methods on Apache::ASP::Collection
modperl> object.
modperl>
modperl> sub Count <-- # of keys in $Request->QueryString or $Request->Form
modperl>
modperl> sub Key {
modperl> my ($self, $keynum) = @_;
modperl> }
and here is the code that implements this functionality.
--- ASP.pm Tue Jan 30 22:35:37 2001
+++ /usr/lib/perl5/site_perl/5.6.0/Apache/ASP.pm Thu Feb 15 12:55:11 2001
@@ -5253,6 +5253,17 @@ sub Contents {
}
}
+sub Count {
+ my ($self) = @_;
+ return scalar (keys %{$self});
+}
+
+sub Key {
+ my ($self, $indx) = @_;
+ my @keys = keys %{$self};
+ return $keys[$indx-1];
+}
+
sub Item {
my($self, $key, $value) = @_;
my @rv;
--
------------------------------------------------------------------------
Joel W. Reed 412-257-3881
--------------All the simple programs have been written.----------------
PGP signature
