[Scoop-checkins] scoop/lib/Scoop Stories.pm,1.36,1.37

[kuro5hin at users.sourceforge.net]

Update of /cvsroot/scoop/scoop/lib/Scoop
In directory usw-pr-cvs1:/tmp/cvs-serv9459/lib/Scoop

Modified Files:
	Stories.pm 
Log Message:
Bug in special pages. Page IDs needed to be quoted.


Index: Stories.pm
===================================================================
RCS file: /cvsroot/scoop/scoop/lib/Scoop/Stories.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** Stories.pm	3 Jul 2002 05:15:52 -0000	1.36
--- Stories.pm	16 Aug 2002 21:44:25 -0000	1.37
***************
*** 238,246 ****
  	my $S = shift;
  	my $id = shift;
  	
  	my ($rv, $sth) = $S->db_select({
  		WHAT => '*',
  		FROM => 'special',
! 		WHERE => qq|pageid = "$id"|});
  	
  	my $page = {};
--- 238,247 ----
  	my $S = shift;
  	my $id = shift;
+ 	my $f_id = $S->{DBH}->quote($id);
  	
  	my ($rv, $sth) = $S->db_select({
  		WHAT => '*',
  		FROM => 'special',
! 		WHERE => qq|pageid = $f_id|});
  	
  	my $page = {};