--- loncom/interface/Attic/londropadd.pm 2005/04/07 06:56:23 1.127 +++ loncom/interface/Attic/londropadd.pm 2005/06/03 16:27:26 1.130 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.127 2005/04/07 06:56:23 albertel Exp $ +# $Id: londropadd.pm,v 1.130 2005/06/03 16:27:26 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -607,6 +607,7 @@ sub print_upload_manager_footer { $Str .= '
\n". &mt('Note: this will not take effect if the user already exists'). + &Apache::loncommon::help_open_topic('Auth_Options'). "
\n"; $Str .= $krbform."\n
\n". $intform."\n
\n".
@@ -986,6 +987,7 @@ sub print_enroll_single_student_form {
'psam' => "Please select an authentication mechanism",
'mail' => "Email Address"
);
+ my $authhelp=&Apache::loncommon::help_open_topic('Auth_Options');
$user_data_html = <
$krbform
@@ -1460,9 +1462,13 @@ END
$name,$section]);
my $col = 5;
foreach my $time ($start,$end) {
- $excel_sheet->write($row,$col++,
+ if (defined($time) && $time != 0) {
+ $excel_sheet->write($row,$col++,
&Apache::lonstathelpers::calc_serial($time),
$format->{'date'});
+ } else {
+ $excel_sheet->write($row,$col++,'none');
+ }
}
$excel_sheet->write($row,$col++,$status);
$row++;
@@ -2208,12 +2214,7 @@ sub upfile_drop_add {
sub drop_student_list {
my $r=shift;
my $count=0;
- my @droplist;
- if (ref($env{'form.droplist'})) {
- @droplist = @{$env{'form.droplist'}};
- } else {
- @droplist = ($env{'form.droplist'});
- }
+ my @droplist = &Apache::loncommon::get_env_multiple('form.droplist');
foreach (@droplist) {
my ($uname,$udom)=split(/\:/,$_);
# drop student
@@ -1003,7 +1005,7 @@ sub print_enroll_single_student_form {
$lt{'pswd'}
-$lt{'psam'}
+$lt{'psam'}$authhelp