--- loncom/interface/lonpickcourse.pm 2003/03/28 01:53:55 1.7 +++ loncom/interface/lonpickcourse.pm 2003/10/13 22:24:51 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.7 2003/03/28 01:53:55 www Exp $ +# $Id: lonpickcourse.pm,v 1.9 2003/10/13 22:24:51 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,10 +33,11 @@ use Apache::Constants qw(:common); use Apache::loncommon; use Apache::loncoursedata; use Apache::lonnet; +use Apache::lonlocal; sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; @@ -73,9 +74,16 @@ ENDDOCUMENT '2592000' => 'last month', '7776000' => 'last three months', '15552000' => 'last six months', - '31104000' => 'last year')); + '31104000' => 'last year', + 'select_form_order' => + ['-1','86400','604800','2592000','7776000', + '15552000','31104000'])); $r->print(&Apache::loncommon::bodytag("Selecting a Course")); + my %lt=&Apache::lonlocal::texthash( + 'cac' => 'Course Activity', + 'cde' => 'Course Description', + 'cdo' => 'Course Domain'); $r->print(< function gochoose(cname,cdom) { @@ -93,11 +101,11 @@ function gochoose(cname,cdom) { -Course Activity: $sincefilterform +$lt{'cac'}: $sincefilterform
-Course Domain: $domainselectform +$lt{'cdo'}: $domainselectform
-Course Description: +$lt{'cde'}:

@@ -105,7 +113,7 @@ Course Description: ENDSCRIPT # ---------------------------------------------------------------- Get the data if ($ENV{'form.gosearch'}) { - $r->print('Searching ...
 
'); + $r->print(&mt('Searching').' ...
 
'); $r->rflush(); unless ($descriptfilter) { $descriptfilter='.'; } my $timefilter=($sincefilter==-1?1:time-$sincefilter);