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

Remove use of getAttribute from Asset.pm. Tweak a few tests.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-21 21:06:58 -08:00
parent bf0c95d910
commit 04ed78e8f1
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Asset.pm
View file

@ -38,7 +38,7 @@ around title => sub {
if (@_ > 0) {
my $title = shift;
$title = WebGUI::HTML::filter($title, 'all');
$title = $self->meta->get_attribute('title')->default if $title eq '';
$title = $self->meta->find_attribute_by_name('title')->default if $title eq '';
unshift @_, $title;
}
$self->$orig(@_);
@ -1114,7 +1114,7 @@ If this evaluates to True, then the smaller extras/adminConsole/small/assets.gif
sub getIcon {
my ($self, $small) = @_;
my $icon = $self->getAttribute("icon");
my $icon = $self->icon;
return $self->session->url->extras('assets/small/'.$icon) if ($small);
return $self->session->url->extras('assets/'.$icon);
}
@ -1181,7 +1181,7 @@ returning results. This allows very large sets of results to be handled in chun
sub getIsa {
my ($class, $session, $offset) = @_;
my $tableName = $class->getAttribute('tableName');
my $tableName = $class->tableName;
my $sql = "select distinct(assetId) from $tableName";
if (defined $offset) {
$sql .= ' LIMIT '. $offset . ',1234567890';
@ -1522,7 +1522,7 @@ sub getUiLevel {
my $className = $self->get("className");
return $uiLevel # passed in
|| $self->session->config->get("assets/".$className."/uiLevel") # from config
|| $self->getAttribute('uiLevel') # from definition
|| $self->uiLevel # from definition
|| 1; # if all else fails
}