--- loncom/interface/lonhelper.pm 2018/01/15 00:51:42 1.200 +++ loncom/interface/lonhelper.pm 2018/09/03 16:43:47 1.202 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # .helper XML handler to implement the LON-CAPA helper # -# $Id: lonhelper.pm,v 1.200 2018/01/15 00:51:42 raeburn Exp $ +# $Id: lonhelper.pm,v 1.202 2018/09/03 16:43:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1800,7 +1800,7 @@ sub render { if (lc($time) eq 'anytime') { $anytime=1; $date = &get_date_object(time); - $date->min(0); + $date->set_minute(0); } elsif (defined($time) && $time ne 0) { $date = &get_date_object($time); } else { @@ -1810,7 +1810,7 @@ sub render { if (!defined($date)) { $date = &get_date_object(time); - $date->min(0); + $date->set_minute(0); } if ($anytime) { @@ -3327,7 +3327,7 @@ sub start_group { if ((!$paramHash->{'grouponly'}) || (&Apache::lonnet::allowed('mdg',$Apache::lonnet::env{'request.course.id'}))) { %curr_groups = &Apache::longroup::coursegroups(); } elsif ($Apache::lonnet::env{'request.course.groups'} ne '') { - map { $curr_groups{$_} = 1; } split(/,/,$Apache::lonnet::env{'request.course.groups'}); + map { $curr_groups{$_} = 1; } split(/:/,$Apache::lonnet::env{'request.course.groups'}); } foreach my $group_name (sort {lc($a) cmp lc($b)} (keys(%curr_groups))) { push(@{$paramHash->{CHOICES}}, [$group_name, $group_name]);