[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.23,1.24

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv28019/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
Browse object uses File object for file info now 

Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -U2 -r1.23 -r1.24
--- Browse.pm	2001/12/20 02:34:46	1.23
+++ Browse.pm	2001/12/21 07:15:59	1.24
@@ -7,4 +7,5 @@
 use strict;
 use lib '../lib';
+
 use SandWeb::File;
 use HTML::Template;
@@ -119,5 +120,5 @@
 		$row_data{FILESIZE} = $file->get_size();
 		$row_data{FILEAGE} = $file->get_age();
-		if (-d "$sandbox/$path/$filename") {
+		if ( $file->get_file_type() eq "Directory" ) {
 			if ($repo_type eq "CVS") {
 				next if ($filename =~ /^CVS$/);
@@ -129,18 +130,18 @@
 			} else {
 				$row_data{COLOR} = "$color1";
-			}
 			}
-			elsif (-T "$sandbox/$path/$filename") {
-			$row_data{FILETYPE} = "text";
-			$row_data{LINK} = "action=file&filename=$filename";
+		}
+			elsif ( $file->get_file_type() eq "Text" ) {
+				$row_data{FILETYPE} = "text";
+				$row_data{LINK} = "action=file&filename=$filename";
 				if ($counter eq "0") {
-			$row_data{COLOR} = "$color0";
+					$row_data{COLOR} = "$color0";
 				} else {
-			$row_data{COLOR} = "$color1";
+					$row_data{COLOR} = "$color1";
 				}
 			}
-			elsif (-B "$sandbox/$path/$filename") {
-			$row_data{FILETYPE} = "binary";
-			$row_data{LINK} = "action=file&filename=$filename";
+			elsif ( $file->get_file_type() eq "Binary" ) {
+				$row_data{FILETYPE} = "binary";
+				$row_data{LINK} = "action=file&filename=$filename";
 				if ($counter eq "0") {
 					$row_data{COLOR} = "$color0";