--- loncom/interface/Attic/londropadd.pm 2004/01/21 00:23:30 1.91.2.1 +++ loncom/interface/Attic/londropadd.pm 2003/12/08 21:01:03 1.92 @@ -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.92 2003/12/08 21:01:03 sakharuk 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(<
-
-
-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') {
@@ -1519,7 +1514,7 @@ END
username
- domain
+ domaind
ID
student name
section
@@ -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(<
END
@@ -1583,11 +1582,14 @@ END
END
}
$r->print('
- username
+ $wordusername
- domain
+ $worddomain
ID
- student name
+ $wordstudentname
- section
+ $wordsection
');
+ my $DropStudents=&mt('Drop Students');
+ my $CheckAll=&mt('check all');
+ my $UncheckAll=&mt('uncheck all');
$r->print(<<"END");
\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 .= "