![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.683.2.2, 2005/12/09 23:20:26 | version 1.683.2.3, 2005/12/22 20:57:49 |
|---|---|
| Line 5409 sub symbread { | Line 5409 sub symbread { |
| if ( ($thisfn =~ m/^(uploaded|editupload)\//) && ($thisfn !~ m/\.(page|sequence)$/) ) { | if ( ($thisfn =~ m/^(uploaded|editupload)\//) && ($thisfn !~ m/\.(page|sequence)$/) ) { |
| $targetfn = 'adm/wrapper/'.$thisfn; | $targetfn = 'adm/wrapper/'.$thisfn; |
| } | } |
| if ($targetfn =~ m|^adm/wrapper/(ext/.*)|) { | |
| $targetfn=$1; | |
| } | |
| if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', | if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |
| &GDBM_READER(),0640)) { | &GDBM_READER(),0640)) { |
| $syval=$hash{$targetfn}; | $syval=$hash{$targetfn}; |