--- rat/lonratedt.pm 2002/05/15 20:24:32 1.18
+++ rat/lonratedt.pm 2002/05/18 18:24:34 1.21
@@ -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.21 2002/05/18 18:24:34 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -274,6 +274,47 @@ 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(/\=/,$_);
+ $name=&Apache::lonnet::unescape($name);
+ $url=&Apache::lonnet::unescape($url);
+ if ($url) {
+ my $idx=$#resources+1;
+ $insertorder[$#insertorder+1]=$idx;
+ my $ext='false';
+ if ($url=~/^http\:\/\//) { $ext='true'; }
+ $url=~s/\:/\:/g;
+ $resources[$idx]=$name.':'.$url.':'.$ext.':normal:res';
+ }
+ }
+ }
+ my @oldorder=splice(@order,$after,$#insertorder+1,@insertorder);
+ @order=(@order,@oldorder);
+}
+
+# ------------------------------------------------ Get start and finish correct
+# modifies @resources
+
+sub startfinish {
+ foreach (@order) {
+ my ($name,$url,$ext)=split(/\:/,$resources[$_]);
+ $resources[$_]=$name.':'.$url.':'.$ext.':normal:res';
+ }
+ my ($name,$url,$ext)=split(/\:/,$resources[0]);
+ $resources[0]=$name.':'.$url.':'.$ext.':start:res';
+ my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);
+ $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';
+}
+
+# ------------------------------------------------------- Simple edit processor
+
sub smpedt {
my ($r,$errtext)=@_;
my $buttons=&buttons(2);
@@ -389,11 +430,25 @@ 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.importdetail'}));
+ &startfinish();
+# ------------------------------------------------------------------------- Cut
+ } elsif ($ENV{'form.cut'}) {
+# ----------------------------------------------------------------------- Paste
+ } elsif ($ENV{'form.paste'}) {
+# ------------------------------------------------
+ }
# ------------------------------------------------------------ Assemble windows
-
+
my $idx=-1;
my $importwindow=join("\n",map {
$idx++;
@@ -414,7 +469,7 @@ sub smpedt {
$targetdetail.='&'.&Apache::lonnet::escape($name).'='.
&Apache::lonnet::escape($url);
$idx++;
- '';
+ '';
} @order);
# ----------------------------------------------------- Start simple RAT screen
@@ -524,6 +579,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]);
+ }
+