loncom/build/piml_parse.pl - diff

Return to piml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.10, 2002/12/03 22:36:32	version 1.11, 2005/10/05 18:37:03
Line 286 $parser->{textify}={	Line 286 $parser->{textify}={
filenames => \&format_filenames,	filenames => \&format_filenames,
perlscript => \&format_perlscript,	perlscript => \&format_perlscript,
TARGET => \&format_TARGET,	TARGET => \&format_TARGET,
	DIST => \&format_DIST,
};	};

my $text;	my $text;
Line 368 sub format_TARGET {	Line 369 sub format_TARGET {
return($target);	return($target);
}	}

	# ----------------------------------------------------------------- Format DIST
	sub format_DIST {
	my (@tokeninfo)=@_;
	$parser->get_tag('/DIST');
	return($dist);
	}

# --------------------------------------------------- Format categories section	# --------------------------------------------------- Format categories section
sub format_categories {	sub format_categories {
my $text=&trim($parser->get_text('/categories'));	my $text=&trim($parser->get_text('/categories'));