loncom/lonr - diff

Return to lonr CVS log

Up to [LON-CAPA] / loncom

version 1.9, 2014/11/16 02:10:41	version 1.10, 2014/11/16 15:35:27
Line 353 sub getroutput {	Line 353 sub getroutput {

my $realoutput='';	my $realoutput='';
foreach my $line (split(/\n/,$output)) {	foreach my $line (split(/\n/,$output)) {
$line=~s/\s$//gs;	$line=~s/\s$//gs;
if ($line=~/^Error\:/) { $syntaxerr=1; next; }	if ($line=~/^Error\:/) { $syntaxerr=1; next; }
if ($line=~ /\;$/) { next; }	if ($line=~ /\;$/) { next; }
if (my ($result)=($line=~/^\s\[?\d+\,?\]?\s(.*)/)) { $realoutput.=$result."\n"; }	if (my ($result)=($line=~/^\s\[?\d+\,?\]?\s(.*)/)) { $realoutput.=$result."\n"; }
}	}
if (wantarray) {	if (wantarray) {
return ($realoutput,$syntaxerr);	return ($realoutput,$syntaxerr);