loncom/publisher/londiff.pm - diff

Return to londiff.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.35, 2012/04/18 20:14:35	version 1.36, 2012/10/29 17:38:55
Line 38 use File::Copy;	Line 38 use File::Copy;
use File::Compare;	use File::Compare;
use Algorithm::Diff qw(diff);	use Algorithm::Diff qw(diff);
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc();
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonretrieve();	use Apache::lonretrieve();
Line 101 sub handler {	Line 100 sub handler {

if (($env{'form.versionone'} eq 'priv') \|\| ($env{'form.versiontwo'} eq 'priv')) {	if (($env{'form.versionone'} eq 'priv') \|\| ($env{'form.versiontwo'} eq 'priv')) {
my ($cstrname,$cstrdom) =	my ($cstrname,$cstrdom) =
&Apache::loncacc::constructaccess("/priv/$cudom/$cuname".$env{'form.filename'});	&Apache::lonnet::constructaccess("/priv/$cudom/$cuname".$env{'form.filename'});
unless (($cstrname eq $cuname) && ($cstrdom eq $cudom)) {	unless (($cstrname eq $cuname) && ($cstrdom eq $cudom)) {
$allowed = 0;	$allowed = 0;
}	}
Line 109 sub handler {	Line 108 sub handler {
}	}
} else {	} else {
($cuname,$cudom)=	($cuname,$cudom)=
&Apache::loncacc::constructaccess($env{'form.filename'});	&Apache::lonnet::constructaccess($env{'form.filename'});
if ($cuname ne '' && $cudom ne '') {	if ($cuname ne '' && $cudom ne '') {
$allowed = 1;	$allowed = 1;
} else {	} else {