loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.394, 2005/10/07 10:21:08	version 1.395, 2005/10/30 02:24:34
Line 903 sub unsupported {	Line 903 sub unsupported {


#	#
	# List of recently generated print files
	#

	sub recently_generated {
	my $r=shift;
	my $prtspool=$r->dir_config('lonPrtDir');
	$r->print('<h4>'.&mt('Recently generated printouts').'</h4>');
	opendir(DIR,$prtspool);
	while (my $filename=readdir(DIR)) {
	if ($filename=~/^$env{'user.name'}\_$env{'user.domain'}\_printout\_(\d+)\_.*.pdf$/) {
	my ($cdev,$cino,$cmode,$cnlink,
	$cuid,$cgid,$crdev,$csize,
	$catime,$cmtime,$cctime,
	$cblksize,$cblocks)=stat($prtspool.'/'.$filename);
	$r->print ("<a href='/prtspool/$filename'>".
	&mt('Generated').' '.&Apache::lonlocal::locallocaltime($cctime).
	' ('.$csize.' bytes)</a><br />');
	}
	}
	closedir(DIR);
	}

	#
# Retrieve the hash of page breaks.	# Retrieve the hash of page breaks.
#	#
# Inputs:	# Inputs:
Line 2462 RNDSEED	Line 2485 RNDSEED
$helper->{'VARS'}->{'style_file'}=$env{'form.style_file_value'};	$helper->{'VARS'}->{'style_file'}=$env{'form.style_file_value'};

}	}

}	}


Line 2489 RNDSEED	Line 2511 RNDSEED
}	}

$r->print($helper->display());	$r->print($helper->display());
	if ($helper->{STATE} eq 'START') {
	&recently_generated($r);
	}
&Apache::lonhelper::unregisterHelperTags();	&Apache::lonhelper::unregisterHelperTags();

return OK;	return OK;