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

test of the bucket brigade

Browse source
This commit is contained in:
JT Smith 2006-01-29 19:48:37 +00:00
parent 356e267b8f
commit a378270a80
2 changed files with 107 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

99
lib/WebGUI/Asset/Wobject/Layout.pm
View file

@ -135,7 +135,7 @@ sub getEditForm {
#-------------------------------------------------------------------
sub view {
sub viewOriginal {
my $self = shift;
my $children = $self->getLineage( ["children"], { returnObjects=>1, excludeClasses=>["WebGUI::Asset::Wobject::Layout"] });
my %vars;
@ -217,6 +217,94 @@ sub view {
return $self->processTemplate(\%vars,$self->get("templateId"));
}
#-------------------------------------------------------------------
sub view {
my $self = shift;
my $children = $self->getLineage( ["children"], { returnObjects=>1, excludeClasses=>["WebGUI::Asset::Wobject::Layout"] });
my %vars;
# I'm sure there's a more efficient way to do this. We'll figure it out someday.
my @positions = split(/\./,$self->get("contentPositions"));
my @hidden = split("\n",$self->get("assetsToHide"));
my @placeHolder = ();
my $i = 1;
my $template= WebGUI::Asset->newByDynamicClass($self->session,$self->get("templateId"))->get("template");
my $numPositions = 1;
foreach my $j (2..15) {
$numPositions = $j if $template =~ m/position${j}\_loop/;
}
my @found;
my $showPerformance = $self->session->errorHandler->canShowPerformanceIndicators();
foreach my $position (@positions) {
my @assets = split(",",$position);
foreach my $asset (@assets) {
foreach my $child (@{$children}) {
if ($asset eq $child->getId) {
unless (isIn($asset,@hidden) || !($child->canView)) {
$self->session->style->setRawHeadTags($child->getExtraHeadTags);
push(@placeHolder, $child);
if ($i > $numPositions) {
push(@{$vars{"position1_loop"}},{
id=>$child->getId,
content=>"~~~"
});
} else {
push(@{$vars{"position".$i."_loop"}},{
id=>$child->getId,
content=>"~~~"
});
}
}
push(@found, $child->getId);
}
}
}
$i++;
}
# deal with unplaced children
foreach my $child (@{$children}) {
unless (isIn($child->getId, @found)||isIn($child->getId,@hidden)) {
if ($child->canView) {
push(@placeHolder, $child);
push(@{$vars{"position1_loop"}},{
id=>$child->getId,
content=>"~~~"
});
}
}
}
$vars{showAdmin} = ($self->session->var->get("adminOn") && $self->canEdit);
if ($vars{showAdmin}) {
# under normal circumstances we don't put HTML stuff in our code, but this will make it much easier
# for end users to work with our templates
$self->session->style->setScript($self->session->config->get("extrasURL")."/draggable.js",{ type=>"text/javascript" });
$self->session->style->setLink($self->session->config->get("extrasURL")."/draggable.css",{ type=>"text/css", rel=>"stylesheet", media=>"all" });
$self->session->style->setRawHeadTags('
<style type="text/css">
.dragging, .empty {
background-image: url("'.$self->session->config->get("extrasURL").'/opaque.gif");
}
</style>
');
$vars{"dragger.icon"} = $self->session->icon->drag();
$vars{"dragger.init"} = '
<iframe id="dragSubmitter" style="display: none;" src="'.$self->session->config->get("extrasURL").'/spacer.gif"></iframe>
<script type="text/javascript">
dragable_init("'.$self->getUrl("func=setContentPositions;map=").'");
</script>
';
}
my @parts = split("~~~",$self->processTemplate(\%vars,$self->get("templateId")));
foreach my $part (@parts) {
print $part;
my $asset = shift @placeHolder;
if (defined $asset) {
my $t = [Time::HiRes::gettimeofday()] if ($showPerformance);
print $asset->view;
print "Asset:".Time::HiRes::tv_interval($t) if ($showPerformance);
}
}
}
sub www_setContentPositions {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
@ -226,6 +314,15 @@ sub www_setContentPositions {
return "Map set: ".$self->session->form->process("map");
}
sub www_view {
my $self = shift;
$self->session->http->getHeader;
my $style = $self->processStyle("~~~");
my ($head, $foot) = split("~~~",$style);
print $head;
$self->view;
print $foot;
}
1;

11
lib/WebGUI/Asset/Wobject/Search.pm
View file

@ -78,7 +78,7 @@ sub definition {
tab=>"properties",
hoverHelp=>$i18n->get("class limiter description"),
label=>$i18n->get("class limiter"),
options=>$session->db->buildHashRef("select distinct()")
options=>$session->db->buildHashRef("select distinct(className) from asset")
);
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
@ -102,8 +102,15 @@ returns the output.
sub view {
my $self = shift;
my $i18n = WebGUI::International->new($self->session, "Asset_Search");
my %var;
return $self->processTemplate(\%var, $templateId);
$var{'form_header'} = WebGUI::Form::formHeader($self->session, {action=>$self->getUrl})
.WebGUI::Form::hidden($self->session,{name=>"doit", value=>"1"});
$var{'form_footer'} = WebGUI::Form::formFooter($self->session);
$var{'form_submit'} = WebGUI::Form::submit($self->session, {value=>$i18n->get("search")});
$var{'form_keywords'} = WebGUI::Form::text($self->session, {name=>"keywords", value=>$self->session->form->get("keywords")});
# return $self->processTemplate(\%var, $templateId);
}
1;