version 1.337, 2013/09/02 00:00:49
|
version 1.340, 2013/12/31 01:07:28
|
Line 52 search (on a server basis) is displayed
|
Line 52 search (on a server basis) is displayed
|
|
|
=head1 Internals |
=head1 Internals |
|
|
=over 4 |
|
|
|
=cut |
=cut |
|
|
############################################################################### |
############################################################################### |
Line 428 sub hidden_field {
|
Line 426 sub hidden_field {
|
|
|
###################################################################### |
###################################################################### |
|
|
=pod |
=pod |
|
|
|
=over 4 |
|
|
=item &print_basic_search_form() |
=item &print_basic_search_form() |
|
|
Prints the form for the basic search. Sorry the name is so cryptic. |
Prints the form for the basic search. Sorry the name is so cryptic. |
Line 1015 This function is the reverse of &make_pe
|
Line 1015 This function is the reverse of &make_pe
|
Retrieve persistent data from %persistent_db. Retrieved items will have their |
Retrieve persistent data from %persistent_db. Retrieved items will have their |
values unescaped. If the item is 'domains; then the returned |
values unescaped. If the item is 'domains; then the returned |
value will be a hash pointer. Otherwise, if the item contains |
value will be a hash pointer. Otherwise, if the item contains |
commas (before unescaping), the returned value will be an array pointer. |
commas (before unescaping), the returned value will be an array pointer. |
|
|
=cut |
=cut |
|
|
Line 1071 Store variables away to the %persistent_
|
Line 1071 Store variables away to the %persistent_
|
Values will be escaped. Values that are array pointers will have their |
Values will be escaped. Values that are array pointers will have their |
elements escaped and concatenated in a comma separated string. Values |
elements escaped and concatenated in a comma separated string. Values |
that are hash pointers will have their keys and values escaped and |
that are hash pointers will have their keys and values escaped and |
concatenated in a comma separated string |
concatenated in a comma separated string. |
|
|
=cut |
=cut |
|
|
Line 2359 END
|
Line 2359 END
|
my $major = $1; |
my $major = $1; |
my $minor = $2; |
my $minor = $2; |
if (($major < 2) || (($major == 2) && ($minor < 11))) { |
if (($major < 2) || (($major == 2) && ($minor < 11))) { |
map { $older_library_servers{$_} = 1; } |
map { $older_library_servers{$_} = 1; } |
&Apache::lonnet::machine_ids($library_servers{$key}); |
&Apache::lonnet::machine_ids($library_servers{$key}); |
} |
} |
} |
} |
Line 2369 END
|
Line 2369 END
|
foreach my $server (@Servers_to_contact) { |
foreach my $server (@Servers_to_contact) { |
my %possdoms; |
my %possdoms; |
map { $possdoms{$_}=1; } &Apache::lonnet::machine_domains($all_library_servers{$server}); |
map { $possdoms{$_}=1; } &Apache::lonnet::machine_domains($all_library_servers{$server}); |
$domains_by_server{$server} = |
$domains_by_server{$server} = |
join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server}))); |
join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server}))); |
} |
} |
} |
} |
Line 3148 SCRIPT
|
Line 3148 SCRIPT
|
|
|
my $start_page = &Apache::loncommon::start_page(undef,$js, |
my $start_page = &Apache::loncommon::start_page(undef,$js, |
{'only_body' =>1, |
{'only_body' =>1, |
'add_wishlist' =>1}); |
'add_wishlist' =>1, |
|
'add_modal' =>1}); |
my $result=<<END; |
my $result=<<END; |
$start_page |
$start_page |
<form name="results" method="post" action="/adm/searchcat"> |
<form name="results" method="post" action="/adm/searchcat"> |