|
version 1.117, 2003/02/17 16:43:54
|
version 1.118, 2003/02/19 15:14:54
|
|
Line 612 ENDPART
|
Line 612 ENDPART
|
| foreach my $person (@students) { |
foreach my $person (@students) { |
| my $current_output = ''; |
my $current_output = ''; |
| my ($usersection,$username,$userdomain) = split /:/,$person; |
my ($usersection,$username,$userdomain) = split /:/,$person; |
| my $fullname = &Apache::grades::get_fullname($username,$userdomain); |
my $fullname = &Apache::grades::get_fullname($username,$userdomain); |
| #goes through all resources, checks if they are available for current student, and produces output |
#goes through all resources, checks if they are available for current student, and produces output |
| foreach my $curresline (@master_seq) { |
foreach my $curresline (@master_seq) { |
| my ($curres,$symb) = split /&&/, $curresline; |
my ($curres,$symb) = split /&&/, $curresline; |
|
Line 637 ENDPART
|
Line 637 ENDPART
|
| } else { |
} else { |
| my $blanspages = ''; |
my $blanspages = ''; |
| for (my $j=0;$j<$ENV{'form.addedpages'};$j++) {$blanspages.='\clearpage\strut\clearpage';} |
for (my $j=0;$j<$ENV{'form.addedpages'};$j++) {$blanspages.='\clearpage\strut\clearpage';} |
| $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License } \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}\hskip 1.4in } \vskip 5 mm '.$current_output; |
$current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}\hskip 1.4in } \vskip 5 mm '.$current_output; |
| } |
} |
| $result .= $current_output; |
$result .= $current_output; |
| &Apache::lonnet::delenv('form.counter'); |
&Apache::lonnet::delenv('form.counter'); |
| |
&Apache::lonxml::init_counter(); |
| } |
} |
| $result .= '\end{document}'; |
$result .= '\end{document}'; |
| &Apache::lonnet::delenv('form.textwidth'); |
&Apache::lonnet::delenv('form.textwidth'); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface