version 1.188, 2003/09/29 15:28:40
|
version 1.191, 2003/10/24 21:09:24
|
Line 200 sub handler {
|
Line 200 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['catalogmode','launch','acts','mode','form','element','pause', |
['catalogmode','launch','acts','mode','form','element','pause', |
'phase','persistent_db_id','table','start','show', |
'phase','persistent_db_id','table','start','show', |
'cleargroupsort']); |
'cleargroupsort','titleelement']); |
## |
## |
## The following is a trick - we wait a few seconds if asked to so |
## The following is a trick - we wait a few seconds if asked to so |
## the daemon running the search can get ahead of the daemon |
## the daemon running the search can get ahead of the daemon |
Line 282 END
|
Line 282 END
|
$hidden_fields .= '<input type="hidden" name="element" value="'. |
$hidden_fields .= '<input type="hidden" name="element" value="'. |
$ENV{'form.element'}.'" />'."\n"; |
$ENV{'form.element'}.'" />'."\n"; |
} |
} |
|
if (exists($ENV{'form.titleelement'})) { |
|
$hidden_fields .= '<input type="hidden" name="titleelement" value="'. |
|
$ENV{'form.titleelement'}.'" />'."\n"; |
|
} |
if (exists($ENV{'form.mode'})) { |
if (exists($ENV{'form.mode'})) { |
$hidden_fields .= '<input type="hidden" name="mode" value="'. |
$hidden_fields .= '<input type="hidden" name="mode" value="'. |
$ENV{'form.mode'}.'" />'."\n"; |
$ENV{'form.mode'}.'" />'."\n"; |
Line 563 ENDDOCUMENT
|
Line 567 ENDDOCUMENT
|
my $header=&mt('Advanced Search'); |
my $header=&mt('Advanced Search'); |
$scrout.=<<END; |
$scrout.=<<END; |
</td><td><a |
</td><td><a |
href="/adm/searchcat?phase=disp_adv&catalogmode=$ENV{'form.catalogmode'}&launch=$ENV{'form.launch'}" |
href="/adm/searchcat?phase=disp_adv&catalogmode=$ENV{'form.catalogmode'}&launch=$ENV{'form.launch'}&mode=$ENV{'form.mode'}" |
>$header</a></td></tr> |
>$header</a></td></tr> |
<tr><td>$relatedcheckbox use related words</td> |
<tr><td>$relatedcheckbox use related words</td> |
<td>$domaincheckbox only search domain <b>$domain</b></td></tr> |
<td>$domaincheckbox only search domain <b>$domain</b></td></tr> |
Line 2038 sub update_count_status {
|
Line 2042 sub update_count_status {
|
sub update_status { |
sub update_status { |
my ($r,$text) = @_; |
my ($r,$text) = @_; |
$text =~ s/\'/\\\'/g; |
$text =~ s/\'/\\\'/g; |
$text=&mt($text); |
|
$r->print |
$r->print |
("<script>document.statusform.status.value = ' $text'</script>\n"); |
("<script>document.statusform.status.value = ' $text'</script>\n"); |
$r->rflush(); |
$r->rflush(); |
Line 2181 END
|
Line 2184 END
|
if (@Servers_to_contact) { |
if (@Servers_to_contact) { |
# Contact one server |
# Contact one server |
my $server = shift(@Servers_to_contact); |
my $server = shift(@Servers_to_contact); |
&update_status($r,'contacting '.$server); |
&update_status($r,&mt('contacting').' '.$server); |
my $reply=&Apache::lonnet::metadata_query($query,$customquery, |
my $reply=&Apache::lonnet::metadata_query($query,$customquery, |
$customshow,[$server]); |
$customshow,[$server]); |
($server) = keys(%$reply); |
($server) = keys(%$reply); |
Line 2193 END
|
Line 2196 END
|
# left to contact. |
# left to contact. |
if (scalar (keys(%Server_status))) { |
if (scalar (keys(%Server_status))) { |
&update_status($r, |
&update_status($r, |
'waiting on '.(join(' ',keys(%Server_status)))); |
&mt('waiting on').' '.(join(' ',keys(%Server_status)))); |
} |
} |
sleep(1); |
sleep(1); |
} |
} |
Line 2210 END
|
Line 2213 END
|
$status=~/^([\.\w]+)$/; |
$status=~/^([\.\w]+)$/; |
my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
if (-e $datafile && ! -e "$datafile.end") { |
if (-e $datafile && ! -e "$datafile.end") { |
&update_status($r,'Receiving results from '.$server); |
&update_status($r,&mt('Receiving results from').' '.$server); |
next; |
next; |
} |
} |
last if ($connection->aborted()); |
last if ($connection->aborted()); |
if (-e "$datafile.end") { |
if (-e "$datafile.end") { |
&update_status($r,'Reading results from '.$server); |
&update_status($r,&mt('Reading results from').' '.$server); |
if (-z "$datafile") { |
if (-z "$datafile") { |
delete($Server_status{$server}); |
delete($Server_status{$server}); |
next; |
next; |
Line 2270 END
|
Line 2273 END
|
&update_seconds($r,$time_remaining); |
&update_seconds($r,$time_remaining); |
} |
} |
} |
} |
&update_status($r,'Search Complete'.$server); |
&update_status($r,&mt('Search Complete').$server); |
&update_seconds($r,0); |
&update_seconds($r,0); |
&Apache::lonmysql::disconnect_from_db(); |
&Apache::lonmysql::disconnect_from_db(); |
# We have run out of time or run out of servers to talk to and |
# We have run out of time or run out of servers to talk to and |
Line 2689 Checked for existance & 'edit' mode.
|
Line 2692 Checked for existance & 'edit' mode.
|
|
|
=item 'form.form' |
=item 'form.form' |
|
|
|
Contains the name of the form that has the input fields to set |
|
|
=item 'form.element' |
=item 'form.element' |
|
|
|
the name of the input field to put the URL into |
|
|
|
=item 'form.titleelement' |
|
|
|
the name of the input field to put the title into |
|
|
=back |
=back |
|
|
=cut |
=cut |
Line 2727 SCRIPT
|
Line 2738 SCRIPT
|
} elsif ($ENV{'form.mode'} eq 'edit') { |
} elsif ($ENV{'form.mode'} eq 'edit') { |
my $form = $ENV{'form.form'}; |
my $form = $ENV{'form.form'}; |
my $element = $ENV{'form.element'}; |
my $element = $ENV{'form.element'}; |
|
my $titleelement = $ENV{'form.titleelement'}; |
|
my $changetitle; |
|
if (!$titleelement) { |
|
$changetitle='function changeTitle(val) {}'; |
|
} else { |
|
$changetitle=<<END; |
|
function changeTitle(val) { |
|
if (parent.targetwin.document) { |
|
parent.targetwin.document.forms["$form"].elements["$titleelement"].value=val; |
|
} else { |
|
var url = 'forms[\"$form\"].elements[\"$titleelement\"].value'; |
|
alert("Unable to transfer data to "+url); |
|
} |
|
} |
|
END |
|
} |
|
|
$result.=<<SCRIPT; |
$result.=<<SCRIPT; |
<script type="text/javascript"> |
<script type="text/javascript"> |
function select_data(title,url) { |
function select_data(title,url) { |
changeURL(url); |
changeURL(url); |
|
changeTitle(title); |
parent.close(); |
parent.close(); |
} |
} |
function changeTitle(val) { |
$changetitle |
} |
|
function changeURL(val) { |
function changeURL(val) { |
if (parent.targetwin.document) { |
if (parent.targetwin.document) { |
parent.targetwin.document.forms["$form"].elements["$element"].value=val; |
parent.targetwin.document.forms["$form"].elements["$element"].value=val; |