loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.391, 2005/09/06 09:54:21	version 1.392, 2005/09/16 20:45:00
Line 42 use Apache::lonratedt;	Line 42 use Apache::lonratedt;
use POSIX qw(strftime);	use POSIX qw(strftime);
use Apache::lonlocal;	use Apache::lonlocal;

my $resources_printed = '';

#	#
# Convert a numeric code to letters	# Convert a numeric code to letters
#	#
Line 927 sub get_page_breaks {	Line 925 sub get_page_breaks {
sub output_data {	sub output_data {
my ($r,$helper,$rparmhash) = @_;	my ($r,$helper,$rparmhash) = @_;
my %parmhash = %$rparmhash;	my %parmhash = %$rparmhash;
	my $resources_printed = '';
my $html=&Apache::lonxml::xmlbegin();	my $html=&Apache::lonxml::xmlbegin();
my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');	my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');
$r->print(<<ENDPART);	$r->print(<<ENDPART);
Line 1631 sub get_CODE {	Line 1630 sub get_CODE {
my $max='1'.'0'x$size;	my $max='1'.'0'x$size;
my $newcode;	my $newcode;
while(1) {	while(1) {
$newcode=sprintf("%06d",int(rand($max)));	$newcode=sprintf("%0".$size."d",int(rand($max)));
if (!exists($$all_codes{$newcode})) {	if (!exists($$all_codes{$newcode})) {
$$all_codes{$newcode}=1;	$$all_codes{$newcode}=1;
if ($type eq 'number' ) {	if ($type eq 'number' ) {