loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.127, 2007/09/21 21:11:20	version 1.128, 2007/10/11 22:49:49
Line 166 END	Line 166 END
my %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')};	my %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')};
&Apache::lonlocal::get_language_handle();	&Apache::lonlocal::get_language_handle();
&Apache::loncommon::content_type(undef,'text/html');	&Apache::loncommon::content_type(undef,'text/html');
	$env{'request.noversionuri'} = '/cgi-bin/printout.pl';
print(&Apache::loncommon::start_page('Creating PDF'));	print(&Apache::loncommon::start_page('Creating PDF'));

my $identifier = $ENV{'QUERY_STRING'};	my $identifier = $ENV{'QUERY_STRING'};
Line 187 my %perlvar=%{&LONCAPA::Configuration::r	Line 187 my %perlvar=%{&LONCAPA::Configuration::r
if ($student_names=~/_END_/) {	if ($student_names=~/_END_/) {
@names_pack=split(/_ENDPERSON_/,$student_names);	@names_pack=split(/_ENDPERSON_/,$student_names);
}	}
	if ($backref) {
print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />";	print('<p>'.&mt("[_1]Return[_2] to editing resource.",
	"<a href=\"$backref\"><b>","</b></a>").'</p>');
	}
my $figfile = $texfile;	my $figfile = $texfile;
$figfile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.dat/;	$figfile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.dat/;
my $duefile = $texfile;	my $duefile = $texfile;