![[BACK]](/icons/back.gif){kind=icon}
Return to londiff.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
Return to londiff.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
| version 1.22, 2006/12/05 02:55:55 | version 1.23, 2007/01/15 18:34:32 |
|---|---|
| Line 55 sub get_split_file { | Line 55 sub get_split_file { |
| } | } |
| } | } |
| } elsif ($style eq 'remote') { | } elsif ($style eq 'remote') { |
| my $f1=&Apache::lonnet::getfile($fn); | $f1=&Apache::lonnet::getfile($fn); |
| } | |
| if ($f1=~/\r/) { | |
| @f1=split(/\r/,&Apache::lonnet::getfile($fn)); | |
| foreach my $line (@f1) { | |
| $line=~s/\n//g; | |
| } | |
| } else { | |
| @f1=split(/\n/,&Apache::lonnet::getfile($fn)); | |
| } | } |
| @f1=split(/\r\n|\r|\n/,$f1); | |
| return @f1; | return @f1; |
| } | } |