setHelp not used anymore, clean up tests

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=>'<br />'.$i18n->get("confirm change url message"));
 	$f->submit;
-	$self->getAdminConsole->setHelp('change url', 'Asset');
 	return $self->getAdminConsole->render($f->print,$i18n->get("change url"));
 }
 

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

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

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(

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 .= " <b>".$fields->{$fieldId}{fieldName}."</b><br />";
 	}	
-        $ac->setHelp("metadata manage","Asset");
 	return $ac->render($output);
 }
 

lib/WebGUI/AssetVersioning.pm

@@ -525,7 +525,6 @@ sub www_manageRevisions {
         }
         $sth->finish;
         $output .= '</table>';
-	$ac->setHelp('manage versions','Asset');
         return $ac->render($output,$i18n->get("committed versions", "VersionTag").": ".$self->getTitle);
 }
 

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