--- rat/lonratedt.pm 2001/06/30 14:05:57 1.4
+++ rat/lonratedt.pm 2002/05/11 23:23:01 1.10
@@ -1,5 +1,30 @@
# The LearningOnline Network with CAPA
# Edit Handler for RAT Maps
+#
+# $Id: lonratedt.pm,v 1.10 2002/05/11 23:23:01 www Exp $
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
# (TeX Content Handler
#
# 05/29/00,05/30 Gerd Kortemeyer)
@@ -10,6 +35,96 @@ package Apache::lonratedt;
use strict;
use Apache::Constants qw(:common);
use Apache::lonnet;
+use Apache::lonratsrv;
+
+my @order=();
+my @resources=();
+
+
+# Mapread read maps into global arrays @links and @resources, determines status
+# sets @order - pointer to resources in right order
+# sets @resources - array with the resources with correct idx
+#
+sub mapread {
+ my $fn=shift;
+
+ my @links;
+ undef @links;
+ undef @resources;
+ undef @order;
+
+ my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');
+ if ($errtext) { return ($errtext,2); }
+
+# -------------------------------------------------------------------- Read map
+ foreach (split(/\<\&\>/,$outtext)) {
+ my ($command,$number,$content)=split(/\<\:\>/,$_);
+ if ($command eq 'objcont') {
+ $resources[$number]=$content;
+ }
+ if ($command eq 'objlinks') {
+ $links[$number]=$content;
+ }
+ }
+# ------------------------------------------------------- Is this a linear map?
+ my @starters=();
+ my @endings=();
+ undef @starters;
+ undef @endings;
+
+ foreach (@links) {
+ if (defined($_)) {
+ my ($start,$end,$cond)=split(/\:/,$_);
+ if ((defined($starters[$start])) || (defined($endings[$end]))) {
+ return
+ ('Map has branchings. Use advanced editor.',1);
+ }
+ $starters[$start]=1;
+ $endings[$end]=1;
+ if ($cond) {
+ return
+ ('Map has conditions. Use advanced editor.',1);
+ }
+ }
+
+ }
+ for (my $i=0; $i<=$#resources; $i++) {
+ if (defined($resources[$i])) {
+ unless (($starters[$i]) || ($endings[$i])) {
+ return
+ ('Map has unconnected resources. Use advanced editor.',1);
+ }
+ }
+ }
+
+# -------------------------------------------------- This is a linear map, sort
+
+ my $startidx=0;
+ my $endidx=0;
+ for (my $i=0; $i<=$#resources; $i++) {
+ if (defined($resources[$i])) {
+ my ($title,$url,$ext,$type)=split(/\:/,$resources[$i]);
+ if ($type eq 'start') { $startidx=$i; }
+ if ($type eq 'finish') { $endidx=$i; }
+ }
+ }
+ my $k=0;
+ my $currentidx=$startidx;
+ $order[$k]=$currentidx;
+ for (my $i=0; $i<=$#resources; $i++) {
+ foreach (@links) {
+ my ($start,$end)=split(/\:/,$_);
+ if ($start==$currentidx) {
+ $currentidx=$end;
+ $k++;
+ $order[$k]=$currentidx;
+ last;
+ }
+ }
+ if ($currentidx==$endidx) { last; }
+ }
+ return $errtext;
+}
# --------------------------------------------------------- Build up RAT screen
sub ratedt {
@@ -32,15 +147,118 @@ sub ratedt {
ENDDOCUMENT
}
+# ---------------------------------------------------------------- Make buttons
+
+sub buttons {
+ my $adv=shift;
+ my $output='<form method=post>';
+ if ($adv==1) {
+ $output.='<input type=submit name=forceadv value="Edit">';
+ } else {
+ unless ($adv==2) {
+ $output.='<input type=submit name=forcesmp value="Simple Edit">';
+ }
+ $output.='<input type=submit name=forceadv value="Advanced Edit">';
+ }
+ return $output.'</form><hr>';
+}
+
sub smpedt {
- my ($r,$fn)=@_;
+ my ($r,$errtext)=@_;
+ my $buttons=&buttons(2);
+# ----------------------------------------------------- Start simple RAT screen
$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();
+}
+</script>
+</head>
<body bgcolor='#FFFFFF'>
-<form method=post>
-<input type=submit name=forceadv
-value="Advanced Map Editing - Resource Assembly Tool"><hr>
+$buttons
+<font color=red>$errtext</font>
+<a href="javascript:groupsearch()">Group Search</a>
+<a href="javascript:groupimport()">Group Import</a>
+
ENDSMPHEAD
+
$r->print(
'<input type=submit name=forcesmp value="Store"></form></body></html>');
}
@@ -57,6 +275,31 @@ sub nodir {
ENDNODIR
}
+# ---------------------------------------------------------------- View Handler
+
+sub viewmap {
+ my ($r,$adv,$errtext)=@_;
+ $r->print('<html><body bgcolor="#FFFFFF">'.&buttons($adv));
+ if ($errtext) {
+ $r->print($errtext.'<hr>');
+ }
+ foreach (@resources) {
+ if (defined($_)) {
+ my ($title,$url)=split(/\:/,$_);
+ $title=~s/\&colon\;/\:/g;
+ $url=~s/\&colon\;/\:/g;
+ unless ($title) { $title='<i>Unknown</i>'; }
+ if ($url) {
+ $r->print('<a href="'.&Apache::lonratsrv::qtescape($url).'">');
+ }
+ $r->print(&Apache::lonratsrv::qtescape($title));
+ if ($url) { $r->print('</a>'); }
+ $r->print('<br>');
+ }
+ }
+ $r->print('</body></html>');
+}
+
# ================================================================ Main Handler
sub handler {
@@ -74,6 +317,8 @@ sub handler {
&nodir($r,$dir);
return OK;
}
+
+# ------------------------------------------- Determine which tools can be used
my $adv=0;
unless ($ENV{'form.forcesmp'}) {
@@ -85,10 +330,22 @@ sub handler {
}
}
- if ($adv) {
+ my $errtext='';
+ my $fatal=0;
+
+# -------------------------------------------------------------------- Load map
+ ($errtext,$fatal)=&mapread($fn,$errtext);
+
+ if ($fatal==1) { $adv=1; }
+
+# ----------------------------------- adv==1 now means "graphical MUST be used"
+
+ if ($ENV{'form.forceadv'}) {
&ratedt($r,$url);
+ } elsif ($ENV{'form.forcesmp'}) {
+ &smpedt($r,$errtext);
} else {
- &smpedt($r,$fn);
+ &viewmap($r,$adv,$errtext);
}
return OK;
}