![[BACK]](/icons/back.gif){kind=icon}
Return to lonmetadata.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / metadata_database / LONCAPA|
Return to lonmetadata.pm CVS log | Up to [LON-CAPA] / loncom / metadata_database / LONCAPA |
| version 1.16, 2007/01/02 12:53:27 | version 1.17, 2007/01/12 21:30:58 |
|---|---|
| Line 1134 sub getfile { | Line 1134 sub getfile { |
| if (! -e $file ) { | if (! -e $file ) { |
| return undef; | return undef; |
| } | } |
| my $fh=IO::File->new($file); | open(my $fh,"<$file"); |
| my $contents = ''; | my $contents = ''; |
| while (<$fh>) { | while (<$fh>) { |
| $contents .= $_; | $contents .= $_; |