--- loncom/interface/lonsearchcat.pm 2003/10/07 20:30:13 1.190
+++ loncom/interface/lonsearchcat.pm 2003/10/24 21:09:24 1.191
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.190 2003/10/07 20:30:13 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.191 2003/10/24 21:09:24 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -200,7 +200,7 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['catalogmode','launch','acts','mode','form','element','pause',
'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 daemon running the search can get ahead of the daemon
@@ -282,6 +282,10 @@ END
$hidden_fields .= ''."\n";
}
+ if (exists($ENV{'form.titleelement'})) {
+ $hidden_fields .= ''."\n";
+ }
if (exists($ENV{'form.mode'})) {
$hidden_fields .= ''."\n";
@@ -2688,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
@@ -2726,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=<
function select_data(title,url) {
changeURL(url);
+ changeTitle(title);
parent.close();
}
-function changeTitle(val) {
-}
+$changetitle
function changeURL(val) {
if (parent.targetwin.document) {
parent.targetwin.document.forms["$form"].elements["$element"].value=val;