--- loncom/interface/lonwhatsnew.pm 2021/01/01 15:29:14 1.105.2.19 +++ loncom/interface/lonwhatsnew.pm 2020/09/01 22:25:27 1.128 @@ -1,7 +1,7 @@ # The LearningOnline Network # What's New in a course # -# $Id: lonwhatsnew.pm,v 1.105.2.19 2021/01/01 15:29:14 raeburn Exp $ +# $Id: lonwhatsnew.pm,v 1.128 2020/09/01 22:25:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -82,7 +82,7 @@ sub handler { } unless ($isadhoc) { %checkallowed = ( coursenormalmail => 1, - coursecritmail => 1,); + coursecritmail => 1,); } foreach my $perm_check (['whn','whatsnew',1], ['pch','coursediscussion',1], @@ -1139,11 +1139,6 @@ sub check_handgraded { if (grep(/^essay$/,@types)) { $handgradeable=1; last; - } elsif (grep(/^custom$/,@types)) { - if ($resource->handgrade($part) eq 'yes') { - $handgradeable=1; - last; - } } } } @@ -1409,7 +1404,7 @@ sub getnormalmail { if (defined($sendtime) && $sendtime!~/error/) { if (($emailstatus{$msgid} eq 'new') || ($status eq 'new')) { $sendtime = &Apache::lonlocal::locallocaltime($sendtime); - $msgcount ++; + $msgcount ++; if ($shortsubj eq '') { $shortsubj = &mt('No subject'); } @@ -2145,7 +2140,7 @@ sub display_activity { } return; } - + sub display_coursediscussion { my ($r,$newdiscussions,$unread,$countunread,$res_title,$itemserror) = @_; my $lctype = lc(&Apache::loncommon::course_type()); @@ -2175,7 +2170,7 @@ sub display_coursediscussion { my $forum_title = $$unread{$ressymb}{'title'}; my $type = 'Resource'; my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb); - my $disclink = $feedurl.'?symb='.&escape($$unread{$ressymb}{symb}); + my $disclink = $feedurl.'?symb='. &escape($$unread{$ressymb}{symb}); if ($feedurl =~ /bulletinboard/) { $type = 'Discussion Board'; }