![[BACK]](/icons/back.gif){kind=icon}
Return to lonnavmaps.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonnavmaps.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.262, 2004/06/15 15:50:03 | version 1.263, 2004/06/28 15:09:13 |
|---|---|
| Line 3246 sub is_sequence { | Line 3246 sub is_sequence { |
| sub is_survey { | sub is_survey { |
| my $self = shift(); | my $self = shift(); |
| my $part = shift(); | my $part = shift(); |
| if ($self->src() =~ /\.(survey)$/) { | if ($self->parmval('type',$part) eq 'survey') { |
| return 1; | return 1; |
| } | } |
| if ($self->parmval('type',$part) eq 'survey') { | if ($self->src() =~ /\.(survey)$/) { |
| return 1; | return 1; |
| } | } |
| return 0; | return 0; |