version 1.260, 2006/03/23 22:01:58
|
version 1.263, 2006/05/01 19:37:34
|
Line 199 sub handler {
|
Line 199 sub handler {
|
'We were unable to retrieve data describing your search. '. |
'We were unable to retrieve data describing your search. '. |
'This is a serious error and has been logged. '. |
'This is a serious error and has been logged. '. |
'Please alert your LON-CAPA administrator.'; |
'Please alert your LON-CAPA administrator.'; |
return &Apache::loncommon::simple_error_page($r,'Search Error', |
&Apache::loncommon::simple_error_page($r,'Search Error', |
$msg); |
$msg); |
|
return OK; |
} |
} |
} |
} |
} else { |
} else { |
Line 221 sub handler {
|
Line 222 sub handler {
|
# This is a stupid error to give to the user. |
# This is a stupid error to give to the user. |
# It really tells them nothing. |
# It really tells them nothing. |
my $msg = 'Unable to tie hash to db file.'; |
my $msg = 'Unable to tie hash to db file.'; |
return &Apache::loncommon::simple_error_page($r,'Search Error', |
&Apache::loncommon::simple_error_page($r,'Search Error', |
$msg); |
$msg); |
|
return OK; |
} |
} |
} |
} |
## |
## |
Line 363 END
|
Line 365 END
|
my $msg = |
my $msg = |
'Unable to create table in which to store search results. '. |
'Unable to create table in which to store search results. '. |
'The search has been aborted.'; |
'The search has been aborted.'; |
return &Apache::loncommon::simple_error_page($r,'Search Error', |
&Apache::loncommon::simple_error_page($r,'Search Error', |
$msg); |
$msg); |
|
return OK; |
} |
} |
delete($env{'form.launch'}); |
delete($env{'form.launch'}); |
if (! &make_form_data_persistent($r,$persistent_db_file)) { |
if (! &make_form_data_persistent($r,$persistent_db_file)) { |
my $msg= |
my $msg= |
'Unable to properly store search information. '. |
'Unable to properly store search information. '. |
'The search has been aborted.'; |
'The search has been aborted.'; |
return &Apache::loncommon::simple_error_page($r,'Search Error', |
&Apache::loncommon::simple_error_page($r,'Search Error', |
$msg); |
$msg); |
|
return OK; |
} |
} |
## |
## |
## Print out the frames interface |
## Print out the frames interface |
Line 656 sub print_basic_search_form {
|
Line 660 sub print_basic_search_form {
|
my ($r,$closebutton,$hidden_fields) = @_; |
my ($r,$closebutton,$hidden_fields) = @_; |
my $result = ($env{'form.catalogmode'} ne 'groupsearch'); |
my $result = ($env{'form.catalogmode'} ne 'groupsearch'); |
my $bread_crumb = |
my $bread_crumb = |
&Apache::lonhtmlcommon::breadcrumbs(undef,'Searching','Search_Basic', |
&Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Basic', |
undef,undef, |
$env{'form.catalogmode'} ne 'groupsearch'); |
$env{'form.catalogmode'} ne 'groupsearch'); |
|
my $scrout = &Apache::loncommon::start_page('Search').$bread_crumb; |
my $scrout = &Apache::loncommon::start_page('Search').$bread_crumb; |
if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'})) { |
# Define interface components |
# Define interface components |
Line 790 Prints the advanced search form.
|
Line 793 Prints the advanced search form.
|
sub print_advanced_search_form{ |
sub print_advanced_search_form{ |
my ($r,$closebutton,$hidden_fields) = @_; |
my ($r,$closebutton,$hidden_fields) = @_; |
my $bread_crumb = |
my $bread_crumb = |
&Apache::lonhtmlcommon::breadcrumbs(undef,'Searching', |
&Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Advanced', |
'Search_Advanced', |
$env{'form.catalogmode'} ne 'groupsearch'); |
undef,undef, |
|
$env{'form.catalogmode'} ne 'groupsearch'); |
|
my %lt=&Apache::lonlocal::texthash('srch' => 'Search', |
my %lt=&Apache::lonlocal::texthash('srch' => 'Search', |
'reset' => 'Reset', |
'reset' => 'Reset', |
'help' => 'Help'); |
'help' => 'Help'); |
Line 2105 END
|
Line 2106 END
|
my $start_page = &Apache::loncommon::start_page('Results',$js, |
my $start_page = &Apache::loncommon::start_page('Results',$js, |
{'only_body' => 1}); |
{'only_body' => 1}); |
my $breadcrumbs= |
my $breadcrumbs= |
&Apache::lonhtmlcommon::breadcrumbs |
&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching', |
(undef,'Searching','Searching',undef,undef, |
$env{'form.catalogmode'} ne 'groupsearch'); |
$env{'form.catalogmode'} ne 'groupsearch'); |
|
|
|
my $result = <<END; |
my $result = <<END; |
$start_page |
$start_page |
Line 2335 sub run_search {
|
Line 2335 sub run_search {
|
# |
# |
my $start_page = &Apache::loncommon::start_page('Search Status',undef, |
my $start_page = &Apache::loncommon::start_page('Search Status',undef, |
{'only_body' => 1}); |
{'only_body' => 1}); |
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs |
my $breadcrumbs = |
(undef,'Searching','Searching',undef,undef, |
&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching', |
$env{'form.catalogmode'} ne 'groupsearch'); |
$env{'form.catalogmode'} ne 'groupsearch'); |
$r->print(<<END); |
$r->print(<<END); |
$start_page |
$start_page |
$breadcrumbs |
$breadcrumbs |
Line 3127 var targetwin = opener;
|
Line 3127 var targetwin = opener;
|
var queue = ''; |
var queue = ''; |
</script> |
</script> |
JS |
JS |
my $html = &Apache::lonxml::xmlbegin(); |
|
my $head = &Apache::loncommon::head('LON-CAPA Digital Library Search Results',$js); |
my $start_page = |
|
&Apache::loncommon::start_page('LON-CAPA Digital Library Search Results', |
|
$js, |
|
{'frameset' => 1, |
|
'add_entries' => { |
|
'rows' => "150,*",},}); |
|
my $end_page = |
|
&Apache::loncommon::end_page({'frameset' => 1}); |
|
|
my $result = <<"ENDFRAMES"; |
my $result = <<"ENDFRAMES"; |
$html |
$start_page |
$head |
|
<frameset rows="150,*"> |
|
<frame name="statusframe" src="$run_search_link"> |
<frame name="statusframe" src="$run_search_link"> |
<frame name="resultsframe" src="$results_link"> |
<frame name="resultsframe" src="$results_link"> |
</frameset> |
$end_page |
</html> |
|
ENDFRAMES |
ENDFRAMES |
|
|
$r->print($result); |
$r->print($result); |