Azione A3

Parma nel Parco Nazionale dell'Appennino Tosco Emiliano
Fiume Enza (Sant'Ilario) - giugno 2015
Enza a monte di St. Ilario 2 (luglio 2015)
Parma nel Parco Nazionale dell'Appennino Tosco Emiliano
Download		 Fiume Enza (Sant'Ilario) - giugno 2015
Download		 Enza a monte di St. Ilario 2 (luglio 2015)
Download
Fiume Taro
Fiume Ceno
Enza dal Ponte di Montecchio (giugno 2015)
Fiume Taro
Download		 Fiume Ceno
Download		 Enza dal Ponte di Montecchio (giugno 2015)
Download
Parma
Fiume Enza
Enza a monte di St. Ilario (luglio 2015)
Parma
Download		 Fiume Enza
Download		 Enza a monte di St. Ilario (luglio 2015)
Download
Cedra
Studio macroinvertebrati bentonici
Lorno - Fontanili di Viarolo
Cedra
Download		 Studio macroinvertebrati bentonici
Download		 Lorno - Fontanili di Viarolo
Download
SIC IT4030013 - Vista sul fiume Enza
Fiume Enza in secca (Montecchio) - giugno 2015
fiume Enza a monte di St. Ilario (nov 2015)
SIC IT4030013 - Vista sul fiume Enza
Download		 Fiume Enza in secca (Montecchio) - giugno 2015
Download		 fiume Enza a monte di St. Ilario (nov 2015)
Download
Alto Trebbia
Stirone 1
Enza a Gattatico 2 (estate 2015)
Alto Trebbia
Download		 Stirone 1
Download		 Enza a Gattatico 2 (estate 2015)
Download
Enza a Gattatico (estate 2015)
Medio Taro
Fiume Enza in secca (Montecchio).2 - giugno 2015
Enza a Gattatico (estate 2015)
Download		 Medio Taro
Download		 Fiume Enza in secca (Montecchio).2 - giugno 2015
Download
Parma nel Parco Nazionale Appennino Tosco Emiliano
Stirone 2
Fiume Arda
Parma nel Parco Nazionale Appennino Tosco Emiliano
Download		 Stirone 2
Download		 Fiume Arda
Download
Enza a valle del ponte di Sant'Ilario (estate 2015)
Parma morta
Enza a valle del ponte di Sant'Ilario (estate 2015)
Download		 Parma morta
Download
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]