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

Aug 19, 2009, 7:34 AM

nir

User (396 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 (18441 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

Aug 20, 2009, 1:07 AM

nir

User (396 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 (18441 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 (396 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 (18441 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 (396 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 (18441 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 (396 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 (396 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 (18441 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 (396 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 (18441 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 (396 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 (18441 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