--- 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(<