Hi All,We are migrating our current application from one set of teamsite templates to new templates which we have created. The basic structure of these two sets is same but there are some places where the tag names(item names) are different, some tags are missing or some new tags have been added in the DCR.So we will have to make required changes in these DCRs to make them working on new templates. Can somebody suggesst a way or is there any teamsite CLT which can be useful for this activity, otherwise we are planning to make the updates using normal perl file reading.We are using TS 552Thanks in advance
we had a similar situation, that was we need to change some of the attributes value in the DCR. So you can use iwperl and open the DCR as a File. Since you know the old item name and new item name, you can use simple regex find replace method, and update the DCR file./************ code snippets ************fy refopen(DCR,"$dcrpath$key2") || callBackAndDie ($task, CALLBACK_FAILURE, "#19 Cannot Open File $dcrpath$key2");@get_data=<DCR>; my $dcrdata = join("\n",@get_data); $rootnode = TeamSite:CRnode->new($dcrdata);@Articles = $rootnode->get_node_list('Article'); my $logFile2 = "$iwhome/local/logs/dfg/fileupn.log"; open(UPL, ">>$logFile2") || callBackAndDie ($task, CALLBACK_FAILURE, "#20 Can't open LOG: $!\n"); foreach $art (@Articles) { print UPL "\n-----entering Article---";@Upl = $art->get_node_list('Uploaded Files'); foreach $fil(@Upl) { $upfilname = $fil->value('Upload File'); print UPL "\nfilepaths---$pruplfpath$upfilname--- copied to ---$nsuplfpath$upfilname"; copy("$pruplfpath$upfilname","$nsuplfpath$upfilname"); print UPL "\nfile copied"; } } }**************ends **************Lal