/",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
// 1/2 opening tag
$replace1 = <<< 'EOD'
EOD ;
// 2/2 closing tag
$replace2 = <<< 'EOD'
EOD ;
$line = (preg_replace('//m',$replace1.$mdlid.$replace2,$matches));
fwrite($fh_tmp_new_clog, $line);
$mdlid++;
}
}
// ADD CLOG_ACTIVITIES AROUND TAGS, THEN mdlid
// 1/2 opening tag
if (preg_match_all("//",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
$replace1 = <<< 'EOD'
EOD ;
$replace2 = <<< 'EOD'
EOD ;
//$line = (preg_replace('//m',$replace1.$mdlid.$replace2.'',$matches));
$line = (preg_replace('//m',$replace1.$mdlid.$replace2,$matches));
fwrite($fh_tmp_new_clog, $line);
$mdlid++;
}
}
// 2/2 closing tag
if (preg_match_all("/<\/clog_expressions>/",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
$replace = <<< 'EOD'
EOD ;
$line = (preg_replace('/<\/clog_expressions>/m',$replace,$matches));
fwrite($fh_tmp_new_clog, $line);
}
}
// 1/2 opening tag
if (preg_match_all("//",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
$replace1 = <<< 'EOD'
EOD ;
$replace2 = <<< 'EOD'
EOD ;
$line = (preg_replace('//m',$replace1.$mdlid.$replace2,$matches));
fwrite($fh_tmp_new_clog, $line);
$mdlid++;
}
}
// 2/2 closing tag
if (preg_match_all("/<\/clog_deco>/",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
$replace = <<< 'EOD'
]]>
EOD ;
$line = (preg_replace('/<\/clog_deco>/m',$replace,$matches));
fwrite($fh_tmp_new_clog, $line);
}
}
/////////// XXXXX
/***
// 1/2 opening tag
if (preg_match_all("//",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
// $line = (preg_replace('//m','\n'.$mdlid.'',$matches));
$replace1 = <<< 'EOD'
EOD ;
$replace2 = <<< 'EOD'
EOD ;
$line = (preg_replace('//m',$replace1.$mdlid.$replace2,$matches));
fwrite($fh_tmp_new_clog, $line);
$mdlid++;
}
}
// 2/2 closing tag
if (preg_match_all("/<\/clog_expressions>/",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
// $line = (preg_replace('//m','\n'.$mdlid.'',$matches));
$replace = <<< 'EOD'
EOD ;
$line = (preg_replace('/<\/clog_expressions>/m',$replace,$matches));
fwrite($fh_tmp_new_clog, $line);
$mdlid++;
}
}
// 1/2 opening tag
if (preg_match_all("//",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
// $line = (preg_replace('//m','\n'.$mdlid.'',$matches));
$replace = <<< 'EOD'
EOD ;
$line = (preg_replace('//m',$replace,$matches));
fwrite($fh_tmp_new_clog, $line);
$mdlid++;
}
}
// closing tag
if (preg_match_all("/<\/clog_deco>/",$line,$linematched)) {
foreach ($linematched[0] as $matches) {
// $line = (preg_replace('//m','\n'.$mdlid.'',$matches));
$replace = <<< 'EOD'
EOD ;
$line = (preg_replace('/<\/clog_deco>/m',$replace,$matches));
fwrite($fh_tmp_new_clog, $line);
$mdlid++;
}
}
***/
else {
fwrite($fh_tmp_new_clog, $line);
}
}
fclose($fh_tmp_new_clog);
// write into new file
$new_clog = $shortname."_mdl.xml";
$fh_new_clog = fopen($new_clog, 'w') or die("can't open file $new_clog");
$clog = array_reverse(file($tmp_new_clog));
// $mdlid = 1; // now already included
foreach ($clog as $line) {
fwrite($fh_new_clog, $line);
}
fclose($fh_new_clog);
?>