loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.438, 2006/05/24 10:49:04	version 1.439, 2006/05/30 12:46:09
Line 42 use Apache::lonratedt;	Line 42 use Apache::lonratedt;
use POSIX qw(strftime);	use POSIX qw(strftime);
use Apache::lonlocal;	use Apache::lonlocal;
use Carp;	use Carp;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;

my %perm;	my %perm;

Line 707 sub get_name {	Line 709 sub get_name {
sub get_course {	sub get_course {
my $courseidinfo;	my $courseidinfo;
if (defined($env{'request.course.id'})) {	if (defined($env{'request.course.id'})) {
$courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($env{'course.'.$env{'request.course.id'}.'.description'}),'header');	$courseidinfo = &Apache::lonxml::latex_special_symbols(&unescape($env{'course.'.$env{'request.course.id'}.'.description'}),'header');
}	}
return $courseidinfo;	return $courseidinfo;
}	}
Line 1733 ENDPART	Line 1735 ENDPART
my $URLback=''; #link to original document	my $URLback=''; #link to original document
if ($helper->{'VARS'}->{'construction'} ne '1') {	if ($helper->{'VARS'}->{'construction'} ne '1') {
#prints published resource	#prints published resource
$URLback=&Apache::lonnet::escape('/adm/flip?postdata=return:');	$URLback=&escape('/adm/flip?postdata=return:');
} else {	} else {
#prints resource from the construction space	#prints resource from the construction space
$URLback='/'.$helper->{'VARS'}->{'filename'};	$URLback='/'.$helper->{'VARS'}->{'filename'};