loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.532, 2015/03/10 23:11:22	version 1.533, 2015/04/10 08:22:21
Line 811 sub template_dropdown_datastructure {	Line 811 sub template_dropdown_datastructure {
foreach my $title (sort @{$tmplthash{$cat}}) {	foreach my $title (sort @{$tmplthash{$cat}}) {
my $path = $tmpltcontent{$title}->[0];	my $path = $tmpltcontent{$title}->[0];
my $code;	my $code;
open(FH, "<$path");	open(FH, "<:encoding(UTF-8)", $path);
while(<FH>){	while(<FH>){
$code.= $_ unless $_ =~ /(<problem>)\|(<\/problem>)/;	$code.= $_ unless $_ =~ /(<problem>)\|(<\/problem>)/;
}	}