loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.232, 2006/06/19 09:40:17	version 1.235, 2006/06/30 00:59:00
Line 237 sub dumpcourse {	Line 237 sub dumpcourse {
'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}};	'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}};
$title=~s/&colon;/:/g;	$title=~s/&colon;/:/g;
$r->print('<td>'.($title?$title:' ').'</td>');	$r->print('<td>'.($title?$title:' ').'</td>');
unless ($title) {	if (!$title) {
$title=$_;	$title=$_;
	} else {
	$title=~s\|/\|_\|g;
}	}
$title=~s/\.(\w+)$//;	$title=~s/\.(\w+)$//;
$title=&clean($title);	$title=&clean($title);
Line 975 sub breadcrumbs {	Line 977 sub breadcrumbs {


}	}
return &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp');	return &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp',
	'LC_docs_path');
}	}

sub editor {	sub editor {
Line 2207 sub handler {	Line 2210 sub handler {
$script = '<script type="text/javascript">'."\n".$script."\n".'</script>';	$script = '<script type="text/javascript">'."\n".$script."\n".'</script>';
$r->print(&Apache::loncommon::start_page("$type Documents", $script,	$r->print(&Apache::loncommon::start_page("$type Documents", $script,
{'force_register' => $showdoc,}).	{'force_register' => $showdoc,}).
&Apache::loncommon::help_open_menu('','','','',273,'RAT'));	&Apache::loncommon::help_open_menu('','',273,'RAT'));

my %allfiles = ();	my %allfiles = ();
my %codebase = ();	my %codebase = ();