#!/usr/bin/perl

#this is the out from the previous script
$IN = "someFileName.txt"; 
$OUT = "someOutFile.xml";

open (OUT, ">$OUT");
open(IN) or die ("Cannot open file ($IN)");

print OUT <<TOP;
<?xml version="1.0" encoding="ISO-8859-1"?>
<xtags:some-node xml:lang="en">
TOP

$id = 0;

@columns = (category,id,code,title,summary,prereq,group,subgroup,sequence,rolemandatory,rolerecommended,roleoptional,url,modality,"length");

foreach $row (<IN>){
($category,$code,$title,$summary,$prereq,$group,$subgroup,$sequence,$rolemandatory,$rolerecommended,$roleoptional,$url,$modality,$length) = split ('\|', $row);

print OUT "<star:course>\n";

foreach $_ (@columns){ &xmlrow($_); }

print OUT "</xtag:course>\n";
	$id++;
}

print OUT "</star:learning-paths>\n";

sub xmlrow{
	my $colname = shift(@_);
	my $ostar="<xtag:";

	my $estar="</xtag:";
	print OUT "<xtag:$colname>${$colname}</xtag:$colname>\n";
}