--- loncom/interface/lonsearchcat.pm 2022/05/29 03:19:00 1.355
+++ loncom/interface/lonsearchcat.pm 2023/12/22 20:11:55 1.358
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.355 2022/05/29 03:19:00 raeburn Exp $
+# $Id: lonsearchcat.pm,v 1.358 2023/12/22 20:11:55 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -176,7 +176,7 @@ sub handler {
}
my $crumb_text = 'Portfolio Search';
if (@allowed_searches ==2) {
- $crumb_text = 'Portfolio and Catalog Search';
+ $crumb_text = 'Portfolio and Content Library Search';
}
my $target = '_top';
if ((($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) ||
@@ -184,7 +184,7 @@ sub handler {
if ($env{'form.phase'} =~ /^(sort|run_search)$/) {
$target = '_parent';
} else {
- $target = '';
+ $target = '_self';
}
}
&Apache::lonhtmlcommon::add_breadcrumb
@@ -337,10 +337,10 @@ END
['query','customquery','customshow',
'libraries','pretty_string','domains']);
if ($env{'form.phase'} eq 'sort') {
- &print_sort_form($r,$pretty_string);
+ &print_sort_form($r,$pretty_string,$target);
} elsif ($env{'form.phase'} eq 'run_search') {
&run_search($r,$query,$customquery,$customshow,
- $libraries,$pretty_string,$env{'form.area'},$domainsref);
+ $libraries,$pretty_string,$env{'form.area'},$domainsref,$target);
}
} elsif(($env{'form.phase'} eq 'basic_search') ||
($env{'form.phase'} eq 'adv_search')) {
@@ -474,7 +474,7 @@ sub setup_basic_search {
my ($r,$area,$hidden_fields,$closebutton) = @_;
# Define interface components
my %lt = &Apache::lonlocal::texthash (
- res => 'LON-CAPA Catalog Search',
+ res => 'Content Library Search',
portfolio => 'Portfolio Search',
);
my ($userelatedwords,$onlysearchdomain,$inclext,$adv_search_link,$scrout);
@@ -658,7 +658,7 @@ function additional_metadata() {
'standards','mime') {
$scrout .= &Apache::lonhtmlcommon::row_title(&titlefield($fields{$field}))
.&Apache::lonmeta::prettyinput($field,
- $env{'form.'.$field},
+ $env{'form.'.$field},'',
$field,
'advsearch',
$related_word_search{$field},
@@ -675,7 +675,7 @@ function additional_metadata() {
foreach my $field ('lowestgradelevel','highestgradelevel') {
$scrout .= &Apache::lonhtmlcommon::row_title(&titlefield($fields{$field}))
.&Apache::lonmeta::prettyinput($field,
- $env{'form.'.$field},
+ $env{'form.'.$field},'',
$field,
'advsearch',
0)
@@ -710,7 +710,7 @@ function additional_metadata() {
if ($env{'form.area'} ne 'portfolio') {
$scrout .= &Apache::lonhtmlcommon::row_title(&titlefield(&mt('Copyright/Distribution')))
.&Apache::lonmeta::selectbox('copyright',
- $env{'form.copyright'},
+ $env{'form.copyright'},'',
\&Apache::loncommon::copyrightdescription,
( undef,
&Apache::loncommon::copyrightids)
@@ -720,7 +720,7 @@ function additional_metadata() {
$scrout .= &Apache::lonhtmlcommon::row_title(&titlefield(&mt('Language')))
.&Apache::lonmeta::selectbox('language',
- $env{'form.language'},
+ $env{'form.language'},'',
\&Apache::loncommon::languagedescription,
('any',&Apache::loncommon::languageids)
)
@@ -956,12 +956,12 @@ sub viewoptions {
$scrout .= ''
.&mt('Type:').' '
.&Apache::lonmeta::selectbox('viewselect',
- $env{'form.viewselect'},
+ $env{'form.viewselect'},'',
\&viewoptiontext,
sort(keys(%Views)))
.'';
my $countselect = &Apache::lonmeta::selectbox('show',
- $env{'form.show'},
+ $env{'form.show'},'',
undef,
(10,20,50,100,1000,10000));
$scrout .= ' '
@@ -2063,7 +2063,7 @@ a link to change the search query.
######################################################################
######################################################################
sub print_sort_form {
- my ($r,$pretty_query_string) = @_;
+ my ($r,$pretty_query_string,$target) = @_;
##
my %SortableFields=&Apache::lonlocal::texthash(
@@ -2096,17 +2096,15 @@ sub print_sort_form {
&Apache::lonnet::logthis(&Apache::lonmysql::get_error());
return;
}
- my $target = '_top';
my $args;
- if ((($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) ||
- (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self'))) {
- $target = '_parent';
+ if ($target eq '_parent') {
$args = {'links_target' => $target};
}
my $start_page = &Apache::loncommon::start_page('Results',undef,$args);
my $breadcrumbs=
&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
- $env{'form.catalogmode'} ne 'import');
+ $env{'form.catalogmode'} ne 'import',
+ '','','','','','',$target);
my $result = < $target};
+ }
+ my $start_page = &Apache::loncommon::start_page('Search Status',undef,$args);
my $breadcrumbs =
&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
- $env{'form.catalogmode'} ne 'import');
+ $env{'form.catalogmode'} ne 'import',
+ '','','','','','',$target);
$r->print(<