my $cgi = new CGI($ENV{"REQUEST_URL"});
$uri = $cgi->param('theoryuri');
+$getterURL = $cgi->param('getterURL');
$uri =~ s/(.*)\/$/$1/; # Remove a final slash if present
$uri .= "/"; # Put a final slash
$myurl = $cgi->url();
$cont = ""; # modified by side-effect by &callback
my $ua = LWP::UserAgent->new;
-my $request = HTTP::Request->new(GET => $getter_url."ls?format=txt&baseuri=".$uri);
+my $request = HTTP::Request->new(GET => $getterURL."ls?format=txt&baseuri=".$uri);
my $response = $ua->request($request, \&callback);
@filenames = split(/\n/, $cont);
$output = <<EOT;
<tr>
<td><img border="0" src="/icons/back.gif" alt="[BACK]"></td>
-<td><a href="$myurl" onClick="top.frames[0].document.forms[0].hiddentheoryuri.value='$uridotdot'; refreshReload(); refreshTheoryHeader(); this.search='?theoryuri=$uridotdot';" onMouseOver="window.status='$uridotdot'; return true">Parent Directory</a></td>
+<td><a href="$myurl" onClick="top.theoryuri='$uridotdot'; refreshReload(); refreshTheoryHeader(); this.search='?theoryuri=$uridotdot&getterURL=$getterURL';" onMouseOver="window.status='$uridotdot'; return true">Parent Directory</a></td>
</tr>
EOT
}
foreach $i (@filenames) {
- my ($type,$name) = split(/,/, $i);
+ my ($type,$name,$flags) = split(/, /, $i);
+ my ($flagscic, $flagstypes) = split(/,/, $flags);
+ $flagscic =~ s/^<(.*)/$1/;
+ $flagstypes =~ s/(.*)>$/$1/;
if ($type eq "dir") {
$output .= <<EOT;
<tr>
<td><img border="0" src="/icons/folder.gif" alt="[DIR]"></td>
-<td><a href="$myurl" onClick="top.frames[0].document.forms[0].hiddentheoryuri.value='$uri$name'; refreshReload(); refreshTheoryHeader(); this.search='?theoryuri=$uri$name';" onMouseOver="window.status='$uri$name'; return true">$name</a></td>
+<td><a href="$myurl" onClick="top.theoryuri='$uri$name'; refreshReload(); refreshTheoryHeader(); this.search='?theoryuri=$uri$name&getterURL=$getterURL';" onMouseOver="window.status='$uri$name'; return true">$name</a></td>
</tr>
EOT
} elsif ($type eq "object") {
$output .= <<EOT;
<tr>
<td><img border="0" src="/icons/generic.red.gif" alt="[DIR]"></td>
-<td><a href="" target="theory" onClick="this.href=makeURL('theory','$uri$name','$processor_url','$getter_url')" onMouseOver="window.status='$uri$name'; return true">$name</a>
+<td><a href="" target="theory" onClick="this.href=makeURL('theory','$uri$name','$flagscic','$flagstypes')" onMouseOver="window.status='$uri$name'; return true">$name</a>
</tr>
EOT
} else {