loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.147, 2004/09/27 15:20:23	version 1.148, 2004/10/26 15:24:20
Line 989 sub editor {	Line 989 sub editor {
# ---------------------------------------------------------------- End commands	# ---------------------------------------------------------------- End commands
# ---------------------------------------------------------------- Print screen	# ---------------------------------------------------------------- Print screen
my $idx=0;	my $idx=0;
	my $shown=0;
$r->print('<table>');	$r->print('<table>');
foreach (@Apache::lonratedt::order) {	foreach (@Apache::lonratedt::order) {
my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);	my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { next; }	unless ($name) { $idx++; next; }
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));	$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));
$idx++;	$idx++;
	$shown++;
}	}
unless ($idx) {	unless ($shown) {
$r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');	$r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');
}	}
$r->print('</table>');	$r->print('</table>');