[LON-CAPA-cvs] cvs: rat / lonratedt.pm

www lon-capa-cvs@mail.lon-capa.org
Mon, 13 May 2002 15:36:05 -0000


www		Mon May 13 11:36:05 2002 EDT

  Modified files:              
    /rat	lonratedt.pm 
  Log:
  Process form input and prepare field for group import and browse
  
  
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.11 rat/lonratedt.pm:1.12
--- rat/lonratedt.pm:1.11	Mon May 13 10:33:50 2002
+++ rat/lonratedt.pm	Mon May 13 11:36:05 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.11 2002/05/13 14:33:50 www Exp $
+# $Id: lonratedt.pm,v 1.12 2002/05/13 15:36:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -166,10 +166,46 @@
 sub smpedt {
    my ($r,$errtext)=@_;
    my $buttons=&buttons(2);
+
+# ---------------------------------------------------------- Process form input
+
+   my @importselect=();
+   my @targetselect=();
+   undef @importselect;
+   undef @targetselect;
+   if (defined($ENV{'form.import'})) {
+       if (ref($ENV{'form.import'})) {
+	   @importselect=$ENV->{'form.import'};
+       } else {
+           @importselect=($ENV{'form.import'});
+       }
+   }
+   if (defined($ENV{'form.target'})) {
+       if (ref($ENV{'form.target'})) {
+	   @targetselect=$ENV->{'form.target'};
+       } else {
+           @targetselect=($ENV{'form.target'});
+       }
+   }
+# --------------------------------------------------------- 
+
+   my $targetdetail=();
+
+   my @imporder=();
+   my @impresources=();
+   my $importdetail='';
+# ------------------------------------------------------------ Assemble windows
+
+   my $importwindow=join("\n",map { 
+       my ($name)=split(/\:/,$impresources[$_]);
+       unless ($name) { $name='UNKNOWN'; }
+       '<option value="'.$_.'">'.$name.'</option>';
+   } @imporder);
+
    my $targetwindow=join("\n",map { 
        my ($name)=split(/\:/,$resources[$_]);
        unless ($name) { $name='UNKNOWN'; }
-       '<option value="t'.$_.'">'.$name.'</option>';
+       '<option value="'.$_.'">'.$name.'</option>';
    } @order);
 
 # ----------------------------------------------------- Start simple RAT screen
@@ -263,23 +299,36 @@
 <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>
+    <tr><th width="40%">Import</th>
+<th>&nbsp;</th>
+<th width="40%">Target</th></tr>
+<tr><td bgcolor="#FFFFCC">
+<input type=button onClick="javascript:groupsearch()" value="Group Search">
+<input type=button onClick="javascript:groupimport()" value="Group Import">
+<input type=button onClick="javascript:viewimport()" value="View">
+    </td><td>&nbsp;</td><td bgcolor="#FFFFCC">
+<input type=button onClick="javascript:viewtarget()" value="View">
+</td></tr>
+<tr><td bgcolor="#FFFFCC"><select name="import" multiple>
+$importwindow
+</select>
 </td>
-<td>
+<td bgcolor="#FFFFAA" align="center">
+Cut selected<br>
 <input type=submit name=cut value='<<<'><p>
+<hr>
+Paste after selected<br>
 <input type=submit name=paste value='>>>'>
 </td>
-<td><select name="target" multiple>
+<td bgcolor="#FFFFCC"><select name="target" multiple>
 $targetwindow
 </select>
+</table>
+<input type=hidden name=importdetail value="$importdetail">
+<input type=hidden name=targetdetail value="$targetdetail">
+</form>
+</body></html>
 ENDSMPHEAD
-
-    $r->print('</table></form></body></html>');
 }
 
 # ----------------------------------------------------------------- No such dir