S.F.E. Support Forum Index S.F.E. Support
Support, Bug Reports, and Discussion Forum
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 Go to Scripts for Educators main Page 
 Donate (Cash, Time, Thanks, Kind words :-) !)

Note (2011-Jan-31): I am SO sorry but due to hundreds of spam accounts
signing up every day almost all with gmail or ymail addresses, I've had
to TEMPORARILY block gmail signups here.

PLEASE email me at scripts@tesol.net (or through my email form here)
if you have gmail and really want to post and I'll set you up. :-) --Kristina

SFELinkAdd bugfix (1.0.1)

 
Post new topic   Reply to topic    S.F.E. Support Forum Index -> Announcements/Update News
View previous topic :: View next topic  
Author Message
kristina
Yes, That Kristina :-)


Joined: 10 Aug 2002
Posts: 379
Location: USA

PostPosted: Tue Mar 07, 2006 10:56 am    Post subject: SFELinkAdd bugfix (1.0.1) Reply with quote

Mail to the list:

Hi, all. I just fixed a bug in SFELinkAdd -- basically, the
"edit" (Update) function did not work at all. Thanks to Mike T
for pointing this out. You can download the new version (1.0.1)
from the SFELinkAdd page here:

http://tesol.net/scripts/SFELinkAdd/

Or, if you'd like to try to patch it yourself, find this part
of the script in "sub update":

foreach $entry (@entries){
$origentry =~ s/"/\"/sg;
$origentry =~ s/>/>/sg;
$origentry =~ s/</</sg;
$origentry =~ s/^\s+//sg; $origentry =~ s/\s+$//sg;
$origentry =~ s/\r\n/\n/sg; $origentry =~ s/\r/\n/sg;
$entry =~ s/^\s+//sg; $entry =~ s/\s+$//sg;
$entry =~ s/\r\n/\n/sg; $entry =~ s/\r/\n/sg;
$newfile .= "$entry\n\n\n";
}

and change it to this:

foreach $entry (@entries){
$origentry =~ s/"/\"/sg;
$origentry =~ s/>/>/sg;
$origentry =~ s/</</sg;
$origentry =~ s/^\s+//sg; $origentry =~ s/\s+$//sg;
$origentry =~ s/\r\n/\n/sg; $origentry =~ s/\r/\n/sg;
$entry =~ s/^\s+//sg; $entry =~ s/\s+$//sg;
$entry =~ s/\r\n/\n/sg; $entry =~ s/\r/\n/sg;
if($origentry eq $entry){
$newfile .= "$newentry\n\n\n";
}
else {
$newfile .= "$entry\n\n\n";
}
}

Let me know if you have any problems!

Kristina
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    S.F.E. Support Forum Index -> Announcements/Update News All times are GMT - 7 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group