Index: trunk/Nebulous-Server/lib/Nebulous/Server.pm
===================================================================
--- trunk/Nebulous-Server/lib/Nebulous/Server.pm	(revision 13087)
+++ trunk/Nebulous-Server/lib/Nebulous/Server.pm	(revision 13092)
@@ -1,5 +1,5 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.27 2007-05-01 02:00:07 jhoblitt Exp $
+# $Id: Server.pm,v 1.28 2007-05-01 02:52:04 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -123,16 +123,7 @@
     my $self = shift;
 
-    my ( $key, $class, $volume, $comment ) = validate_pos( @_,
-        {
-            type        => SCALAR,
-        },
-        {
-            type        => SCALAR,
-            callbacks   => {
-                'is + integer' => sub { $_[0] =~ /^\d+$/ },
-                # check that the class requested is valid
-                'is valid class id' => sub { $self->_is_valid_class_id( $_[0] ) },
-            },
-            default     => 0,
+    my ($key, $volume) = validate_pos(@_,
+        {
+            type        => SCALAR,
         },
         {
@@ -144,12 +135,4 @@
             optional    => 1,
         },
-        {
-            type        => SCALAR,
-            callbacks   => {
-                # check that the comment isn't too long
-                'comment length' => sub { length $_[0] < 256 },
-            },
-            optional    => 1,
-        },
     );
 
@@ -185,5 +168,5 @@
             # create storage_object_attr
             my $query = $db->prepare_cached( $sql->new_object_attr ); 
-            $query->execute( $object_id, $class, $comment );
+            $query->execute( $object_id );
         }
 
@@ -1070,27 +1053,4 @@
 }
 
-sub _is_valid_class_id {
-    my ($self, $class_id) = @_;
-
-    my $log = $self->log;
-    my $sql = $self->sql;
-    my $db  = $self->db;
-
-    my $class;
-    eval {
-        my $query = $db->prepare_cached( $sql->get_class_by_id ); 
-        $query->execute( $class_id );
-        ( $class ) = $query->fetchrow_array;
-
-        $query->finish;
-    };
-    if ( $@ ) {
-        $db->rollback;
-        $log->logdie( "database error: $@" );
-    }
-
-    return ( defined $class ) ? 1 : undef;
-}
-
 sub _is_valid_volume_name  {
     my ($self, $vol_name) = @_;