Index: lib/gnump3d/files.pm
===================================================================
RCS file: /cvsroot/gnump3d/gnump3d/lib/gnump3d/files.pm,v
retrieving revision 1.9
diff -u -r1.9 files.pm
--- lib/gnump3d/files.pm	23 Nov 2003 16:56:22 -0000	1.9
+++ lib/gnump3d/files.pm	25 Nov 2003 18:13:05 -0000
@@ -97,7 +97,10 @@
 $MOVIE_SUFFIXES{ "mpg" }  = 1;
 $MOVIE_SUFFIXES{ "mpeg" }  = 1;
 $MOVIE_SUFFIXES{ "avi" }  = 1;
+$MOVIE_SUFFIXES{ "asf" }  = 1;
+$MOVIE_SUFFIXES{ "asx" }  = 1;
 $MOVIE_SUFFIXES{ "wmv" }  = 1;
+$MOVIE_SUFFIXES{ "rm" }  = 1;
 
 
 
Index: lib/gnump3d/plugins/tagbrowse.pm
===================================================================
RCS file: /cvsroot/gnump3d/gnump3d/lib/gnump3d/plugins/tagbrowse.pm,v
retrieving revision 1.1
diff -u -r1.1 tagbrowse.pm
--- lib/gnump3d/plugins/tagbrowse.pm	24 Nov 2003 19:34:36 -0000	1.1
+++ lib/gnump3d/plugins/tagbrowse.pm	25 Nov 2003 18:13:05 -0000
@@ -95,13 +95,13 @@
 
     open( FILY, "<$tag_cache" );
     foreach (<FILY>) {
-        if ( /\t$rectag=([^\t]*)/ and $1 )
+        if ( /\t$rectag=([^\t]+)/ and $1 )
         {
             #
             # we've seen this item before
             # (theoretically there should be only 1 match)
             #
-            my @matches = grep(/^(The *)?\Q$1\E/i, keys %items);
+            my @matches = grep(/^(The\s+)?\Q$1\E$/i, keys %items);
             if ( @matches )
             {
                 # increment the counter
@@ -130,13 +130,15 @@
 sub FilesOfAType ( $$ )
 {
     my $rectype = shift;
-    my $rectag = uc $rectype;
     my $one = shift;
     my $files = [];
 
     open( FILY, "<$tag_cache" );
     foreach (<FILY>) {
-        if ( /\t$rectag=(\Q$one\E)/ ) {
+        #
+        # this search needs to be the same as the search in AllOfAType above
+        #
+        if ( /\t$rectype=(the +)?\Q$one\E/i ) {
             my $file;
             ($file = $_) =~ s/\t.*$//;
             chomp($file);
@@ -149,7 +151,6 @@
 sub OneOfAType ( $$ )
 {
     my $rectype = shift;
-    my $typeurl = $plugin . $rectype;
     my $one = urlDecode(shift);
     
     my $files = FilesOfAType($rectype, $one);
@@ -160,7 +161,6 @@
     my @FULLNAMES = &sortFiles( $sort_order, @{$files} );
 
     my $filelist = formatFileListOutput( @FULLNAMES );
-#    my $filelist = formatFileListOutput( @{$files} );
 
     fillTagBrowseTemplate("Browsing  $rectype '$one'",
                           $filelist);