version 1.23, 2010/01/30 18:19:16
|
version 1.24, 2010/02/23 14:18:12
|
Line 688 sub get_group_bbinfo {
|
Line 688 sub get_group_bbinfo {
|
|
|
############################################### |
############################################### |
|
|
|
sub get_group_link { |
|
my ($cdom,$cnum,$group,$navmap) = @_; |
|
if (ref($navmap)) { |
|
my $symb = 'uploaded/'.$cdom.'/'.$cnum.'/group_folder_'.$group.'.sequence___1___adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg'; |
|
my $res = $navmap->getBySymb($symb); |
|
my $link = $res->link(); |
|
$link .= (($link=~/\?/)?'&':'?').'symb='.$res->shown_symb(); |
|
return $link; |
|
} |
|
return; |
|
} |
|
|
|
############################################### |
|
|
1; |
1; |
|
|