err.no Git - scalable-opengroupware.org/blob - SOGo/UI/Mailer/UIxMailView.m

   1 /*
   2   Copyright (C) 2004 SKYRIX Software AG
   3
   4   This file is part of OpenGroupware.org.
   5
   6   OGo is free software; you can redistribute it and/or modify it under
   7   the terms of the GNU Lesser General Public License as published by the
   8   Free Software Foundation; either version 2, or (at your option) any
   9   later version.
  10
  11   OGo is distributed in the hope that it will be useful, but WITHOUT ANY
  12   WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  14   License for more details.
  15
  16   You should have received a copy of the GNU Lesser General Public
  17   License along with OGo; see the file COPYING.  If not, write to the
  18   Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  19   02111-1307, USA.
  20 */
  21 // $Id$
  22
  23 #include <SOGoUI/UIxComponent.h>
  24
  25 @interface UIxMailView : UIxComponent
  26 {
  27 }
  28
  29 - (BOOL)isDeletableClientObject;
  30
  31 @end
  32
  33 #include <SoObjects/Mailer/SOGoMailObject.h>
  34 #include "common.h"
  35
  36 @implementation UIxMailView
  37
  38 - (BOOL)isDeletableClientObject {
  39   return [[self clientObject] respondsToSelector:@selector(delete)];
  40 }
  41
  42 - (id)deleteAction {
  43   NSException *ex;
  44   id url;
  45
  46   if (![self isDeletableClientObject]) {
  47     return [NSException exceptionWithHTTPStatus:400 /* Bad Request */
  48                         reason:@"method cannot be invoked on "
  49                                @"the specified object"];
  50   }
  51
  52   if ((ex = [[self clientObject] delete]) != nil) {
  53     // TODO: improve error handling
  54     [self debugWithFormat:@"failed to delete: %@", ex];
  55     return ex;
  56   }
  57
  58   url = [[[self clientObject] container] baseURLInContext:[self context]];
  59   return [self redirectToLocation:url];
  60 }
  61
  62 @end /* UIxMailView */