version 1.162, 2016/05/21 21:15:36
|
version 1.164, 2017/01/29 23:53:55
|
Line 40 use Apache::lonlocal;
|
Line 40 use Apache::lonlocal;
|
use Apache::lonmsg(); |
use Apache::lonmsg(); |
use LONCAPA::Enrollment; |
use LONCAPA::Enrollment; |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
|
use LONCAPA; |
|
|
use strict; |
use strict; |
|
|
Line 201 my $tableofindex = $env{'cgi.'.$identifi
|
Line 202 my $tableofindex = $env{'cgi.'.$identifi
|
my $advanced_role = $env{'cgi.'.$identifier.'.role'}; |
my $advanced_role = $env{'cgi.'.$identifier.'.role'}; |
my $number_of_files = $env{'cgi.'.$identifier.'.numberoffiles'}+1; |
my $number_of_files = $env{'cgi.'.$identifier.'.numberoffiles'}+1; |
my $student_names = $env{'cgi.'.$identifier.'.studentnames'}; |
my $student_names = $env{'cgi.'.$identifier.'.studentnames'}; |
my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'}); |
my $backref = &unescape($env{'cgi.'.$identifier.'.backref'}); |
|
|
|
|
my @names_pack=(); |
my @names_pack=(); |
Line 446 foreach $texfile (@texfile) {
|
Line 447 foreach $texfile (@texfile) {
|
# i.e., a papertype of a4, when the user selected letter [8 1/2 x 11 in] |
# i.e., a papertype of a4, when the user selected letter [8 1/2 x 11 in] |
# in the Layout options, so I follow that convention if $papera is letter. |
# in the Layout options, so I follow that convention if $papera is letter. |
my $papera=$paper; |
my $papera=$paper; |
if ($papera eq 'letter') {$papera=' a4';} |
if ($papera eq 'letter') {$papera='a4';} |
if ($papera ne '') {$papera='-t'.$papera;} |
if ($papera ne '') {$papera='-t'.$papera;} |
my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps'; |
my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps'; |
my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o $new_name_file"; |
my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o $new_name_file"; |