IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 5503


Ignore:
Timestamp:
Nov 10, 2005, 11:57:15 AM (21 years ago)
Author:
jhoblitt
Message:

rename Nebulous::Server::SQL->get_class_id -> get_class_by_id

Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/Nebulous-Server/lib/Nebulous/Server.pm

    r5501 r5503  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Server.pm,v 1.15 2005-11-10 21:51:06 jhoblitt Exp $
     3# $Id: Server.pm,v 1.16 2005-11-10 21:57:15 jhoblitt Exp $
    44
    55package Nebulous::Server;
     
    687687
    688688sub _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;
    705705}
    706706
  • trunk/Nebulous-Server/lib/Nebulous/Server/SQL.pm

    r5501 r5503  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: SQL.pm,v 1.16 2005-11-10 21:51:06 jhoblitt Exp $
     3# $Id: SQL.pm,v 1.17 2005-11-10 21:57:15 jhoblitt Exp $
    44
    55package Nebulous::Server::SQL;
     
    124124        VALUES (?, ?)
    125125    },
    126     get_class => qq{
     126    get_class_by_id => qq{
    127127        SELECT class_id, priority, comment
    128128        FROM class
  • trunk/Nebulous/lib/Nebulous/Server.pm

    r5501 r5503  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Server.pm,v 1.15 2005-11-10 21:51:06 jhoblitt Exp $
     3# $Id: Server.pm,v 1.16 2005-11-10 21:57:15 jhoblitt Exp $
    44
    55package Nebulous::Server;
     
    687687
    688688sub _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;
    705705}
    706706
  • trunk/Nebulous/lib/Nebulous/Server/SQL.pm

    r5501 r5503  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: SQL.pm,v 1.16 2005-11-10 21:51:06 jhoblitt Exp $
     3# $Id: SQL.pm,v 1.17 2005-11-10 21:57:15 jhoblitt Exp $
    44
    55package Nebulous::Server::SQL;
     
    124124        VALUES (?, ?)
    125125    },
    126     get_class => qq{
     126    get_class_by_id => qq{
    127127        SELECT class_id, priority, comment
    128128        FROM class
Note: See TracChangeset for help on using the changeset viewer.