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

- Added Guid form control.

Browse source 
- Moved Asset ID and Class Name fields to the Meta tab of all assets.
 - Made Classname from control a subclass of ReadOnly.
This commit is contained in:
JT Smith 2008-10-16 19:02:13 +00:00
parent 2b8a3c279d
commit 84d7c20fed
5 changed files with 119 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lib/WebGUI/Asset.pm
View file

@ -818,21 +818,19 @@ sub getEditForm {
name=>"func",
value=>"editSave"
});
my $assetId;
my $class;
if ($self->getId eq "new") {
$tabform->hidden({
name=>"assetId",
value=>"new"
});
$tabform->hidden({
name=>"class",
value=>$self->session->form->process("class","className")
});
$assetId = "new";
$class = $self->session->form->process("class","className");
}
else {
# revision history
$assetId = $self->getId;
$class = $self->get('className');
my $ac = $self->getAdminConsole;
$ac->addSubmenuItem($self->getUrl("func=manageRevisions"),$i18n->get("revisions").":");
my $rs = $self->session->db->read("select revisionDate from assetData where assetId=? order by revisionDate desc limit 5", [$self->getId]);
my $rs = $self->session->db->read("select revisionDate from assetData where assetId=? order by revisionDate desc limit 5", [$assetId]);
while (my ($version) = $rs->array) {
my ($interval, $units) = $self->session->datetime->secondsToInterval(time() - $version);
$ac->addSubmenuItem($self->getUrl("func=edit;revision=".$version), $interval." ".$units." ".$ago);
@ -875,11 +873,19 @@ sub getEditForm {
tie my %baseProperties, 'Tie::IxHash';
%baseProperties = (
assetId => {
fieldType => "readOnly",
fieldType => "guid",
label => $i18n->get("asset id"),
value => $self->get("assetId"),
value => $assetId,
hoverHelp => $i18n->get('asset id description'),
tab => "properties",
uiLevel => 9,
tab => "meta",
},
class => {
fieldType => "className",
label => $i18n->get("class name",'WebGUI'),
value => $class,
uiLevel => 9,
tab => "meta",
},
keywords => {
label => $i18n->get('keywords'),