version 1.392, 2005/09/16 20:45:00
|
version 1.399, 2005/11/15 12:37:11
|
Line 42 use Apache::lonratedt;
|
Line 42 use Apache::lonratedt;
|
use POSIX qw(strftime); |
use POSIX qw(strftime); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
|
my %perm; |
|
|
# |
# |
# Convert a numeric code to letters |
# Convert a numeric code to letters |
# |
# |
Line 431 sub character_chart {
|
Line 433 sub character_chart {
|
$result =~ s/&(\#252|uuml);/\\\"{u}/g; |
$result =~ s/&(\#252|uuml);/\\\"{u}/g; |
$result =~ s/&(\#253|yacute);/\\\'{y}/g; |
$result =~ s/&(\#253|yacute);/\\\'{y}/g; |
$result =~ s/&(\#255|yuml);/\\\"{y}/g; |
$result =~ s/&(\#255|yuml);/\\\"{y}/g; |
|
$result =~ s/&\#295;/\\ensuremath\{\\hbar\}/g; |
$result =~ s/&\#952;/\\ensuremath\{\\theta\}/g; |
$result =~ s/&\#952;/\\ensuremath\{\\theta\}/g; |
#Greek Alphabet |
#Greek Alphabet |
$result =~ s/&(alpha|\#945);/\\ensuremath\{\\alpha\}/g; |
$result =~ s/&(alpha|\#945);/\\ensuremath\{\\alpha\}/g; |
Line 815 sub IndexCreation {
|
Line 818 sub IndexCreation {
|
sub print_latex_header { |
sub print_latex_header { |
my $mode=shift; |
my $mode=shift; |
my $output='\documentclass[letterpaper]{article}'; |
my $output='\documentclass[letterpaper]{article}'; |
if (($mode eq 'batchmode') || (!$env{'request.role.adv'})) { |
if (($mode eq 'batchmode') || (!$perm{'pav'})) { |
$output.='\batchmode'; |
$output.='\batchmode'; |
} |
} |
$output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'."\n". |
$output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'."\n". |
'\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'."\n". |
'\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'."\n". |
'\usepackage[dvips]{graphicx}\usepackage{epsfig}'."\n". |
'\usepackage[dvips]{graphicx}\usepackage{epsfig}'."\n". |
|
'\usepackage{wrapfig}'. |
'\usepackage{picins}\usepackage{calc}'."\n". |
'\usepackage{picins}\usepackage{calc}'."\n". |
'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n". |
'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n". |
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n". |
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n". |
Line 902 sub unsupported {
|
Line 906 sub unsupported {
|
|
|
|
|
# |
# |
|
# List of recently generated print files |
|
# |
|
|
|
sub recently_generated { |
|
my $r=shift; |
|
my $prtspool=$r->dir_config('lonPrtDir'); |
|
my $result; |
|
opendir(DIR,$prtspool); |
|
while (my $filename=readdir(DIR)) { |
|
if ($filename=~/^$env{'user.name'}\_$env{'user.domain'}\_printout\_(\d+)\_.*.pdf$/) { |
|
my ($cdev,$cino,$cmode,$cnlink, |
|
$cuid,$cgid,$crdev,$csize, |
|
$catime,$cmtime,$cctime, |
|
$cblksize,$cblocks)=stat($prtspool.'/'.$filename); |
|
$result.="<a href='/prtspool/$filename'>". |
|
&mt('Generated [_1] ([_2] bytes)', |
|
&Apache::lonlocal::locallocaltime($cctime),$csize). |
|
'</a><br />'; |
|
} |
|
} |
|
closedir(DIR); |
|
if ($result) { |
|
$r->print('<h4>'.&mt('Recently generated printouts').'</h4>'."\n". |
|
$result); |
|
} |
|
} |
|
|
|
# |
# Retrieve the hash of page breaks. |
# Retrieve the hash of page breaks. |
# |
# |
# Inputs: |
# Inputs: |
Line 1605 ENDPART
|
Line 1637 ENDPART
|
'cgi.'.$identifier.'.selection' => $selectionmade, |
'cgi.'.$identifier.'.selection' => $selectionmade, |
'cgi.'.$identifier.'.tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'}, |
'cgi.'.$identifier.'.tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'}, |
'cgi.'.$identifier.'.tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'}, |
'cgi.'.$identifier.'.tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'}, |
'cgi.'.$identifier.'.role' => $env{'request.role.adv'}, |
'cgi.'.$identifier.'.role' => $perm{'pav'}, |
'cgi.'.$identifier.'.numberoffiles' => $#print_array, |
'cgi.'.$identifier.'.numberoffiles' => $#print_array, |
'cgi.'.$identifier.'.studentnames' => $student_names, |
'cgi.'.$identifier.'.studentnames' => $student_names, |
'cgi.'.$identifier.'.backref' => $URLback,); |
'cgi.'.$identifier.'.backref' => $URLback,); |
Line 1752 sub print_resources {
|
Line 1784 sub print_resources {
|
sub handler { |
sub handler { |
|
|
my $r = shift; |
my $r = shift; |
my $helper; |
|
|
&init_perm(); |
|
|
# my $loaderror=&Apache::lonnet::overloaderror($r); |
# my $loaderror=&Apache::lonnet::overloaderror($r); |
# if ($loaderror) { return $loaderror; } |
# if ($loaderror) { return $loaderror; } |
Line 1761 sub handler {
|
Line 1794 sub handler {
|
# $env{'course.'.$env{'request.course.id'}.'.home'}); |
# $env{'course.'.$env{'request.course.id'}.'.home'}); |
# if ($loaderror) { return $loaderror; } |
# if ($loaderror) { return $loaderror; } |
|
|
my $result = printHelper($r); |
my $helper = printHelper($r); |
if (!ref($result)) { |
if (!ref($helper)) { |
return $result; |
return $helper; |
} |
} |
$helper = $result; |
|
|
|
# my $key; |
# my $key; |
# foreach $key (keys %{$helper->{'VARS'}}) { |
# foreach $key (keys %{$helper->{'VARS'}}) { |
Line 1808 sub addMessage {
|
Line 1840 sub addMessage {
|
|
|
use Data::Dumper; |
use Data::Dumper; |
|
|
|
sub init_perm { |
|
undef(%perm); |
|
$perm{'pav'}=&Apache::lonnet::allowed('pav',$env{'request.course.id'}); |
|
if (!$perm{'pav'}) { |
|
$perm{'pav'}=&Apache::lonnet::allowed('pav', |
|
$env{'request.course.id'}.'/'.$env{'request.course.sec'}); |
|
} |
|
$perm{'pfo'}=&Apache::lonnet::allowed('pav',$env{'request.course.id'}); |
|
if (!$perm{'pfo'}) { |
|
$perm{'pfo'}=&Apache::lonnet::allowed('pfo', |
|
$env{'request.course.id'}.'/'.$env{'request.course.sec'}); |
|
} |
|
} |
|
|
sub printHelper { |
sub printHelper { |
my $r = shift; |
my $r = shift; |
|
|
Line 1851 sub printHelper {
|
Line 1897 sub printHelper {
|
$helper->declareVar("showallfoils"); |
$helper->declareVar("showallfoils"); |
|
|
# The page breaks can get loaded initially from the course environment: |
# The page breaks can get loaded initially from the course environment: |
|
# But we only do this in the initial state so that they are allowed to change. |
|
# |
|
|
if((!defined($env{"form.CURRENT_STATE"})) || |
$helper->{VARS}->{FINISHPAGE} = ''; |
($env{'form.CURRENT_STATE'} == "START")) { |
|
$helper->{VARS}->{FINISHPAGE} = ""; # In case they did a back e.g. |
|
} |
|
|
|
|
|
|
|
&Apache::loncommon::restore_course_settings('print', |
&Apache::loncommon::restore_course_settings('print', |
{'pagebreaks' => 'scalar', |
{'pagebreaks' => 'scalar', |
'lastprinttype' => 'scalar'}); |
'lastprinttype' => 'scalar'}); |
|
|
|
|
if("$helper->{VARS}->{PRINT_TYPE}" eq "$env{'form.lastprinttype'}") { |
|
$helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'}; |
if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) { |
|
if (!defined ($env{"form.CURRENT_STATE"})) { |
|
|
|
$helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'}; |
|
} else { |
|
my $state = $env{"form.CURRENT_STATE"}; |
|
if ($state eq "START") { |
|
$helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'}; |
|
} |
|
} |
|
|
} |
} |
|
|
|
|
Line 1930 sub printHelper {
|
Line 1982 sub printHelper {
|
} |
} |
|
|
my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); |
my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); |
my $userPriviledged = ($env{'request.role'}=~m/^cc\./ or |
|
$env{'request.role'}=~m/^in\./ or |
|
$env{'request.role'}=~m/^ta\./); |
|
|
|
Apache::lonhelper::registerHelperTags(); |
Apache::lonhelper::registerHelperTags(); |
|
|
Line 1975 sub printHelper {
|
Line 2024 sub printHelper {
|
$helper->declareVar('SEQUENCE'); |
$helper->declareVar('SEQUENCE'); |
|
|
# Useful for debugging: Dump the help vars |
# Useful for debugging: Dump the help vars |
# $r->print(Dumper($helper->{VARS})); |
# $r->print(Dumper($helper->{VARS})); |
# $r->print($map); |
# $r->print($map); |
|
|
# If we're in a sequence... |
# If we're in a sequence... |
Line 2017 HELPERFRAGMENT
|
Line 2066 HELPERFRAGMENT
|
&Apache::lonxml::xmlparse($r, 'helper', $helperFragment); |
&Apache::lonxml::xmlparse($r, 'helper', $helperFragment); |
} |
} |
|
|
# If the user is privileged, allow them to print all |
# If the user has pfo (print for otheres) allow them to print all |
# problems and resources in the entier course, optionally for selected students |
# problems and resources in the entier course, optionally for selected students |
if ($userPriviledged && |
if ($perm{'pfo'} && |
($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { |
($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { |
|
|
push @{$printChoices}, ['<b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS']; |
push @{$printChoices}, ['<b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS']; |
Line 2281 CHOOSE_ANON2
|
Line 2330 CHOOSE_ANON2
|
} |
} |
|
|
# FIXME: That RE should come from a library somewhere. |
# FIXME: That RE should come from a library somewhere. |
if ((((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) and $env{'request.role.adv'} and $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/') { |
if ((((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) and $perm{'pav'} and $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/') { |
push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from current subdirectory')." <b><i>$subdir</i></b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; |
push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from current subdirectory')." <b><i>$subdir</i></b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; |
|
|
my $f = '$filename'; |
my $f = '$filename'; |
Line 2353 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2402 CHOOSE_FROM_ANY_SEQUENCE
|
my $startedTable = 0; # have we started an HTML table yet? (need |
my $startedTable = 0; # have we started an HTML table yet? (need |
# to close it later) |
# to close it later) |
|
|
if (($env{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or |
if (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or |
($helper->{VARS}->{'construction'} eq '1')) { |
($helper->{VARS}->{'construction'} eq '1')) { |
addMessage("<hr width='33%' /><table><tr><td align='right'>Print: </td><td>"); |
addMessage("<hr width='33%' /><table><tr><td align='right'>Print: </td><td>"); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
Line 2369 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2418 CHOOSE_FROM_ANY_SEQUENCE
|
$startedTable = 1; |
$startedTable = 1; |
} |
} |
|
|
if ($env{'request.role.adv'}) { |
if ($perm{'pav'}) { |
if (!$startedTable) { |
if (!$startedTable) { |
addMessage("<hr width='33%' /><table><tr><td align='right'>LaTeX mode: </td><td>"); |
addMessage("<hr width='33%' /><table><tr><td align='right'>LaTeX mode: </td><td>"); |
$startedTable = 1; |
$startedTable = 1; |
Line 2420 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2469 CHOOSE_FROM_ANY_SEQUENCE
|
Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
addMessage("</td></tr>"); |
addMessage("</td></tr>"); |
|
|
# If advanced roles, then allow to show all foils. |
addMessage("<tr><td align = 'right'> </td><td>"); |
|
$paramHash = Apache::lonhelper::getParamHash(); |
if ($env{'request.role.adv'}) { |
$paramHash->{'multichoice'} = "true"; |
addMessage("<tr><td align = 'right'> </td><td>"); |
$paramHash->{'allowempty'} = "true"; |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{'variable'} = "showallfoils"; |
$paramHash->{'multichoice'} = "true"; |
$paramHash->{'CHOICES'} = [ ["Show all foils", "1"] ]; |
$paramHash->{'allowempty'} = "true"; |
Apache::lonhelper::choices->new(); |
$paramHash->{'variable'} = "showallfoils"; |
addMessage("</td></tr>"); |
$paramHash->{'CHOICES'} = [ ["Show all foils", "1"] ]; |
|
Apache::lonhelper::choices->new(); |
|
addMessage("</td></tr>"); |
|
} |
|
|
|
} |
} |
|
|
if ($helper->{'VARS'}->{'construction'}) { |
if ($helper->{'VARS'}->{'construction'}) { |
Line 2455 RNDSEED
|
Line 2499 RNDSEED
|
$helper->{'VARS'}->{'style_file'}=$env{'form.style_file_value'}; |
$helper->{'VARS'}->{'style_file'}=$env{'form.style_file_value'}; |
|
|
} |
} |
|
|
} |
} |
|
|
|
|
Line 2482 RNDSEED
|
Line 2525 RNDSEED
|
} |
} |
|
|
$r->print($helper->display()); |
$r->print($helper->display()); |
|
if ($helper->{STATE} eq 'START') { |
|
&recently_generated($r); |
|
} |
&Apache::lonhelper::unregisterHelperTags(); |
&Apache::lonhelper::unregisterHelperTags(); |
|
|
return OK; |
return OK; |
Line 2587 STATEHTML
|
Line 2632 STATEHTML
|
$result .= "<select name='${var}.paper'>\n"; |
$result .= "<select name='${var}.paper'>\n"; |
|
|
my %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'}); |
my %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'}); |
my $DefaultPaperSize=$parmhash{'default_paper_size'}; |
my $DefaultPaperSize=lc($parmhash{'default_paper_size'}); |
|
$DefaultPaperSize=~s/\s//g; |
if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';} |
if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';} |
$i = 0; |
$i = 0; |
foreach (@paperSize) { |
foreach (@paperSize) { |