--- 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(< @@ -148,28 +145,34 @@ sub print_main_menu { 'view' => 'View Class List', 'drop' => 'Drop Students', 'populate' => 'Automated Enrollment Manager'); + my %help=(); + foreach ('Course_Drop_Student','Course_Add_Student', + 'Course_Modify_Student_Data','Course_View_Class_List', + 'Course_Create_Class_List') { + $help{$_}=&Apache::loncommon::help_open_topic($_); + } $r->print(< - $Text{'upload'} - +$Text{'upload'} +$help{'Course_Create_Class_List'}

$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);