---

Class ::xolirc::Weblog

::xolirc::Weblog create ...

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::Weblog

::xotcl::Class create ::xolirc::Weblog \
     -superclass ::xowiki::Weblog

Methods (to be applied on instances)

• init (scripted)

  my instvar filter_msg package_id nr_items next_page_link prev_page_link
  my instvar date category_id tag ptag page_number page_size summary items locale
  my instvar name_filter entry_label entries_of sort_composite summary_chars
  
  my log "--W starting"
  set folder_id [::$package_id folder_id]
  set filter_msg  ""
  set query_parm ""
  
  # set up filters
  set extra_from_clause ""
  set extra_where_clause ""
  
  if {$date ne ""} {
    #set date_clause "and date_trunc('day',bt.publish_date) = '$date'"
    set date_clause "and [::xo::db::sql date_trunc_expression day bt.creation_date $date]"
    set filter_msg "Filtered by date $date"
    set query_parm "&date=$date"
  } else {
    set date_clause ""
  }
  if {$category_id ne ""} {
    set cnames [list]
    #append extra_where_clause "and c.object_id = ci.item_id and c.category_id = $category_id "
    #append extra_from_clause  ",category_object_map c "
    foreach cid [split $category_id ,] {
      append extra_where_clause "and exists (select * from category_object_map  where object_id = ci.item_id and category_id = $cid)"
      lappend cnames [::category::get_name $cid]
    }
    append extra_from_clause  ""
    set filter_msg "Filtered by category [join $cnames {, }]"
    set query_parm "&category_id=$category_id"
  }
  #my msg "tag=$tag"
  if {$tag ne ""} {
    set filter_msg "Filtered by your tag $tag"
    append extra_from_clause ",xowiki_tags tags "
    append extra_where_clause "and tags.item_id = ci.item_id and tags.tag = :tag and  tags.user_id = [::xo::cc user_id]" 
    set query_parm "&tag=[ad_urlencode $tag]"
  }
  #my msg "ptag=$ptag"
  if {$ptag ne ""} {
    set filter_msg "Filtered by popular tag $ptag"
    append extra_from_clause ",xowiki_tags tags "
    append extra_where_clause "and tags.item_id = ci.item_id and tags.tag = :ptag " 
    set query_parm "&ptag=[ad_urlencode $ptag]"
  }
  #my msg filter_msg=$filter_msg 
  if {$name_filter ne ""} {
    append extra_where_clause "and ci.name ~ E'$name_filter' "
  }
  set base_type ::xowiki::Page
  set base_table xowiki_pagei
  set attributes [list bt.revision_id bt.creation_date bt.title bt.creator bt.creation_user  ci.parent_id bt.description s.body pi.instance_attributes]
  
  set class_clause  " and ci.content_type not in ('::xowiki::PageTemplate','::xowiki::Object')"
  
  if {$entries_of ne ""} {
    if {[string match "::*" $entries_of]} {
      # xotcl classes were provided as a filter
      set class_clause  " and ci.content_type in ('[join [split $entries_of { }] ',']')"
    } else {
      # we use a form as a filter
      my instvar form_items
      set form_items [::xowiki::Weblog instantiate_forms  -forms $entries_of  -package_id $package_id]
      append extra_where_clause " and bt.page_template in ('[join $form_items ',']') and bt.page_instance_id = bt.revision_id "
      set base_type ::xowiki::FormPage
      set base_table xowiki_form_pagei
      set class_clause ""
    }
  }
  
  if {$locale ne ""} {
    #set locale "default+system"
    foreach {locale locale_clause}  [::xowiki::Includelet locale_clause -revisions bt -items ci $package_id $locale] break
    #my msg "--L locale_clause=$locale_clause"
    append extra_where_clause $locale_clause
  }
  
  # create an item container, which delegates rendering to its children
  set items [::xo::OrderedComposite new -proc render {} {
    set content ""
    foreach c [my children] { append content [$c render] }
    return $content
  }]
  
  foreach i [split [my exclude_item_ids] ,] {lappend ::xowiki_page_item_id_rendered $i}
  $items set weblog_obj [self]
  
  set sql  [list -folder_id $folder_id  -select_attributes $attributes  -orderby "creation_date desc"  -base_table $base_table  -from_clause " left outer join syndication s on s.object_id = bt.revision_id  left join xowiki_page_instance pi on (bt.revision_id = pi.page_instance_id)  $extra_from_clause"  -where_clause "ci.item_id not in ([my exclude_item_ids])  and ci.name != '::$folder_id' and ci.name not like '%weblog%' $date_clause  [::xowiki::Page container_already_rendered ci.item_id]  $class_clause  and ci.publish_status <> 'production'  $extra_where_clause" ]
  
  if {$page_number ne ""} {
    lappend sql -page_number $page_number -page_size $page_size 
  }
  
  set nr_items [db_string count [eval $base_type instance_select_query $sql -count true]]
  #my msg count=$nr_items
  #my msg sql=$sql
  set s [$base_type instantiate_objects -sql [eval $base_type instance_select_query $sql]]
  
  foreach c [$s children] {
    $c instvar revision_id creation_date title name item_id creator creation_user  parent_id description body instance_attributes
  
    set time [::xo::db::tcl_date $creation_date tz]
    set pretty_date [util::age_pretty -timestamp_ansi $time  -sysdate_ansi [clock_to_ansi [clock seconds]]  -mode_3_fmt "%d %b %Y, at %X"]
    
    if {$summary} {
      # we need always: package_id item_id parent_id name title creator creation_user pretty_date
      set p [::xowiki::Page new  -package_id $package_id -parent_id $parent_id  -item_id $item_id -revision_id $revision_id  -name $name -title $title -creator $creator]
      $p set creation_user $creation_user
      if {$description eq "" && [my compute_summary] && $body ne ""} {
        $p set description  [my get_description -nr_chars $summary_chars $body]
      } else {
        $p set description $description
      }
      $p set instance_attributes $instance_attributes
    } else {
      # do full instantiation and rendering
      # ns_log notice "--Render object revision_id = $revision_id $name $title ::$revision_id?[my isobject ::$revision_id]"
      set p [::xo::db::CrClass get_instance_from_db -item_id 0 -revision_id $revision_id]
      # in cases, the revision was created already earlier, drop the mixins
      if {[$p info mixin] ne ""} {$p mixin {}}
      if {[my exists entry_flag]} {$p set [my entry_flag] 1}
      if {[my no_footer]} {$p set __no_footer 1}
  #        if {[catch {$p set description [$p render]} errorMsg]} {}
      if {[catch {$p set description [$p render -with_footer false]} errorMsg]} {
        set description "Render Error ($errorMsg) $revision_id $name $title"
      }
      if {[my exists entry_flag]} {$p unset [my entry_flag]}
      #my log "--W $p render (mixins=[$p info mixin]) => $description"
    }
    $p set pretty_date $pretty_date
    $p set creation_date $creation_date
    #my log "--W setting $p set publish_date $publish_date"
    #$p proc destroy {} {my log "--Render temporal object destroyed"; next}
    #ns_log notice "--W Render object $p DONE $revision_id $name $title "
    $p mixin add [my set entry_renderer]
    #my log "--W items=$items, added mixin [my set entry_renderer] to $p, has now <[$p info mixin]>"
    $items add $p
  }
  
  array set smsg {1 full 0 summary}
  set weblog_href [$package_id package_url][$package_id get_parameter weblog_page]
  set flink "<a href='$weblog_href?summary=[expr {!$summary}]$query_parm'>$smsg($summary)</a>"
  
  if {$page_number ne ""} {
    set nr [llength [$items children]] 
    set from [expr {($page_number-1)*$page_size+1}]
    set to   [expr {($page_number-1)*$page_size+$nr}]
    set range [expr {$nr > 1 ? "$from - $to" : $from}]
    
    if {$filter_msg ne ""} {
      append filter_msg ", $range of $nr_items $entry_label (<a href='$weblog_href'>all</a>, $flink)"
    } else {
      append filter_msg "Showing $range of $nr_items $entry_label ($flink)"
    }
    
    set next_p [expr {$nr_items > $page_number*$page_size}]
    set prev_p [expr {$page_number > 1}]
    
    if {$next_p} {
      set query [::xo::update_query_variable [ns_conn query] page_number [expr {$page_number+1}]]
      set next_page_link [export_vars -base [::xo::cc url] $query]
    }
    if {$prev_p} {
      set query [::xo::update_query_variable [ns_conn query] page_number [expr {$page_number-1}]]
      set prev_page_link [export_vars -base [::xo::cc url] $query]
    }
  }
  #my proc destroy {} {my log "--W"; next}
  
  if {$sort_composite ne ""} {
    foreach {kind att direction} [split $sort_composite ,] break
    if {$kind eq "method"} {$items mixin add ::xo::OrderedComposite::MethodCompare}
    $items orderby -order [expr {$direction eq "asc" ? "increasing" : "decreasing"}] $att
  }
  my log "--W done"

---