Use iw_perl: iwpt_get_dcr_name()See http://your-TS-server/iw/help/tst/pt/TeamSite__PT__iw_perl.html for more details.
<html><body><iw_value name='$iw_home' />
<iw_value name='$iw_dcrname' /></body></html>
Thanks alot.I tried with iw_pt_get_dcr_name() but undefine is returned.following is the code:[html] my $iw_home = TeamSite::Config::iwgethome(); # TeamSite home path. my $iw_dcrname = TeamSite:T::iw_xml::get_dcr_name(); #dcr name[/html]Here in html tag only the TeamSitehome is returned not the name of dcr.I tried with passing 'dirname' and ''basename' as the parameter to the function but did not work.
<iw_pt/><iw_perl>use TeamSite::Config; my $iw_home = TeamSite::Config::iwgethome(); my $iw_dcrname = iwpt_get_dcr_name();</iw_perl><html> <body>IWHOME: <iw_value name='$iw_home'/>DCR: <iw_value name='$iw_dcrname'/> </body></html>
Try this<iw_pt/><iw_perl>use TeamSite::Config; my $iw_home = TeamSite::Config::iwgethome(); my $iw_dcrname = iwpt_get_dcr_name();</iw_perl><html> <body>IWHOME: <iw_value name='$iw_home'/>DCR: <iw_value name='$iw_dcrname'/> </body></html>See if that works any better - assuming that you are actually processing a DCR with this PT....