version 1.267, 2006/06/08 13:56:31
|
version 1.273, 2006/07/17 19:47:20
|
Line 1540 sub parse_domain_restrictions {
|
Line 1540 sub parse_domain_restrictions {
|
$domain_hash{$_}++; |
$domain_hash{$_}++; |
} |
} |
if ($domain_hash{'any'}) { |
if ($domain_hash{'any'}) { |
$pretty_domains_string = "In all LON-CAPA domains."; |
$pretty_domains_string = &mt("in all LON-CAPA domains."); |
} else { |
} else { |
if (@allowed_domains > 1) { |
if (@allowed_domains > 1) { |
$pretty_domains_string = "In LON-CAPA domains:"; |
$pretty_domains_string = &mt("in LON-CAPA domains:"); |
} else { |
} else { |
$pretty_domains_string = "In LON-CAPA domain "; |
$pretty_domains_string = &mt("in LON-CAPA domain "); |
} |
} |
foreach (sort @allowed_domains) { |
foreach (sort @allowed_domains) { |
$pretty_domains_string .= "<b>".$_."</b> "; |
$pretty_domains_string .= "<b>".$_."</b> "; |
Line 1614 sub parse_basic_search {
|
Line 1614 sub parse_basic_search {
|
#} |
#} |
my $final_query = 'SELECT * FROM metadata WHERE '.join(" AND ",@Queries); |
my $final_query = 'SELECT * FROM metadata WHERE '.join(" AND ",@Queries); |
# |
# |
|
if ($env{'form.related'}) { |
|
$pretty_search_string.=' '.&mt('(including related words)'); |
|
} |
if (defined($pretty_domains_string) && $pretty_domains_string ne '') { |
if (defined($pretty_domains_string) && $pretty_domains_string ne '') { |
$pretty_search_string .= ' '.$pretty_domains_string; |
$pretty_search_string .= ' '.$pretty_domains_string; |
} |
} |
Line 2104 sub print_sort_form {
|
Line 2107 sub print_sort_form {
|
END |
END |
|
|
my $start_page = &Apache::loncommon::start_page('Results',$js, |
my $start_page = &Apache::loncommon::start_page('Results',$js, |
{'only_body' => 1}); |
{'no_title' => 1}); |
my $breadcrumbs= |
my $breadcrumbs= |
&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching', |
&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching', |
$env{'form.catalogmode'} ne 'import'); |
$env{'form.catalogmode'} ne 'import'); |
Line 2113 END
|
Line 2116 END
|
$start_page |
$start_page |
$breadcrumbs |
$breadcrumbs |
<form name="statusform" action="" method="post" target="_top"> |
<form name="statusform" action="" method="post" target="_top"> |
<input type="hidden" name="Queue" value="" /> |
<input type="hidden" name="catalogmode" value="import" /> |
|
<input type="hidden" name="acts" value="" /> |
END |
END |
|
|
#<h2>Sort Results</h2> |
#<h2>Sort Results</h2> |
Line 2132 END
|
Line 2136 END
|
<p> |
<p> |
There are $total_results matches to your query. $revise |
There are $total_results matches to your query. $revise |
</p><p> |
</p><p> |
Search:$pretty_query_string |
Search: $pretty_query_string |
</p> |
</p> |
</form> |
</form> |
END |
END |
Line 2334 sub run_search {
|
Line 2338 sub run_search {
|
# Print run_search header |
# Print run_search header |
# |
# |
my $start_page = &Apache::loncommon::start_page('Search Status',undef, |
my $start_page = &Apache::loncommon::start_page('Search Status',undef, |
{'only_body' => 1}); |
{'no_title' => 1}); |
my $breadcrumbs = |
my $breadcrumbs = |
&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching', |
&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching', |
$env{'form.catalogmode'} ne 'import'); |
$env{'form.catalogmode'} ne 'import'); |
Line 2342 sub run_search {
|
Line 2346 sub run_search {
|
$start_page |
$start_page |
$breadcrumbs |
$breadcrumbs |
<form name="statusform" action="" method="post"> |
<form name="statusform" action="" method="post"> |
<input type="hidden" name="Queue" value="" /> |
<input type="hidden" name="acts" value="" /> |
END |
END |
# Remove leading and trailing <br /> |
# Remove leading and trailing <br /> |
$pretty_string =~ s:^\s*<br />::i; |
$pretty_string =~ s:^\s*<br />::i; |
Line 3062 SCRIPT
|
Line 3066 SCRIPT
|
if (document.forms.results.returnvalues.length != "undefined" && |
if (document.forms.results.returnvalues.length != "undefined" && |
typeof(document.forms.results.returnvalues.length) == "number") { |
typeof(document.forms.results.returnvalues.length) == "number") { |
if (document.forms.results.returnvalues[checkbox_num].checked) { |
if (document.forms.results.returnvalues[checkbox_num].checked) { |
parent.statusframe.document.forms.statusform.elements.Queue.value +='1a'+val+'b'; |
parent.statusframe.document.forms.statusform.elements.acts.value +='1a'+val+'b'; |
} else { |
} else { |
parent.statusframe.document.forms.statusform.elements.Queue.value +='0a'+val+'b'; |
parent.statusframe.document.forms.statusform.elements.acts.value +='0a'+val+'b'; |
} |
} |
} else { |
} else { |
if (document.forms.results.returnvalues.checked) { |
if (document.forms.results.returnvalues.checked) { |
parent.statusframe.document.forms.statusform.elements.Queue.value +='1a'+val+'b'; |
parent.statusframe.document.forms.statusform.elements.acts.value +='1a'+val+'b'; |
} else { |
} else { |
parent.statusframe.document.forms.statusform.elements.Queue.value +='0a'+val+'b'; |
parent.statusframe.document.forms.statusform.elements.acts.value +='0a'+val+'b'; |
} |
} |
} |
} |
} |
} |
function select_group() { |
function select_group() { |
parent.window.location= |
parent.window.location= |
"/adm/groupsort?mode=$env{'form.mode'}&catalogmode=import&acts="+ |
"/adm/groupsort?mode=$env{'form.mode'}&catalogmode=import&acts="+ |
parent.statusframe.document.forms.statusform.elements.Queue.value; |
parent.statusframe.document.forms.statusform.elements.acts.value; |
} |
} |
</script> |
</script> |
SCRIPT |
SCRIPT |
Line 3092 END
|
Line 3096 END
|
return $result; |
return $result; |
} |
} |
|
|
###################################################################### |
|
###################################################################### |
|
sub search_status_header { |
|
my $start_page = &Apache::loncommon::start_page('Search Status',undef, |
|
{'only_body' => 1}); |
|
return <<ENDSTATUS; |
|
$start_page |
|
<h3>Search Status</h3> |
|
Sending search request to LON-CAPA servers.<br /> |
|
ENDSTATUS |
|
} |
|
|
|
sub results_link { |
sub results_link { |
my $basic_link = "/adm/searchcat?"."&table=".$env{'form.table'}. |
my $basic_link = "/adm/searchcat?"."&table=".$env{'form.table'}. |
"&persistent_db_id=".$env{'form.persistent_db_id'}; |
"&persistent_db_id=".$env{'form.persistent_db_id'}; |
Line 3282 sub detailed_citation_view {
|
Line 3274 sub detailed_citation_view {
|
&Apache::lonhtmlcommon::crumbs($item, |
&Apache::lonhtmlcommon::crumbs($item, |
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'), |
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'), |
'/res', |
'/res', |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1); |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1); |
} |
} |
} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){ |
} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){ |
$result.= &mt($field->{'translate'}, |
$result.= &mt($field->{'translate'}, |
Line 3294 sub detailed_citation_view {
|
Line 3286 sub detailed_citation_view {
|
&Apache::lonhtmlcommon::crumbs($jumpurl, |
&Apache::lonhtmlcommon::crumbs($jumpurl, |
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'), |
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'), |
'', |
'', |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1); |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),3,0,1); |
} else { |
} else { |
$result.= &mt($field->{'translate'}, |
$result.= &mt($field->{'translate'}, |
$values{$field->{'name'}}); |
$values{$field->{'name'}}); |
Line 3352 sub summary_view {
|
Line 3344 sub summary_view {
|
my $jumpurl=$values{'url'}; |
my $jumpurl=$values{'url'}; |
$jumpurl=~s/^\/ext\//http\:\/\//; |
$jumpurl=~s/^\/ext\//http\:\/\//; |
my $link=&Apache::lonhtmlcommon::crumbs($jumpurl, |
my $link=&Apache::lonhtmlcommon::crumbs($jumpurl, |
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'), |
(($env{'form.catalogmode'} eq 'import')?'':'preview'), |
'', |
'', |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1); |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),2,0,1); |
|
|
$result.=<<END; |
$result.=<<END; |
<a href="$jumpurl" |
<a href="$jumpurl" |
Line 3395 sub compact_view {
|
Line 3387 sub compact_view {
|
my $link=&Apache::lonhtmlcommon::crumbs($jumpurl, |
my $link=&Apache::lonhtmlcommon::crumbs($jumpurl, |
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'), |
(($env{'form.catalogmode'} eq 'import')?'_top':'preview'), |
'', |
'', |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1); |
(($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),1,1,1).' '; |
my $result = |
my $result = |
$prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'">'; |
$prefix.'<img src="'.&Apache::loncommon::icon($values{'url'}).'">'; |
if (exists($env{'form.sortfield'}) && |
if (exists($env{'form.sortfield'}) && |