Gossamer Forum: Products: Gossamer Links: Development, Plugins and Globals: Clean Title

Aug 19, 2009, 7:34 AM

nir

User (391 posts)

Aug 19, 2009, 7:34 AM

Post #1 of 15

Shortcut

Clean Title

I use this global to insert to the space in the Title the sign "-"
So if the Title is "aaa bbb ccc" Title I will get aaa-bbb-ccc
If I have title like this one "aaa- "bbb" c'cc" I want it to be 111-bbb-ccc

How can I insert list of character that the global will clean when create the CleanTitle,
Like ")(-+\><}{][,/.

sub {
my $in = $_[0];
my @cut = split /\n/, $in;
my @got;

# pass in as "name"
# eg FooBar|IN
foreach (@cut) {
chomp;
s/\r//g;
s/\f//g;
my $name = $_;
#$link = $CFG->{build_root_url}.qq{/search/$name};
my $hash;
$hash->{Title} = $_;
$hash->{CleanTitle} = $_;
$hash->{CleanTitle} =~ s/ /-/sig;
push @got, $hash;
}
return { format_page_loop => \@got };
}

Aug 19, 2009, 7:58 AM

Andy

Veteran / Moderator (17297 posts)

Aug 19, 2009, 7:58 AM

Post #2 of 15

Shortcut

Re: [nir] Clean Title In reply to

Hi,

Just before:

Code:
		$hash->{Title} = $_; 
		$hash->{CleanTitle} = $_;

..try adding this line:

Code:
		$hash->{CleanTitle} =~ s/[")(-\+\><}{\]\[,\/\.]//g;

Untested, but should work.

Cheers

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Aug 20, 2009, 1:07 AM

nir

User (391 posts)

Aug 20, 2009, 1:07 AM

Post #3 of 15

Shortcut

Re: [Andy] Clean Title In reply to

Thanks,
It needs to be like this
sub {
my $in = $_[0];
my @cut = split /\n/, $in;
my @got;

# pass in as "name"
# eg FooBar|IN
foreach (@cut) {
chomp;
s/\r//g;
s/\f//g;
s/[")(-\+!:@#^&_|\><}{\]\[,'\/\.]//g;
my $name = $_;
#$link = $CFG->{build_root_url}.qq{/search/$name};
my $hash;

$hash->{Title} = $_;
$hash->{CleanTitle} = $_;
$hash->{CleanTitle} =~ s/ /-/sig;
push @got, $hash;
}
return { format_page_loop => \@got };
}

But there is a strange thing that if a word start with Big latter it create double -
Like this
"aaa Bbb ccc" it will look like this aaa--Bbb-ccc
Any idea

Aug 20, 2009, 1:55 AM

Andy

Veteran / Moderator (17297 posts)

Aug 20, 2009, 1:55 AM

Post #4 of 15

Shortcut

Re: [nir] Clean Title In reply to

What is the example data passed in? I think this global could be cleaned up a bit ;)

Cheers

Andy (mod)
andy@ultranerds.co.uk

Aug 20, 2009, 2:05 AM

nir

User (391 posts)

Aug 20, 2009, 2:05 AM

Post #5 of 15

Shortcut

Re: [Andy] Clean Title In reply to

Accell UltraRun B068C
Accell-UltraRun--B068C

Watt 2.1 Bluetooth
Watt--21-Bluetooth

Audiovox XMC10A
Audiovox---XMC10A

Aug 20, 2009, 2:08 AM

Andy

Veteran / Moderator (17297 posts)

Aug 20, 2009, 2:08 AM

Post #6 of 15

Shortcut

Re: [nir] Clean Title In reply to

Try this global:

Code:
sub { 
   my @loop; 

   foreach (split /\n/, $_[0]) { 
	s/[)(-\+!:@#^&_|\><}{\]\[,'\/\.]//g; 
	my $hash; 
	$hash->{Title} = $_; 
	$hash->{CleanTitle} = $_; 
	$hash->{CleanTitle} =~ s/\s+/-/g; 
	$hash->{CleanTitle} =~ s/\-+/-/g; 
	push @loop, $hash; 
   } 

   return { format_page_loop => \@loop }; 

}

Call it in the same way as you were with the other global.

Cheers

Andy (mod)
andy@ultranerds.co.uk

Last edited by:

Andy: Aug 20, 2009, 2:42 AM

Aug 20, 2009, 2:38 AM

nir

User (391 posts)

Aug 20, 2009, 2:38 AM

Post #7 of 15

Shortcut

Re: [Andy] Clean Title In reply to

Yes it work:)
There is small thing if in the Title there is something like
Audiovox - XMC10A
It create
Audiovox---XMC10A
Is there a way to solve this too that it will be
Audiovox-XMC10A

Aug 20, 2009, 2:42 AM

Andy

Veteran / Moderator (17297 posts)

Aug 20, 2009, 2:42 AM

Post #8 of 15

Shortcut

Re: [nir] Clean Title In reply to

Hi,

Try the modified version - should get rid of the --, --- etc bits for ya =)

