LIFE programme

LIFE+ is the EU’s financial instrument supporting the EU environmental policies with particular reference to the implementation of the “Sixth EU Environment Action Programme”. Every year the European Commission launches a call for proposals defining specific topics of interest. The funding can be earmarked to agencies and both public and / or private institutions or entities. Starting from Call 2014, two sub-programmes have been launched: “Environment” and “Climate Actions”. The “Environment” sub-programme also comprises the so-called traditional projects involving the priority sectors below:

  • LIFE Environment and Resource Efficiency;
  • LIFE Nature and Biodiversity;
  • LIFE Environmental Governance and Information;
  • LIFE Climate Change Mitigation;
  • LIFE Climate Change Adaptation;
  • LIFE Climate Governance and Information.
Specifically the Nature and Biodiversity LIFE projects aim at protecting, preserving, restoring, monitoring and promoting natural systems, natural habitats and the way they work as well as wild fauna and flora in order to stop biodiversity loss. In particular the LIFE+ Nature projects, exactly as the BARBIE project, contribute to the implementation of the “Birds” and/or “Habitat” directives, both at a local and at a regional level, and support the further development and management of the Natura 2000 Network. They can include actions based upon the species (annexes II, IV and/or V of the “Habitat” Directive and on annexes I and II of the “Birds” Directive or species that are regular migrants) or upon the sites/habitats (annexes I or II of the “Habitat” Directive e Annex I of the Birds Directive and additional regularly occurring migratory species).

For further Information:

LIFE Programme

LIFE project DATA BASE

La Direttiva 92/43/CEE "Habitat" (Ita)

La Direttiva 79/409/CEE "Uccelli" (Ita) 

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

        private variable loginmenu
        private variable logoutmenu

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

    ::itcl::class Login {
        inherit Barbie

        private variable loginmenu
        private variable logoutmenu

..."


OUTPUT BUFFER:

source [file join $rweb_root tcl before.tcl]
package require Barbie

namespace eval ::rwdatas {

    ::itcl::class Login {
        inherit Barbie

        private variable loginmenu
        private variable logoutmenu

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

    ::itcl::body Login::init {args} {

        $this register_class ::rwpage::UserLogin

        set mm $::rivetweb::menumodel
        set lm $::rivetweb::linkmodel
        set loginmenu [$mm create_menu loginmenu root normal]
        $loginmenu assign title "Login" $::rivetweb::language
        
        $loginmenu add_link [$lm create Login "" { it "Login" en "Login" }  \
                                                 [dict create login 1]      \
                                                 [dict create it "Login Sito" \
                                                              en "Site Login"]]

        set logoutmenu [$mm create_menu logoutmenu root normal]
        $logoutmenu assign title "Logout" $::rivetweb::language
        $logoutmenu add_link [$lm create Login "" { it "Logout" en "Logout" }  \
                                                 [dict create logout 1]       \
                                                 [dict create it "Logout dal Sito" \
                                                              en "Site Logout"]]
        

    }

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

        #puts "
######### [::SESSION fetch status logged] ########
"

        $this check_class ::rwpage::UserLogin
        set current_login_status [::SESSION fetch status logged]

        ::rivet::apache_log_error debug \
            "current_login_status: $current_login_status (logout: [::rivet::var exists logout])"

        if {[::rivet::var exists login] && ($current_login_status == 0)} {

            set key user_login
            return -code break -errorcode rw_ok

        } elseif {[::rivet::var exists logout] && ($current_login_status > 0)} {

            set key user_logout
            return -code break -errorcode rw_ok

        }
        ::rivet::apache_log_error debug "::rwdatas::Login not handling request for args $arglist"
        return -code continue -errorcode rw_continue
    }

    ::itcl::body Login::fetchData {key reassigned_key} {
        upvar $reassigned_key rkey

        set rkey $key
        
        if {($key == "user_login") || ($key == "user_logout")} {
			return [::rwpage::UserLogin ::#auto $key]
		} else {
			return ""
		}
		
    }

    ::itcl::body Login::menu_list {page} {
        if {[::SESSION fetch status logged] == 0} {
            return [list site_management $loginmenu]
        } else {
            $logoutmenu assign title \
                        "Logout [::SESSION fetch status username]" $::rivetweb::language 

            return [list site_management $logoutmenu]
        }
    }
}

package provide Login 1.0
source [file join $rweb_root tcl after.tcl]