loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.245, 2006/11/02 21:06:06	version 1.246, 2006/11/11 18:36:43
Line 35 use Apache::lonnet;	Line 35 use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use LONCAPA::map();	use LONCAPA::map();
use Apache::lonratedt();	use Apache::lonratedt();
use Apache::lonratsrv;
use Apache::lonxml;	use Apache::lonxml;
use Apache::lonclonecourse;	use Apache::lonclonecourse;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
Line 1241 sub editor {	Line 1240 sub editor {
$r->print('<table>');	$r->print('<table>');
foreach (@LONCAPA::map::order) {	foreach (@LONCAPA::map::order) {
my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$_]);	my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$_]);
$name=&Apache::lonratsrv::qtescape($name);	$name=&LONCAPA::map::qtescape($name);
$url=&Apache::lonratsrv::qtescape($url);	$url=&LONCAPA::map::qtescape($url);
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { $idx++; next; }	unless ($name) { $idx++; next; }
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));	$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));