oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add optional userId param to Survey::responseId so that you can create a

Browse source 
response for a specific user (not just current user bound to session)
This commit is contained in:
Patrick Donelan 2009-03-15 06:34:15 +00:00
parent 96ac9d63ee
commit d95a076ac5
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -1293,7 +1293,7 @@ sub responseIdCookies {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 responseId =head2 responseId( [userId] )
Accessor for the responseId property, which is the unique identifier for a single Accessor for the responseId property, which is the unique identifier for a single
L<WebGUI::Asset::Wobject::Survey::ResponseJSON> instance. See also L<"responseJSON">. L<WebGUI::Asset::Wobject::Survey::ResponseJSON> instance. See also L<"responseJSON">.
@ -1301,15 +1301,20 @@ L<WebGUI::Asset::Wobject::Survey::ResponseJSON> instance. See also L<"responseJS
The responseId of the current user is returned, or created if one does not already exist. The responseId of the current user is returned, or created if one does not already exist.
If the user is anonymous, the IP is used. Or an emailed or linked code can be used. If the user is anonymous, the IP is used. Or an emailed or linked code can be used.
=head3 userId (optional)
If specified, this user is used rather than the current user
=cut =cut
sub responseId { sub responseId {
my $self = shift; my $self = shift;
my ($userId) = validate_pos(@_, {type => SCALAR, optional => 1});
if (!defined $self->{responseId}) { if (!defined $self->{responseId}) {
my $ip = $self->session->env->getIp; my $ip = $self->session->env->getIp;
my $id = $self->session->user->userId; my $id = $userId || $self->session->user->userId;
my $anonId = $self->session->form->process('userid'); my $anonId = $self->session->form->process('userid');
if ($self->responseIdCookies) { if ($self->responseIdCookies) {
$anonId ||= $self->session->http->getCookies->{Survey2AnonId}; ## no critic $anonId ||= $self->session->http->getCookies->{Survey2AnonId}; ## no critic