--- loncom/interface/Attic/londropadd.pm 2002/04/16 21:02:17 1.26
+++ loncom/interface/Attic/londropadd.pm 2002/04/30 13:51:00 1.34
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.26 2002/04/16 21:02:17 matthew Exp $
+# $Id: londropadd.pm,v 1.34 2002/04/30 13:51:00 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -59,8 +59,7 @@ use Apache::Constants qw(:common :http R
# ================================================================ Print header
sub header {
- my $r=shift;
- $r->print(< Note: this will not take effect if the user already exists
-
-Kerberos authenticated with domain
-
+$krbform
-
-Internally authenticated (with initial password
-)
+$intform
-
-Local Authentication with argument
-
+$locform
+LON-CAPA domain: $domform
Enrolling '.$ENV{'form.cuname'}." in domain ".
+ $ENV{'form.lcdomain'}.' ERROR '.
+ 'Invalid login mode or password. '.
+ 'Unable to enroll '.$ENV{'form.cuname'}.'.
-
@@ -156,36 +185,45 @@ ENDPICK
sub javascript_validations {
my ($krbdefdom)=@_;
+ my %param = ( formname => 'studentform',
+ kerb_def_dom => $krbdefdom );
+ my $authheader = &Apache::loncommon::authform_header(%param);
return (<Login Type
LON-CAPA Domain for Students
-LON-CAPA domain: Starting and Ending Dates
@@ -505,33 +503,56 @@ sub menu_phase_two_upload {
sub enroll_single_student {
my $r=shift;
$r->print('Enrolling Student
');
+ $r->print('
username domain
@@ -714,7 +753,12 @@ END
}
}
$r->print('
');
- $r->print('');
+ $r->print(<<"END");
+
+ + +
+END } # ================================================= Drop/Add from uploaded file @@ -739,18 +783,29 @@ sub upfile_drop_add { my $enddate = $ENV{'form.enddate'}; if ($startdate=~/\D/) { $startdate=''; } if ($enddate=~/\D/) { $enddate=''; } - # + # Determine domain and desired host (home server) my $domain=$ENV{'form.lcdomain'}; + my $desiredhost = $ENV{'form.lcserver'}; + if (lc($desiredhost) eq 'default') { + $desiredhost = undef; + } else { + my %home_servers = &Apache::loncommon::get_home_servers($domain); + if (! exists($home_servers{$desiredhost})) { + $r->print('Error:'. + 'Invalid home server specified'); + return; + } + } # Determine authentication mechanism my $amode = ''; my $genpwd = ''; if ($ENV{'form.login'} eq 'krb') { $amode='krb4'; - $genpwd=$ENV{'form.krbdom'}; + $genpwd=$ENV{'form.krbarg'}; } elsif ($ENV{'form.login'} eq 'int') { $amode='internal'; - if ((defined($ENV{'form.intpwd'})) && ($ENV{'form.intpwd'})) { - $genpwd=$ENV{'form.intpwd'}; + if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) { + $genpwd=$ENV{'form.intarg'}; } } elsif ($ENV{'form.login'} eq 'loc') { $amode='localauth'; @@ -823,11 +878,12 @@ sub upfile_drop_add { } } if ($password) { - &modifystudent($domain,$username,$cid,$sec); + &modifystudent($domain,$username,$cid,$sec, + $desiredhost); my $reply=&Apache::lonnet::modifystudent ($domain,$username,$id,$amode,$password, $fname,$mname,$lname,$gen,$sec,$enddate, - $startdate,$ENV{'form.forceid'}); + $startdate,$ENV{'form.forceid'},$desiredhost); if ($reply ne 'ok') { $r->print(''.
'Error enrolling '.$username.': '.
@@ -854,9 +910,12 @@ sub upfile_drop_add {
if ($ENV{'form.fullup'} eq 'yes') {
$r->print('Dropping Students
');
# Get current classlist
- my %currentlist=&get_current_classlist
+ my ($error,%currentlist)=&get_current_classlist
($ENV{'course.'.$cid.'.domain'},
$ENV{'course.'.$cid.'.num'});
+ if (defined($error)) {
+ $r->print('ERROR:$error
');
+ }
if (defined(%currentlist)) {
# Drop the students
foreach (@studentdata) {
@@ -870,8 +929,7 @@ sub upfile_drop_add {
# Print out list of dropped students
&show_drop_list($r,%currentlist);
} else {
- $r->print(''.
- 'Could not access classlist
');
+ $r->print("There are no students currently enrolled.\n");
}
}
} # end of unless
@@ -894,7 +952,6 @@ sub drop_student_list {
# ================================================================ Main Handler
sub handler {
my $r=shift;
- $Apache::lonxml::debug=1;
if ($r->header_only) {
$r->content_type('text/html');
$r->send_http_header;
@@ -906,7 +963,7 @@ sub handler {
# Start page
$r->content_type('text/html');
$r->send_http_header;
- &header($r);
+ $r->print(&header());
# Phase one, initial screen
unless ($ENV{'form.phase'}) {
&menu_phase_one($r);