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 "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]