");
$r->print("\n");
if (($env{'form.readfile'}) || ($env{'form.bookmarks'})) {
@@ -383,11 +379,12 @@ END
END
+ $r->print(&Apache::loncommon::inhibit_menu_check('input'));
+
}
- foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {
- my $key=$_;
+ foreach my $resource (@resources) {
$ctr++;
- my $iconname=&Apache::loncommon::icon($key);
+ my $iconname=&Apache::loncommon::icon($resource->{'url'});
if (($clen > 1) || ($env{'form.readfile'}) || ($env{'form.bookmarks'})) {
$r->print(" ");
if (($env{'form.readfile'}) || ($env{'form.bookmarks'})) {
@@ -396,7 +393,7 @@ END
$r->print(&movers($clen,$ctr));
}
}
- $r->print(&hidden($ctr-1,$thash{$key},$key));
+ $r->print(&hidden($ctr-1,$resource->{'title'},$resource->{'url'}));
if (($clen > 1) || ($env{'form.readfile'}) || ($env{'form.bookmarks'})) {
$r->print(" | ");
unless (($env{'form.readfile'}) || ($env{'form.bookmarks'})) {
@@ -407,8 +404,8 @@ END
$r->print("");
$r->print("");
$r->print(" | ");
- $r->print("$thash{$key}$nhash{$key} | \n");
- $r->print("$key | \n");
+ $r->print($resource->{'title'}.$resource->{'notes'}."\n");
+ $r->print($resource->{'url'}." | \n");
}
}
if (($clen > 1) || ($env{'form.readfile'}) || ($env{'form.bookmarks'})) {
@@ -431,7 +428,7 @@ sub hidden {
my ($sel,$title,$filelink) = @_;
my $string = '';
- $filelink=~s/^\/ext\//http\:\/\//;
+ $filelink=~s|^/ext/|http://|;
$string .= '';
return $string;
|