version 1.28, 2005/11/04 15:03:29
|
version 1.33, 2005/11/07 15:43:31
|
Line 485 ENDTWO
|
Line 485 ENDTWO
|
</form> |
</form> |
ENDTWO |
ENDTWO |
} elsif ($action eq "notify") { |
} elsif ($action eq "notify") { |
|
my $notifycount = 0; |
my @notified = split(/,/,$enrollvar{notifylist}); |
my @notified = split(/,/,$enrollvar{notifylist}); |
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 663 ENDTWO
|
Line 664 ENDTWO
|
for (my $i=0; $i<@xlists; $i++) { |
for (my $i=0; $i<@xlists; $i++) { |
my $xl = ' '; |
my $xl = ' '; |
my $gp = ' '; |
my $gp = ' '; |
if ($xlists[$i] =~ /(\w+):?(.*)$/) { |
if ($xlists[$i] =~ /^([^:]+):?(.*)$/) { |
$xl = $1; |
$xl = $1; |
$gp = $2; |
$gp = $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> |
Line 2103 sub print_update_result () {
|
Line 2104 sub print_update_result () {
|
|
|
if (@currxlists > 0) { |
if (@currxlists > 0) { |
foreach (@currxlists) { |
foreach (@currxlists) { |
if (m/^(\w+):(\w*)$/) { |
if (m/^([^:]+):(\w*)$/) { |
unless (grep/^$1$/,@allcourses) { |
unless (grep/^$1$/,@allcourses) { |
push @allcourses,$1; |
push @allcourses,$1; |
$LC_code{$1} = $2; |
$LC_code{$1} = $2; |