version 1.395, 2005/10/30 02:24:34
|
version 1.401, 2005/12/06 09:41:02
|
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". |
Line 905 sub unsupported {
|
Line 908 sub unsupported {
|
# |
# |
# List of recently generated print files |
# List of recently generated print files |
# |
# |
|
|
sub recently_generated { |
sub recently_generated { |
my $r=shift; |
my $r=shift; |
my $prtspool=$r->dir_config('lonPrtDir'); |
my $prtspool=$r->dir_config('lonPrtDir'); |
$r->print('<h4>'.&mt('Recently generated printouts').'</h4>'); |
my $zip_result; |
|
my $pdf_result; |
opendir(DIR,$prtspool); |
opendir(DIR,$prtspool); |
while (my $filename=readdir(DIR)) { |
|
if ($filename=~/^$env{'user.name'}\_$env{'user.domain'}\_printout\_(\d+)\_.*.pdf$/) { |
my @files = |
my ($cdev,$cino,$cmode,$cnlink, |
grep(/^$env{'user.name'}_$env{'user.domain'}_printout_(\d+)_.*\.(pdf|zip)$/,readdir(DIR)); |
$cuid,$cgid,$crdev,$csize, |
|
$catime,$cmtime,$cctime, |
|
$cblksize,$cblocks)=stat($prtspool.'/'.$filename); |
|
$r->print ("<a href='/prtspool/$filename'>". |
|
&mt('Generated').' '.&Apache::lonlocal::locallocaltime($cctime). |
|
' ('.$csize.' bytes)</a><br />'); |
|
} |
|
} |
|
closedir(DIR); |
closedir(DIR); |
|
|
|
@files = sort { |
|
my ($actime) = (stat($prtspool.'/'.$a))[10]; |
|
my ($bctime) = (stat($prtspool.'/'.$b))[10]; |
|
return $bctime <=> $actime; |
|
} (@files); |
|
|
|
foreach my $filename (@files) { |
|
my ($ext) = ($filename =~ m/(pdf|zip)$/); |
|
my ($cdev,$cino,$cmode,$cnlink, |
|
$cuid,$cgid,$crdev,$csize, |
|
$catime,$cmtime,$cctime, |
|
$cblksize,$cblocks)=stat($prtspool.'/'.$filename); |
|
my $result="<a href='/prtspool/$filename'>". |
|
&mt('Generated [_1] ([_2] bytes)', |
|
&Apache::lonlocal::locallocaltime($cctime),$csize). |
|
'</a><br />'; |
|
if ($ext eq 'pdf') { $pdf_result .= $result; } |
|
if ($ext eq 'zip') { $zip_result .= $result; } |
|
} |
|
if ($zip_result) { |
|
$r->print('<h4>'.&mt('Recently generated printout zip files')."</h4>\n" |
|
.$zip_result); |
|
} |
|
if ($pdf_result) { |
|
$r->print('<h4>'.&mt('Recently generated printouts')."</h4>\n" |
|
.$pdf_result); |
|
} |
} |
} |
|
|
# |
# |
Line 1086 ENDPART
|
Line 1109 ENDPART
|
$form{'grade_target'}='answer'; |
$form{'grade_target'}='answer'; |
$form{'answer_output_mode'}='tex'; |
$form{'answer_output_mode'}='tex'; |
$form{'rndseed'}=$rndseed; |
$form{'rndseed'}=$rndseed; |
|
if ($helper->{'VARS'}->{'probstatus'} eq 'exam') { |
|
$form{'problemtype'}='exam'; |
|
} |
$resources_printed .= $currentURL.':'; |
$resources_printed .= $currentURL.':'; |
my $answer=&Apache::lonnet::ssi($currentURL,%form); |
my $answer=&Apache::lonnet::ssi($currentURL,%form); |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
Line 1629 ENDPART
|
Line 1655 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 1776 sub print_resources {
|
Line 1802 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 1785 sub handler {
|
Line 1812 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 1832 sub addMessage {
|
Line 1858 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 1960 sub printHelper {
|
Line 2000 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 2047 HELPERFRAGMENT
|
Line 2084 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 2311 CHOOSE_ANON2
|
Line 2348 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 2383 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2420 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 2399 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2436 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 2450 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2487 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 2618 STATEHTML
|
Line 2650 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) { |