|
version 1.52, 2007/06/29 22:41:24
|
version 1.53, 2007/07/06 08:34:37
|
|
Line 66 sub readfromdb {
|
Line 66 sub readfromdb {
|
| my $key = $_; |
my $key = $_; |
| if ($ahash{$key} eq '1') { |
if ($ahash{$key} eq '1') { |
| if ($hash{'pre_'.$key.'_title'} eq 'Not_retrieved') { |
if ($hash{'pre_'.$key.'_title'} eq 'Not_retrieved') { |
| $hash{'pre_'.$key.'_title'} = &Apache::lonnet::gettitle($hash{'pre_'.$key.'_link'},'title'); |
$hash{'pre_'.$key.'_title'} = &Apache::lonnet::gettitle($hash{'pre_'.$key.'_link'}); |
| } |
} |
| $hash{'store_'.$hash{'pre_'.$key.'_link'}} = |
$hash{'store_'.$hash{'pre_'.$key.'_link'}} = |
| $hash{'pre_'.$key.'_title'}; |
$hash{'pre_'.$key.'_title'}; |
![[BACK]](/icons/back.gif){kind=icon}
Return to groupsort.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface