Changeset 5503 for trunk/Nebulous-Server/lib/Nebulous/Server.pm
- Timestamp:
- Nov 10, 2005, 11:57:15 AM (21 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/lib/Nebulous/Server.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/lib/Nebulous/Server.pm
r5501 r5503 1 1 # Copyright (c) 2004 Joshua Hoblitt 2 2 # 3 # $Id: Server.pm,v 1.1 5 2005-11-10 21:51:06jhoblitt Exp $3 # $Id: Server.pm,v 1.16 2005-11-10 21:57:15 jhoblitt Exp $ 4 4 5 5 package Nebulous::Server; … … 687 687 688 688 sub _is_valid_class_id { 689 my $class = shift;690 691 my $class _id;692 eval { 693 my $query = $db->prepare_cached( $sql->get_class );694 $query->execute( $class );695 ( $class _id) = $query->fetchrow_array;696 697 $query->finish; 698 }; 699 if ( $@ ) { 700 $db->rollback; 701 $log->logdie( "database error: $@" ); 702 } 703 704 return ( defined $class _id) ? 1 : undef;689 my $class_id = shift; 690 691 my $class; 692 eval { 693 my $query = $db->prepare_cached( $sql->get_class_by_id ); 694 $query->execute( $class_id ); 695 ( $class ) = $query->fetchrow_array; 696 697 $query->finish; 698 }; 699 if ( $@ ) { 700 $db->rollback; 701 $log->logdie( "database error: $@" ); 702 } 703 704 return ( defined $class ) ? 1 : undef; 705 705 } 706 706
Note:
See TracChangeset
for help on using the changeset viewer.
