[LON-CAPA-cvs] cvs: rat / lonratedt.pm
www
lon-capa-cvs@mail.lon-capa.org
Tue, 14 May 2002 15:19:13 -0000
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> </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