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

added drag bar

Browse source
This commit is contained in:
JT Smith 2006-05-18 23:04:23 +00:00
parent dcad29dd8c
commit 5041f31025
6 changed files with 28 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -645,7 +645,7 @@ sub sendEmail {
}
if ($to =~ /\@/) {
my $mail = WebGUI::Mail::Send->create($self->session,{to=>$to, subject=>$subject, cc=>$cc, from=>$from, bcc=>$bcc});
$mail->addText($message);
$mail->addHtml($message);
$mail->addFooter;
$mail->queue;
} else {
@ -667,13 +667,13 @@ sub sendEmail {
});
my $mail = WebGUI::Mail::Send->create($self->session,{to=>$cc, subject=>$subject, from=>$from});
if ($cc) {
$mail->addText($message);
$mail->addHtml($message);
$mail->addFooter;
$mail->queue;
}
if ($bcc) {
WebGUI::Mail::Send->create($self->session, {to=>$bcc, subject=>$subject, from=>$from});
$mail->addText($message);
$mail->addHtml($message);
$mail->addFooter;
$mail->queue;
}

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

@ -220,7 +220,9 @@ sub view {
if ($self->{_viewVars}{showAdmin} && $self->canEditIfLocked) {
# 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->{_viewVars}{"dragger.icon"} = $self->session->icon->drag();
#$self->{_viewVars}{"dragger.icon"} = $self->session->icon->drag();
$self->{_viewVars}{"dragger.icon"} = '<div id="dragTrigger" class="dragTrigger">'.$self->session->icon->drag('class="dragTrigger"').'</div></div>';
#$self->{_viewVars}{"dragger.icon"} = '<div id="dragTrigger" class="dragTrigger dragTriggerFormatting"> / / / / / / / / / / </div>';
$self->{_viewVars}{"dragger.init"} = '
<iframe id="dragSubmitter" style="display: none;" src="'.$self->session->url->extras('spacer.gif').'"></iframe>
<script type="text/javascript">

9
lib/WebGUI/Session/Icon.pm
View file

@ -175,16 +175,21 @@ sub delete {
#-------------------------------------------------------------------
=head2 drag ( )
=head2 drag ( extras )
Generates an icon that can be used to drag content.
=head2 extras
Classes, Ids, Javascript triggers, or whatever else you need to add to the image to make it a drag trigger.
=cut
sub drag {
my $self = shift;
my $extras = shift;
my $i18n = WebGUI::International->new($self->session,'Icon');
return '<p style="display:inline;vertical-align:middle;"><img id="dragTrigger" class="dragTrigger" src="'.$self->getBaseURL().'drag.gif" style="vertical-align:middle;border: 0px;" alt="'.$i18n->get('Drag').'" title="'.$i18n->get('Drag').'" /></p>';
return '<p style="display:inline;vertical-align:middle;"><img '.$extras.' src="'.$self->getBaseURL().'drag.gif" style="vertical-align:middle;border: 0px;" alt="'.$i18n->get('Drag').'" title="'.$i18n->get('Drag').'" /></p>';
}
#-------------------------------------------------------------------