[Amsn-commits] msn bugs.tcl,1.17,1.18

[Karol K. <roa...@us...>]

Update of /cvsroot/amsn/msn
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28609

Modified Files:
	bugs.tcl 
Log Message:
Added MSN Protocol Version to bug report. WIll commit the webpart with my other changes.

Index: bugs.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/bugs.tcl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** bugs.tcl	1 Jan 2006 03:30:47 -0000	1.17
--- bugs.tcl	29 Jan 2006 17:03:07 -0000	1.18
***************
*** 70,73 ****
--- 70,74 ----
  	set ::bugs::bug(protocol) [privacy [htmlentities [.degt.mid.txt get $prot_pos $prot_posend]]]
  	set ::bugs::bug(comment) ""
+ 	set ::bugs::bug(msnprotocol) [::config::getKey protocol]
  
  	::bugs::show_bug_dialog $errorInfo
***************
*** 100,103 ****
--- 101,105 ----
  	    puts $fd "\t\t<[string tolower $key]>$value</[string tolower $key]>"
  	}
+ 	puts $fd "\t\t<msnprotocol>$bug(msnprotocol)</msnprotocol>"
  	puts $fd "\t</system>"
  	puts $fd "\t<extra>"