--- loncom/interface/Attic/londropadd.pm 2003/12/12 18:04:38 1.94
+++ loncom/interface/Attic/londropadd.pm 2004/01/15 03:18:19 1.98
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.94 2003/12/12 18:04:38 sakharuk Exp $
+# $Id: londropadd.pm,v 1.98 2004/01/15 03:18:19 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,11 +25,6 @@
#
# http://www.lon-capa.org/
#
-# (Handler to set parameters for assessments
-#
-# (Handler to resolve ambiguous file locations
-#
-# (TeX Content Handler
#
###############################################################
##############################################################
@@ -47,7 +42,9 @@ use Apache::lonlocal;
###############################################################
###############################################################
sub header {
- my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');
+ my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager').
+ &Apache::loncommon::help_open_faq(9).
+ &Apache::loncommon::help_open_bug('Instructor Interface');
my $title = &mt('LON-CAPA Enrollment Manager');
return(<
$Text{'enrollone'} - + $help{'Course_Add_Student'}
$Text{'modify'} - + $help{'Course_Modify_Student_Data'}
$Text{'view'} - + $help{'Course_View_Class_List'}
$Text{'drop'} - + $help{'Course_Drop_Student'}
$Text{'populate'}
@@ -232,7 +235,7 @@ sub print_upload_manager_header {
###############################################################
###############################################################
sub javascript_validations {
- my ($mode,$krbdefdom)=@_;
+ my ($mode,$krbdefdom,$curr_authtype,$curr_authfield)=@_;
my $authheader;
if ($mode eq 'auth') {
my %param = ( formname => 'studentform',
@@ -242,7 +245,15 @@ sub javascript_validations {
my %param = ( formname => 'ccrs',
kerb_def_dom => $krbdefdom );
$authheader = &Apache::loncommon::authform_header(%param);
+ } elsif ($mode eq 'modifycourse') {
+ my %param = ( formname => 'cmod',
+ kerb_def_dom => $krbdefdom,
+ mode => 'modifycourse',
+ curr_authtype => $curr_authtype,
+ curr_autharg => $curr_authfield );
+ $authheader = &Apache::loncommon::authform_header(%param);
}
+
my %alert = &Apache::lonlocal::texthash
(username => 'You need to specify the username field.',
@@ -260,24 +271,59 @@ sub javascript_validations {
my $function_name =(< \n";
$Str .= ''."
\n";
+ 'value="Update Class List" />'."
\n";
$Str .= &mt('Note: for large courses, this operation may be time '.
'consuming');
$r->print($Str);