foreach my $row ($ts->rows) {
map { s/\xa0//g; $_} @$row;
$row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
- $row->[0] =~ s/(.*) <BR>(.*)/capitalize($2)/eg;
+ $row->[0] =~ s/(.*) ?<[Bb][Rr][^>]*>(.*)/capitalize($2)/eg;
$classid=$1;
$row->[2] = capitalize($row->[2]);
$row->[2] =~ s/([A-Z]r?)$/$1./;
foreach (@mhc) {
$_ =~ s/X-SC-Subject: ([^\n]*)/X-SC-Subject: $1\nSubject: $1/;
$_ =~ s/X-SC-Category: ([^\n]*)/X-SC-Category: $1\nFrom: $1/;
- $_ =~ s/X-SC-Duration: (\d\d\d\d)(\d\d)(\d\d)-/"X-SC-Duration: $1$2$3-\nDate: $3 " . $mon[$2-1] . " 2037 12:00:00 +0000"/e;
+ $_ =~ s/X-SC-Duration: (\d\d\d\d)(\d\d)(\d\d)-/"X-SC-Duration: $1$2$3-\nDate: $3 " . $mon[$2-1] . " $1 12:00:00 +0000"/e;
push @mhc2, $_;
}
@mhc = @mhc2;