version 1.9, 2002/05/10 19:46:52
|
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); } |
Line 73 sub mapread {
|
Line 77 sub mapread {
|
my ($start,$end,$cond)=split(/\:/,$_); |
my ($start,$end,$cond)=split(/\:/,$_); |
if ((defined($starters[$start])) || (defined($endings[$end]))) { |
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); |
} |
} |
$starters[$start]=1; |
$starters[$start]=1; |
$endings[$end]=1; |
$endings[$end]=1; |
if ($cond) { |
if ($cond) { |
return |
return |
('Map too complex, has conditions. Use advanced editor.',1); |
('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; |
return $errtext; |
} |
} |
|
|
Line 127 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 215 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 239 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) { |
foreach (@resources) { |
if (defined($_)) { |
if (defined($_)) { |
my ($title,$url)=split(/\:/,$_); |
my ($title,$url)=split(/\:/,$_); |
Line 303 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; |
} |
} |