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

RFE 654257 - user-separated clipboard and trash

Browse source
This commit is contained in:
Ed Van Duinen 2003-05-13 20:35:08 +00:00
parent 1a3900d494
commit 7642295d20
10 changed files with 815 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lib/WebGUI/Icon.pm
View file

@ -20,8 +20,9 @@ use WebGUI::Session;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&helpIcon &becomeIcon &cutIcon &copyIcon &deleteIcon &editIcon &moveUpIcon &moveDownIcon
&moveRightIcon &moveLeftIcon &wobjectIcon &pageIcon &moveTopIcon &moveBottomIcon &viewIcon);
our @EXPORT = qw(&helpIcon &becomeIcon &cutIcon &copyIcon &deleteIcon &editIcon
&moveBottomIcon &moveDownIcon &moveLeftIcon &moveRightIcon &moveTopIcon &moveUpIcon
&pageIcon &pasteIcon &wobjectIcon &viewIcon);
=head1 NAME
@ -46,6 +47,7 @@ A package for generating user interface buttons. The subroutines found herein do
$html = moveTopIcon('op=something');
$html = moveUpIcon('op=something');
$html = pageIcon();
$html = pasteIcon('op=something');
$html = viewIcon('op=something');
$html = wobjectIcon();
@ -377,6 +379,34 @@ sub pageIcon {
#-------------------------------------------------------------------
=head2 pasteIcon ( urlParameters [, pageURL ] )
Generates a button with the word "Paste" printed on it.
=over
=item urlParameters
Any URL parameters that need to be tacked on to the current URL to accomplish whatever function this button represents.
=item pageURL
The URL to any page. Defaults to the current page.
=back
=cut
sub pasteIcon {
my ($output, $pageURL);
$pageURL = $_[1] || $session{page}{urlizedTitle};
$output = '<a href="'.WebGUI::URL::gateway($pageURL,$_[0]).'">';
$output .= '<img src="'.$session{config}{extrasURL}.'/toolbar/'.$session{language}{toolbar}.'/paste.gif" align="middle" border="0" alt="Paste" title="Paste" /></a>';
return $output;
}
#-------------------------------------------------------------------
=head2 viewIcon ( urlParameters [, pageURL ] )
Generates a button with the word "View" printed on it.