Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Also ask for who

Browse source
This commit is contained in:
Bradley M. Kuhn 2022-06-21 10:14:49 -07:00
parent c2b01e6d97
commit 96d75986f2
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scripts/fulfill-failed.plx
View file

@ -37,8 +37,11 @@ while (not defined $requestTypes{$requestType}) {
print "Why fulfillment failed: "; print "Why fulfillment failed: ";
my $why = <STDIN>; my $why = <STDIN>;
chomp $why; chomp $why;
print "Who?: ";
my $who = <STDIN>;
chomp $who;
my $id = $sp->fulfillFailure({donorId => $supporterId, requestType => $requestType, why => $why}); my $id = $sp->fulfillFailure({donorId => $supporterId, requestType => $requestType, why => $why, who => $who});
die "requestType $requestType not found for $supporterId, or the request was not already fulfilled yet anyway." unless defined $id; die "requestType $requestType not found for $supporterId, or the request was not already fulfilled yet anyway." unless defined $id;