Return to lonpageflip.pm CVS log | Up to [LON-CAPA] / rat |
version 1.26, 2002/07/07 21:04:47 | version 1.27, 2002/07/08 20:10:40 |
---|---|
Line 53 my %hash; | Line 53 my %hash; |
sub addrid { | sub addrid { |
my ($current,$new,$condid)=@_; | my ($current,$new,$condid)=@_; |
unless ($condid) { $condid=0; } | unless ($condid) { $condid=0; } |
if (&Apache::lonnet::allowed('bre',$hash{'src_'.$new})) { | |
if ($current) { | if ($current) { |
$current.=','.$new; | $current.=','.$new; |
} else { | } else { |
$current=''.$new; | $current=''.$new; |
} | } |
} | |
return $current; | return $current; |
} | } |