Guest User

Untitled

a guest
Jun 20th, 2018
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 5.02 KB | None | 0 0
  1. $DBData = MedicinesInfo->new(
  2.                 medicine                => Medicines->new(
  3.                     link                => Links->new(
  4.                         link    => $self->{'settings'}->{'uri_main'} . $medLink->attrs('href'),
  5.                         label   => $tx->res->dom->at('html title')->text
  6.                     ),
  7.                     name                => $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RusNameLabel'),
  8.                     atx_codes           => (defined $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_AtcLabel')) ? ($tx->res->dom->at('table#DataList2 span#DataList2_ctl00_AtcLabel')->text) : (''),
  9.                     cfg                 => (defined $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_CFGLabel')) ? ($tx->res->dom->at('table#DataList2 span#DataList2_ctl00_CFGLabel')->text) : (''),
  10.                     regcertowner        => RegCertOwners->new(
  11.                         name => $tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink2')->text,
  12.                         link => Links->new(
  13.                             link    => $self->{'settings'}->{'uri_main'} . $tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink2')->attrs('href'),
  14.                             label   => $tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink2')->text
  15.                         )
  16.                     ),
  17.                     regnum              => (defined $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RNumLabel')) ? ($tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RNumLabel')->text) : (''),
  18.                     regdate             => _getDate((defined $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RDateLabel')) ? ($tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RDateLabel')->text) : ('')),
  19.                     form_structure_pack => (defined $tx->res->dom->at('span#DataList2_ctl00_ComposLabel')) ? ($tx->res->dom->at('span#DataList2_ctl00_ComposLabel')->content_xml) : ('')
  20.                 ),
  21.                 mnn                     => (defined $tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink1')) ? ($tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink1')->text) : (''),
  22.                 is_individual            => 1,
  23.                 link                    => Links->new(
  24.                     link    => $self->{'settings'}->{'uri_main'} . $medLink->attrs('href'),
  25.                     label   => $tx->res->dom->at('html title')->text
  26.                 ),
  27.                 details                 => MedicinesInfoDetails->new(
  28.                     link                    => Links->new(
  29.                         link    => $self->{'settings'}->{'uri_main'} . $medLink->attrs('href'),
  30.                         label   => $tx->res->dom->at('html title')->text
  31.                     ),
  32.                     pharmacological_action  => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_InfLabel')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_InfLabel')->content_xml) : (''),
  33.                     pharmakokinetics        => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label4')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label4')->content_xml) : (''),
  34.                     indication              => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label6')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label6')->content_xml) : (''),
  35.                     dispensing_mode         => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label8')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label8')->content_xml) : (''),
  36.                     side_effect             => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label10')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label10')->content_xml) : (''),
  37.                     contraindications       => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label12')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label12')->content_xml) : (''),
  38.                     pregnancy_lactation     => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label15')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label15')->content_xml) : (''),
  39.                     special_instructions    => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label15')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label15')->content_xml) : (''),
  40.                     overdosage              => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label19')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label19')->content_xml) : (''),
  41.                     medicinal_interaction   => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label21')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label21')->content_xml) : (''),
  42.                     conditions_validity     => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label23')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label23')->content_xml) : ('')
  43.                 )
  44.             );
Add Comment
Please, Sign In to add comment