Contatti / Partner

Parte del gruppo di lavoro BARBIE - luglio 2014

Coordinatore - Università degli studi di Parma
Viale delle Scienze, 11 - 43100 Parma bioscienze.unipr.it

Francesco Nonnis Marzano (Project Leader) (francesco.nonnismarzano@unipr.it)
Tel: 0521-905643

Pierluigi Viaroli (Responsabile tecnico) (pierluigi.viaroli@unipr.it)
Tel: 0521-905683

Simona Fontana (Responsabile amministrativa) (simona.fontana@unipr.it)
Tel: 0521-905641

Cecilia Ferrari (cecilia.ferrari@unipr.it)
Tel: 0521-905641

Marina Vaghi (marina.vaghi@unipr.it)
Tel: 0521-906015

Federica Piccoli (federica.piccoli@unipr.it)
Tel: 0521-906015

Laura Filonzi (laura.filonzi@unipr.it)
Tel: 0521-906015

Marco Bartoli (marco.bartoli@unipr.it)
Tel: 0521-905048

Rossano Bolpagni (rossano.bolpagni@unipr.it)
Tel: 0521-905696

Alex Laini (alex.laini@unipr.it)
Tel: 0521-905696

Mimmo Cavalca (mimmo.cavalca@unipr.it)
Tel: 0521-906984

Daniela Sciarra (consulente amministrativa) (daniela.sciarra@unipr.it)
Tel: 0521-906015

Autorità di Bacino del Fiume Po
Strada Garibaldi, 75 - 43100 Parma
www.adbpo.it

Christian Farioli (Responsabile tecnico) (christian.farioli@adbpo.it)
Tel: 0521-276228

Picarelli Alessio (alessio.picarelli@adbpo.it)
Tel: 0521.2761

Maria Collosi (Responsabile amministrativa) (maria.collosi@adbpo.it)
Tel: 0521-276233

Poggi Mariaelena (mariaelena.poggi@adbpo.it)
Tel: 0521.276255

Ente di Gestione per i Parchi e la Biodiversità
Piazza Ferrari, 5 43013 Langhirano (PR)
www.parchiemiliaoccidentale.it

Sonia Anelli (Responsabile tecnica) (s.anelli@parchiemiliaoccidentale.it)
Tel: 0521-802688

Marcella Ghiretti (Responsabile amministrativa) (m.ghiretti@parchiemiliaoccidentale.it)
Tel: 0521-802688

Enrica Montanini (e.montanini@parchiemiliaoccidentale.it)
Tel: 0521-802688

Spin Off Gen Tech S.r.l.
Viale G.B. Usberti, 11/A 43100 Parma
www.spinoffgentech.it

Armando Piccinini (Responsabile tecnico) (armandopiccinini68@yahoo.it)
Tel: 346-9414087

Andrea Voccia (andy.voccia@gmail.com)
Tel: 0521-906015

Nicola Rinaldi (Responsabile amministrativo) (nicola.rinaldi@abczeta.it)
Tel: 0521-235211

Ente Parco Nazionale dell’Appennino Tosco-Emiliano
Via Comunale, 23 54010 Sassalbo di Fivizzano (MS)
www.parcoappennino.it

Francesca Moretti (Responsabile tecnica) (francesca.moretti@parcoappennino.it)
Tel: 0522-899402

Willy Reggioni (Responsabile amministrativo) (willy.reggioni@parcoappennino.it)
Tel: 0522-899402

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]