Cheers

Andy (mod)
andy@ultranerds.co.uk

Aug 20, 2009, 3:21 AM

nir

User (391 posts)

Aug 20, 2009, 3:21 AM

Post #9 of 15

Shortcut

Re: [Andy] Clean Title In reply to

Thanks

Jan 31, 2010, 6:04 AM

nir

User (391 posts)

Jan 31, 2010, 6:04 AM

Post #10 of 15

Shortcut

Re: [Andy] Clean Title In reply to

I use this globale for clean Title
sub { my @loop; foreach (split /\n/, $_[0]) { s/[)(-\+!:@#%^&_|"\><}{\]?\[,\/\.]//g; my $hash; $hash->{Title} = $_; $hash->{CleanTitle} = $_; $hash->{CleanTitle} =~ s/\s+/-/g; $hash->{CleanTitle} =~ s/\-+/-/g; push @loop, $hash; } return { format_page_loop => \@loop }; }

I have small problem with Title that when I have somting like this aaa/bbb
who can I get aaa-bbb now it delete the / and create aaabbb

Jan 31, 2010, 6:13 AM

Andy

Veteran / Moderator (17297 posts)

Jan 31, 2010, 6:13 AM

Post #11 of 15

Shortcut

Re: [nir] Clean Title In reply to

So whats the problem? Stuff like:

aaa/bbb

..is being converted to:

aaabbb

...but you want it to be:

aaa-bbb

?

Cheers

Andy (mod)
andy@ultranerds.co.uk

Jan 31, 2010, 6:35 AM

nir

User (391 posts)

Jan 31, 2010, 6:35 AM

Post #12 of 15

Shortcut

Re: [Andy] Clean Title In reply to

Yes,I want it to be: aaa-bbb

Jan 31, 2010, 8:11 AM

Andy

Veteran / Moderator (17297 posts)

Jan 31, 2010, 8:11 AM

Post #13 of 15

Shortcut

Re: [nir] Clean Title In reply to

Try changing:

s/[)(-\+!:@#%^&_|"\><}{\]?\[,\/\.]//g;

to

s/[)(\+!:@#%^&_|"\><}{\]?\[,\/\.]//g;

Cheers

Andy (mod)
andy@ultranerds.co.uk

Feb 1, 2010, 2:21 AM

nir

User (391 posts)

Feb 1, 2010, 2:21 AM

Post #14 of 15

Shortcut

Re: [Andy] Clean Title In reply to

Thanks,
It delete the / but not create the - so I get aaabbb

Feb 1, 2010, 3:50 AM

Andy

Veteran / Moderator (17297 posts)

Feb 1, 2010, 3:50 AM

Post #15 of 15

Shortcut

Re: [nir] Clean Title In reply to

Ah sorry, should be:

Code:
s/[)(\+!:@#%^&_|"\><}{\]?\[,\.]//g;

Cheers

Andy (mod)
andy@ultranerds.co.uk