oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added a urlExists method which is shared between fixUrl() and the fileImport script

Browse source
This commit is contained in:
JT Smith 2007-02-24 16:56:45 +00:00
parent 128ab06bf6
commit 480cb392eb
1 changed files with 36 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lib/WebGUI/Asset.pm
View file

@ -411,12 +411,11 @@ sub fixUrl {
) {
$url .= ".".$self->session->setting->get("urlExtension");
}
my ($test) = $self->session->db->quickArray("select url from assetData where assetId<>".$self->session->db->quote($self->getId)." and url=".$self->session->db->quote($url));
if ($test) {
if ($self->urlExists($self->session, $url, $self->getId)) {
my @parts = split(/\./,$url);
if ($parts[0] =~ /(.*)(\d+$)/) {
$parts[0] = $1.($2+1);
} elsif ($test ne "") {
} else {
$parts[0] .= "2";
}
$url = join(".",@parts);
@ -1865,6 +1864,40 @@ sub update {
$self->purgeCache;
}
#-------------------------------------------------------------------
=head2 urlExists ( session, url [, assetId] )
Returns true if the asset URL is used within the system. This is a class method.
=head3 session
A reference to the current session.
head3 url
The asset url you'd like to check for.
head3 assetId
Limit the search to a specific assetId to see if that url exists for that asset.
=cut
sub urlExists {
my $class = shift;
my $session = shift;
my $url = lc(shift);
my $assetId = shift;
my $limit = "";
if (defined $assetId) {
$limit = "and assetId<>?"
}
my ($test) = $session->db->quickArray("select count(url) from assetData where url=? $limit", [$url, $assetId]);
return $test;
}
#-------------------------------------------------------------------