Changeset 5478 for trunk/Nebulous-Server/lib/Nebulous/Server.pm
- Timestamp:
- Nov 4, 2005, 4:35:45 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/lib/Nebulous/Server.pm (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/lib/Nebulous/Server.pm
r4874 r5478 1 1 # Copyright (c) 2004 Joshua Hoblitt 2 2 # 3 # $Id: Server.pm,v 1.1 0 2005-08-25 01:44:32jhoblitt Exp $3 # $Id: Server.pm,v 1.11 2005-11-05 02:35:45 jhoblitt Exp $ 4 4 5 5 package Nebulous::Server; … … 103 103 104 104 my $uri; 105 my $object_id; 105 106 my $ins_id; 106 107 … … 109 110 # create storage_object 110 111 my $query = $db->prepare_cached( $sql->new_object ); 111 $query->execute( $key, $class, $comment ); 112 $query->execute( 'NULL', $key ); 113 } 114 115 { 116 # get object ID 117 my $query = $db->prepare_cached( $sql->last_insert_id ); 118 $query->execute; 119 ( $object_id ) = $query->fetchrow_array; 120 121 $query->finish; 122 } 123 124 { 125 # create storage_object_attr 126 my $query = $db->prepare_cached( $sql->new_object_attr ); 127 $query->execute( $object_id, $class, $comment ); 112 128 } 113 129
Note:
See TracChangeset
for help on using the changeset viewer.
