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);