Commit info for scoop/lib/Scoop/Admin:
Modified Files:
Subscription.pm
Log Message:
Quoted the db calls in Scoop::Admin::Subscription, and trying to make paypal
subscriptions work.
Index: Subscription.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Admin/Subscription.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
5d4
<
55a55
> my $q_type = $S->dbh->quote($data->{type});
59c59
< WHERE => qq|type = '$data->{type}'|
---
> WHERE => qq|type = $q_type|
94c94,101
<
---
>
> my $set;
> foreach (qw(perm_group_id cost max_time renewable description)) {
> $set .= ',' if $set;
> $set .= "$_ = " . $S->dbh->quote($data->{$_});
> }
> my $q_type = $S->dbh->quote($data->{type});
>
97,104c104,105
< SET => qq|
< perm_group_id = '$data->{perm_group_id}',
< cost = '$data->{cost}',
< max_time = '$data->{max_time}',
< renewable = '$data->{renewable}',
< description = '$data->{description}'|,
< WHERE => qq|type = '$data->{type}'|,
< DEBUG => 0
---
> SET => $set,
> WHERE => qq|type = $q_type|
115c116,122
<
---
>
> my $values;
> foreach (qw(type perm_group_id cost max_time renewable description)) {
> $values .= ',' if $values;
> $values .= $S->dbh->quote($data->{$_});
> }
>
119,125c126
< VALUES => qq|'$data->{type}',
< '$data->{perm_group_id}',
< '$data->{cost}',
< '$data->{max_time}',
< '$data->{renewable}',
< '$data->{description}'|,
< DEBUG => 0
---
> VALUES => $values
136c137,138
<
---
>
> my $q_type = $S->dbh->quote($data->{type});
139c141
< WHERE => qq|type = '$data->{type}'|
---
> WHERE => qq|type = $q_type|
226c228
<
---
>
228c230
<
---
>
230c232,233
<
---
>
> my $q_type = $S->dbh->quote($type);
234c237
< WHERE => "type='$type'"
---
> WHERE => "type = $q_type"
236c239
<
---
>
238c241
<
---
>
249,250c252
< FROM => 'subscription_types',
< DEBUG => 0
---
> FROM => 'subscription_types'
332c334,335
<
---
>
> my $q_type = $S->dbh->quote($type);
336c339
< WHERE => qq|type = '$type' AND active = 1|
---
> WHERE => qq|type = $q_type AND active = 1|