version 1.28, 2002/05/23 10:19:30
|
version 1.32, 2002/08/20 13:02:41
|
Line 36 use strict;
|
Line 36 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonratsrv; |
use Apache::lonratsrv; |
|
use Apache::lonsequence; |
|
|
my @order; |
my @order; |
my @resources; |
my @resources; |
Line 67 sub mapread {
|
Line 68 sub mapread {
|
if ($command eq 'objlinks') { |
if ($command eq 'objlinks') { |
$links[$number]=$content; |
$links[$number]=$content; |
} |
} |
|
if ($command eq 'objparms') { |
|
return('Map has resource parameters. Use advanced editor.',1); |
|
} |
} |
} |
# ------------------------------------------------------- Is this a linear map? |
# ------------------------------------------------------- Is this a linear map? |
my @starters=(); |
my @starters=(); |
Line 343 sub storemap {
|
Line 347 sub storemap {
|
&Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,'')); |
&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 |
# ------------------------------------------------------- Simple edit processor |
|
|
sub smpedt { |
sub smpedt { |
Line 443 sub smpedt {
|
Line 554 sub smpedt {
|
} |
} |
|
|
foreach ( |
foreach ( |
&attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) { |
&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) { |
my ($name,$url)=split(/\:/,$_); |
my ($name,$url)=split(/\:/,$_); |
if ($url) { |
if ($url) { |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
Line 540 sub smpedt {
|
Line 651 sub smpedt {
|
# ------------------------------------------------------------ Assemble windows |
# ------------------------------------------------------------ Assemble windows |
|
|
my $idx=-1; |
my $idx=-1; |
my $importwindow=join("\n",map { |
my $importwindow= |
|
'<option value="-1"> ---- Import and Paste Area ---- </option>'. |
|
join("\n",map { |
$idx++; |
$idx++; |
if ($_) { |
if ($_) { |
my ($name,$url)=split(/\=/,$_); |
my ($name,$url)=split(/\=/,$_); |
Line 552 sub smpedt {
|
Line 665 sub smpedt {
|
} split(/\&/,$importdetail)); |
} split(/\&/,$importdetail)); |
|
|
$idx=0; |
$idx=0; |
my $targetwindow=join("\n",map { |
my $targetwindow= |
|
'<option value="0"> ------- Target Edit Map ------- </option>'. |
|
join("\n",map { |
my ($name,$url)=split(/\:/,$resources[$_]); |
my ($name,$url)=split(/\:/,$resources[$_]); |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name='EMPTY'; } |
unless ($name) { $name='EMPTY'; } |
Line 563 sub smpedt {
|
Line 678 sub smpedt {
|
} @order); |
} @order); |
|
|
# ----------------------------------------------------- Start simple RAT screen |
# ----------------------------------------------------- Start simple RAT screen |
|
my $editscript=&editscript('simple'); |
$r->print(<<ENDSMPHEAD); |
$r->print(<<ENDSMPHEAD); |
<html> |
<html> |
<head> |
<head> |
<script> |
<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(); |
|
} |
|
|
|
|
$editscript |
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(); |
|
} |
|
|
|
function openview(entry) { |
function openview(entry) { |
var url=unescape((entry.split('='))[1]); |
var url=unescape((entry.split('='))[1]); |
Line 693 function idxcheck(mode) {
|
Line 709 function idxcheck(mode) {
|
<body bgcolor='#FFFFFF'> |
<body bgcolor='#FFFFFF'> |
$buttons |
$buttons |
<font color=red>$errtext</font> |
<font color=red>$errtext</font> |
|
<h1>$url</h1> |
<form name=simpleedit method=post> |
<form name=simpleedit method=post> |
<input type=hidden name=forcesmp value=1> |
<input type=hidden name=forcesmp value=1> |
<table> |
<table> |