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

some comment cleanups

Browse source
This commit is contained in:
Graham Knop 2008-09-15 21:51:46 +00:00
parent 6278278508
commit 1e54cf0458
8 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Shortcut.pm
View file

@ -307,7 +307,7 @@ sub getEditForm {
=head2 getExtraHeadTags ( ) =head2 getExtraHeadTags ( )
Returns the extraHeadTags stored in the asset. Called in $self->session->style->generateAdditionalHeadTags if this asset is the $self->session->asset. Also called in WebGUI::Layout::view for its child assets. Overriden here in Shortcut.pm. Returns the extraHeadTags stored in the asset. Called in $self->session->style->generateAdditionalHeadTags if this asset is the $self->session->asset. Also called in WebGUI::Asset::Wobject::Layout for its child assets. Overriden to also add tags from shortcutted asset.
=cut =cut

2
lib/WebGUI/Asset/Sku/EMSBadge.pm
View file

@ -289,7 +289,7 @@ sub onRemoveFromCart {
=head2 prepareView =head2 prepareView
See Asset.pm, prepareView for details. See WebGUI::Asset, prepareView for details.
=cut =cut

2
lib/WebGUI/Asset/Wobject/Shelf.pm
View file

@ -382,7 +382,7 @@ sub www_importProducts {
} }
else { else {
$status_message = $i18n->get('import successful'); $status_message = $i18n->get('import successful');
##Copy and paste from Asset.pm, www_editSave ##Copy and paste from WebGUI::Asset, www_editSave
if ($self->session->setting->get("autoRequestCommit")) { if ($self->session->setting->get("autoRequestCommit")) {
# Make sure version tag hasn't already been committed by another process # Make sure version tag hasn't already been committed by another process
my $versionTag = WebGUI::VersionTag->getWorking($self->session, "nocreate"); my $versionTag = WebGUI::VersionTag->getWorking($self->session, "nocreate");

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

@ -504,10 +504,6 @@ sub view {
$self->session->errorHandler->warn("changed mimetype: " . $self->get("httpHeader")); $self->session->errorHandler->warn("changed mimetype: " . $self->get("httpHeader"));
} }
# Note, we still process our template below even though it will never
# be displayed if the redirectURL is set. Not sure how important it is
# to do it this way, but it certainly is the least obtrusive to default
# webgui flow. This feature currently requires a patched WebGUI.pm file.
if ($self->session->form->process('redirectURL')) { if ($self->session->form->process('redirectURL')) {
$self->session->http->setRedirect($self->session->form->process('redirectURL')); $self->session->http->setRedirect($self->session->form->process('redirectURL'));
return undef; return undef;

2
lib/WebGUI/DateTime.pm
View file

@ -120,7 +120,7 @@ doing date/time math.
sub new sub new
{ {
# Drop-in replacement for Perl's DateTime.pm # Drop-in replacement for Perl's DateTime
my $class = shift; my $class = shift;
my $param0 = $_[0]; my $param0 = $_[0];
my $self; my $self;

2
lib/WebGUI/Form/Control.pm
View file

@ -103,7 +103,7 @@ If no starting value is specified, this will be used instead.
=head4 _defaulted =head4 _defaulted
This flag indicates that the defaultValue was used. It is used by Form types that support This flag indicates that the defaultValue was used. It is used by Form types that support
an initial blank field, instead of using a default, like WebGUI::Form::Date.pm an initial blank field, instead of using a default, like WebGUI::Form::Date
=head4 extras =head4 extras

2
lib/WebGUI/HTML.pm
View file

@ -280,7 +280,7 @@ sub makeAbsolute {
my $linkParser = sub { my $linkParser = sub {
my ($tagname, $attr, $text) = @_; my ($tagname, $attr, $text) = @_;
my %linkElements = # from HTML::Element.pm my %linkElements = # from HTML::Element
( (
body => 'background', body => 'background',
base => 'href', base => 'href',

8
lib/WebGUI/i18n/English/WebGUI.pm
View file

@ -1125,22 +1125,22 @@ to add or remove users from their groups.
Here are some examples for other databases.</p> Here are some examples for other databases.</p>
<div> <div>
<dl> <dl>
<dt><a href="http://search.cpan.org/author/TIMB/DBD-Oracle-1.14/Oracle.pm#CONNECTING_TO_ORACLE">Oracle</a>:</dt> <dt><a href="http://search.cpan.org/perldoc?DBD::Oracle#CONNECTING_TO_ORACLE">Oracle</a>:</dt>
<dd>DBI:Oracle:SID<br /> <dd>DBI:Oracle:SID<br />
DBD::Oracle must be installed.<br /> DBD::Oracle must be installed.<br />
You must be using mod_perl and configure <b>PerlSetEnv ORACLE_HOME /home/oracle/product/8.1.7</b> in httpd.conf. Without setting ORACLE_HOME, you can connect using DBI:Oracle:host=myhost.com;sid=SID You must be using mod_perl and configure <b>PerlSetEnv ORACLE_HOME /home/oracle/product/8.1.7</b> in httpd.conf. Without setting ORACLE_HOME, you can connect using DBI:Oracle:host=myhost.com;sid=SID
</dd> </dd>
<dt><a href="http://search.cpan.org/author/OYAMA/DBD-PgPP-0.04/PgPP.pm#THE_DBI_CLASS">PostgreSQL</a>:</dt> <dt><a href="http://search.cpan.org/perldoc?DBD::PgPP#THE_DBI_CLASS">PostgreSQL</a>:</dt>
<dd>DBI:PgPP:dbname=DBNAME[;host=hOST]<br /> <dd>DBI:PgPP:dbname=DBNAME[;host=hOST]<br />
DBD::PgPP must be installed. DBD::PgPP must be installed.
</dd> </dd>
<dt><a href="http://search.cpan.org/author/MEWP/DBD-Sybase-1.00/Sybase.pm#Specifying_other_connection_specific_parameters">Sybase</a>:</dt> <dt><a href="http://search.cpan.org/perldoc?DBD::Sybase#Specifying_other_connection_specific_parameters">Sybase</a>:</dt>
<dd>DBI:Sybase:[server=SERVERNAME][database=DATABASE]<br /> <dd>DBI:Sybase:[server=SERVERNAME][database=DATABASE]<br />
DBD::Sybase must be installed.<br /> DBD::Sybase must be installed.<br />
You must be using mod_perl and configure <b>PerlSetEnv SYBASE /opt/sybase/11.0.2</b> in httpd.conf. You must be using mod_perl and configure <b>PerlSetEnv SYBASE /opt/sybase/11.0.2</b> in httpd.conf.
</dd> </dd>
</dl></div>|, </dl></div>|,
lastUpdated => 1146630103, lastUpdated => 1221362751,
}, },
'994 description' => { '994 description' => {