many bug fixes

This commit is contained in:
JT Smith 2005-03-04 22:49:34 +00:00
parent 66e2028c3a
commit 2a1db10c8b
7 changed files with 22 additions and 30 deletions

View file

@ -579,6 +579,9 @@ Any text string. Most likely will have been the Asset's name or title.
sub fixUrl {
my $self = shift;
my $url = WebGUI::URL::urlize(shift);
if (length($url) > 250) {
$url = substr($url,220);
}
$url .= ".".$session{setting}{urlExtension} if ($url =~ /\./ && $session{setting}{urlExtension} ne "");
my ($test) = WebGUI::SQL->quickArray("select url from asset where assetId<>".quote($self->getId)." and url=".quote($url));
if ($test) {