Life Barbie

Notizie

  • 01-06-2023
    LINEE GUIDA METODOLOGICHE

    Le linee guida metodologiche vogliono essere uno strumento finale di progetto utile a chi voglia replicare e trasferire i risultati LIFE BARBIE. Forti dell'esperienza di progetto nelle linee guida vengono descritti i protocolli metodologici utilizzati per la conservazione del barbo. Il documento è il lingua italiana ed inglese con un approccio internazionalista.

    CLICCA QUI SCARICARE LE LINEE GUIDA METODOLOGICHE LIFE BARBIE

    Espandi Notizia
  • 20-03-2023
    After LIFE Conservation Plan

    L'After LIFE Conservation Plan descrive le azioni previste nel post progetto. In particolare sintetizza i risultati del LIFE BARBIE e i risultati di una "SWOT analysis" di progetto (punti di forza/debolezza - opportunità/minacce). Indica quindi gli scenari futuri e di replicabilità (cosa abbiamo imparato – cosa possiamo condividere – cosa lasciamo alle comunità locali) e gli obiettivi/azioni previsti dal partenariato di progetto nel post LIFE. Il documento di circa 25 pagine è redatto sia in lingua italiana che inglese.

    CLICCA QUI SCARICARE L'AFTER LIFE CONSERVATION PLAN LIFE BARBIE

    Espandi Notizia
  • 20-03-2023
    Layman's Report

    Il Layman's Report è un documento divulgativo in lingua italiana ed inglese che riassume le attività svolte nel progetto LIFE BARBIE ed i principali risultati ottenuti. In particolare descrive gli aspetti relativi le azioni chiave di progetto: gli interventi di reintroduzione e rinforzo faunistico- le azioni di controllo delle specie alloctone invasive- gli interventi di deframmentazione fluviale- le azioni di coinvolgimento degli stakeholders e di sensibilizzazione/comunicazione.

    CLICCA QUI SCARICARE IL LAYMAN'S REPORT LIFE BARBIE

    Espandi Notizia
  • 22-07-2022
    Formazione Continua

    Con piacere, facciamo gli auguri alla neodottoressa Benedetta Magnani che ha recentemente conseguito una tesi triennale sulla fauna acquatica in "Scienze della natura e dell'ambiente". Benedetta aveva avviato una collaborazione con l'Università di Parma già ai tempi del liceo grazie alle attività di coinvolgimento LIFE BARBIE. Nella foto, Benedetta è insieme al suo relatore PL Life Barbie prof. Francesco Nonnis Marzano e al suo professore di scienze del liceo Ulivi prof. Andrea Beseghi particolarmente sensibile ai temi della conservazione della natura e della biodiversità.

    Espandi Notizia
  • 29-09-2020
    Convegno finale di progetto

    Il 29 settembre dalle ore 9.00 sarà svolto un webinar sulla piattaforma zoom a cui si invitano tutti e tutte a partecipare. Nella mattinata saranno presentati i risultati del progetto LIFE BARBIE mentre nel pomeriggio sarà promosso il networking con altri progetti LIFE sulla tutela degli ambienti acquatici e la biodiversità. Il webinar sarà concluso con la presentazione degli obiettivi e delle principali azioni del After Life Plan.

    CLICCA QUI PER IL PROGRAMMA E PRESENTAZIONI

    CLICCA QUI PER RIVEDERE LA REGISTRAZIONE DEL CONVEGNO

    CLICCA QUI PER ISCRIVERTI

    La bassa risoluzione del video è stata scelta per meglio consentirne una visualizzazione on line - le presentazioni degli interventi sono liberamente scaricabili nella sezione "documenti".

    Espandi Notizia

Il Progetto

Il progetto LIFE13 NAT/IT/001129 si pone come obiettivo primario la conservazione ed il recupero delle popolazioni autoctone di barbo in Emilia Romagna come strumento di tutela della naturalità fluviale ai sensi delle Direttive 1992/43/CE e 2000/60/CE. Il progetto ha preso avvio nel luglio 2014 ed avrà una durata quadriennale; è articolato in n°26 azioni specifiche sotto il coordinameno dell’Università di Parma. 

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

        private variable galleria_d
        private variable gallery_sect_menu
        private variabl..."
    (in namespace eval "::rwdatas" script line 3)
    invoked from within
