--- rat/lonratedt.pm	2002/05/11 23:23:01	1.10
+++ rat/lonratedt.pm	2002/05/13 14:33:50	1.11
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.10 2002/05/11 23:23:01 www Exp $
+# $Id: lonratedt.pm,v 1.11 2002/05/13 14:33:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -166,6 +166,12 @@ sub buttons {
 sub smpedt {
    my ($r,$errtext)=@_;
    my $buttons=&buttons(2);
+   my $targetwindow=join("\n",map { 
+       my ($name)=split(/\:/,$resources[$_]);
+       unless ($name) { $name='UNKNOWN'; }
+       '<option value="t'.$_.'">'.$name.'</option>';
+   } @order);
+
 # ----------------------------------------------------- Start simple RAT screen
    $r->print(<<ENDSMPHEAD);
 <html>
@@ -254,15 +260,29 @@ function idxcheck(mode) {
 <body bgcolor='#FFFFFF'>
 $buttons
 <font color=red>$errtext</font>
+<form method=post>
+<input type=hidden name=forcesmp value=1>
+<table>
+    <tr><th>Import</th><th>&nbsp;</th><th>Target</th></tr>
+<tr><td>
 <a href="javascript:groupsearch()">Group Search</a>
 <a href="javascript:groupimport()">Group Import</a>
-
+    </td><td>&nbsp;</td><td>&nbsp;</td></tr>
+<tr><td>
+</td>
+<td>
+<input type=submit name=cut value='<<<'><p>
+<input type=submit name=paste value='>>>'>
+</td>
+<td><select name="target" multiple>
+$targetwindow
+</select>
 ENDSMPHEAD
 
-    $r->print(
-      '<input type=submit name=forcesmp value="Store"></form></body></html>');
+    $r->print('</table></form></body></html>');
 }
 
+# ----------------------------------------------------------------- No such dir
 sub nodir {
    my ($r,$dir)=@_;
    $dir=~s/^\/home\/\w+\/public\_html//;

Import		Target
Group Search Group Import - +
+	+ + +	ENDSMPHEAD - $r->print( - ''); + $r->print('