1		ad_page_contract {
			2		displays a table of number of registrations by month
			3
			4		@author philg@mit.edu
			5		@creation-date Jan 1999
			6		@cvs-id $Id$
			7		@modified by sergiog@tid.es
			8		} -properties {
			9		context:onevalue
			10		user_rows:multirow
			11		MaxReg:onevalue
			12		temp:onevalue
			13		}
			14
			15
			16		#Only Admin can see this stats
			17		ad_require_permission [ad_conn package_id] "admin"
			18
			19
			20		set context [list [list "./site-card" "#user-tracking.lt_Site_Stats#"] "[_ user-tracking.lt_Site_Stats]"]
			21		set page_title [_ user-tracking.ut_Registration_Historic]
			22
			23		# we have to query for pretty month and year separately because Oracle pads
			24		# month with spaces that we need to trim
			25
			26		set temp 0
			27		set MaxReg 10
			28
			29
			30		set query registrations
			31
			32		db_0or1row max_register {}
			33
			34		template::list::create \
			35		-name registrations \
			36		-multirow registrations \
			37		-pass_properties temp \
			38		-elements {
			39		year {
			40		label #user-tracking.year#
			41		display_col pretty_year
			42		}
			43		month {
			44		label #user-tracking.month#
			45		display_col pretty_month
			46		}
			47		MaxReg {
			48		label "#user-tracking.registers#"
			49		display_template {
			50		<img src=img/vh.png height=13 width=@registrations.temp1@>
			51		}
			52		}
			53		NofReg {
			54		label "#user-tracking.registers_number#"
			55		display_col n_new
			56		}
			57
			58		} -filters {
			59		sort_key {}
			60		}
			61
			62		db_multirow -extend {
			63		temp1
			64		} registrations $query {} {
			65		set temp1 [expr $n_new*100/$MaxReg]
			66		}
			67
			68		#ad_return_template
				1	ad_page_contract {
				2	displays a table of number of registrations by month
				3
				4	@author philg@mit.edu
				5	@creation-date Jan 1999
				6	@cvs-id $Id$
				7	@modified by sergiog@tid.es
				8	} -properties {
				9	context:onevalue
				10	user_rows:multirow
				11	MaxReg:onevalue
				12	temp:onevalue
				13	}
				14
				15
				16	#Only Admin can see this stats
				17	ad_require_permission [ad_conn package_id] "admin"
				18
				19
				20	set context [list [list "./site-card" "#user-tracking.lt_Site_Stats#"] "[_ user-tracking.lt_Site_Stats]"]
				21	set page_title [_ user-tracking.Registrations_history]
				22
				23	# we have to query for pretty month and year separately because Oracle pads
				24	# month with spaces that we need to trim
				25
				26	set temp 0
				27	set MaxReg 10
				28
				29
				30	set query registrations
				31
				32	db_0or1row max_register {}
				33
				34	template::list::create \
				35	-name registrations \
				36	-multirow registrations \
				37	-pass_properties temp \
				38	-elements {
				39	year {
				40	label #user-tracking.year#
				41	display_col pretty_year
				42	}
				43	month {
				44	label #user-tracking.month#
				45	display_col pretty_month
				46	}
				47	NofReg {
				48	label "#user-tracking.registers_number#"
				49	display_col n_new
				50	html {align center}
				51	}
				52	MaxReg {
				53	display_template {
				54	<img src=img/vh.png height=13 width=@registrations.temp1@>
				55	}
				56	}
				57
				58
				59	} -filters {
				60	sort_key {}
				61	} -html {align center}
				62
				63	db_multirow -extend {
				64	temp1
				65	} registrations $query {} {
				66	set temp1 [expr $n_new*100/$MaxReg]
				67	}
				68
				69	#ad_return_template