loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.487, 2006/10/17 09:56:16	version 1.488, 2006/10/20 17:37:20
Line 62 my $resources_printed;	Line 62 my $resources_printed;
sub printf_style_subst {	sub printf_style_subst {
my ($item, $format_string, $repl) = @_;	my ($item, $format_string, $repl) = @_;

while ($format_string =~ /%\d*\Q$item\E/) {	while ($format_string =~m/\G[^%](%(\d)\Q$item\E)/g) {
my $start = $-[0];	my $fmt = $1;
my $end = $+[0];	my $size = $2;
my $len = $end - $start;

# see if we need to truncate:

my $subst = $repl;	my $subst = $repl;
my $fmt = substr($format_string, $start, $len);
my $size = $fmt;
$size =~ s/%(\d*)\Q$item\E/$1/;
if ($size ne "") {	if ($size ne "") {
$subst = substr($subst, 0, $size);	$subst = substr($subst, 0, $size);
}	}
$format_string =~ s/%(\d*)\Q$item\E/$subst/;	my $newpos = pos($format_string) + length($subst) - length($fmt);
	$format_string =~ s/\Q$fmt\E\G/$subst/;
	pos($format_string)=$newpos;
}	}

return $format_string;	return $format_string;
}	}