loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.87, 2013/05/27 00:19:32	version 1.88, 2017/02/16 18:17:49
Line 117 sub readcalendar {	Line 117 sub readcalendar {
foreach my $thiskey (keys(%$resourcedata)) {	foreach my $thiskey (keys(%$resourcedata)) {
if ($resourcedata->{$thiskey.'.type'}=~/^date/) {	if ($resourcedata->{$thiskey.'.type'}=~/^date/) {
my ($course,$middle,$part,$name)=	my ($course,$middle,$part,$name)=
($thiskey=~/^(\Q$courseid\E)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);	($thiskey=~/^(\Q$courseid\E)\.(?:(.+)\.)*([\w\s\-]+)\.(\w+)$/);

my %data = ( 'section' => &mt('All Students'));	my %data = ( 'section' => &mt('All Students'));
if ($middle=~/^\[(.*)\]\./) {	if ($middle=~/^\[(.*)\]\./) {