From 3b4dd658d100c4249da6904009bd3103fe6a0189 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 11 Feb 2010 19:31:47 -0800
Subject: [PATCH] Update for Moose accessors

---
 lib/WebGUI/Asset/File/ZipArchive.pm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/lib/WebGUI/Asset/File/ZipArchive.pm b/lib/WebGUI/Asset/File/ZipArchive.pm
index 381d30f8d..51220ec2f 100644
--- a/lib/WebGUI/Asset/File/ZipArchive.pm
+++ b/lib/WebGUI/Asset/File/ZipArchive.pm
@@ -148,7 +148,7 @@ sub processPropertiesFromFormPost {
 	$self->SUPER::processPropertiesFromFormPost;
 	my $storage = $self->getStorageLocation();
 	
-	my $file = $self->get("filename");
+	my $file = $self->filename;
 	
 	#return undef unless $file;
 	my $i18n = WebGUI::International->new($self->session, 'Asset_ZipArchive');
@@ -166,7 +166,7 @@ sub processPropertiesFromFormPost {
 		return undef;
 	}
 	
-	unless ($self->unzip($storage,$self->get("filename"))) {
+	unless ($self->unzip($storage,$self->filename)) {
 		$self->session->errorHandler->warn($i18n->get("unzip_error"));
 	}
 }
@@ -184,7 +184,7 @@ used to show the file to administrators.
 sub view {
 	my $self = shift;
     my $cache = $self->session->cache;
-	if (!$self->session->var->isAdminOn && $self->get("cacheTimeout") > 10) {
+	if (!$self->session->var->isAdminOn && $self->cacheTimeout > 10) {
 		my $out = eval{$cache->get("view_".$self->getId)};
 		return $out if $out;
 	}
@@ -196,19 +196,19 @@ sub view {
 	}
 	$self->session->scratch->delete("za_error");
 	my $storage = $self->getStorageLocation;
-	if($self->get("filename") ne "") {
-	   $var{fileUrl} = $storage->getUrl($self->get("showPage"));
-	   $var{fileIcon} = $storage->getFileIconUrl($self->get("showPage"));
+	if($self->filename ne "") {
+	   $var{fileUrl} = $storage->getUrl($self->showPage);
+	   $var{fileIcon} = $storage->getFileIconUrl($self->showPage);
 	}
-	unless($self->get("showPage")) {
+	unless($self->showPage) {
 	   $var{pageError} = "true";
 	}
 	my $i18n = WebGUI::International->new($self->session,"Asset_ZipArchive");
 	$var{noInitialPage} = $i18n->get('noInitialPage');
 	$var{noFileSpecified} = $i18n->get('noFileSpecified');
        	my $out = $self->processTemplate(\%var,undef,$self->{_viewTemplate});
-	if (!$self->session->var->isAdminOn && $self->get("cacheTimeout") > 10) {
-		eval{$cache->set("view_".$self->getId, $out, $self->get("cacheTimeout"))};
+	if (!$self->session->var->isAdminOn && $self->cacheTimeout > 10) {
+		eval{$cache->set("view_".$self->getId, $out, $self->cacheTimeout)};
 	}
        	return $out;
 }
@@ -246,7 +246,7 @@ sub www_view {
 	if ($self->session->var->isAdminOn) {
 		return $self->session->asset($self->getContainer)->www_view;
 	}
-	$self->session->http->setRedirect($self->getFileUrl($self->getValue("showPage")));
+	$self->session->http->setRedirect($self->getFileUrl($self->showPage));
 	return "1";
 }