Azione A3

Fiume Enza (Sant'Ilario) - giugno 2015
Parma nel Parco Nazionale dell'Appennino Tosco Emiliano
Enza a monte di St. Ilario 2 (luglio 2015)
Fiume Enza (Sant'Ilario) - giugno 2015
Download		 Parma nel Parco Nazionale dell'Appennino Tosco Emiliano
Download		 Enza a monte di St. Ilario 2 (luglio 2015)
Download
Fiume Taro
Fiume Ceno
Enza dal Ponte di Montecchio (giugno 2015)
Fiume Taro
Download		 Fiume Ceno
Download		 Enza dal Ponte di Montecchio (giugno 2015)
Download
Parma
Fiume Enza
Enza a monte di St. Ilario (luglio 2015)
Parma
Download		 Fiume Enza
Download		 Enza a monte di St. Ilario (luglio 2015)
Download
Cedra
Studio macroinvertebrati bentonici
Lorno - Fontanili di Viarolo
Cedra
Download		 Studio macroinvertebrati bentonici
Download		 Lorno - Fontanili di Viarolo
Download
SIC IT4030013 - Vista sul fiume Enza
Fiume Enza in secca (Montecchio) - giugno 2015
fiume Enza a monte di St. Ilario (nov 2015)
SIC IT4030013 - Vista sul fiume Enza
Download		 Fiume Enza in secca (Montecchio) - giugno 2015
Download		 fiume Enza a monte di St. Ilario (nov 2015)
Download
Alto Trebbia
Stirone 1
Enza a Gattatico 2 (estate 2015)
Alto Trebbia
Download		 Stirone 1
Download		 Enza a Gattatico 2 (estate 2015)
Download
Enza a Gattatico (estate 2015)
Medio Taro
Fiume Enza in secca (Montecchio).2 - giugno 2015
Enza a Gattatico (estate 2015)
Download		 Medio Taro
Download		 Fiume Enza in secca (Montecchio).2 - giugno 2015
Download
Parma nel Parco Nazionale Appennino Tosco Emiliano
Stirone 2
Fiume Arda
Parma nel Parco Nazionale Appennino Tosco Emiliano
Download		 Stirone 2
Download		 Fiume Arda
Download
Enza a valle del ponte di Sant'Ilario (estate 2015)
Parma morta
Enza a valle del ponte di Sant'Ilario (estate 2015)
Download		 Parma morta
Download
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]