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

[www]

www		Tue May 14 11:19:13 2002 EDT

  Modified files:              
    /rat	lonratedt.pm 
  Log:
  Group import/search on target side, start reading other maps
  
  
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.15 rat/lonratedt.pm:1.16
--- rat/lonratedt.pm:1.15	Mon May 13 17:26:05 2002
+++ rat/lonratedt.pm	Tue May 14 11:19:13 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.15 2002/05/13 21:26:05 www Exp $
+# $Id: lonratedt.pm,v 1.16 2002/05/14 15:19:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,6 +126,48 @@
     return $errtext;
 }
 
+# ---------------------------------------------- Read a map as well as possible
+
+sub attemptread {
+    my $fn=shift;
+
+    my @links;
+    undef @links;
+    my @theseres;
+    undef @theseres;
+
+    my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');
+    if ($errtext) { return @theseres }
+
+# -------------------------------------------------------------------- Read map
+    foreach (split(/\<\&\>/,$outtext)) {
+	my ($command,$number,$content)=split(/\<\:\>/,$_);
+        if ($command eq 'objcont') {
+	    $theseres[$number]=$content;
+        }
+        if ($command eq 'objlinks') {
+            $links[$number]=$content;
+        }
+    }
+
+# --------------------------------------------------------------- Sort, sort of
+
+    my $startidx=0;
+    my $endidx=0;
+    for (my $i=0; $i<=$#theseres; $i++) {
+        if (defined($theseres[$i])) {
+            my ($title,$url,$ext,$type)=split(/\:/,$theseres[$i]);
+	    if ($type eq 'start') { $startidx=$i; }
+            if ($type eq 'finish') { $endidx=$i; }
+        }
+    }
+
+
+    return @theseres;
+
+}
+
+
 # --------------------------------------------------------- Build up RAT screen
 sub ratedt {
   my ($r,$url)=@_;
@@ -193,7 +235,7 @@
    my $importdetail=$ENV{'form.curimpdetail'};
 
 # ---------------------------------------------------- Importing from groupsort
-   if ($ENV{'form.importdetail'}) {
+   if (($ENV{'form.importdetail'}) && (!$ENV{'form.impfortarget'})) {
 
        $importdetail='';
        my @curimport=split(/\&/,$ENV{'form.curimpdetail'});
@@ -401,9 +443,17 @@
 <input type=submit name="discard" value="Discard Selected">
 <input type=submit name="clear" value="Clear All">
 <input type=button onClick="javascript:viewimport()" value="View">
+
     </td><td>&nbsp;</td><td bgcolor="#FFFFCC">
-<input type=button onClick="javascript:viewtarget()" value="View">
+
+<input type=button onClick=
+"javascript:impfortarget.value=1;groupsearch()" value="Group Search">
+<input type=button onClick=
+"javascript:impfortarget.value=1;groupimport();" value="Group Import">
+after selected
+<hr><input type=button onClick="javascript:viewtarget()" value="View">
 </td></tr>
+
 <tr><td bgcolor="#FFFFCC"><select name="import" multiple>
 $importwindow
 </select>
@@ -422,6 +472,7 @@
 <input type=hidden name=importdetail value="">
 <input type=hidden name=curimpdetail value="$importdetail">
 <input type=hidden name=targetdetail value="$targetdetail">
+<input type=hidden name=impfortarget value="0">
 </form>
 </body></html>
 ENDSMPHEAD