BarboLino in visita alla mostra il Terzo Giorno !

BarboLino in visita alla mostra il Terzo Giorno !Data: 10-05-2018

Parte giovedì 17 maggio la seconda delle iniziative collaterali alla mostra "Il Terzo Giorno". firmate dall'Università di Parma. Un caffè scientifico in tre appuntamenti, organizzato dall'Ateneo con la collaborazione del Comune di Parma, per riflettere su ambiente, sostenibilità, rapporto uomo – natura e in particolare per confrontarsi su una domanda importante significativamente scelta come titolo della rassegna: "Siamo condannati all'estinzione?". L'iniziativa si svolgerà per 3 giovedì fino al 7 giugno al Caffè Le Bistrot di Piazza Garibaldi, dalle 18.30 alle 19.30, e sarà un'ulteriore occasione offerta a tutti gli interessati per approfondire i temi su cui verte la mostra in corso fino al 1° luglio al Palazzo del Governatore.

A guidare la riflessione saranno tre docenti dell’Università di Parma: il 17 maggio Davide Persico, docente di Paleobiologia e Museologia naturalistica, illustrerà "L'evoluzione della biodiversità nel tempo"; il 24 maggio Donato A. Grasso, docente di Zoologia e Etoecologia e sociobiologia, interverrà su "Animal (R)evolution: un elogio della biodiversità"; il 7 giugno, infine, Francesco Nonnis Marzano, docente di Biologia Animale e Conservazione della fauna, parlerà di "La cultura dell'uomo vista dalla parte dei pesci. Il progetto Life BARBIE".

*** I cambiamenti climatici e la non corretta gestione della risorsa idrica rendono l’acqua un bene prezioso, per i prossimi millenni. Differenti trasformazioni culturali stanno influenzando la gestione e la salvaguardia degli ambienti acquatici: si proverà ad analizzare la problematica ponendosi dal punto di vista dei pesci.

Ultimo aggiornamento: 10-05-2018
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]