toolbox version included

private/print_error.m

@@ -14,6 +14,9 @@ function print_error(programme,z,x,y,in,mflag,action)
 % $Revision$
 %
 % $Log$
+% Revision 4.8  2009/03/24 08:36:04  marwan
+% copyright address updated
+%
 % Revision 4.7  2004/11/10 07:04:29  marwan
 % initial import
 %
@@ -25,6 +28,10 @@ function print_error(programme,z,x,y,in,mflag,action)
 
 global errcode props
 
+% get CRP Toolbox version
+tb_path = fileparts(which('crp'));
+v = ver(tb_path);
+
   if ~isempty(findobj('Tag','TMWWaitbar')), delete(findobj('Tag','TMWWaitbar')), end
   if ischar(in), in2=in; else, in2=[]; end
   in=whos('in');
@@ -39,6 +46,7 @@ global errcode props
     err=fprintf(fid,'%s\n',repmat('-',50,1));
     err=fprintf(fid,'%s\n',datestr(now,0));
     err=fprintf(fid,'%s\n',['Matlab ',char(version),' on ',computer]);
+    err=fprintf(fid,'%s\n',[v.Name,' ',v.Version,' (',v.Date,')']);
     err=fprintf(fid,'%s\n',repmat('-',50,1));
     err=fprintf(fid,'%s\n',x);
     err=fprintf(fid,'%s\n',y);