| Index: trunk/extensions/Wikidata/OmegaWiki/small/ra3.pl |
| — | — | @@ -11,7 +11,7 @@ |
| 12 | 12 | my @a=@_; |
| 13 | 13 | my @b; |
| 14 | 14 | for(my $pointer=0;$pointer<$#a;$pointer+=2) { |
| 15 | | - push (@b, $a[$pointer].$a[$pointer+1]); |
| | 15 | + push (@b, [$a[$pointer], $a[$pointer+1]]); |
| 16 | 16 | } |
| 17 | 17 | return \@b; |
| 18 | 18 | } |
| — | — | @@ -68,6 +68,7 @@ |
| 69 | 69 | $global=0; # end of global statement |
| 70 | 70 | } |
| 71 | 71 | #$statement=~s/\$o\s*=\s*\$omegaWikiAttributes;/\$o=OmegaWikiAttributes::getInstance();/g; |
| | 72 | + #$tomatch=$globals{$block_stack[0]} |
| 72 | 73 | $statement=~s/\$(\w+)Attribute(\W)/\$o\-\>$1$2/g; |
| 73 | 74 | $statement=~s/\$(\w+)Attributes(\W)/\$o\-\>$1Attributes$2/g; |
| 74 | 75 | $statement=~s/\$(\w+)Structure(\W)/\$o\-\>$1Structure$2/g; |