loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.432 and 1.433

version 1.432, 2006/03/21 18:43:49	version 1.433, 2006/03/23 22:32:10
Line 1022 sub output_data {	Line 1022 sub output_data {
my ($r,$helper,$rparmhash) = @_;	my ($r,$helper,$rparmhash) = @_;
my %parmhash = %$rparmhash;	my %parmhash = %$rparmhash;
my $resources_printed = '';	my $resources_printed = '';
my $html=&Apache::lonxml::xmlbegin();	my $js = <<ENDPART;
my $headtag = &Apache::loncommon::headtag('Preparing Printout');	<script type="text/javascript">
my $end_headtag = &Apache::loncommon::endheadtag();
my $bodytag = &Apache::loncommon::bodytag('Preparing Printout');
$r->print(<<ENDPART);
$html
$headtag
<script type="text/javascript" language="Javascript">
var editbrowser;	var editbrowser;
function openbrowser(formname,elementname,only,omit) {	function openbrowser(formname,elementname,only,omit) {
var url = '/res/?';	var url = '/res/?';
Line 1053 $headtag	Line 1047 $headtag
editbrowser.focus();	editbrowser.focus();
}	}
</script>	</script>
$end_headtag
$bodytag
<p>
Please stand by while processing your print request, this may take some time ...
</p>
ENDPART	ENDPART

	my $start_page = &Apache::loncommon::start_page('Preparing Printout',$js);
	my $msg = &mt('Please stand by while processing your print request, this may take some time ...');

	$r->print($start_page."\n<p>\n$msg\n</p>\n");

# fetch the pagebreaks and store them in the course environment	# fetch the pagebreaks and store them in the course environment
# The page breaks will be pulled into the hash %page_breaks which is	# The page breaks will be pulled into the hash %page_breaks which is

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.432
changed lines
	Added in v.1.433