loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2006/06/22 18:17:23	version 1.19, 2007/08/28 22:23:22
Line 44 use LONCAPA;	Line 44 use LONCAPA;

sub make_link {	sub make_link {
my ($filename, $listname) = @_;	my ($filename, $listname) = @_;
my $sourcelink = "/adm/source?filename=".$filename."&listname=".$listname;	my $sourcelink = "/adm/source?inhibitmenu=yes&filename=".$filename."&listname=".$listname;

return $sourcelink;	return $sourcelink;
}	}
Line 76 sub copy_stage {	Line 76 sub copy_stage {
my $author_name;	my $author_name;
#Figure out if we are author or co-author	#Figure out if we are author or co-author

if($env{'request.role'} =~ m\|ca.\|) {	if ($env{'request.role'} =~ m{^ca\.}) {
($role, $domain, $author_name) = split(/\//,$env{'request.role'});	($role, $domain, $author_name) = split(/\//,$env{'request.role'});
} else {	} else {
$role = "au.";	$role = "au.";