loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.481, 2012/04/08 22:34:58	version 1.482, 2012/04/16 19:31:57
Line 2432 sub handler {	Line 2432 sub handler {
my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};	my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
my ($destination,$dir_root) = &embedded_destination();	my ($destination,$dir_root) = &embedded_destination();
$r->print(&Apache::loncommon::modify_html_refs('coursedoc',$destination,	my $result =
$docuname,$docudom,undef,	&Apache::loncommon::modify_html_refs('coursedoc',$destination,
$dir_root).	$docuname,$docudom,undef,
&return_to_editor());	$dir_root);
	$r->print($result.&return_to_editor());
} elsif ($env{'form.phase'} eq 'decompress_uploaded') {	} elsif ($env{'form.phase'} eq 'decompress_uploaded') {
$uploadphase = 'decompress_phase_one';	$uploadphase = 'decompress_phase_one';
$r->print(&decompression_phase_one().	$r->print(&decompression_phase_one().