$relatedcheckbox use related words |
$domaincheckbox only search domain $domain |
@@ -577,7 +581,7 @@ END
$ENV{'form.viewselect'},
undef,undef,undef,
sort(keys(%Views)));
- $scrout.=&selectbox('Per page','show',
+ $scrout.=&selectbox('Per Page','show',
$ENV{'form.show'},
undef,undef,undef,
(10,20,50,100));
@@ -2038,7 +2042,6 @@ sub update_count_status {
sub update_status {
my ($r,$text) = @_;
$text =~ s/\'/\\\'/g;
- $text=&mt($text);
$r->print
("\n");
$r->rflush();
@@ -2181,7 +2184,7 @@ END
if (@Servers_to_contact) {
# Contact one server
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,
$customshow,[$server]);
($server) = keys(%$reply);
@@ -2193,7 +2196,7 @@ END
# left to contact.
if (scalar (keys(%Server_status))) {
&update_status($r,
- 'waiting on '.(join(' ',keys(%Server_status))));
+ &mt('waiting on').' '.(join(' ',keys(%Server_status))));
}
sleep(1);
}
@@ -2210,12 +2213,12 @@ END
$status=~/^([\.\w]+)$/;
my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$1;
if (-e $datafile && ! -e "$datafile.end") {
- &update_status($r,'Receiving results from '.$server);
+ &update_status($r,&mt('Receiving results from').' '.$server);
next;
}
last if ($connection->aborted());
if (-e "$datafile.end") {
- &update_status($r,'Reading results from '.$server);
+ &update_status($r,&mt('Reading results from').' '.$server);
if (-z "$datafile") {
delete($Server_status{$server});
next;
@@ -2270,7 +2273,7 @@ END
&update_seconds($r,$time_remaining);
}
}
- &update_status($r,'Search Complete'.$server);
+ &update_status($r,&mt('Search Complete').$server);
&update_seconds($r,0);
&Apache::lonmysql::disconnect_from_db();
# We have run out of time or run out of servers to talk to and
@@ -2689,8 +2692,16 @@ Checked for existance & 'edit' mode.
=item 'form.form'
+Contains the name of the form that has the input fields to set
+
=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
=cut
@@ -2727,14 +2738,31 @@ SCRIPT
} elsif ($ENV{'form.mode'} eq 'edit') {
my $form = $ENV{'form.form'};
my $element = $ENV{'form.element'};
+ my $titleelement = $ENV{'form.titleelement'};
+ my $changetitle;
+ if (!$titleelement) {
+ $changetitle='function changeTitle(val) {}';
+ } else {
+ $changetitle=<