clean up pod, syntax, warning problems

This commit is contained in:
Graham Knop 2008-11-12 01:17:22 +00:00
parent b65c907040
commit 6c0688add2
3 changed files with 7 additions and 11 deletions

View file

@ -256,6 +256,7 @@ eval{
Saves the survey collateral to the DB
=cut
sub survey{ return shift->{survey}; }
sub littleBuddy{ return shift->{survey}; }
sub allyourbases{ return shift->{survey}; }

View file

@ -407,9 +407,9 @@ Deprecated. Use www_viewRss() instead.
=cut
sub www_viewRSS10 {
sub www_viewRSS090 {
my $self = shift;
return $self->www_viewRdf;
return $self->www_viewRss;
}
#-------------------------------------------------------------------
@ -420,9 +420,9 @@ Deprecated. Use www_viewRss() instead.
=cut
sub www_viewRSS10 {
sub www_viewRSS091 {
my $self = shift;
return $self->www_viewRdf;
return $self->www_viewRss;
}
#-------------------------------------------------------------------
@ -446,14 +446,10 @@ Deprecated. Use www_viewRss() instead.
=cut
sub www_viewRSS10 {
sub www_viewRSS20 {
my $self = shift;
return $self->www_viewRdf;
return $self->www_viewRss;
}
1;