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; |