/[PLies]/burst.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /burst.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by dpavlin, Sat May 5 19:20:27 2001 UTC revision 1.8 by dpavlin, Sat May 5 19:43:52 2001 UTC
# Line 278  do { Line 278  do {
278          ## need to check if the title contains any anchor          ## need to check if the title contains any anchor
279          ## if so it needs to be removed          ## if so it needs to be removed
280          ## because the title is being used in the table of content to link to the corresponding slide          ## because the title is being used in the table of content to link to the corresponding slide
281          $table[0] =~ s/(.*)<A[^>]*>(.*)<\/A>(.*)/$1$2$3/i;          $table[0] = remove_anchor($table[0]);
282    
283          ## grab next slide title $table[2] (if there's a next slide)          ## grab next slide title $table[2] (if there's a next slide)
284          ## to be able to use in the 'next' navigation button          ## to be able to use in the 'next' navigation button
285          ## keep in mind that $table[1] contains the slide corresponding to the title $table[0]          ## keep in mind that $table[1] contains the slide corresponding to the title $table[0]
286          if ($table[2]) {          if ($table[2]) {
287                  $next_title= $table[2];                  $next_title= remove_anchor($table[2]);
                 ## remove any anchor from the next slide title  
                 $next_title =~ s/(.*)<A[^>]*>(.*)<\/A>(.*)/$1$2$3/i;  
288          }          }
289    
290          ## the current slide content is stored $table[1]          ## the current slide content is stored $table[1]
# Line 297  do { Line 295  do {
295    
296          ## extract slide Sub Title <h2>          ## extract slide Sub Title <h2>
297          undef $slideSubTitle;          undef $slideSubTitle;
298          if ($slideContent =~ s/<[hH]2[^>]*>([^<]+)<\/[hH]2[^>]*>//) {          if ($slideContent =~ s/<[hH]2[^>]*>(.+)<\/[hH]2[^>]*>//sm) {
299                  $slideSubTitle=$1;                  $slideSubTitle=remove_anchor($1);
300          }          }
301    
302          ## add the title of the current slide to the table of content          ## add the title of the current slide to the table of content
# Line 310  do { Line 308  do {
308          &createSlide($slideTitle,$slideSubTitle,$slideContent ,$slideCount++,$prev_title,$next_title);          &createSlide($slideTitle,$slideSubTitle,$slideContent ,$slideCount++,$prev_title,$next_title);
309    
310          ## save the title of the previous slide to be displayed in the 'previous' navigation button          ## save the title of the previous slide to be displayed in the 'previous' navigation button
311          $prev_title="$table[0]";          $prev_title=remove_anchor($table[0]);
312  }  }
313  ## process the next slide  ## process the next slide
314  while (shift(@table));  while (shift(@table));
# Line 671  sub make_progress_bar { Line 669  sub make_progress_bar {
669          return $html;          return $html;
670  }  }
671    
672    ##############################################################################
673    # make slide progress bar
674    sub remove_anchor {
675            my $foo = $_[0];
676            $foo=~s/(.*)<A[^>]*>(.*)<\/A>(.*)/$1$2$3/ig;
677            return $foo;
678    }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.26