Diff for /rat/lonsequence.pm between versions 1.44 and 1.45

version 1.44, 2013/11/28 02:23:25 version 1.45, 2014/12/15 00:46:52
Line 133  ENDSELECT Line 133  ENDSELECT
                 .'</p><br />');                  .'</p><br />');
     }      }
     my $idx=0;      my $idx=0;
     foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {      foreach my $entry (&attemptread(&Apache::lonnet::filelocation('',$url))) {
  if (defined($_)) {   if (defined($entry)) {
             $idx++;              $idx++;
             if ($successtied) {               if ($successtied) { 
  $r->print('<form name="form'.$idx.'">');   $r->print('<form name="form'.$idx.'">');
             }              }
     my ($title,$url)=split(/\:/,$_);      my ($title,$url)=split(/\:/,$entry);
     $title = &LONCAPA::map::qtescape($title);      $title = &LONCAPA::map::qtescape($title);
     unless ($title) { $title=(split(/\//,$url))[-1] };      unless ($title) { $title=(split(/\//,$url))[-1] };
             my $enc_title = &HTML::Entities::encode($title,'\'"<>&');              my $enc_title = &HTML::Entities::encode($title,'\'"<>&');
Line 184  ENDCHECKBOX Line 184  ENDCHECKBOX
   
 # ----------------------------------------------------------- Clean out selhash  # ----------------------------------------------------------- Clean out selhash
 sub start_fresh_session {  sub start_fresh_session {
     foreach (keys %selhash) {      foreach my $item (keys(%selhash)) {
  if ($_ =~ /^pre_/) {   if ($item =~ /^pre_/) {
     delete $selhash{$_};      delete $selhash{$item};
  }   }
  if ($_ =~ /^store/) {   if ($item =~ /^store/) {
     delete $selhash{$_};      delete $selhash{$item};
  }   }
     }      }
 }  }

Removed from v.1.44  
changed lines
  Added in v.1.45


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