version 1.560.2.3, 2009/09/08 10:53:15
|
version 1.560.2.6, 2009/10/13 11:01:16
|
Line 1
|
Line 1
|
# |
# |
# Issues: |
|
# - Need to get the state flow for selected problems/resources for students |
|
# correct |
|
# - Need to do the CODEd stuff. |
|
# - Need to regularize and figure out for each case who puts on the latex |
|
# front matter and make sure it gets done. |
|
# |
|
# |
|
|
|
# The LearningOnline Network |
# The LearningOnline Network |
# Printout |
# Printout |
Line 99 sub generate_student_chooser {
|
Line 92 sub generate_student_chooser {
|
$sort_choice, |
$sort_choice, |
$variable, |
$variable, |
$next_state) = @_; |
$next_state) = @_; |
|
&Apache::lonnet::logthis("Student chooser next state: $next_state, this state: $this_state"); |
my $result = <<CHOOSE_STUDENTS; |
my $result = <<CHOOSE_STUDENTS; |
<state name="$this_state" title="Select Students and Resources"> |
<state name="$this_state" title="Select Students and Resources"> |
<message><b>Select sorting order of printout</b> </message> |
<message><b>Select sorting order of printout</b> </message> |
Line 155 sub generate_resource_chooser {
|
Line 148 sub generate_resource_chooser {
|
$value_func, |
$value_func, |
$start_new_option) = @_; |
$start_new_option) = @_; |
|
|
|
&Apache::lonnet::logthis("Top URL = $top_url"); |
my $result = <<CHOOSE_RESOURCES; |
my $result = <<CHOOSE_RESOURCES; |
<state name="$this_state" title="$prompt_text"> |
<state name="$this_state" title="$prompt_text"> |
<resource variable="$variable" $resource_options |
<resource variable="$variable" $resource_options |
Line 163 sub generate_resource_chooser {
|
Line 156 sub generate_resource_chooser {
|
<nextstate>$next_state</nextstate> |
<nextstate>$next_state</nextstate> |
<filterfunc>return $filter;</filterfunc> |
<filterfunc>return $filter;</filterfunc> |
CHOOSE_RESOURCES |
CHOOSE_RESOURCES |
if ($value_func ne '') { |
if ($choice_func ne '') { |
$result .= "<choicefunc>return $choice_func;</choicefunc>"; |
$result .= "<choicefunc>return $choice_func;</choicefunc>"; |
} |
} |
if ($top_url ne '') { |
if ($top_url ne '') { |
Line 178 CHOOSE_RESOURCES
|
Line 171 CHOOSE_RESOURCES
|
|
|
return $result; |
return $result; |
} |
} |
|
# |
|
# Generate the helper XML for a code choice helper dialog: |
|
# |
|
# Paramters: |
|
# $helper - Reference to the helper. |
|
# $state - Name of the state for the chooser. |
|
# $next_state - Name fo the state to follow the chooser. |
|
# $bubble_types - Populates the bubble sheet type dropt down. |
|
# $code_selections - Provides set of code choices that have been used |
|
# $saved_codes - Provides the list of saved codes. |
|
# |
|
# Returns; |
|
# The Xml of the code chooser. |
|
# |
|
sub generate_code_selector { |
|
my ($helper, |
|
$state, |
|
$next_state, |
|
$bubble_types, |
|
$code_selections, |
|
$saved_codes) = @_; # Unpack the parameters. |
|
|
|
my $result = <<CHOOSE_ANON1; |
|
<state name="$state" title="Specify CODEd Assignments"> |
|
<nextstate>$next_state</nextstate> |
|
<message><h4>Fill out one of the forms below</h4></message> |
|
<message><br /><hr /> <br /></message> |
|
<message><h3>Generate new CODEd Assignments</h3></message> |
|
<message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message> |
|
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"> |
|
<validator> |
|
if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) && |
|
!\$helper->{'VARS'}{'REUSE_OLD_CODES'} && |
|
!\$helper->{'VARS'}{'SINGLE_CODE'} && |
|
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
|
return "You need to specify the number of assignments to print"; |
|
} |
|
return undef; |
|
</validator> |
|
</string> |
|
<message></td></tr><tr><td></message> |
|
<message><b>Names to save the CODEs under for later:</b></message> |
|
<message></td><td></message> |
|
<string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" /> |
|
<message></td></tr><tr><td></message> |
|
<message><b>Bubble sheet type:</b></message> |
|
<message></td><td></message> |
|
<dropdown variable="CODE_OPTION" multichoice="0" allowempty="0"> |
|
$bubble_types |
|
</dropdown> |
|
<message></td></tr><tr><td colspan="2"></td></tr><tr><td></message> |
|
<message></td></tr><tr><td></table></message> |
|
<message><br /><hr /><h3>Print a Specific CODE </h3><br /><table></message> |
|
<message><tr><td><b>Enter a CODE to print:</b></td><td></message> |
|
<string variable="SINGLE_CODE" size="10"> |
|
<validator> |
|
if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'} && |
|
!\$helper->{'VARS'}{'REUSE_OLD_CODES'} && |
|
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
|
return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'}, |
|
\$helper->{'VARS'}{'CODE_OPTION'}); |
|
} else { |
|
return undef; # Other forces control us. |
|
} |
|
</validator> |
|
</string> |
|
<message></td></tr><tr><td></message> |
|
$code_selections |
|
<message></td></tr></table></message> |
|
<message><hr /><h3>Reprint a Set of Saved CODEs</h3><table><tr><td></message> |
|
<message><b>Select saved CODEs:</b></message> |
|
<message></td><td></message> |
|
<dropdown variable="REUSE_OLD_CODES"> |
|
$saved_codes |
|
</dropdown> |
|
<message></td></tr></table></message> |
|
</state> |
|
CHOOSE_ANON1 |
|
|
|
return $result; |
|
} |
|
|
#----------------------------------------------------------------------- |
#----------------------------------------------------------------------- |
|
|
Line 2153 ENDPART
|
Line 2226 ENDPART
|
$texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form); |
$texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form); |
&Apache::lonnet::logthis("texversion so far: $texversion"); |
&Apache::lonnet::logthis("texversion so far: $texversion"); |
if ($urlp=~/\.page$/) { |
if ($urlp=~/\.page$/) { |
&Apache::lonnet::("Special page actions"); |
&Apache::lonnet::logthis("Special page actions"); |
($texversion,my $number_of_columns_page) = &page_cleanup($texversion); |
($texversion,my $number_of_columns_page) = &page_cleanup($texversion); |
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} |
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} |
$texversion =~ s/\\end{document}\d*/\\end{document}/; |
$texversion =~ s/\\end{document}\d*/\\end{document}/; |
Line 2197 ENDPART
|
Line 2270 ENDPART
|
} |
} |
|
|
if ($flag_latex_header_remove ne 'NO') { |
if ($flag_latex_header_remove ne 'NO') { |
|
&Apache::lonnet::logthis("Removing header/footer 1"); |
$texversion = &latex_header_footer_remove($texversion); |
$texversion = &latex_header_footer_remove($texversion); |
|
&Apache::lonnet::logthis("With h/f removed we have: $texversion"); |
} else { |
} else { |
$texversion =~ s/\\end{document}//; |
$texversion =~ s/\\end{document}//; |
} |
} |
Line 2234 ENDPART
|
Line 2309 ENDPART
|
} |
} |
|
|
if ($flag_latex_header_remove ne 'NO') { |
if ($flag_latex_header_remove ne 'NO') { |
|
&Apache::lonnet::logthis("Removing header & footer 2"); |
$texversion = &latex_header_footer_remove($texversion); |
$texversion = &latex_header_footer_remove($texversion); |
} else { |
} else { |
$texversion =~ s/\\end{document}/\\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/\$number_of_columns\]\[b\]\{\\hrulefill\}/; |
$texversion =~ s/\\end{document}/\\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/\$number_of_columns\]\[b\]\{\\hrulefill\}/; |
Line 2261 ENDPART
|
Line 2337 ENDPART
|
$texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'}, |
$texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'}, |
$master_seq[$i]); |
$master_seq[$i]); |
if ($flag_latex_header_remove ne 'NO') { |
if ($flag_latex_header_remove ne 'NO') { |
|
&Apache::lonnet::logthis("Removing header/footer 3"); |
$texversion = &latex_header_footer_remove($texversion); |
$texversion = &latex_header_footer_remove($texversion); |
} else { |
} else { |
$texversion =~ s/\\end{document}//; |
$texversion =~ s/\\end{document}//; |
Line 2278 ENDPART
|
Line 2355 ENDPART
|
} |
} |
$result .= '\end{document}'; |
$result .= '\end{document}'; |
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') || |
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') || |
|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') || |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') || |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') || |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){ |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){ |
|
|
Line 2285 ENDPART
|
Line 2363 ENDPART
|
#-- prints assignments for whole class or for selected students |
#-- prints assignments for whole class or for selected students |
my $type; |
my $type; |
if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') || |
if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') || |
|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') || |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') ) { |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') ) { |
$selectionmade=5; |
$selectionmade=5; |
$type='problems'; |
$type='problems'; |
Line 2322 ENDPART
|
Line 2401 ENDPART
|
$helper->{'VARS'}->{'NUMBER_TO_PRINT'} = $#students+1; |
$helper->{'VARS'}->{'NUMBER_TO_PRINT'} = $#students+1; |
} |
} |
my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; |
my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; |
|
&Apache::lonnet::logthis("RESOURCES: ". $helper->{'VARS'}->{'RESOURCES'}); |
|
|
#loop over students |
#loop over students |
my $flag_latex_header_remove = 'NO'; |
|
|
my $flag_latex_header_remove = 'NO'; |
my %moreenv; |
my %moreenv; |
$moreenv{'instructor_comments'}='hide'; |
$moreenv{'instructor_comments'}='hide'; |
$moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); |
$moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); |
Line 2372 ENDPART
|
Line 2453 ENDPART
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$result .= $print_array[0].' \end{document}'; |
$result .= $print_array[0].' \end{document}'; |
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') || |
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') || |
|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') || |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) { |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) { |
my $cdom =$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom =$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cnum =$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum =$env{'course.'.$env{'request.course.id'}.'.num'}; |
Line 2523 ENDPART
|
Line 2605 ENDPART
|
$newurlp=&path_to_problem($newurlp,$LaTeXwidth); |
$newurlp=&path_to_problem($newurlp,$LaTeXwidth); |
$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/; |
$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/; |
if ($flag_latex_header_remove ne 'NO') { |
if ($flag_latex_header_remove ne 'NO') { |
|
&Apache::lonnet::logthis("Removing header/footer: 4"); |
$texversion = &latex_header_footer_remove($texversion); |
$texversion = &latex_header_footer_remove($texversion); |
} else { |
} else { |
$texversion =~ s/\\end{document}//; |
$texversion =~ s/\\end{document}//; |
Line 2727 sub print_resources {
|
Line 2810 sub print_resources {
|
# so we will just rely on prntout.pl to strip ENDOFSTUDENTSTAMP from the |
# so we will just rely on prntout.pl to strip ENDOFSTUDENTSTAMP from the |
# postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself. |
# postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself. |
# |
# |
|
&Apache::lonnet::logthis("In print_resources"); |
|
|
foreach my $curresline (@{$master_seq}) { |
foreach my $curresline (@{$master_seq}) { |
|
&Apache::lonnet::logthis("Res: $curresline"); |
if (defined $page_breaks{$curresline}) { |
if (defined $page_breaks{$curresline}) { |
if($i != 0) { |
if($i != 0) { |
$current_output.= "\\newpage\n"; |
$current_output.= "\\newpage\n"; |
Line 2747 sub print_resources {
|
Line 2831 sub print_resources {
|
&Apache::lonxml::remember_problem_counter(); |
&Apache::lonxml::remember_problem_counter(); |
|
|
my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv); |
my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv); |
|
&Apache::lonnet::logthis("student view: $rendered"); |
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
# Use a copy of the hash so we don't pervert it on future loop passes. |
# Use a copy of the hash so we don't pervert it on future loop passes. |
Line 2775 sub print_resources {
|
Line 2859 sub print_resources {
|
$rendered = $header.$body; |
$rendered = $header.$body; |
} |
} |
} |
} |
|
&Apache::lonnet::logthis("After preprending header: $rendered"); |
if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') { |
if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') { |
my $url = &Apache::lonnet::clutter($res_url); |
my $url = &Apache::lonnet::clutter($res_url); |
my $annotation = &annotate($url); |
my $annotation = &annotate($url); |
$rendered =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/; |
$rendered =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/; |
} |
} |
if ($remove_latex_header eq 'YES') { |
if ($remove_latex_header eq 'YES') { |
|
&Apache::lonnet::logthis("Removing header/footer: 5"); |
$rendered = &latex_header_footer_remove($rendered); |
$rendered = &latex_header_footer_remove($rendered); |
} else { |
} else { |
$rendered =~ s/\\end{document}//; |
$rendered =~ s/\\end{document}//; |
Line 2796 sub print_resources {
|
Line 2881 sub print_resources {
|
$annotation =~ s/(\\end{document})/$annotation$1/; |
$annotation =~ s/(\\end{document})/$annotation$1/; |
} |
} |
if ($remove_latex_header eq 'YES') { |
if ($remove_latex_header eq 'YES') { |
|
&Apache::lonnet::logthis("Removing header/footer: 6"); |
$rendered = &latex_header_footer_remove($rendered); |
$rendered = &latex_header_footer_remove($rendered); |
} else { |
} else { |
$rendered =~ s/\\end{document}//; |
$rendered =~ s/\\end{document}//; |
Line 2805 sub print_resources {
|
Line 2891 sub print_resources {
|
my $url = &Apache::lonnet::clutter($res_url); |
my $url = &Apache::lonnet::clutter($res_url); |
my $rendered = &include_pdf($url); |
my $rendered = &include_pdf($url); |
if ($remove_latex_header ne 'NO') { |
if ($remove_latex_header ne 'NO') { |
|
&Apache::lonnet::logthis("Removing header/footer: 7"); |
$rendered = &latex_header_footer_remove($rendered); |
$rendered = &latex_header_footer_remove($rendered); |
} |
} |
$current_output .= $rendered; |
$current_output .= $rendered; |
} else { |
} else { |
my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'},$curresline); |
my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'},$curresline); |
if ($remove_latex_header ne 'NO') { |
if ($remove_latex_header ne 'NO') { |
|
&Apache::lonnet::logthis("Removing header/footer: 8"); |
$rendered = &latex_header_footer_remove($rendered); |
$rendered = &latex_header_footer_remove($rendered); |
} else { |
} else { |
$rendered =~ s/\\end{document}//; |
$rendered =~ s/\\end{document}//; |
Line 3151 sub printHelper {
|
Line 3239 sub printHelper {
|
} |
} |
my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS_PAGE', |
my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS_PAGE', |
'Select Problem(s) to print', |
'Select Problem(s) to print', |
"multichoice='1' toponly='1', addstatus='1' closeallpages='1'", |
"multichoice='1' toponly='1' addstatus='1' closeallpages='1'", |
'RESOURCES', |
'RESOURCES', |
'PAGESIZE', |
'PAGESIZE', |
$url, |
$url, |
Line 3248 ALL_PROBLEMS
|
Line 3336 ALL_PROBLEMS
|
'RESOURCES', |
'RESOURCES', |
'PAGESIZE', |
'PAGESIZE', |
'', |
'', |
$isNotMap,,$symbFilter, |
$isNotMap,'',$symbFilter, |
$start_new_option) . |
$start_new_option) . |
&generate_resource_chooser('ALL_PROBLEMS_STUDENTS', |
&generate_resource_chooser('ALL_PROBLEMS_STUDENTS', |
'Select Problem(s) to print', |
'Select Problem(s) to print', |
Line 3256 ALL_PROBLEMS
|
Line 3344 ALL_PROBLEMS
|
'RESOURCES', |
'RESOURCES', |
'STUDENTS1', |
'STUDENTS1', |
'', |
'', |
$isProblemOrMap, , $symbFilter, |
$isProblemOrMap,'' , $symbFilter, |
$start_new_option) . |
$start_new_option) . |
$suffixXml |
$suffixXml |
); |
); |
Line 3269 ALL_PROBLEMS
|
Line 3357 ALL_PROBLEMS
|
if ($page_ispage) { |
if ($page_ispage) { |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]selected people[_5]', |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]selected people[_5]', |
'<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'), |
'<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'), |
'problems_for_students', 'CHOOSE_STUDENTS']; |
'problems_for_students_from_page', 'CHOOSE_TGT_STUDENTS_PAGE']; |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]CODEd assignments[_5]', |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]CODEd assignments[_5]', |
'<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'), |
'<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'), |
'problems_for_anon', 'CHOOSE_ANON1']; |
'problems_for_anon_page', 'CHOOSE_ANON1_PAGE']; |
} |
} |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]selected people[_5]', |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]selected people[_5]', |
'<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), |
'<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), |
Line 3322 ALL_PROBLEMS
|
Line 3410 ALL_PROBLEMS
|
</choices> |
</choices> |
</state> |
</state> |
RESOURCE_SELECTOR |
RESOURCE_SELECTOR |
|
$resource_selector .= &generate_resource_chooser('CHOOSE_STUDENTS_PAGE', |
|
'Select Problem(s) to print', |
|
"multichoice='1' addstatus='1' closeallpages ='1'", |
|
'RESOURCES', |
|
'PRINT_FORMATTING', |
|
$url, |
|
$isProblem, '', $symbFilter, |
|
$start_new_option); |
|
|
# Generate student choosers. |
|
|
|
|
# Generate student choosers. |
|
|
|
|
|
|
|
&Apache::lonxml::xmlparse($r, 'helper', |
|
&generate_student_chooser('CHOOSE_TGT_STUDENTS_PAGE', |
|
'student_sort', |
|
'STUDENTS', |
|
'CHOOSE_STUDENTS_PAGE')); |
&Apache::lonxml::xmlparse($r, 'helper', |
&Apache::lonxml::xmlparse($r, 'helper', |
&generate_student_chooser('CHOOSE_STUDENTS', |
&generate_student_chooser('CHOOSE_STUDENTS', |
'student_sort', |
'student_sort', |
Line 3391 RESOURCE_SELECTOR
|
Line 3492 RESOURCE_SELECTOR
|
if ($codechoice eq '') { |
if ($codechoice eq '') { |
$codechoice='<choice computer="default">Default</choice>'; |
$codechoice='<choice computer="default">Default</choice>'; |
} |
} |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON1); |
my $anon1 = &generate_code_selector($helper, |
<state name="CHOOSE_ANON1" title="Specify CODEd Assignments"> |
'CHOOSE_ANON1', |
<nextstate>SELECT_PROBLEMS</nextstate> |
'SELECT_PROBLEMS', |
<message><h4>Fill out one of the forms below</h4></message> |
$codechoice, |
<message><br /><hr /> <br /></message> |
$code_selection, |
<message><h3>Generate new CODEd Assignments</h3></message> |
$namechoice) . $resource_selector; |
<message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message> |
|
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"> |
|
<validator> |
&Apache::lonxml::xmlparse($r, 'helper',$anon1); |
if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) && |
|
!\$helper->{'VARS'}{'REUSE_OLD_CODES'} && |
my $anon_page = &generate_code_selector($helper, |
!\$helper->{'VARS'}{'SINGLE_CODE'} && |
'CHOOSE_ANON1_PAGE', |
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
'SELECT_PROBLEMS_PAGE', |
return "You need to specify the number of assignments to print"; |
$codechoice, |
} |
$code_selection, |
return undef; |
$namechoice) . |
</validator> |
&generate_resource_chooser('SELECT_PROBLEMS_PAGE', |
</string> |
'Select Problem(s) to print', |
<message></td></tr><tr><td></message> |
"multichoice='1' addstatus='1' closeallpages ='1'", |
<message><b>Names to save the CODEs under for later:</b></message> |
'RESOURCES', |
<message></td><td></message> |
'PRINT_FORMATTING', |
<string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" /> |
$url, |
<message></td></tr><tr><td></message> |
$isProblem, '', $symbFilter, |
<message><b>Bubble sheet type:</b></message> |
$start_new_option); |
<message></td><td></message> |
&Apache::lonnet::logthis('XML for anonpage: '.$anon_page); |
<dropdown variable="CODE_OPTION" multichoice="0" allowempty="0"> |
&Apache::lonxml::xmlparse($r, 'helper', $anon_page); |
$codechoice |
|
</dropdown> |
|
<message></td></tr><tr><td colspan="2"></td></tr><tr><td></message> |
|
<message></td></tr><tr><td></table></message> |
|
<message><br /><hr /><h3>Print a Specific CODE </h3><br /><table></message> |
|
<message><tr><td><b>Enter a CODE to print:</b></td><td></message> |
|
<string variable="SINGLE_CODE" size="10"> |
|
<validator> |
|
if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'} && |
|
!\$helper->{'VARS'}{'REUSE_OLD_CODES'} && |
|
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
|
return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'}, |
|
\$helper->{'VARS'}{'CODE_OPTION'}); |
|
} else { |
|
return undef; # Other forces control us. |
|
} |
|
</validator> |
|
</string> |
|
<message></td></tr><tr><td></message> |
|
$code_selection |
|
<message></td></tr></table></message> |
|
<message><hr /><h3>Reprint a Set of Saved CODEs</h3><table><tr><td></message> |
|
<message><b>Select saved CODEs:</b></message> |
|
<message></td><td></message> |
|
<dropdown variable="REUSE_OLD_CODES"> |
|
$namechoice |
|
</dropdown> |
|
<message></td></tr></table></message> |
|
</state> |
|
$resource_selector |
|
CHOOSE_ANON1 |
|
|
|
|
|
if ($helper->{VARS}->{'assignment'}) { |
if ($helper->{VARS}->{'assignment'}) { |