version 1.118, 2003/02/19 15:14:54
|
version 1.121, 2003/02/27 19:41:40
|
Line 202 sub sequence_content_menu {
|
Line 202 sub sequence_content_menu {
|
} |
} |
} |
} |
</script> |
</script> |
<b>DDD=$#titles_master_seq</b> $titles_master_seq[0]<br /> |
<b> |
<input type=button onClick="checkall()" value="Check All"> |
<input type=button onClick="checkall()" value="Check All"> |
<input type=button onClick="uncheckall()" value="Uncheck"> |
<input type=button onClick="uncheckall()" value="Uncheck"> |
<input type="submit" value="Submit"> |
<input type="submit" value="Submit"> |
Line 238 sub problem_choice_menu {
|
Line 238 sub problem_choice_menu {
|
$subdirtoprint =~ s/\/[^\/]+$//; |
$subdirtoprint =~ s/\/[^\/]+$//; |
my @list_of_files = (); |
my @list_of_files = (); |
my @content_directory = (); |
my @content_directory = (); |
|
$r->print("Subdir: " . $subdirtoprint . "<br />"); |
if ($subdirtoprint =~ m|/home/([^/]+)/public_html|) { |
if ($subdirtoprint =~ m|/home/([^/]+)/public_html|) { |
#localmachine CSTR space |
#localmachine CSTR space |
my $user=$1; |
my $user=$1; |
Line 1216 sub handler {
|
Line 1217 sub handler {
|
|
|
my $r = shift; |
my $r = shift; |
|
|
# not sure where the form.* was getting processed. |
|
Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING}); |
|
|
|
# A hook for me to work without disturbing Alex. |
# A hook for me to work without disturbing Alex. |
if ($ENV{'form.jeremy'}) { |
if (!$ENV{'form.jeremy'}) { |
printWizard($r); |
printWizard($r); |
return OK; |
return OK; |
} |
} |
Line 1310 sub printWizard {
|
Line 1308 sub printWizard {
|
|
|
my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; |
my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; |
|
|
my $wizard = Apache::lonwizard->new("Printing Wizard"); |
my $wizard = Apache::lonwizard->new("Printing Wizard", $ENV{QUERY_STRING}); |
# PRINT_TYPE: What the user wants to print (current docs, |
# PRINT_TYPE: What the user wants to print (current docs, |
# whole sequence, etc. |
# whole sequence, etc. |
$wizard->declareVars(['PRINT_TYPE']); |
$wizard->declareVars(['PRINT_TYPE', 'FORMAT', 'postdata', 'url', |
|
'symb', 'RESOURCES', 'FILES', 'STUDENTS']); |
|
|
|
# Extract map |
|
my $symb = $wizard->{VARS}->{'symb'}; |
|
my ($map, $id, $url) = split(/__/, $symb); |
|
|
|
my $subdir = &Apache::lonnet::filelocation("", $ENV{'form.url'}); |
|
|
|
# "Delete everything after the last slash." |
|
$subdir =~ s|/[^/]+$||; |
|
|
|
# This really ought to be in some repository in loncommon or |
|
# something where it can just be grabbed. |
|
my $problemFilter = sub { |
|
my $name = shift; |
|
return $name =~ m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/; |
|
}; |
|
|
|
# What can be printed is a very dynamic decision based on |
|
# lots of factors. So we need to dynamically build this list. |
|
# To prevent security leaks, states are only added to the wizard |
|
# if they can be reached, which ensures manipulating the querystring |
|
# won't allow anyone to reach states they shouldn't have permission |
|
# to reach. |
|
my $printChoices = []; |
|
# We can always print the current screen. |
|
push @{$printChoices}, ['current_document', "<b>$resourceTitle</b> (exactly what was on the screen)", 'CHOOSE_FORMAT']; |
|
|
|
if ($ENV{'form.postdata'}=~ /\/res\//) { |
|
# Allow problems from sequence |
|
push @{$printChoices}, ['map_problems', "Problems from <b>$sequenceTitle</b>", 'CHOOSE_PROBLEMS']; |
|
Apache::lonwizard::resource_multichoice->new($wizard, "CHOOSE_PROBLEMS", 'Select Problems', "Select problems to print from <b>$sequenceTitle</b>:", '', 'CHOOSE_FORMAT', 'RESOURCES', sub {my $res = shift; return $res->is_problem()}, undef, $map); |
|
|
|
# Allow all resources from sequence |
|
push @{$printChoices}, ['map_problems_pages', "Problems and pages from <b>$sequenceTitle</b>", 'CHOOSE_PROBLEMS_HTML']; |
|
Apache::lonwizard::resource_multichoice->new($wizard, "CHOOSE_PROBLEMS_HTML", 'Select Resources', "Select resources to print from <b>$sequenceTitle</b>:", '', "CHOOSE_FORMAT", 'RESOURCES', sub {my $res = shift; return !$res->is_map()}, undef, $map); |
|
} |
|
|
|
# If the user is priviledged, allow them to print all |
|
# problems in the course, optionally for selected students |
|
if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($ENV{'form.postdata'}=~/\/res\//)) { |
|
push @{$printChoices}, ['all_problems', '<b>All problems</b> in course (may take a lot of time)', 'CHOOSE_FORMAT']; |
|
push @{$printChoices}, ['problems_for_students', "Problems from <b>$sequenceTitle</b> for selected students", 'CHOOSE_STUDENTS']; |
|
Apache::lonwizard::choose_student->new($wizard, "CHOOSE_STUDENTS", "Choose Students", "Select the students you wish to print the problems for:", '', 'CHOOSE_FORMAT', 'STUDENTS', 1); |
|
} |
|
|
|
# FIXME: That RE should come from a library somewhere. |
|
if ((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($ENV{'form.postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) { |
|
push @{$printChoices}, ['problems_from_directory', "Problems from <b>$subdir</b>", 'CHOOSE_FROM_SUBDIR']; |
|
Apache::lonwizard::choose_files->new($wizard, "CHOOSE_FROM_SUBDIR", "Select Files","Select problems you wish to print from <b>$subdir</b>:", '', 'CHOOSE_FORMAT', 'FILES', $subdir, $problemFilter); |
|
} |
|
|
|
# Despite the appearance of states before here, this is the first state. |
|
Apache::lonwizard::switch_state->new($wizard, "START", "Selecting Resources to Print", "PRINT_TYPE", $printChoices, "What do you want to print?"); |
|
Apache::lonprintout::page_format_state->new($wizard, "CHOOSE_FORMAT", "Page Format", "FORMAT"); |
|
|
my $subdir = $ENV{'form.postdata'}; |
|
$subdir =~ s|http://[^/]+||; |
|
$subdir =~ m/\/([^\/]+)$/; |
|
$subdir =~ s/\Q$1\E//; |
|
|
|
# This code also shows up above... which is prefered? Is one |
|
# right for this context? |
|
#my $subdir = &Apache::lonnet::filelocation("",$ENV{'form.url'}); |
|
#$subdir =~ s/\/[^\/]+$//; |
|
|
|
Apache::lonwizard::switch_state->new($wizard, "START", "Selecting Resources to Print", "PRINT_TYPE", [ |
|
['current_document', "<b>$resourceTitle</b> (exactly what was on the screen)", 'CHOOSE_FORMAT'], |
|
['map_problems', "Problems from <b>$sequenceTitle</b>", 'CHOOSE_FORMAT'], |
|
['map_problems_pages', "All of <b>$sequenceTitle</b>", 'CHOOSE_FORMAT'], |
|
['problems_for_students', "Problems from <b>$sequenceTitle</b> for selected students", 'CHOOSE_FORMAT'], |
|
['problems_from_directory', "Problems from <b>$subdir</b>", 'CHOOSE_FORMAT'] ], |
|
"What do you want to print?"); |
|
|
|
$r->print($wizard->display()); |
$r->print($wizard->display()); |
|
|
untie %hash; |
untie %hash; |
Line 1343 sub printWizard {
|
Line 1378 sub printWizard {
|
|
|
|
|
1; |
1; |
|
|
|
package Apache::lonprintout::page_format_state; |
|
|
|
=pod |
|
|
|
=head1 Wizard state: page_format_state |
|
|
|
See lonwizard.pm documentation for discussion of the wizard framework. |
|
|
|
Apache::lonprintout::page_format_state is a state that gives the user an opportunity to select the page layout they wish to print with: Number of columns, portrait/landscape, and paper size. If you want to change the paper size choices, change the @paperSize array contents in this package. |
|
|
|
=over 4 |
|
|
|
=item * B<new>(parentLonWizReference, stateName, stateTitle, varName, nextState): varName is where the print information will be stored in the format FIXME. nextState is the state that follows this one. |
|
|
|
=back |
|
|
|
=cut |
|
|
|
use Apache::lonwizard; |
|
|
|
no strict; |
|
@ISA = ("Apache::lonwizard::state"); |
|
use strict; |
|
|
|
my $maxColumns = 2; |
|
my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]", |
|
"Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]", |
|
"A2 [420x594 mm]", "A3 [297x420 mm]", "A4 [210x297 mm]", |
|
"A5 [148x210 mm]", "A6 [105x148 mm]" ); |
|
|
|
# Tentative format: Orientation (L = Landscape, P = portrait) | Colnum | |
|
# Paper type |
|
|
|
sub new { |
|
my $proto = shift; |
|
my $class = ref($proto) || $proto; |
|
my $self = bless $proto->SUPER::new(shift, shift, shift); |
|
|
|
$self->{VAR_NAME} = shift; |
|
$self->{NEXT_STATE} = shift; |
|
return $self; |
|
} |
|
|
|
sub postprocess { |
|
my $self = shift; |
|
my $wizard = $self->{WIZARD}; |
|
|
|
# We have to manually collect the value and store it in the |
|
# wizard variable |
|
my $result = $ENV{'form.' . $self->{VAR_NAME} . '.layout'} . '|'; |
|
$result .= $ENV{'form.' . $self->{VAR_NAME} . '.cols'} . '|'; |
|
$result .= $ENV{'form.' . $self->{VAR_NAME} . '.paper'}; |
|
|
|
$wizard->setVar($self->{VAR_NAME}, $result); |
|
$wizard->changeState($self->{NEXT_STATE}); |
|
} |
|
|
|
sub render { |
|
my $self = shift; |
|
my $wizard = $self->{WIZARD}; |
|
my $result = ''; |
|
my $var = $self->{VAR_NAME}; |
|
my $curVal = $self->{WIZARD}->{VARS}->{$var}; |
|
|
|
my ($layout, $cols, $paper) = split(/\|/, $curVal); |
|
|
|
my $landscapeChecked = ($layout ne "L")? '' : 'checked '; |
|
my $portraitChecked = $landscapeChecked ? '' : 'checked '; |
|
|
|
$result .= <<STATEHTML; |
|
|
|
<p>How should the printing be formatted?</p> |
|
<table cellpadding="3"> |
|
<tr> |
|
<td align="center"><b>Layout</b></td> |
|
<td align="center"><b>Columns</b></td> |
|
<td align="center"><b>Paper type</b></td> |
|
</tr> |
|
<tr> |
|
<td> |
|
<input type="radio" name="${var}.layout" value="L" $landscapeChecked> Landscape<br /> |
|
<input type="radio" name="${var}.layout" value="P" $portraitChecked> Portrait |
|
</td> |
|
<td> |
|
<select name="${var}.cols"> |
|
STATEHTML |
|
|
|
my $i; |
|
for ($i = 1; $i <= $maxColumns; $i++) { |
|
if ($i == $cols) { |
|
$result .= "<option value='$i' selected>$i</option>\n"; |
|
} else { |
|
$result .= "<option value='$i'>$i</option>\n"; |
|
} |
|
} |
|
|
|
$result .= "</select></td><td>\n"; |
|
$result .= "<select name='${var}.paper'>\n"; |
|
|
|
$i = 0; |
|
foreach (@paperSize) { |
|
if ($paper == $i) { |
|
$result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n"; |
|
} else { |
|
$result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n"; |
|
} |
|
$i++; |
|
} |
|
|
|
$result .= "</select></td></tr></table>"; |
|
$result .= '<input type="hidden" name="printWizDone" value="1" />'; |
|
return $result; |
|
} |
|
|
|
1; |
|
|
__END__ |
__END__ |
|
|