--- rat/lonratedt.pm 2002/05/23 10:19:30 1.28
+++ rat/lonratedt.pm 2002/08/20 13:02:41 1.32
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Edit Handler for RAT Maps
#
-# $Id: lonratedt.pm,v 1.28 2002/05/23 10:19:30 www Exp $
+# $Id: lonratedt.pm,v 1.32 2002/08/20 13:02:41 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -36,6 +36,7 @@ use strict;
use Apache::Constants qw(:common);
use Apache::lonnet;
use Apache::lonratsrv;
+use Apache::lonsequence;
my @order;
my @resources;
@@ -67,6 +68,9 @@ sub mapread {
if ($command eq 'objlinks') {
$links[$number]=$content;
}
+ if ($command eq 'objparms') {
+ return('Map has resource parameters. Use advanced editor.',1);
+ }
}
# ------------------------------------------------------- Is this a linear map?
my @starters=();
@@ -343,6 +347,113 @@ sub storemap {
&Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,''));
}
+sub editscript {
+ my $mode=shift;
+ return(<<ENDSCRIPT);
+var srch;
+var srchflag=-1; // 1 means currently open
+ // 0 means closed (but has been open)
+ // -1 means never yet opened/defined
+var srchmode='';
+
+var idx;
+var idxflag=-1; // 1 means currently open
+ // 0 means closed (but has been open)
+ // -1 means never yet opened/defined
+var idxmode='';
+
+// ------------------------------------------------------ Clears indexer window
+function idxclear() {
+ idx.document.clear();
+}
+
+// ------------------------------------------------------- Clears search window
+function srchclear() {
+ srch.document.clear();
+}
+
+// ------------------------------------------------------ Closes indexer window
+function idxclose() {
+ if (idx && !idx.closed) {
+ idxflag=0;
+ idx.close();
+ }
+}
+
+// ------------------------------------------------------- Closes search window
+function srchclose() {
+ if (srch && !srch.closed) {
+ srchflag=0;
+ srch.close();
+ }
+}
+
+// -------------------------------------------------------- Open indexer window
+function idxopen(mode) {
+ var options="scrollbars=1,resizable=1,menubar=0";
+ idxmode=mode;
+ idxflag=1;
+ idx=open("/res/?launch=1&mode=$mode&catalogmode="+mode,"idxout",options);
+ idx.focus();
+}
+
+// --------------------------------------------------------- Open search window
+function srchopen(mode) {
+ var options="scrollbars=1,resizable=1,menubar=0";
+ srchmode=mode;
+ srchflag=1;
+ srch=open("/adm/searchcat?launch=1&mode=$mode&catalogmode="+mode,"srchout",options);
+ srch.focus();
+}
+// ----------------------------------------------------- launch indexer browser
+function groupsearch() {
+ srchcheck('groupsearch');
+}
+
+function groupimport() {
+ idxcheck('groupimport');
+}
+// ------------------------------------------------------- Do srch status check
+function srchcheck(mode) {
+ if (!srch || srch.closed || srchmode!=mode) {
+ srchopen(mode);
+ }
+ srch.focus();
+}
+
+// -------------------------------------------------------- Do idx status check
+function idxcheck(mode) {
+ if (!idx || idx.closed || idxmode!=mode) {
+ idxopen(mode);
+ }
+ idx.focus();
+}
+
+
+ var editbrowser;
+ function openbrowser(formname,elementname,only,omit) {
+ var url = '/res/?';
+ if (editbrowser == null) {
+ url += 'launch=1&';
+ }
+ url += 'catalogmode=interactive&';
+ url += 'mode=edit&';
+ url += 'form=' + formname + '&';
+ if (only != null) {
+ url += 'only=' + only + '&';
+ }
+ if (omit != null) {
+ url += 'omit=' + omit + '&';
+ }
+ url += 'element=' + elementname + '';
+ var title = 'Browser';
+ var options = 'scrollbars=1,resizable=1,menubar=0';
+ options += ',width=700,height=600';
+ editbrowser = open(url,title,options,'1');
+ editbrowser.focus();
+ }
+ENDSCRIPT
+}
# ------------------------------------------------------- Simple edit processor
sub smpedt {
@@ -443,7 +554,7 @@ sub smpedt {
}
foreach (
- &attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {
+ &Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {
my ($name,$url)=split(/\:/,$_);
if ($url) {
$importdetail.='&'.&Apache::lonnet::escape($name).'='.
@@ -540,7 +651,9 @@ sub smpedt {
# ------------------------------------------------------------ Assemble windows
my $idx=-1;
- my $importwindow=join("\n",map {
+ my $importwindow=
+ '<option value="-1"> ---- Import and Paste Area ---- </option>'.
+ join("\n",map {
$idx++;
if ($_) {
my ($name,$url)=split(/\=/,$_);
@@ -552,7 +665,9 @@ sub smpedt {
} split(/\&/,$importdetail));
$idx=0;
- my $targetwindow=join("\n",map {
+ my $targetwindow=
+ '<option value="0"> ------- Target Edit Map ------- </option>'.
+ join("\n",map {
my ($name,$url)=split(/\:/,$resources[$_]);
unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { $name='EMPTY'; }
@@ -563,112 +678,13 @@ sub smpedt {
} @order);
# ----------------------------------------------------- Start simple RAT screen
+ my $editscript=&editscript('simple');
$r->print(<<ENDSMPHEAD);
<html>
<head>
<script>
-var srch;
-var srchflag=-1; // 1 means currently open
- // 0 means closed (but has been open)
- // -1 means never yet opened/defined
-var srchmode='';
-
-var idx;
-var idxflag=-1; // 1 means currently open
- // 0 means closed (but has been open)
- // -1 means never yet opened/defined
-var idxmode='';
-
-// ------------------------------------------------------ Clears indexer window
-function idxclear() {
- idx.document.clear();
-}
-
-// ------------------------------------------------------- Clears search window
-function srchclear() {
- srch.document.clear();
-}
-
-// ------------------------------------------------------ Closes indexer window
-function idxclose() {
- if (idx && !idx.closed) {
- idxflag=0;
- idx.close();
- }
-}
-
-// ------------------------------------------------------- Closes search window
-function srchclose() {
- if (srch && !srch.closed) {
- srchflag=0;
- srch.close();
- }
-}
-
-// -------------------------------------------------------- Open indexer window
-function idxopen(mode) {
- var options="scrollbars=1,resizable=1,menubar=0";
- idxmode=mode;
- idxflag=1;
- idx=open("/res/?launch=1&mode=simple&catalogmode="+mode,"idxout",options);
- idx.focus();
-}
-
-// --------------------------------------------------------- Open search window
-function srchopen(mode) {
- var options="scrollbars=1,resizable=1,menubar=0";
- srchmode=mode;
- srchflag=1;
- srch=open("/adm/searchcat?launch=1&mode=simple&catalogmode="+mode,"srchout",options);
- srch.focus();
-}
-// ----------------------------------------------------- launch indexer browser
-function groupsearch() {
- srchcheck('groupsearch');
-}
-
-function groupimport() {
- idxcheck('groupimport');
-}
-// ------------------------------------------------------- Do srch status check
-function srchcheck(mode) {
- if (!srch || srch.closed || srchmode!=mode) {
- srchopen(mode);
- }
- srch.focus();
-}
-
-// -------------------------------------------------------- Do idx status check
-function idxcheck(mode) {
- if (!idx || idx.closed || idxmode!=mode) {
- idxopen(mode);
- }
- idx.focus();
-}
-
- var editbrowser;
- function openbrowser(formname,elementname,only,omit) {
- var url = '/res/?';
- if (editbrowser == null) {
- url += 'launch=1&';
- }
- url += 'catalogmode=interactive&';
- url += 'mode=edit&';
- url += 'form=' + formname + '&';
- if (only != null) {
- url += 'only=' + only + '&';
- }
- if (omit != null) {
- url += 'omit=' + omit + '&';
- }
- url += 'element=' + elementname + '';
- var title = 'Browser';
- var options = 'scrollbars=1,resizable=1,menubar=0';
- options += ',width=700,height=600';
- editbrowser = open(url,title,options,'1');
- editbrowser.focus();
- }
+ $editscript
function openview(entry) {
var url=unescape((entry.split('='))[1]);
@@ -693,6 +709,7 @@ function idxcheck(mode) {
<body bgcolor='#FFFFFF'>
$buttons
<font color=red>$errtext</font>
+<h1>$url</h1>
<form name=simpleedit method=post>
<input type=hidden name=forcesmp value=1>
<table>