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

Lots more Dashboard features/changes.

Browse source 
Internationalization and Help to come.
Default dashlet demos/walkthroughs to come.
This commit is contained in:
Matthew Wilson 2005-12-01 15:46:04 +00:00
parent 440ca63333
commit 09bf2b263f
12 changed files with 369 additions and 281 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Asset/Shortcut.pm
View file

@ -375,8 +375,8 @@ sub getFieldsList {
$output .= '<tr>';
$output .= '<td class="tableData"><a href="'.$field->getUrl('func=edit').'">'.$field->get("fieldName").'</a></td>';
$output .= '<td class="tableData">';
$output .= WebGUI::Icon::editIcon($field->getUrl('func=edit'));
$output .= WebGUI::Icon::deleteIcon($field->getUrl('func=delete'));
$output .= editIcon('func=edit',$field->getUrl());
$output .= deleteIcon('func=delete',$field->getUrl());
$output .= '</td>';
$output .= '</tr>';
}
@ -607,9 +607,9 @@ sub www_edit {
sub www_getUserPrefsForm {
#This is a form retrieved by "ajax".
my $self = shift;
return '' unless $self->getParent->canPersonalize;
return 'nuhuh' unless $self->getParent->canPersonalize;
my @fielden = $self->getUserPrefs;
my $f = WebGUI::HTMLForm->new(extras=>' onSubmit="submitForm(this,\''.'form_'.$self->getId.'\');return false;"');
my $f = WebGUI::HTMLForm->new(extras=>' onSubmit="submitForm(this,\''.$self->getId.'\',\''.$self->getUrl.'\');return false;"');
$f->hidden(
-name => 'func',
-value => 'saveUserPrefs'
@ -653,9 +653,18 @@ sub www_saveUserPrefs {
foreach my $fieldId (keys %{$session{form}}) {
my $field = WebGUI::Asset->newByDynamicClass($fieldId);
next unless $field;
return 0 unless $field->setUserPref($fieldId,$session{form}{$fieldId});
$field->setUserPref($fieldId,$session{form}{$fieldId});
}
return 1;
return $self->view;
}
#-------------------------------------------------------------------
sub www_getNewTitle {
my $self = shift;
return '' unless $self->getParent->canPersonalize;
my $foo = $self->getShortcut;
my $title = $foo->{_properties}{title};
return $title;
}
#-------------------------------------------------------------------