diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 6adf31963..52ae49154 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -2261,7 +2261,6 @@ sub www_changeUrl {
$f->text(name=>"url", value=>$self->get('url'), label=>$i18n->get("104"), hoverHelp=>$i18n->get('104 description'));
$f->yesNo(name=>"confirm", value=>0, label=>$i18n->get("confirm change"), hoverHelp=>$i18n->get("confirm change url message"), subtext=>'
'.$i18n->get("confirm change url message"));
$f->submit;
- $self->getAdminConsole->setHelp('change url', 'Asset');
return $self->getAdminConsole->render($f->print,$i18n->get("change url"));
}
diff --git a/lib/WebGUI/AssetBranch.pm b/lib/WebGUI/AssetBranch.pm
index de1416fb1..06d57378b 100644
--- a/lib/WebGUI/AssetBranch.pm
+++ b/lib/WebGUI/AssetBranch.pm
@@ -243,7 +243,6 @@ sub www_editBranch {
);
}
}
- $ac->setHelp('edit branch', 'Asset');
return $ac->render($tabform->print, $i18n->get('edit branch','Asset'));
}
diff --git a/lib/WebGUI/AssetClipboard.pm b/lib/WebGUI/AssetClipboard.pm
index 6b947a2b3..c7d8607ee 100644
--- a/lib/WebGUI/AssetClipboard.pm
+++ b/lib/WebGUI/AssetClipboard.pm
@@ -364,7 +364,6 @@ sub www_manageClipboard {
return $self->session->privilege->insufficient() unless ($self->session->user->isInGroup(12));
my $i18n = WebGUI::International->new($self->session, "Asset");
my ($header,$limit);
- $ac->setHelp("clipboard manage");
if ($self->session->form->process("systemClipboard") && $self->session->user->isInGroup(3)) {
$header = $i18n->get(966);
$ac->addSubmenuItem($self->getUrl('func=manageClipboard'), $i18n->get(949));
diff --git a/lib/WebGUI/AssetExportHtml.pm b/lib/WebGUI/AssetExportHtml.pm
index 6c8cc6822..e96013d9f 100644
--- a/lib/WebGUI/AssetExportHtml.pm
+++ b/lib/WebGUI/AssetExportHtml.pm
@@ -307,7 +307,6 @@ Displays the export page administrative interface
sub www_export {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->session->user->isInGroup(13));
- $self->getAdminConsole->setHelp("page export", "Asset");
my $i18n = WebGUI::International->new($self->session, "Asset");
my $f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
$f->hidden(
diff --git a/lib/WebGUI/AssetMetaData.pm b/lib/WebGUI/AssetMetaData.pm
index 1e110337a..bd969e9a5 100644
--- a/lib/WebGUI/AssetMetaData.pm
+++ b/lib/WebGUI/AssetMetaData.pm
@@ -273,7 +273,6 @@ sub www_editMetaDataField {
-value=>$fieldInfo->{defaultValue}
);
$f->submit();
- $ac->setHelp("metadata edit property","Asset");
return $ac->render($f->print, $i18n->get('Edit Metadata'));
}
@@ -290,7 +289,6 @@ sub www_editMetaDataFieldSave {
my $ac = WebGUI::AdminConsole->new($self->session,"content profiling");
return $self->session->privilege->insufficient() unless ($self->session->user->isInGroup(4));
my $i18n = WebGUI::International->new($self->session,"Asset");
- $ac->setHelp("metadata edit property","Asset");
# Check for duplicate field names
my $fid = $self->session->form->process("fid");
my $fieldName = $self->session->form->process("fieldName");
@@ -342,7 +340,6 @@ sub www_manageMetaData {
$output .= $self->session->icon->edit("func=editMetaDataField;fid=".$fieldId,$self->get("url"));
$output .= " ".$fields->{$fieldId}{fieldName}."
";
}
- $ac->setHelp("metadata manage","Asset");
return $ac->render($output);
}
diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index 6b173670d..023cc8ecd 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -525,7 +525,6 @@ sub www_manageRevisions {
}
$sth->finish;
$output .= '';
- $ac->setHelp('manage versions','Asset');
return $ac->render($output,$i18n->get("committed versions", "VersionTag").": ".$self->getTitle);
}
diff --git a/t/Help/setHelp.t b/t/Help/setHelp.t
index dccb46053..6c9c1c7ca 100644
--- a/t/Help/setHelp.t
+++ b/t/Help/setHelp.t
@@ -44,6 +44,10 @@ find(\&getHelpTopics, $lib);
$numTests = scalar(@helpTopics)
;
+if (!$numTests) {
+ plan skip_all => 'No uses of setHelp to check';
+}
+
plan tests => $numTests;
my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session);