Properly fix the break of the build.
Thanks to hrs@ for fixing it in the first place. (Despite that I had run a make on this file and the .xml file, it seems that it didn't break with the file until it was commited. I am confused too.)
This commit is contained in:
parent
667a7b6360
commit
760c82a092
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=33367
1 changed files with 6 additions and 6 deletions
|
@ -1,8 +1,8 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
#
|
||||
# $Id: multimedia.pl,v 1.5 2008-12-06 06:25:37 hrs Exp $
|
||||
# $FreeBSD: www/en/multimedia/multimedia.pl,v 1.4 2008/12/06 02:50:43 edwin Exp $
|
||||
# $Id: multimedia.pl,v 1.6 2008-12-07 06:12:06 edwin Exp $
|
||||
# $FreeBSD: www/en/multimedia/multimedia.pl,v 1.5 2008/12/06 06:25:37 hrs Exp $
|
||||
#
|
||||
|
||||
use strict;
|
||||
|
@ -157,7 +157,7 @@ sub xml_char {
|
|||
# Note that $items[$ci]{fc} gets incremented in xml_start
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{url} = ""
|
||||
if (!defined $items[$ci]{files}{$items[$ci]{fc}}{url});
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{url} .= htmlentities($value);
|
||||
$items[$ci]{files}{$items[$ci]{fc}}{url} .= $value;
|
||||
return;
|
||||
}
|
||||
if ($tree[5] eq "size") {
|
||||
|
@ -204,7 +204,7 @@ sub xml_char {
|
|||
return;
|
||||
}
|
||||
if ($tree[3] eq "url") {
|
||||
$sources{$sid}{url} = htmlentities($value);
|
||||
$sources{$sid}{url} = $value;
|
||||
return;
|
||||
}
|
||||
goto error;
|
||||
|
@ -307,9 +307,9 @@ sub print_htmlitem {
|
|||
my %file = %{$item{files}{$m}};
|
||||
print $fhandle ", " if ($c++);
|
||||
if (defined $item{prefix}) {
|
||||
print $fhandle "<a href=\"$item{prefix}/$file{url}\">$file{desc}</a>";
|
||||
print $fhandle "<a href=\"" . htmlentities($item{prefix} . "/" . $file{url}) . "\">$file{desc}</a>";
|
||||
} else {
|
||||
print $fhandle "<a href=\"$file{url}\">$file{desc}</a>";
|
||||
print $fhandle "<a href=\"" . htmlentities($file{url}) . "\">$file{desc}</a>";
|
||||
}
|
||||
if (defined $file{size} || defined $file{length}) {
|
||||
my $s = "";
|
||||
|
|
Loading…
Reference in a new issue