loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.486, 2006/10/16 10:32:46	version 1.487, 2006/10/17 09:56:16
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*$item/) {	while ($format_string =~ /%\d*\Q$item\E/) {
my $start = $-[0];	my $start = $-[0];
my $end = $+[0];	my $end = $+[0];
my $len = $end - $start;	my $len = $end - $start;
Line 72 sub printf_style_subst {	Line 72 sub printf_style_subst {
my $subst = $repl;	my $subst = $repl;
my $fmt = substr($format_string, $start, $len);	my $fmt = substr($format_string, $start, $len);
my $size = $fmt;	my $size = $fmt;
$size =~ s/%(\d*)$item/$1/;	$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*)$item/$subst/;	$format_string =~ s/%(\d*)\Q$item\E/$subst/;

}	}