Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $DBData = MedicinesInfo->new(
- medicine => Medicines->new(
- link => Links->new(
- link => $self->{'settings'}->{'uri_main'} . $medLink->attrs('href'),
- label => $tx->res->dom->at('html title')->text
- ),
- name => $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RusNameLabel'),
- atx_codes => (defined $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_AtcLabel')) ? ($tx->res->dom->at('table#DataList2 span#DataList2_ctl00_AtcLabel')->text) : (''),
- cfg => (defined $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_CFGLabel')) ? ($tx->res->dom->at('table#DataList2 span#DataList2_ctl00_CFGLabel')->text) : (''),
- regcertowner => RegCertOwners->new(
- name => $tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink2')->text,
- link => Links->new(
- link => $self->{'settings'}->{'uri_main'} . $tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink2')->attrs('href'),
- label => $tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink2')->text
- )
- ),
- regnum => (defined $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RNumLabel')) ? ($tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RNumLabel')->text) : (''),
- regdate => _getDate((defined $tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RDateLabel')) ? ($tx->res->dom->at('table#DataList2 span#DataList2_ctl00_RDateLabel')->text) : ('')),
- form_structure_pack => (defined $tx->res->dom->at('span#DataList2_ctl00_ComposLabel')) ? ($tx->res->dom->at('span#DataList2_ctl00_ComposLabel')->content_xml) : ('')
- ),
- mnn => (defined $tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink1')) ? ($tx->res->dom->at('table#DataList2 a#DataList2_ctl00_HyperLink1')->text) : (''),
- is_individual => 1,
- link => Links->new(
- link => $self->{'settings'}->{'uri_main'} . $medLink->attrs('href'),
- label => $tx->res->dom->at('html title')->text
- ),
- details => MedicinesInfoDetails->new(
- link => Links->new(
- link => $self->{'settings'}->{'uri_main'} . $medLink->attrs('href'),
- label => $tx->res->dom->at('html title')->text
- ),
- 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) : (''),
- pharmakokinetics => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label4')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label4')->content_xml) : (''),
- indication => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label6')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label6')->content_xml) : (''),
- 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) : (''),
- 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) : (''),
- contraindications => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label12')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label12')->content_xml) : (''),
- 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) : (''),
- 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) : (''),
- overdosage => (defined $tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label19')) ? ($tx->res->dom->at('div#Panel1 span#DataList1_ctl00_Label19')->content_xml) : (''),
- 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) : (''),
- 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) : ('')
- )
- );
Add Comment
Please, Sign In to add comment