version 1.429, 2006/03/14 23:24:46
|
version 1.431, 2006/03/15 22:11:04
|
Line 1023 sub output_data {
|
Line 1023 sub output_data {
|
my %parmhash = %$rparmhash; |
my %parmhash = %$rparmhash; |
my $resources_printed = ''; |
my $resources_printed = ''; |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $bodytag=&Apache::loncommon::bodytag('Preparing Printout'); |
my $headtag = &Apache::loncommon::headtag('Preparing Printout'); |
|
my $end_headtag = &Apache::loncommon::endheadtag(); |
|
my $bodytag = &Apache::loncommon::bodytag('Preparing Printout'); |
$r->print(<<ENDPART); |
$r->print(<<ENDPART); |
$html |
$html |
<head> |
$headtag |
<script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
var editbrowser; |
var editbrowser; |
function openbrowser(formname,elementname,only,omit) { |
function openbrowser(formname,elementname,only,omit) { |
Line 1051 $html
|
Line 1053 $html
|
editbrowser.focus(); |
editbrowser.focus(); |
} |
} |
</script> |
</script> |
<title>LON-CAPA output for printing</title> |
$end_headtag |
</head> |
|
$bodytag |
$bodytag |
<p> |
<p> |
Please stand by while processing your print request, this may take some time ... |
Please stand by while processing your print request, this may take some time ... |
Line 1471 ENDPART
|
Line 1472 ENDPART
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75'); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75'); |
my $student_counter=-1; |
my $student_counter=-1; |
my $i = 0; |
my $i = 0; |
my ($junku, $junkd, $last_section) = split /:/,$students[0]; |
my $last_section = (split(/:/,$students[0]))[2]; |
foreach my $person (@students) { |
foreach my $person (@students) { |
|
|
my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due"; |
my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due"; |
Line 1481 ENDPART
|
Line 1482 ENDPART
|
} |
} |
$student_counter++; |
$student_counter++; |
if ($split_on_sections) { |
if ($split_on_sections) { |
my $this_section; |
my $this_section = (split(/:/,$person))[2]; |
($junku, $junkd, $this_section) = split /:/,$person; |
|
if ($this_section ne $last_section) { |
if ($this_section ne $last_section) { |
$i++; |
$i++; |
$last_section = $this_section; |
$last_section = $this_section; |
Line 1771 ENDPART
|
Line 1771 ENDPART
|
"cgi.$identifier.coursedom" => $cdom, |
"cgi.$identifier.coursedom" => $cdom, |
"cgi.$identifier.resources" => $resources_printed); |
"cgi.$identifier.resources" => $resources_printed); |
|
|
$r->print(<<FINALEND); |
my $end_page = &Apache::loncommon::end_page(); |
|
$r->print(<<FINALEND); |
<br /> |
<br /> |
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier" /> |
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier" /> |
<a href="/cgi-bin/printout.pl?$identifier">Continue</a> |
<a href="/cgi-bin/printout.pl?$identifier">Continue</a> |
</body> |
$end_page |
</html> |
|
FINALEND |
FINALEND |
} |
} |
|
|