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

removed JavaScript, StyleSheet, and RawHeadTags macros

Browse source
This commit is contained in:
JT Smith 2006-04-19 19:39:26 +00:00
parent 722a214f80
commit 11385d7957
14 changed files with 28 additions and 277 deletions
Download patch file Download diff file Expand all files Collapse all files

43
lib/WebGUI/Macro/JavaScript.pm
View file

@ -1,43 +0,0 @@
package WebGUI::Macro::JavaScript;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
=head1 NAME
Package WebGUI::Macro::JavaScript
=head1 DESCRIPTION
This Macro is a wrapper for $session->style->setScript, which puts a script
tag into the head of the current page with the contents of the javascript
found at the url that is passed in.
=head2 process ( url )
=head3 url
URL to the javascript to include in the page's header tags.
=cut
#-------------------------------------------------------------------
sub process {
my $session = shift;
$session->style->setScript(shift,{type=>'text/javascript'});
return undef;
}
1;

42
lib/WebGUI/Macro/RawHeadTags.pm
View file

@ -1,42 +0,0 @@
package WebGUI::Macro::RawHeadTags;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
=head1 NAME
Package WebGUI::Macro::RawHeadTags
=head1 DESCRIPTION
Macro for adding
=head2 process ( tags )
process is a wrapper for $session->style->setRawHeadTags();
=head3 text
Text that will be added to the HEAD tags for this page.
=cut
#-------------------------------------------------------------------
sub process {
my $session = shift;
$session->style->setRawHeadTags(shift);
return "";
}
1;

45
lib/WebGUI/Macro/StyleSheet.pm
View file

@ -1,45 +0,0 @@
package WebGUI::Macro::StyleSheet;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
=head1 NAME
Package WebGUI::Macro::StyleSheet
=head1 DESCRIPTION
Macro for dynamically adding references to CSS documents to use in this page.
=head2 process ( url )
process is a wrapper around $session->style->setLink().
=head3 url
The URL to the CSS document.
=cut
#-------------------------------------------------------------------
sub process {
my $session = shift;
$session->style->setLink(shift,{
type=>'text/css',
rel=>'stylesheet'
});
return "";
}
1;