• Publicity: Public Only All

rss-utilities-procs.tcl

RSS support procs

Location:
packages/rss-support/tcl/rss-utilities-procs.tcl
Created:
Fri Oct 26 11:43:26 2001
Authors:
Andrew Grumet <aegrumet@alum.mit.edu>
Jerry Asher <jerry@theashergroup.com>
Dave Bauer <dave@thedesignexperience.org>
CVS Identification:
$Id: rss-utilities-procs.tcl,v 1.6.2.1 2021/10/21 11:48:31 antoniop Exp $

Procedures in this file

Detailed information

rss_first_url_for_package_id (public)

 rss_first_url_for_package_id package_id

Finds the first site node (ordered by node_id) associated with package_id and returns the relative url for that node. Returns empty string if the package is not mounted.

Parameters:
package_id (required)

Partial Call Graph (max 5 caller/called nodes):
%3 site_node::get_url_from_object_id site_node::get_url_from_object_id (public) rss_first_url_for_package_id rss_first_url_for_package_id rss_first_url_for_package_id->site_node::get_url_from_object_id

Testcases:
No testcase defined.

rss_package_id (public)

 rss_package_id

    # Returns the package_id for rss if it is rss is mounted.
    # Returns 0 otherwise.

Partial Call Graph (max 5 caller/called nodes):
%3 rss_gen_report_dir rss_gen_report_dir (private) rss_package_id rss_package_id rss_gen_report_dir->rss_package_id rss_package_url rss_package_url (public) rss_package_url->rss_package_id db_0or1row db_0or1row (public) rss_package_id->db_0or1row

Testcases:
No testcase defined.

rss_package_url (public)

 rss_package_url

    # Returns the rss package url if it is mounted.
    # Returns the empty string otherwise.

Partial Call Graph (max 5 caller/called nodes):
%3 rss_gen_091 rss_gen_091 (public) rss_package_url rss_package_url rss_gen_091->rss_package_url rss_gen_100 rss_gen_100 (public) rss_gen_100->rss_package_url rss_gen_200 rss_gen_200 (public) rss_gen_200->rss_package_url db_string db_string (public) rss_package_url->db_string rss_package_id rss_package_id (public) rss_package_url->rss_package_id

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

Content File Source

ad_library { 
    RSS support procs 
    
    @author Andrew Grumet (aegrumet@alum.mit.edu)
    @author Jerry Asher (jerry@theashergroup.com)
    @author Dave Bauer (dave@thedesignexperience.org)

    @creation-date Fri Oct 26 11:43:26 2001
    @cvs-id $Id: rss-utilities-procs.tcl,v 1.6.2.1 2021/10/21 11:48:31 antoniop Exp $
}


ad_proc -public rss_package_id {} {
    <pre>
    # Returns the package_id for rss if it is rss is mounted.
    # Returns 0 otherwise.
    </pre>
} {
    if {![db_0or1row get_package_id {}]} {
    return 0
    } else {
    return $package_id
    }
}   

ad_proc -public rss_package_url {} {
    <pre>
    # Returns the rss package url if it is mounted.
    # Returns the empty string otherwise.
    </pre>
} {
    set package_id [rss_package_id]
    return [db_string rss_url {} -default ""]

}

d_proc -public rss_first_url_for_package_id {
    package_id
} {
    Finds the first site node (ordered by node_id)
    associated with package_id and returns the
    relative url for that node.  Returns empty string
    if the package is not mounted.
} {
    return [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: