<br><font size=2 face="sans-serif">Hi all,</font>
<br><font size=2 face="sans-serif">I am still brushing up on my perl skills
and wondering if any of you can tell me what this piece of code does.</font>
<br>
<br><font size=2 face="sans-serif"># Parameters passed in during an import
that we probably don't want to touch, otherwise</font>
<br><font size=2 face="sans-serif"> foreach my $attr qw(id
Creator Created LastUpdated LastUpdatedBy) {</font>
<br><font size=2 face="sans-serif"> $params{$attr}
= $args{$attr} if ( $args{$attr} );</font>
<br><font size=2 face="sans-serif"> }</font>
<br><font size=2 face="sans-serif">Thanks,<br>
Ahalya Nathan<br>
Senior Programmer / Analyst<br>
Information Technology, Metropolitan Utilities District <br>
(402) 449-8218 phone<br>
(402) 449-8131 fax<br>
ahalya_nathan@mudnebr.com</font>