--- loncom/interface/Attic/londropadd.pm 2004/01/21 00:23:30 1.91.2.1 +++ loncom/interface/Attic/londropadd.pm 2003/12/08 23:13:17 1.93 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.91.2.1 2004/01/21 00:23:30 albertel Exp $ +# $Id: londropadd.pm,v 1.93 2003/12/08 23:13:17 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -43,7 +43,6 @@ use Apache::lonhtmlcommon(); use Apache::Constants qw(:common :http REDIRECT); use Spreadsheet::WriteExcel; use Apache::lonlocal; -use localenroll(); ############################################################### ############################################################### @@ -172,14 +171,10 @@ sub print_main_menu { $Text{'drop'}

-END - if (&localenroll::run() ) { - $r->print(< $Text{'populate'} END - } } ############################################################### @@ -981,7 +976,7 @@ END # ========================================================= Menu Phase Two Drop sub print_drop_menu { my $r=shift; - $r->print("

Drop Students

"); + $r->print("

".&mt('Drop Students')."

"); my $cid=$ENV{'request.course.id'}; my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); if (! defined($classlist)) { @@ -1100,7 +1095,7 @@ END $r->print('"'.join('","',("username","domain","ID","student name", "section","status")).'"'."\n"); } else { - $r->print('"'.join('","',("username","domain","ID","student name", + $r->print('"'.join('","',(&mt("username"),"domain","ID","student name", "section")).'"'."\n"); } } elsif ($mode eq 'excel') { @@ -1527,19 +1522,23 @@ END END } else { + my $wordusername=&mt('username'); + my $worddomain=&mt('domain'); + my $wordstudentname=&mt('student name'); + my $wordsection=&mt('section'); $r->print(<   - username + $wordusername - domain + $worddomain ID - student name + $wordstudentname - section + $wordsection END @@ -1583,11 +1582,14 @@ END END } $r->print('
'); + my $DropStudents=&mt('Drop Students'); + my $CheckAll=&mt('check all'); + my $UncheckAll=&mt('uncheck all'); $r->print(<<"END");

-   - -

+   + +

END return; } @@ -1609,10 +1611,10 @@ sub print_first_courselist_upload_form { $str .= ' '. &mt('Ignore First Line')."

\n"; $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List", - "How do I create a class list from a spreadsheet"). + &mt("How do I create a class list from a spreadsheet")). "
\n"; $str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV", - "How do I create a CSV file from a spreadsheet"). + &mt("How do I create a CSV file from a spreadsheet")). "
\n"; $str .= "\n\n"; $r->print($str);