Summit per la Gestione sostenibile della Risorsa idrica

Summit per la Gestione sostenibile della Risorsa idricaData: 11-09-2020

Venerdì 11 settembre referenti del partenariato LIFE BARBIE sono stati invitati dall'Autorità distrettuale del fiume Po ad incontrare diversi stakeholders della gestione della Risorsa Idrica. In particolare dal confronto tra Parchi del Ducato, Università degli Studi di Parma, Autorità distrettuale del bacino del fiume Po, AIPO e i Consorzi di Bonifica del territorio (dell'Emilia Centrale, Parmense e di Piacenza) sono emersi diversi spunti interessanti verso la sottoscrizione di una dichiarazione di intenti per la gestione sostenibile e la tutela della risorsa idrica nel lungo tempo.

Documenti Associati
Programma del summit sulla gestione e la tutela della risorsa idrica dell'11 settembre 2020, organizzato dal partner di progetto Autorità distrettuale del Bacino del fiume Po
barbo_programma-11_09_2020-A4 (1).pdf - 
Ultimo aggiornamento: 15-09-2020
class "Downloads" already exists
    while executing
"::itcl::class Downloads {
        inherit Barbie

        private variable downloads_menu ""
        public  common   downloads_dir

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

    ::itcl::class Downloads {
        inherit Barbie

        private variable downloads_menu ""
        public  common   ..."


OUTPUT BUFFER:

source [file join $rweb_root tcl before.tcl]
#
# -- downloads.tcl
#
# yet another datasource for controlling document downloads
#
#::rivet::apache_log_error notice "sourcing file [info script]"
#

package require Barbie
package require rwbinary

namespace eval ::rwdatas {

    ::itcl::class Downloads {
        inherit Barbie

        private variable downloads_menu ""
        public  common   downloads_dir

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

        public proc list_downloads {dbhandle {public "%"}}
        protected method create_page_obj {key ooclass reassigned_key} { return ""}
    }

    ::itcl::body Downloads::is_stale {key timereference} {
        if {$key == "download_doc"} { return true }
        
        return [chain $key $timereference]
    }

    ::itcl::body Downloads::list_downloads {dbhandle {public "%"}} {

        set q { select d.*,s.descrizione,s.sectionid from documenti d   \
                       join sezioni s on d.sezione=s.sectionid          \
                       where d.pubblico like '$public'                  \
                       order by s.sectionid,s.ordine,d.ordine,d.docid; }

        set docsdb [dict create]
        #puts "
[subst $q]
"

        $::barbie::dbhandle forall [subst $q] document {

            set sectionid $document(sectionid)
            unset document(sectionid)
            set sezione_descrizione $document(descrizione)
            unset document(descrizione)
            set docid $document(docid)
            unset document(docid)

            dict set docsdb $sectionid descrizione $sezione_descrizione
            dict set docsdb $sectionid documenti $docid [dict create {*}[array get document]]

        }
        return $docsdb

    }

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

        set args_d [dict create {*}$arglist]
        if {[dict exists $args_d downloads]} {

            set key listdownloads
            return -code break -errorcode rw_ok 
        }
        if {[dict exists $args_d dwnl]} {

            set key download_doc
            return -code break -errorcode rw_ok 

        }

        return -code continue -errorcode rw_continue 
    }

    ::itcl::body Downloads::init {args} {

        set downloads_dir [file join $::rivetweb::site_base docs]
        $this key_class_map download_doc ::rwpage::BinaryFile
        $this key_class_map listdownloads ::rwpage::DownloadMgr

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

        set downloads_menu [$mm create_menu downloadsmanager root normal]
        $downloads_menu assign title "Documenti" $::rivetweb::default_lang
        $downloads_menu assign title "Documents" en

        set downloads_link [$lm create FileUpload ""                                    \
                                    { it "Download Documenti" en "Documents Download" } \
                                    [dict create downloads 1]                           \
                                    [dict create it "Download documenti"                \
                                                 en "Documents Download"]]
        
        $downloads_menu add_link $downloads_link
    }

    ::itcl::body Downloads::menu_list {page} {
        return [list documenti $downloads_menu]
    }

    ::itcl::body Downloads::create_page_obj {key ooclass reassigned_key} {
        upvar $reassigned_key rkey

        set rkey $key
        
        set p ""
        switch $key {
            download_doc {

                set docid [::rivet::var_qs get dwnl]
                set d     [::barbie::Documenti #auto]
                set nr    [$d fetch $::barbie::dbhandle [list docid $docid] dd]

                if {[::barbie::is_logged] || [::barbie::is_supervisor]} {
                    set filter 1
                } else {
                    set filter [expr $dd(pubblico) == "y"]
                }

                if {($nr > 0) && $filter} {
                    set binary_file [file join $downloads_dir $dd(filename)]
                    set p [$ooclass ::#auto $key $binary_file]
                } else {
                    return -code error "Documento inaccessibile"
                }

                $d destroy

            }
            listdownloads {
                set p [$ooclass ::#auto $key]
                #$p configure -downloads_dir docs
            }
        }

        return $p
    }

}

package provide Downloads 1.0

source [file join $rweb_root tcl after.tcl]