db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.60, 2002/01/15 03:34:31	version 1.63, 2002/05/04 03:35:36
Line 161 sub printform	Line 161 sub printform
my $inputstring=textfield(-name=>'sstr',	my $inputstring=textfield(-name=>'sstr',
-default=>param('sstr')\|\|'',	-default=>param('sstr')\|\|'',
-size=>30,	-size=>30,
-maxlength=>30);	-maxlength=>50);
my $qnumber="Выводить по".br. textfield(-name=>'kvo',	my $qnumber="Выводить по".br. textfield(-name=>'kvo',
-default=>param('kvo')\|\|'150',	-default=>param('kvo')\|\|'150',
-size=>3,	-size=>3,
Line 840 sub PrintTournament {	Line 840 sub PrintTournament {
$qnum = '';	$qnum = '';
}	}
if ($Tournament{'Type'} =~ /Г/) {	if ($Tournament{'Type'} =~ /Г/) {
	$SingleTour=0;
$imgsrc = "/icons/folder.gif";	$imgsrc = "/icons/folder.gif";
$alt = "[*]";	$alt = "[*]";
} else {	} else {
Line 1009 sub PrintField {	Line 1010 sub PrintField {
$value =~ s/^\s+/<br>    /mg;	$value =~ s/^\s+/<br>    /mg;
$value =~ s/^\\|([^\n]*)/<pre>$1<\/pre>/mg;	$value =~ s/^\\|([^\n]*)/<pre>$1<\/pre>/mg;
$value =~ s/\s+-+\s+/  /mg;	$value =~ s/\s+-+\s+/  /mg;
$value =~ s/(\s)"/$1/mg;	# $value =~ s/(\s)"/$1/mg;
$value =~ s/^"//mg;	# $value =~ s/^"//mg;
$value =~ s/"//mg;	# $value =~ s/"//mg;
}	}