Fix bug for runnumbers > 1000

src/external/MuSRFitGUI/MSR.pm

@@ -221,6 +221,7 @@ sub CreateMSR {
         # Also for Imaginaryand and Real for RRF fits
 
         $RUN = $RUNS[ $iRun - 1 ];
+	print "RUN=$RUN\n";
 
 	if ($All{"RUNSType"}) {
 	    $RUN_Line = MSR::RUNFileNameMan($RUN);
@@ -228,6 +229,8 @@ sub CreateMSR {
 	    $RUN_Line = MSR::RUNFileNameAuto($RUN,$YEAR,$BeamLine);
 	}
 
+	print "Line=$RUN_Line\n";
+
 	$Type_Line = "fittype         2";
 	$PLT       = 2;
 	$Hist_Lines =
@@ -1243,6 +1246,7 @@ sub RUNFileNameAuto {
     if    ( $RUN < 10 )   { $RUNtmp = "000" . $RUN; }
     elsif ( $RUN < 100 )  { $RUNtmp = "00" . $RUN; }
     elsif ( $RUN < 1000 ) { $RUNtmp = "0" . $RUN; }
+    else { $RUNtmp=$RUN; }
 	    
     # Get current year
     my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =

src/external/MuSRFitGUI/MuSRFit.pl

@@ -1,6 +1,6 @@
 # Form implementation generated from reading ui file 'MuSRFit.ui'
 #
-# Created: Fri Sep 4 16:09:38 2009
+# Created: Fri Sep 4 16:24:16 2009
 #      by: The PerlQt User Interface Compiler (puic)
 #
 # WARNING! All changes made in this file will be lost!