package RequestForm::Role::PDS;
use Moo::Role;
use FindBin;
# supplies local versions of LIMS::Controller::Roles::PatientDemographics methods:
#-------------------------------------------------------------------------------
sub get_session_data { shift->session->{_pds_data} } # original assumed CGI::Session
sub session_store_hashref {
my ($self, $data, $key_name) = @_; $self->session->{$key_name} = $data;
}
sub require_proxy {
shift->settings->{patient_demographic_service}->{pds_proxy} ? 1 : 0;
}
sub get_username { 'RequestForm' } # maybe better to use remote IP address
sub user_profile { { id => 99999 } } # can't use HILIS user.id
sub get_logfile { "$FindBin::Bin/../logs/sms.csv" }
sub messages { shift->settings->{patient_demographic_service}->{messages} }
sub cfg { shift->settings->{patient_demographic_service} }
#-------------------------------------------------------------------------------
1;