From: Peter T. <pet...@us...> - 2003-06-30 23:46:36
|
Update of /cvsroot/twiki/twiki/lib In directory sc8-pr-cvs1:/tmp/cvs-serv3469 Modified Files: TWiki.pm Log Message: Codev.FileAttachmentIconVariable Index: TWiki.pm =================================================================== RCS file: /cvsroot/twiki/twiki/lib/TWiki.pm,v retrieving revision 1.219 retrieving revision 1.220 diff -C2 -r1.219 -r1.220 *** TWiki.pm 18 Jun 2003 21:07:16 -0000 1.219 --- TWiki.pm 30 Jun 2003 23:46:33 -0000 1.220 *************** *** 116,120 **** # =========================== # TWiki version: ! $wikiversion = "18 Jun 2003"; # =========================== --- 116,120 ---- # =========================== # TWiki version: ! $wikiversion = "01 Jul 2003"; # =========================== *************** *** 1801,1804 **** --- 1801,1814 ---- # ========================= + sub handleIcon + { + my( $theParam ) = @_; + + $theParam = extractNameValuePair( $theParam ); + my $value = &TWiki::Attach::filenameToIcon( "file.$theParam" ); + return $value; + } + + # ========================= sub handleInternalTags { *************** *** 1843,1846 **** --- 1853,1857 ---- $_[0] =~ s/%ATTACHURL%/$urlHost$pubUrlPath\/$_[2]\/$_[1]/g; $_[0] =~ s/%ATTACHURLPATH%/$pubUrlPath\/$_[2]\/$_[1]/g; + $_[0] =~ s/%ICON{(.*?)}%/&handleIcon($1)/geo; $_[0] =~ s/%URLPARAM{(.*?)}%/&handleUrlParam($1)/ge; $_[0] =~ s/%URLENCODE{(.*?)}%/&handleUrlEncode($1,1)/ge; |