--- loncom/interface/lonpopulate.pm 2005/11/04 15:03:29 1.28 +++ loncom/interface/lonpopulate.pm 2005/11/04 21:32:13 1.30 @@ -1,5 +1,5 @@ # automated enrollment configuration handler -# $Id: lonpopulate.pm,v 1.28 2005/11/04 15:03:29 albertel Exp $ +# $Id: lonpopulate.pm,v 1.30 2005/11/04 21:32:13 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -485,7 +485,9 @@ ENDTWO ENDTWO } elsif ($action eq "notify") { + my $notifycount = 0; my @notified = split(/,/,$enrollvar{notifylist}); + my $notifycount = 0; foreach (@notified) { unless ($_ eq '') { $notifycount ++; } } @@ -566,7 +568,7 @@ ENDTWO $notifystate{$viewer} = 0; } - my $notifyshow = join(' ',@ccs); + my $notifyshow = @ccs; if (@ccs > 0) { @ccs = sort @ccs; @@ -636,7 +638,7 @@ ENDTWO if ($enrollvar{crosslistings} ne '') { @xlists = split(/,/,$enrollvar{crosslistings}); } - my $cross_str = join(' ',@xlists); + my $cross_str = @xlists; $r->print("