Return to loncoursedata.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.67, 2003/04/09 14:51:29 | version 1.68, 2003/04/11 15:14:25 |
---|---|
Line 1124 sub get_current_state { | Line 1124 sub get_current_state { |
my ($status,$data) = &ensure_current_data($sname,$sdom,$courseid); | my ($status,$data) = &ensure_current_data($sname,$sdom,$courseid); |
# | # |
if (defined($data)) { | if (defined($data)) { |
return %$data; | if (defined($symb)) { |
return %{$data->{$symb}}; | |
} else { | |
return %$data; | |
} | |
} elsif ($status eq 'no data') { | } elsif ($status eq 'no data') { |
return (); | return (); |
} else { | } else { |