--- loncom/interface/lonsearchcat.pm 2008/02/12 18:48:03 1.289 +++ loncom/interface/lonsearchcat.pm 2008/08/04 15:28:21 1.297 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.289 2008/02/12 18:48:03 bisitz Exp $ +# $Id: lonsearchcat.pm,v 1.297 2008/08/04 15:28:21 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -266,7 +266,7 @@ sub handler { ## Configure dynamic components of interface ## if ($env{'form.catalogmode'} eq 'interactive') { - $closebutton=" END } else { @@ -759,11 +760,6 @@ sub setup_basic_search { $r->dir_config('lonDefDomain')), $r->dir_config('lonDefDomain')). ''; - if ($area eq 'res') { - $inclext= ''; - } $adv_search_link = '\n"; + $scrout .= " ".&mt('Month[_1]Day[_2]Year',' 'x14,' 'x6)."\n"; my $cafter = &Apache::lonhtmlcommon::date_setter('advsearch', # formname 'creationdate1', # fieldname @@ -1062,10 +1054,10 @@ ENDHEADER '', # state 1, # no_hh_mm_ss ); - $scrout .= &mt('Created between'. - '[_1]'. - 'and '. - '[_2]',$cafter,$cbefore); + $scrout .= ''.&mt('Created between').'' + .''.$cafter.'' + .''.&mt('and').'' + .''.$cbefore.''; my $lafter = &Apache::lonhtmlcommon::date_setter('advsearch', 'revisiondate1', @@ -1084,10 +1076,10 @@ ENDHEADER '', # state 1, # no_hh_mm_ss ); - $scrout .= &mt('Last modified between '. - '[_1]'. - 'and'. - '[_2]',$lafter,$lbefore); + $scrout .= ''.&mt('Last modified between').'' + .''.$lafter.'' + .''.&mt('and').'' + .''.$lbefore.''; $scrout.="\n"; $scrout.=<{'copyright'} eq 'custom') { + return &Apache::lonnet::customaccess('bre',$Metadata->{'url'}); + } return 1; } @@ -2560,9 +2556,12 @@ END my $server; my $status; my $revise = &revise_button(); + my $txt_total = &mt('Total Matches'); + my $txt_remain = &mt('Time Remaining'); + my $txt_status = &mt('Status'); $r->print(< -StatusTotal MatchesTime Remaining +$txt_status$txt_total$txt_remain @@ -2643,8 +2642,6 @@ END my %Fields = &parse_raw_result($result,$server,$tabletype); $Fields{'hostname'} = $server; # - # Skip if external and we did not want that - next if ((! $env{'form.inclext'}) && ($Fields{'url'}=~/^\/ext\//)); # Skip based on copyright next if (! ©right_check(\%Fields));