<iw_perl> <![CDATA[ $oFile = iwpt_get_ofile_name(); ($dummyOFile = $oFile) =~ s|^.*[/\\]WORKAREA[/\\][^/\\]+||; # below... create a dummy file so we can set EA's on them. Just incase its a new file ]]></iw_perl><iw_ostream file ="$dummyOFile" /><iw_perl> <![CDATA[ $iw_file->load($oFile); $iw_file->setEA('TeamSite/Metadata/dc.title' => $title, 'TeamSite/Metadata/dc.description' => $description, ); ]]></iw_perl>
<meta>