[LON-CAPA-cvs] cvs: loncom /interface lonpopulate.pm

[albertel]

albertel		Fri Nov  4 16:25:34 2005 EDT

  Modified files:              
    /loncom/interface	lonpopulate.pm 
  Log:
  - changing back to array counts
  
  
Index: loncom/interface/lonpopulate.pm
diff -u loncom/interface/lonpopulate.pm:1.28 loncom/interface/lonpopulate.pm:1.29
--- loncom/interface/lonpopulate.pm:1.28	Fri Nov  4 10:03:29 2005
+++ loncom/interface/lonpopulate.pm	Fri Nov  4 16:25:34 2005
@@ -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.29 2005/11/04 21:25:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -486,6 +486,7 @@
 ENDTWO
   } elsif ($action eq "notify") {
       my @notified = split(/,/,$enrollvar{notifylist});
+      my $notifycount = 0;
       foreach  (@notified) {
 	  unless ($_ eq '') { $notifycount ++; } 
       }
@@ -566,7 +567,7 @@
           $notifystate{$viewer} = 0;
       }
 
-      my $notifyshow = join(' ',@ccs);
+      my $notifyshow = @ccs;
 
       if (@ccs > 0) {
           @ccs = sort @ccs;
@@ -636,7 +637,7 @@
       if ($enrollvar{crosslistings} ne '') {
 	  @xlists = split(/,/,$enrollvar{crosslistings});
       }
-      my $cross_str = join(' ',@xlists);
+      my $cross_str = @xlists;
       $r->print("
             <form name=\"enter\" method=\"post\"><br/>
             <table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"2\">
@@ -725,7 +726,7 @@
           }
       }
       if (@sections > 0) {
-          my $secshow = join(' ',@sections);
+          my $secshow = @sections;
           $r->print("
             <form name=\"enter\" method=\"post\"><br/>
             <table width=\"100%\" border=\"0\" cellpadding=\"3\" cellspacing=\"3\">
@@ -791,7 +792,7 @@
               <td align=\"left\"><b>$$tasktitleref{$action}</b><br/>
           ");
           if (@currsections) {
-              my $secshow = join(' ',@currsections);
+              my $secshow = @currsections;
               $r->print("
                 Currently, this LON-CAPA course incorporates enrollment from $secshow sections.  Students enrolling in any of these course sections will be automatically added to the class roster for the course, if you have chosen to enable a nightly automated enrollment update. For each section, uncheck the checkbox if you want registered students in that section to cease being included in the student roster for LON-CAPA course: <b>$realm ($enrollvar{coursecode})</b>; otherwise leave it checked. If you want to change the section/group designation used for this section in LON-CAPA, delete the current value in the LON-CAPA section/groupID textbox and enter the new value.  If you wish to add new course section, enter the number of new sections to add in the textbox at the bottom of the page. You will provide information about each of the new sections on a subsequent page. Click 'Go' to store your changes.
               </td>