[TWiki-Dev] CVS: twiki/lib/TWiki Store.pm,1.21,1.22

[Peter T. <pet...@us...>]

Update of /cvsroot/twiki/twiki/lib/TWiki
In directory usw-pr-cvs1:/tmp/cvs-serv32298/TWiki

Modified Files:
	Store.pm 
Log Message:
Codev.SelectableNewTopicTemplates

Index: Store.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki/Store.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** Store.pm	2001/06/04 16:26:43	1.21
--- Store.pm	2001/06/08 08:48:27	1.22
***************
*** 1371,1374 ****
--- 1371,1390 ----
  
  # =========================
+ sub readTemplateTopic
+ {
+     my( $theTopicName ) = @_;
+ 
+     $theTopicName =~ s/$TWiki::securityFilter//go;    # zap anything suspicious
+ 
+     # try to read in current web, if not read from TWiki web
+ 
+     my $web = $TWiki::twikiWebname;
+     if( topicExists( $TWiki::webName, $theTopicName ) ) {
+         $web = $TWiki::webName;
+     }
+     return readWebTopicNew( $web, $theTopicName );
+ }
+ 
+ # =========================
  sub readTemplate
  {