loncom/publisher/londiff.pm - diff

Return to londiff.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.32, 2011/10/30 14:59:57	version 1.34, 2011/12/23 14:54:26
Line 187 sub handler {	Line 187 sub handler {
@f2=&get_split_file($fn,'local');	@f2=&get_split_file($fn,'local');
$r->print('<b>'.&mt('Construction Space Version').'</b>');	$r->print('<b>'.&mt('Construction Space Version').'</b>');
} else {	} else {
my $fn=	my $fn=$r->dir_config('lonDocRoot')."/res/$cudom/$cuname/";
'/home/httpd/html/res/'.$cudom.'/'.$cuname.'/';
if ($env{'form.versiontwo'}) {	if ($env{'form.versiontwo'}) {
my ($main,$suffix,$is_meta)=	my ($main,$suffix,$is_meta)=
&Apache::lonretrieve::get_file_info($efn);	&Apache::lonretrieve::get_file_info($efn);
Line 230 sub handler {	Line 229 sub handler {
} else {	} else {
$r->print('<h1><span class="LC_warning">'.&mt('Binary File').'</span></h1>');	$r->print('<h1><span class="LC_warning">'.&mt('Binary File').'</span></h1>');
}	}
$r->print('<center><a href="javascript:window.close();">'.&mt('Close This Window').'</a></center>');
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
}	}