- $writer = new XML::Writer(DATA_MODE => 1);
- }
- my @schedule = get_schedule(@_);
- $writer->startTag("schedule");
- foreach my $class (@schedule) {
- $writer->startTag("class");
- foreach my $key (sort keys %$class) {
- $writer->dataElement($key, $class->{$key});
- }
- $writer->endTag("class");