loncom/publisher/lonunauthorized.pm - diff

Return to lonunauthorized.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.13, 2011/11/14 15:51:55	version 1.15, 2012/10/29 17:38:55
Line 32 use strict;	Line 32 use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncacc;
use Apache::lonlocal;	use Apache::lonlocal;
use LONCAPA();	use LONCAPA();
use HTML::Entities();	use HTML::Entities();
Line 49 sub handler {	Line 48 sub handler {
my ($ownername,$ownerdomain,$ownerhome);	my ($ownername,$ownerdomain,$ownerhome);
if ($env{'request.editurl'} ne '') {	if ($env{'request.editurl'} ne '') {
($ownername,$ownerdomain,$ownerhome) =	($ownername,$ownerdomain,$ownerhome) =
&Apache::loncacc::constructaccess($env{'request.editurl'});	&Apache::lonnet::constructaccess($env{'request.editurl'});
}	}

# Breadcrumbs	# Breadcrumbs
Line 122 sub handler {	Line 121 sub handler {
$option = 'decompress';	$option = 'decompress';
} elsif ($name eq 'qualifiedfilename') {	} elsif ($name eq 'qualifiedfilename') {
$qualifiedfilename = $value;	$qualifiedfilename = $value;
} elsif ($name = 'versionone') {	} elsif ($name eq 'versionone') {
if ($value eq 'priv') {	if ($value eq 'priv') {
$option = 'cstr';	$option = 'cstr';
}	}