%doc> Generic Database Operations Section. %doc> <%args> $sql => undef $action => undef $sid => undef $table => undef $sql_name => undef $submit => undef $forget => undef $forget_name => undef $saved_queries => undef %args> <%attr> title => 'Direct SQL Commands' section => 'Generic' %attr> <%init> my $result; my $sql_err; my %objindex; my $session; my @orderbrief; my @headers; my $headers; my $bool_unique_query = 1; if ( $action eq "DO_SQL" && $submit ){ eval { $result = Netdot::Model->raw_sql($sql); }; if ( my $e = $@ ){ $sql_err = $e; } } if ( $action eq "DO_SQL" && $forget && $forget_name && $forget_name ne ""){ my $forget_query = SavedQueries->search(name=>$forget_name)->first; if ( defined ($forget_query) ) { $forget_query->delete; } } if ( $action eq "SAVE_QUERY" ){ if($sql_name && $sql){ SavedQueries->insert({name=>$sql_name, querytext=>$sql}); } } my @saved_queries = SavedQueries->retrieve_all(); @saved_queries = sort { $a->name cmp $b->name } @saved_queries; foreach (@saved_queries){ if(lc($_->querytext) eq lc($sql)){ $bool_unique_query = 0; last; } } %init>
Be Careful!
% if($action eq "DO_SQL" && $submit && (! $sql_err) && $bool_unique_query){ % }