loncom/build/lpml_parse.pl - diff

Return to lpml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/lpml_parse.pl between versions 1.31 and 1.32

version 1.31, 2001/12/13 23:41:26	version 1.32, 2001/12/15 20:20:11
Line 401 sub end {	Line 401 sub end {
"<table border='1' cellpadding='5'>".	"<table border='1' cellpadding='5'>".
"<caption>File Category Count</caption>".	"<caption>File Category Count</caption>".
"<tr><th>Icon</th><th>Name</th><th>Number of Occurrences</th>".	"<tr><th>Icon</th><th>Name</th><th>Number of Occurrences</th>".
	"<th>Number of Incorrect Counts</th>".
	"</tr>".
join("\n",(map {"<tr><td><img src='$fab{$_}.gif' ".	join("\n",(map {"<tr><td><img src='$fab{$_}.gif' ".
"alt='$_ icon' /></td>".	"alt='$_ icon' /></td>".
"<td>$_</td><td>$categorycount{$_}</td></tr>"}	"<td>$_</td><td>$categorycount{$_}</td>".
	"<td><!-- POSTEVALINLINE $_ --></td></tr>"}
@categorynamelist)).	@categorynamelist)).
"</table>".	"</table>".
"</body></html>\n";	"</body></html>\n";
Line 889 sub format_directory {	Line 892 sub format_directory {
my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname});	my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname});
return $directory="\n<tr><td rowspan='2' bgcolor='#ffffff'>".	return $directory="\n<tr><td rowspan='2' bgcolor='#ffffff'>".
"$categoryname</td>".	"$categoryname</td>".
"<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL verify.pl directory /$targetdir $categoryhash{$categoryname} --> </td>".	"<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL [$categoryname] verify.pl directory /$targetdir $categoryhash{$categoryname} --> </td>".
"<td rowspan='2' bgcolor='#ffffff'>$chmod<br />$chown</td>".	"<td rowspan='2' bgcolor='#ffffff'>$chmod<br />$chown</td>".
"<td bgcolor='#ffffff'>$thtml</td></tr>".	"<td bgcolor='#ffffff'>$thtml</td></tr>".
"<tr><td bgcolor='#ffffff' colspan='[{{{{{DPATHLENGTH}}}}}]'>".	"<tr><td bgcolor='#ffffff' colspan='[{{{{{DPATHLENGTH}}}}}]'>".
Line 1063 sub format_file {	Line 1066 sub format_file {
if ($mode eq 'html') {	if ($mode eq 'html') {
return ($file="\n<!-- FILESORT:$target -->".	return ($file="\n<!-- FILESORT:$target -->".
"<tr>".	"<tr>".
"<td><!-- POSTEVAL verify.pl file '$sourcerootarg' ".	"<td><!-- POSTEVAL [$categoryname] verify.pl file '$sourcerootarg' ".
"'$targetrootarg' ".	"'$targetrootarg' ".
"'$source' '$target' ".	"'$source' '$target' ".
"$categoryhash{$categoryname} --> </td><td>".	"$categoryhash{$categoryname} --> </td><td>".
Line 1194 sub format_link {	Line 1197 sub format_link {
$categorycount{$categoryname}++;	$categorycount{$categoryname}++;
push @links,("\n<!-- FILESORT:$tgt -->".	push @links,("\n<!-- FILESORT:$tgt -->".
"<tr>".	"<tr>".
"<td><!-- POSTEVAL verify.pl link ".	"<td><!-- POSTEVAL [$categoryname] verify.pl link ".
"'/$targetrootarg$linkto' '/$targetrootarg$tgt' ".	"'/$targetrootarg$linkto' '/$targetrootarg$tgt' ".
"$categoryhash{$categoryname} --> </td><td>".	"$categoryhash{$categoryname} --> </td><td>".
"<img src='$fab{$categoryname}.gif' ".	"<img src='$fab{$categoryname}.gif' ".
Line 1265 sub format_fileglob {	Line 1268 sub format_fileglob {
$parser->get_tag('/fileglob');	$parser->get_tag('/fileglob');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $fileglob="\n<tr>".	return $fileglob="\n<tr>".
"<td><!-- POSTEVAL verify.pl fileglob '$sourcerootarg' ".	"<td><!-- POSTEVAL [$categoryname] verify.pl fileglob '$sourcerootarg' ".
"'$targetrootarg' ".	"'$targetrootarg' ".
"'$glob' '$sourcedir' '$filenames2' '$targetdir' ".	"'$glob' '$sourcedir' '$filenames2' '$targetdir' ".
"$categoryhash{$categoryname} --> </td>".	"$categoryhash{$categoryname} --> </td>".

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.31
changed lines
	Added in v.1.32