Diff for /loncom/interface/lonpopulate.pm between versions 1.28 and 1.29

version 1.28, 2005/11/04 15:03:29 version 1.29, 2005/11/04 21:25:34
Line 486  ENDTWO Line 486  ENDTWO
 ENDTWO  ENDTWO
   } elsif ($action eq "notify") {    } elsif ($action eq "notify") {
       my @notified = split(/,/,$enrollvar{notifylist});        my @notified = split(/,/,$enrollvar{notifylist});
         my $notifycount = 0;
       foreach  (@notified) {        foreach  (@notified) {
   unless ($_ eq '') { $notifycount ++; }     unless ($_ eq '') { $notifycount ++; } 
       }        }
Line 566  ENDTWO Line 567  ENDTWO
           $notifystate{$viewer} = 0;            $notifystate{$viewer} = 0;
       }        }
   
       my $notifyshow = join(' ',@ccs);        my $notifyshow = @ccs;
   
       if (@ccs > 0) {        if (@ccs > 0) {
           @ccs = sort @ccs;            @ccs = sort @ccs;
Line 636  ENDTWO Line 637  ENDTWO
       if ($enrollvar{crosslistings} ne '') {        if ($enrollvar{crosslistings} ne '') {
   @xlists = split(/,/,$enrollvar{crosslistings});    @xlists = split(/,/,$enrollvar{crosslistings});
       }        }
       my $cross_str = join(' ',@xlists);        my $cross_str = @xlists;
       $r->print("        $r->print("
             <form name=\"enter\" method=\"post\"><br/>              <form name=\"enter\" method=\"post\"><br/>
             <table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"2\">              <table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"2\">
Line 725  ENDTWO Line 726  ENDTWO
           }            }
       }        }
       if (@sections > 0) {        if (@sections > 0) {
           my $secshow = join(' ',@sections);            my $secshow = @sections;
           $r->print("            $r->print("
             <form name=\"enter\" method=\"post\"><br/>              <form name=\"enter\" method=\"post\"><br/>
             <table width=\"100%\" border=\"0\" cellpadding=\"3\" cellspacing=\"3\">              <table width=\"100%\" border=\"0\" cellpadding=\"3\" cellspacing=\"3\">
Line 791  your changes.</td> Line 792  your changes.</td>
               <td align=\"left\"><b>$$tasktitleref{$action}</b><br/>                <td align=\"left\"><b>$$tasktitleref{$action}</b><br/>
           ");            ");
           if (@currsections) {            if (@currsections) {
               my $secshow = join(' ',@currsections);                my $secshow = @currsections;
               $r->print("                $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.                  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>                </td>

Removed from v.1.28  
changed lines
  Added in v.1.29


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>