version 1.8, 2002/05/10 18:58:04
|
version 1.11, 2002/05/13 14:33:50
|
Line 37 use Apache::Constants qw(:common);
|
Line 37 use Apache::Constants qw(:common);
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonratsrv; |
use Apache::lonratsrv; |
|
|
my @links=(); |
my @order=(); |
my @resources=(); |
my @resources=(); |
|
|
|
|
# Mapread read maps into global arrays @links and @resources, determines status |
# 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 { |
sub mapread { |
my $fn=shift; |
my $fn=shift; |
|
|
|
my @links; |
undef @links; |
undef @links; |
undef @resources; |
undef @resources; |
|
undef @order; |
|
|
my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,''); |
my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,''); |
if ($errtext) { return ($errtext,2); } |
if ($errtext) { return ($errtext,2); } |
|
|
|
# -------------------------------------------------------------------- Read map |
foreach (split(/\<\&\>/,$outtext)) { |
foreach (split(/\<\&\>/,$outtext)) { |
my ($command,$parms)=split(/\<\:\>/,$_); |
my ($command,$number,$content)=split(/\<\:\>/,$_); |
my @item=split(/\:/,$parms); |
|
if ($command eq 'objcont') { |
if ($command eq 'objcont') { |
|
$resources[$number]=$content; |
} |
} |
if ($command eq 'objlinks') { |
if ($command eq 'objlinks') { |
if (defined($links[$item[0]])) { |
$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 |
return |
('Map too complex, has branchings. Use advanced editor.',1); |
('Map has branchings. Use advanced editor.',1); |
} |
} |
if ($links[$item[2]]) { |
$starters[$start]=1; |
|
$endings[$end]=1; |
|
if ($cond) { |
return |
return |
('Map too complex, has conditions. Use advanced editor.',1); |
('Map has conditions. Use advanced editor.',1); |
} |
} |
$links[$item[0]]=$item[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; |
return $errtext; |
} |
} |
|
|
Line 113 sub buttons {
|
Line 166 sub buttons {
|
sub smpedt { |
sub smpedt { |
my ($r,$errtext)=@_; |
my ($r,$errtext)=@_; |
my $buttons=&buttons(2); |
my $buttons=&buttons(2); |
|
my $targetwindow=join("\n",map { |
|
my ($name)=split(/\:/,$resources[$_]); |
|
unless ($name) { $name='UNKNOWN'; } |
|
'<option value="t'.$_.'">'.$name.'</option>'; |
|
} @order); |
|
|
# ----------------------------------------------------- Start simple RAT screen |
# ----------------------------------------------------- Start simple RAT screen |
$r->print(<<ENDSMPHEAD); |
$r->print(<<ENDSMPHEAD); |
<html> |
<html> |
Line 201 function idxcheck(mode) {
|
Line 260 function idxcheck(mode) {
|
<body bgcolor='#FFFFFF'> |
<body bgcolor='#FFFFFF'> |
$buttons |
$buttons |
<font color=red>$errtext</font> |
<font color=red>$errtext</font> |
|
<form method=post> |
|
<input type=hidden name=forcesmp value=1> |
|
<table> |
|
<tr><th>Import</th><th> </th><th>Target</th></tr> |
|
<tr><td> |
<a href="javascript:groupsearch()">Group Search</a> |
<a href="javascript:groupsearch()">Group Search</a> |
<a href="javascript:groupimport()">Group Import</a> |
<a href="javascript:groupimport()">Group Import</a> |
|
</td><td> </td><td> </td></tr> |
|
<tr><td> |
|
</td> |
|
<td> |
|
<input type=submit name=cut value='<<<'><p> |
|
<input type=submit name=paste value='>>>'> |
|
</td> |
|
<td><select name="target" multiple> |
|
$targetwindow |
|
</select> |
ENDSMPHEAD |
ENDSMPHEAD |
|
|
$r->print( |
$r->print('</table></form></body></html>'); |
'<input type=submit name=forcesmp value="Store"></form></body></html>'); |
|
} |
} |
|
|
|
# ----------------------------------------------------------------- No such dir |
sub nodir { |
sub nodir { |
my ($r,$dir)=@_; |
my ($r,$dir)=@_; |
$dir=~s/^\/home\/\w+\/public\_html//; |
$dir=~s/^\/home\/\w+\/public\_html//; |
Line 225 ENDNODIR
|
Line 298 ENDNODIR
|
# ---------------------------------------------------------------- View Handler |
# ---------------------------------------------------------------- View Handler |
|
|
sub viewmap { |
sub viewmap { |
my ($r,$adv)=@_; |
my ($r,$adv,$errtext)=@_; |
$r->print('<html><body bgcolor="#FFFFFF">'.&buttons($adv)); |
$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>'); |
$r->print('</body></html>'); |
} |
} |
|
|
Line 276 sub handler {
|
Line 365 sub handler {
|
} elsif ($ENV{'form.forcesmp'}) { |
} elsif ($ENV{'form.forcesmp'}) { |
&smpedt($r,$errtext); |
&smpedt($r,$errtext); |
} else { |
} else { |
&viewmap($r,$adv); |
&viewmap($r,$adv,$errtext); |
} |
} |
return OK; |
return OK; |
} |
} |