version 1.78, 2005/05/02 22:59:11
|
version 1.80, 2005/05/03 22:22:47
|
Line 32 use File::Path;
|
Line 32 use File::Path;
|
use IO::File; |
use IO::File; |
use Image::Magick; |
use Image::Magick; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonmsg; |
use Apache::lonmsg; |
Line 201 END
|
Line 201 END
|
my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'}; |
my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'}; |
my $paper = $env{'cgi.'.$identifier.'.paper'}; |
my $paper = $env{'cgi.'.$identifier.'.paper'}; |
my $selectionmade = $env{'cgi.'.$identifier.'.selection'}; |
my $selectionmade = $env{'cgi.'.$identifier.'.selection'}; |
my $tableofcontents = $env{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofcontents = $env{'cgi.'.$identifier.'.tableofcontents'}; |
my $tableofindex = $env{'cgi.'.$identifier.'tableofindex'}; |
my $tableofindex = $env{'cgi.'.$identifier.'.tableofindex'}; |
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 = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'}); |
|
|
|
|
my $adv = $env{'request.role.adv'}; |
my $adv = $env{'request.role.adv'}; |