#---------- default callbacks ----------
sub has_a_param ($$) {
- my ($c,$r,$cn) = @_;
+ my ($r,$cn) = @_;
foreach my $pn (@{ $r->{S}{$cn} }) {
return 1 if $r->_cm('get_param',$pn);
}
return 0;
}
-sub get_params ($$) {
- my ($c,$r) = @_;
+sub get_params ($) {
+ my ($r) = @_;
my %p;
+ my $c = $r->{Cgi};
foreach my $name ($c->param()) {
$p{$name} = [ $c->param($name) ];
}
$v->{Dbh} = $dbh;
eval {
- $r->_db_transaction(sub {
+ $v->_db_transaction(sub {
$dbh->do("CREATE TABLE $v->{S}{assocdb_table} (".
- " associdh VARCHAR PRIMARY KEY,".
+ " associd VARCHAR PRIMARY KEY,".
" username VARCHAR,".
" last INTEGER NOT NULL".
")");
}
sub _db_transaction ($$) {
- my ($r, $fn) = @_;
+ my ($v, $fn) = @_;
my $retries = 10;
my $rv;
my $dbh = $v->{Dbh};