--- loncom/interface/lonpopulate.pm 2005/11/04 15:03:29 1.28
+++ loncom/interface/lonpopulate.pm 2006/02/08 23:47:23 1.37
@@ -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.37 2006/02/08 23:47:23 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -312,7 +312,7 @@ sub print_main_frame {
Use "Section settings" to make changes to the choice of sections included for enrollment in your LON-CAPA course. |
|
- Use "Student photos" to enable or disable automatic upload of student photos to your course. |
+ Use "Student photos settings" to enable or disable automatic import of photos for registered students in your course. |
|
@@ -320,6 +320,10 @@ sub print_main_frame {
|
+ Use "Update student photos" to import your institution's most current digital photos for registered students in your course. |
+
+
+ |
Use "View students and change type" to display the current course roster, and (optionally) change enrollment type for selected students from 'auto' to 'manual' and vice versa. |
@@ -485,6 +489,7 @@ ENDTWO
ENDTWO
} elsif ($action eq "notify") {
+ my $notifycount = 0;
my @notified = split(/,/,$enrollvar{notifylist});
foreach (@notified) {
unless ($_ eq '') { $notifycount ++; }
@@ -566,7 +571,7 @@ ENDTWO
$notifystate{$viewer} = 0;
}
- my $notifyshow = join(' ',@ccs);
+ my $notifyshow = @ccs;
if (@ccs > 0) {
@ccs = sort @ccs;
@@ -636,7 +641,7 @@ ENDTWO
if ($enrollvar{crosslistings} ne '') {
@xlists = split(/,/,$enrollvar{crosslistings});
}
- my $cross_str = join(' ',@xlists);
+ my $cross_str = @xlists;
$r->print("