[BACK]Return to lonnavmaps.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavmaps.pm between versions 1.262 and 1.265

version 1.262, 2004/06/15 15:50:03 version 1.265, 2004/07/03 20:45:23
Line 138  sub real_handler { Line 138  sub real_handler {
               &Apache::loncommon::bodytag('Navigate Course Contents','',                &Apache::loncommon::bodytag('Navigate Course Contents','',
                                     $addentries,'','',$ENV{'form.register'}));                                      $addentries,'','',$ENV{'form.register'}));
     $r->print('<script>window.focus();</script>'.      $r->print('<script>window.focus();</script>'.
         &Apache::loncommon::help_open_topic('Navigation_Screen').        &Apache::loncommon::help_open_menu('','Navigation Screen','Navigation_Screen','',undef,'RAT'));
  &Apache::loncommon::help_open_bug('RAT'));       
   
     $r->rflush();      $r->rflush();
   
     # Check that it's defined      # Check that it's defined
Line 3246  sub is_sequence { Line 3245  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;
Line 3735  sub extractParts { Line 3734  sub extractParts {
                 }                  }
             }              }
         }          }
    my $resorder = &Apache::lonnet::metadata($self->src(),'responseorder');
    if ($resorder) {
       my @resorder=split(/,/,$resorder);
       foreach my $part (keys(%responseIdHash)) {
    my %resids = map { ($_,1) } @{ $responseIdHash{$part} };
    my @neworder;
    foreach my $possibleid (@resorder) {
       if (exists($resids{$possibleid})) {
    push(@neworder,$possibleid);
       }
    }
    $responseIdHash{$part}=\@neworder;
       }
    }
         $self->{RESPONSE_IDS} = \%responseIdHash;          $self->{RESPONSE_IDS} = \%responseIdHash;
         $self->{RESPONSE_TYPES} = \%responseTypeHash;          $self->{RESPONSE_TYPES} = \%responseTypeHash;
     }      }
Removed from v.1.262  
changed lines
  Added in v.1.265

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>