--- loncom/interface/lonindexer.pm	2001/05/31 14:29:03	1.7
+++ loncom/interface/lonindexer.pm	2001/05/31 21:38:58	1.8
@@ -23,7 +23,7 @@ my %dirs;
 my %language;
 my $hidden;
 my $extrafield;
-
+my $fnum=0;
 sub BEGIN {
     my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab');
     map {
@@ -75,6 +75,9 @@ END
 END
     }
     elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
+	$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
+	    '<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'.
+	    ' border="0"></td>';
 	$colspan=" colspan='2' ";
 	$hidden=<<END;
 <input type='hidden' name='catalogmode' value='groupimport'>
@@ -83,7 +86,7 @@ END
 <input type="button" name="close" value='CLOSE' onClick="self.close()">
 END
         $groupimportbutton=<<END;
-<input type="button" name="groupimport" value='GROUP IMPORT' onClick="alert('not implemented')">
+<input type="button" name="groupimport" value='GROUP IMPORT' onClick="javascript:select_group()">
 END
     }
 
@@ -94,6 +97,25 @@ END
 function select_data(title,url) {
     changeTitle(title);
     changeURL(url);
+    self.close();
+}
+function save_group() {
+    for (var num=0; num<document.forms.fnum.fnum.value; num++) {
+	if (eval("document.forms.form"+num+".filelink.checked")) {
+	    alert(eval("document.forms.form"+num+".title.value")+
+		       eval("document.forms.form"+num+".filelink.value"));
+	}
+    }
+}
+function select_group() {
+    for (var num=0; num<document.forms.fnum.fnum.value; num++) {
+	if (eval("document.forms.form"+num+".filelink.checked")) {
+	    alert(eval("document.forms.form"+num+".title.value")+
+		       eval("document.forms.form"+num+".filelink.value"));
+	}
+    }
+//    changeTitle(title);
+//    changeURL(url);
 }
 function changeTitle(val) {
     if (opener.inf.document.forms.resinfo.elements.t) {
@@ -212,6 +234,8 @@ END
 	my $indent = 0;
 	&scanDir ($r,$toplevel,$indent);
 
+	$r->print("<form name='fnum'>");
+	$r->print("<input type='hidden' name='fnum' value='$fnum'></form>");
 	$r->print("</table>");
 	$r->print("</td></tr></table>");
 	$r->print("</body></html>\n");
@@ -375,17 +399,32 @@ sub display_line{
 	my @file_ext = split (/\./,$listname);
 	my $curfext = $file_ext[scalar(@file_ext)-1];
 	my $filelink = $startdir.$filecom[0];
-	$r->print("<tr><td nowrap bgcolor=$fileclr>");
+	$r->print("<tr><td nowrap valign='bottom' bgcolor=$fileclr>");
 	my $metafile = grep /^$filecom[0]\.meta\&/, @list;
 	my $title;
         if ($ENV{'form.catalogmode'} eq 'interactive') {
 	    $title=$listname;
-	    $title = &Apache::lonnet::metadata($filelink,'title') if ($metafile == 1);
+	    $title = &Apache::lonnet::metadata($filelink,'title')
+		if ($metafile == 1);
 	    $title=$listname unless $title;
 	    $r->print("<a href='javascript:select_data(\"",
 	              $title,'","',$filelink,"\")'>");
 	    $r->print("<img src='",$iconpath,"select.gif' border=0></a>\n");
-	    $r->print("</td><td nowrap bgcolor=$fileclr>");
+	    $r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>");
+	}
+        elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
+	    $title=$listname;
+	    $title = &Apache::lonnet::metadata($filelink,'title')
+		if ($metafile == 1);
+	    $title=$listname unless $title;
+	    $r->print("<form name='form$fnum'>\n");
+	    $r->print("<input type='checkbox' name='filelink"."' ".
+		      "value='$filelink'>\n");
+	    $r->print("<input type='hidden' name='title"."' ".
+		      "value='$title'>\n");
+	    $r->print("</form>\n");
+	    $r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>");
+  	    $fnum++;
 	}
 
 	if ($indent < 11) {