![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml|
Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
| version 1.417, 2006/09/18 21:47:34 | version 1.418, 2006/09/19 18:17:18 |
|---|---|
| Line 1165 sub parstring { | Line 1165 sub parstring { |
| my $var_init = | my $var_init = |
| (@vars) ? 'my ('.join(',',@vars).') = ('.join(',',@values).');' | (@vars) ? 'my ('.join(',',@vars).') = ('.join(',',@values).');' |
| : ''; | : ''; |
| print STDERR $var_init."\n"; | |
| return $var_init; | return $var_init; |
| } | } |