print "DTEND;TZID=\"$tzn\":", $first."T".$stoptime, "00$r\n";
$row->{'days'} =~ s/([MTWRFS])/,$days{$1}/g;
$row->{'days'} =~ s/^,//;
- $stopdate++
+ $stopdate++;
print "RRULE:FREQ=WEEKLY;UNTIL=${stopdate}T000000Z;BYDAY=", $row->{'days'}, "$r\n";
foreach my $day (@day) {
print("EXDATE;TZID=\"$tzn\":${day}T$starttime$r\n");