Return to pre_xml.pm CVS log | Up to [LON-CAPA] / loncom / homework / cleanxml |
version 1.1, 2015/12/03 20:40:31 | version 1.2, 2016/01/06 16:44:32 |
---|---|
Line 357 sub add_root { | Line 357 sub add_root { |
$root_name = 'library'; | $root_name = 'library'; |
} elsif ($filepath =~ /\.html?$/i) { | } elsif ($filepath =~ /\.html?$/i) { |
$root_name = 'html'; | $root_name = 'html'; |
} elsif ($filepath =~ /\.task?$/i) { | |
$root_name = 'Task'; | |
} else { | } else { |
$root_name = 'problem'; | $root_name = 'problem'; |
} | } |