"namespace eval ::rwdatas {

    ::itcl::class Gallery {
        inherit Barbie

        private variable galleria_d
        private variable gallery_s..."


OUTPUT BUFFER:

source [file join $rweb_root tcl before.tcl]
#
# -- gallery.tcl
#
# datasource per pagina gestione delle
#
#

package require Barbie
package require rwbinary

namespace eval ::rwdatas {

    ::itcl::class Gallery {
        inherit Barbie

        private variable galleria_d
        private variable gallery_sect_menu
        private variable gallery_menu
        private common   thumb_h_size   200
        private common   gallery_dir
        private common   thumbnails_dir 

        private method page_handled {v p}
        public method willHandle {arglist keyvar} 
        public method fetchData {key reassigned_key} 
        public method init {args} 
        public method menu_list {page}
        #public method to_url {lm} { return [Barbie::to_url $lm] }
        #public method will_provide {keyword reassigned_key}
        public proc create_thumbnail {photo}
        public proc gallery {}
        public proc gallery_latest_entries {dbhandle nentries}
        public proc thumbnail_fs_path {photo}
	public proc thumbnail_path {photo}
	public proc thumbnail_exists {photo}
    }

    ::itcl::body Gallery::thumbnail_exists {photo} {
	return [file exists [thumbnail_fs_path $photo]]
    }

    ::itcl::body Gallery::thumbnail_fs_path {photo} {
	return [file join galleria thumbnails ${photo}]
    }

    ::itcl::body Gallery::thumbnail_path {photo} {
	return [::rivetweb::rewrite_generic_path [join [list galleria thumbnails $photo] "/"]]
    }

    ::itcl::body Gallery::create_thumbnail {photo} {
        set thumbnail 	[thumbnail_fs_path $photo]
        set photo_name  [file join $gallery_dir $photo]
 
        if {[catch {exec gm convert $photo_name -geometry $thumb_h_size $thumbnail} e]} {
            ::rivet::apache_log_error err "Error creating thumbnail $thumbnail: $e"
            return -code error -errorcode thumbnail_creation_error $e $e
        }
    }


    # -- page_handled
    #
    #

    ::itcl::body Gallery::page_handled {varsqs page_key} {
        upvar $page_key p

        foreach p [list photo gallery] {
            if {[dict exists $varsqs $p]} {
                return true 
            }
        }
        return false

    }

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

        set varsqs [dict create {*}$arglist]
        if {[dict exists $varsqs photo]} {
            set photo_filename [dict get $varsqs photo]
	    #
	    # proposed change
            #set key "view_photo_[regsub -all {[^[:alnum:]]} ${photo_filename}]"
	    #
            set key "view_photo_[::rivet::escape_string ${photo_filename}]"

            return -code break -errorcode rw_ok
        } elseif {[dict exists $varsqs gallery]} {
            set key "view_gallery"
            return -code break -errorcode rw_ok
        }

        return -code continue -errorcode rw_continue 
    }

    ::itcl::body Gallery::fetchData {key reassigned_key} {
        upvar $reassigned_key rkey
        
        set rkey $key

        set key [::rivet::unescape_string $key]
        switch -regexp -matchvar photo_name -- $key {
            view_photo_(.+) {
                $this check_class ::rwpage::Photo

                set photo_name [lindex $photo_name 1]

                set p [::rwpage::Photo ::#auto $key $gallery_dir $photo_name]

                #::rivet::apache_log_error notice "new instance of $p ::rwpage::Photo"
            }
            view_gallery {
                $this check_class ::rwpage::Gallery

                set p [::rwpage::Gallery ::#auto $key $gallery_dir]

                #::rivet::apache_log_error notice "new instance of $p ::rwpage::Gallery"
            }
            default {
				set p ""
			}
        }
        #::rivet::apache_log_error notice "new instance of ::rwpage::Photo (binary: [$p binary_content])"
        return $p
    }

    ::itcl::body Gallery::gallery_latest_entries {dbhandle nentries} {
        set     q "select g.*,s.descrizione from galleria g "
        append  q "join sezioni s on s.sectionid=g.sezione "
        append  q "order by g.creazione desc limit $nentries;"

        set galleria_d  [dict create]
        $dbhandle forall $q photo_a {
            dict set galleria_d [incr idx] [dict create {*}[array get photo_a]]
        }

        return $galleria_d
    }

    ::itcl::body Gallery::gallery {} {

        set     q "select g.*,s.descrizione from galleria g "
        append  q "join sezioni s on s.sectionid=g.sezione order by s.descrizione,s.ordine,g.ordine;"

        set galleria_d [dict create]
        $::barbie::dbhandle forall $q photo_a {
            
            set photo_name  $photo_a(filename)
            set sezione     $photo_a(sezione)
            set descrizione $photo_a(descrizione)
            unset photo_a(sezione)
            unset photo_a(filename)
            unset photo_a(descrizione)

            dict set galleria_d $sezione photos $photo_name \
							    [dict create {*}[array get photo_a]]
            dict set galleria_d $sezione descrizione $descrizione

        }

        return $galleria_d
    }

    ::itcl::body Gallery::init {args} { 
        Barbie::init $args       
    
        set gallery_dir [file join $::rivetweb::site_base galleria]
        if {![file exists $gallery_dir]} {
            file mkdir $gallery_dir
        }

        set thumbnails_dir [file join $gallery_dir thumbnails]
        if {![file exists $thumbnails_dir]} {
            file mkdir $thumbnails_dir
        }
        
        set galleria_d [::rwdatas::Gallery::gallery]
        $this register_class ::rwpage::Photo
        $this register_class ::rwpage::Gallery
    }

    ::itcl::body Gallery::menu_list {page} {

        set page_class [$page info class]
        if {($page_class == "::rwpage::Gallery") || \
            ($page_class == "::rwpage::Photo")} {

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

            set galleria_d [::rwdatas::Gallery::gallery]
            if {[dict size $galleria_d] == 0} { return [Datasource::menu_list $page] }

            catch {$gallery_menu destroy}
            set gallery_menu [$mm create_menu sezioni_galleria none normal]
            $gallery_menu assign title "Photo Gallery" en
            $gallery_menu assign title "Galleria Fotografica" it
            dict for {sectid section_d} $galleria_d {

                set gallery_section [$lm create Gallery "" \
                                    [list it [dict get $galleria_d $sectid descrizione]] \
                                    [dict create gallery 1 section $sectid] ""]

                $gallery_menu add_link $gallery_section

            }

            return [list evidenza $gallery_menu]
        } else {
            return {} 
        }
    }

}

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