many bug fixes
This commit is contained in:
parent
66e2028c3a
commit
2a1db10c8b
7 changed files with 22 additions and 30 deletions
|
|
@ -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) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue