--- rat/lonratedt.pm 2002/05/15 20:24:32 1.18
+++ rat/lonratedt.pm 2002/05/16 21:10:05 1.20
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Edit Handler for RAT Maps
#
-# $Id: lonratedt.pm,v 1.18 2002/05/15 20:24:32 www Exp $
+# $Id: lonratedt.pm,v 1.20 2002/05/16 21:10:05 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -274,6 +274,33 @@ sub buttons {
return $output.'
';
}
+# ----------------------------------------------------------- Paste into target
+# modifies @order, @resources
+
+sub pastetarget {
+ my ($after,@which)=@_;
+ my @insertorder=();
+ foreach (@which) {
+ if (defined($_)) {
+ my ($name,$url)=split(/\=/,$_);
+ my $idx=$#resources+1;
+ $insertorder[$#insertorder+1]=$idx;
+ my $ext='false';
+ if ($url=~/^http\:\/\//) { $ext='true'; }
+ $resources[$idx]=$name.':'.$url.':normal:'.$ext.':res';
+ }
+ }
+ print "insertorder:".join(',',@insertorder).'
';
+ print "order:".join(',',@order).'
';
+ my @oldorder=splice(@order,$after,$#insertorder+1,@insertorder);
+ print "oldorder:".join(',',@oldorder).'
';
+ print "order:".join(',',@order).'
';
+ @order=push(@order,@oldorder);
+ print "order:".join(',',@order).'
';
+}
+
+# ------------------------------------------------------- Simple edit processor
+
sub smpedt {
my ($r,$errtext)=@_;
my $buttons=&buttons(2);
@@ -389,11 +416,24 @@ sub smpedt {
$importdetail=~s/\&+/\&/g;
$importdetail=~s/^\&//;
-# ------------------------------------
- }
+# ------------------------------------------------ Groupimport/search to target
+ } elsif ($ENV{'form.importdetail'}) {
+ my $lastsel;
+ if (defined($targetselect[-1])) {
+ $lastsel=$targetselect[-1];
+ } else {
+ $lastsel=$#order;
+ }
+ &pastetarget($lastsel,split(/\&/,$ENV{'form.importdata'}));
+# ------------------------------------------------------------------------- Cut
+ } elsif ($ENV{'form.cut'}) {
+# ----------------------------------------------------------------------- Paste
+ } elsif ($ENV{'form.paste'}) {
+# ------------------------------------------------
+ }
# ------------------------------------------------------------ Assemble windows
-
+
my $idx=-1;
my $importwindow=join("\n",map {
$idx++;
@@ -414,7 +454,7 @@ sub smpedt {
$targetdetail.='&'.&Apache::lonnet::escape($name).'='.
&Apache::lonnet::escape($url);
$idx++;
- '';
+ '';
} @order);
# ----------------------------------------------------- Start simple RAT screen
@@ -524,6 +564,25 @@ function idxcheck(mode) {
editbrowser = open(url,title,options,'1');
editbrowser.focus();
}
+
+ function openview(entry) {
+ var url=unescape((entry.split('='))[1]);
+ var parts=new Array;
+ parts=url.split(':');
+ url=parts.join(':');
+ if (url) { open(url,'cat'); }
+ }
+
+ function viewtarget() {
+ openview((document.forms.simpleedit.targetdetail.value.split('&'))
+ [document.forms.simpleedit.target.selectedIndex+1]);
+ }
+
+ function viewimport() {
+ openview((document.forms.simpleedit.curimpdetail.value.split('&'))
+ [document.forms.simpleedit.import.selectedIndex+1]);
+ }
+