Il programma finanziario LIFE

Il programma LIFE+ è uno strumento finanziario dell’Unione europea per sostenere la politica ambientale comunitaria con particolare riferimento alla realizzazione del “Sesto programma di azione comunitario per l'ambiente”. Ogni anno la Commissione pubblica un invito a presentare proposte definendo specifici temi di interesse. Possono ricevere finanziamenti organismi, soggetti e istituzioni pubblici e/o privati. A partire dalla Call2014, sono previsti due sottoprogrammi: “Ambiente” ed “Azioni per il Clima”.

Nel sottoprogramma “Ambiente” sono previsti anche i cosiddetti progetti tradizionali che riguardano i seguenti settori prioritari:

  • LIFE Ambiente e Uso efficiente delle Risorse;
  • LIFE Natura e Biodiversità;
  • LIFE Governance e Informazione in materia ambientale;
  • LIFE Mitigazione ai cambiamenti climatici;
  • LIFE Adattamento ai cambiamenti climatici;
  • LIFE Governance e informazione in materia di clima.
Nello specifico i LIFE Natura e Biodiversità hanno l’obiettivo di proteggere, conservare, ripristinare, monitorare e favorire il funzionamento dei sistemi naturali, degli habitat naturali e della flora e della fauna selvatiche, al fine di arrestare la perdita di biodiversità. In particolare i progetti LIFE+ Natura, come il progetto BARBIE, contribuiscono all’attuazione delle direttive “Uccelli” e/o “Habitat”, sia a livello locale sia a livello regionale, e sostengono l’ulteriore sviluppo e gestione della Rete Natura 2000. Possono prevedere azioni basate sulle specie (allegati II, IV e/o V della Direttiva “Habitat” e allegati I e II della Direttiva “Uccelli” o specie migratrici che ritornano regolarmente) o sui siti/habitat (allegati I o II della Direttiva “Habitat” e allegato I della Direttiva “Uccelli” o specie migratrici che ritornano regolarmente).

Per maggiori informazioni:

Programma LIFE(ing)

DATA BASE progetti LIFE finanziati (ing)

La Direttiva 92/43/CEE "Habitat"

La Direttiva 79/409/CEE "Uccelli" 

class "Downloads" already exists
    while executing
"::itcl::class Downloads {
        inherit Barbie

        private variable downloads_menu ""
        public  common   downloads_dir

        public me..."
    (in namespace eval "::rwdatas" script line 3)
    invoked from within
"namespace eval ::rwdatas {

    ::itcl::class Downloads {
        inherit Barbie

        private variable downloads_menu ""
        public  common   ..."


OUTPUT BUFFER:

source [file join $rweb_root tcl before.tcl]
#
# -- downloads.tcl
#
# yet another datasource for controlling document downloads
#
#::rivet::apache_log_error notice "sourcing file [info script]"
#

package require Barbie
package require rwbinary

namespace eval ::rwdatas {

    ::itcl::class Downloads {
        inherit Barbie

        private variable downloads_menu ""
        public  common   downloads_dir

        public method willHandle {arglist keyvar} 
        public method init {args}
        public method menu_list {page} 
        public method is_stale {key timereference}
        #public proc to_url {lm} { return [Barbie::to_url $lm] }

        public proc list_downloads {dbhandle {public "%"}}
        protected method create_page_obj {key ooclass reassigned_key} { return ""}
    }

    ::itcl::body Downloads::is_stale {key timereference} {
        if {$key == "download_doc"} { return true }
        
        return [chain $key $timereference]
    }

    ::itcl::body Downloads::list_downloads {dbhandle {public "%"}} {

        set q { select d.*,s.descrizione,s.sectionid from documenti d   \
                       join sezioni s on d.sezione=s.sectionid          \
                       where d.pubblico like '$public'                  \
                       order by s.sectionid,s.ordine,d.ordine,d.docid; }

        set docsdb [dict create]
        #puts "
[subst $q]
"

        $::barbie::dbhandle forall [subst $q] document {

            set sectionid $document(sectionid)
            unset document(sectionid)
            set sezione_descrizione $document(descrizione)
            unset document(descrizione)
            set docid $document(docid)
            unset document(docid)

            dict set docsdb $sectionid descrizione $sezione_descrizione
            dict set docsdb $sectionid documenti $docid [dict create {*}[array get document]]

        }
        return $docsdb

    }

    ::itcl::body Downloads::willHandle {arglist keyvar} { 
        upvar $keyvar key 

        set args_d [dict create {*}$arglist]
        if {[dict exists $args_d downloads]} {

            set key listdownloads
            return -code break -errorcode rw_ok 
        }
        if {[dict exists $args_d dwnl]} {

            set key download_doc
            return -code break -errorcode rw_ok 

        }

        return -code continue -errorcode rw_continue 
    }

    ::itcl::body Downloads::init {args} {

        set downloads_dir [file join $::rivetweb::site_base docs]
        $this key_class_map download_doc ::rwpage::BinaryFile
        $this key_class_map listdownloads ::rwpage::DownloadMgr

        set mm $::rivetweb::menumodel
        set lm $::rivetweb::linkmodel

        set downloads_menu [$mm create_menu downloadsmanager root normal]
        $downloads_menu assign title "Documenti" $::rivetweb::default_lang
        $downloads_menu assign title "Documents" en

        set downloads_link [$lm create FileUpload ""                                    \
                                    { it "Download Documenti" en "Documents Download" } \
                                    [dict create downloads 1]                           \
                                    [dict create it "Download documenti"                \
                                                 en "Documents Download"]]
        
        $downloads_menu add_link $downloads_link
    }

    ::itcl::body Downloads::menu_list {page} {
        return [list documenti $downloads_menu]
    }

    ::itcl::body Downloads::create_page_obj {key ooclass reassigned_key} {
        upvar $reassigned_key rkey

        set rkey $key
        
        set p ""
        switch $key {
            download_doc {

                set docid [::rivet::var_qs get dwnl]
                set d     [::barbie::Documenti #auto]
                set nr    [$d fetch $::barbie::dbhandle [list docid $docid] dd]

                if {[::barbie::is_logged] || [::barbie::is_supervisor]} {
                    set filter 1
                } else {
                    set filter [expr $dd(pubblico) == "y"]
                }

                if {($nr > 0) && $filter} {
                    set binary_file [file join $downloads_dir $dd(filename)]
                    set p [$ooclass ::#auto $key $binary_file]
                } else {
                    return -code error "Documento inaccessibile"
                }

                $d destroy

            }
            listdownloads {
                set p [$ooclass ::#auto $key]
                #$p configure -downloads_dir docs
            }
        }

        return $p
    }

}

package provide Downloads 1.0

source [file join $rweb_root tcl after.tcl]