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

made the options in urlExists a hashref for future expandability

Browse source
This commit is contained in:
JT Smith 2007-02-24 17:16:18 +00:00
parent 480cb392eb
commit 0b6c500a16
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/WebGUI/Asset.pm
View file

@ -411,7 +411,7 @@ sub fixUrl {
) {
$url .= ".".$self->session->setting->get("urlExtension");
}
if ($self->urlExists($self->session, $url, $self->getId)) {
if ($self->urlExists($self->session, $url, {assetId=>$self->getId})) {
my @parts = split(/\./,$url);
if ($parts[0] =~ /(.*)(\d+$)/) {
$parts[0] = $1.($2+1);
@ -1867,7 +1867,7 @@ sub update {
#-------------------------------------------------------------------
=head2 urlExists ( session, url [, assetId] )
=head2 urlExists ( session, url [, options] )
Returns true if the asset URL is used within the system. This is a class method.
@ -1879,7 +1879,11 @@ head3 url
The asset url you'd like to check for.
head3 assetId
head3 options
A hash reference of optional parameters.
head4 assetId
Limit the search to a specific assetId to see if that url exists for that asset.
@ -1889,12 +1893,12 @@ sub urlExists {
my $class = shift;
my $session = shift;
my $url = lc(shift);
my $assetId = shift;
my $options = shift || {};
my $limit = "";
if (defined $assetId) {
if (defined $options->{assetId}) {
$limit = "and assetId<>?"
}
my ($test) = $session->db->quickArray("select count(url) from assetData where url=? $limit", [$url, $assetId]);
my ($test) = $session->db->quickArray("select count(url) from assetData where url=? $limit", [$url, $options->{assetId}]);
return $test;
}