--- rat/lonratedt.pm 2002/05/21 18:18:07 1.25 +++ rat/lonratedt.pm 2002/08/26 12:38:40 1.33 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.25 2002/05/21 18:18:07 www Exp $ +# $Id: lonratedt.pm,v 1.33 2002/08/26 12:38:40 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,9 +36,9 @@ use strict; use Apache::Constants qw(:common); use Apache::lonnet; use Apache::lonratsrv; +use Apache::lonsequence; -my @order; -my @resources; +use vars qw(@order @resources); # Mapread read maps into global arrays @links and @resources, determines status @@ -67,6 +67,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=(); @@ -129,7 +132,9 @@ sub mapread { } # ---------------------------------------------- Read a map as well as possible - +# Also used by the sequence handler +# Call lonsequence::attemptread to read from resource space +# sub attemptread { my $fn=shift; @@ -312,6 +317,10 @@ sub startfinish { } my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]); $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res'; + if ($#order==0) { + $resources[$#resources+1]='::false'; + $order[1]=$#resources; + } my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]); $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res'; } @@ -341,6 +350,113 @@ sub storemap { &Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,'')); } +sub editscript { + my $mode=shift; + return(< ---- Import and Paste Area ---- '. + join("\n",map { $idx++; if ($_) { my ($name,$url)=split(/\=/,$_); @@ -550,7 +668,9 @@ sub smpedt { } split(/\&/,$importdetail)); $idx=0; - my $targetwindow=join("\n",map { + my $targetwindow= + ''. + join("\n",map { my ($name,$url)=split(/\:/,$resources[$_]); unless ($name) { $name=(split(/\//,$url))[-1]; } unless ($name) { $name='EMPTY'; } @@ -561,112 +681,13 @@ sub smpedt { } @order); # ----------------------------------------------------- Start simple RAT screen + my $editscript=&editscript('simple'); $r->print(< @@ -691,6 +712,7 @@ function idxcheck(mode) { $buttons $errtext +

$url

@@ -720,7 +742,7 @@ after selected
- @@ -734,7 +756,7 @@ Copy selected
Paste after selected
-
@@ -768,8 +790,10 @@ sub viewmap { if ($errtext) { $r->print($errtext.'
'); } + my $idx=0; foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { if (defined($_)) { + $idx++; my ($title,$url)=split(/\:/,$_); $title=~s/\&colon\;/\:/g; $url=~s/\&colon\;/\:/g; @@ -780,7 +804,7 @@ sub viewmap { } $r->print(&Apache::lonratsrv::qtescape($title)); if ($url) { $r->print(''); } - $r->print('
'); + $r->print('
'); } } $r->print('');