X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=mop%2Fproject%2Ftemplater.pl;h=c745cfd3340dde4b29f635d805943874c3192c48;hb=1636b318830d64ec5c393d1a2d043f595f0342c4;hp=bd48da18c0e722db51a2fb493c4860501db546d3;hpb=09e3eb7794c7c95ee123bff487c60a50ed467c7c;p=moe.git

diff --git a/mop/project/templater.pl b/mop/project/templater.pl
index bd48da1..c745cfd 100755
--- a/mop/project/templater.pl
+++ b/mop/project/templater.pl
@@ -25,7 +25,7 @@ sub create_template($$$$) {
 		"$taskdir/$task/$task.cpp" => "$task.cpp",
 	},
 	pas => {
-		"$where/template-pas.lpi" => "${task}_main.lpi",
+		"$where/template-pas.lpi" => "${task}.lpi",
 		"$taskdir/$task/$task.pas" => "$task.pas",
 	}
     );
@@ -60,8 +60,8 @@ sub open_project($) {
 
 sub existing_projects($) {
     my ($lopen_data,$lang)=@_;
-    foreach ((glob "$home/*/*.cbp"), (glob "$home/*/*.lpr")) {
-	my ($name, $task) = m#.*/(.*?)/(.*)(_main\.lpr|\.cbp)#;
+    foreach ((glob "$home/*/*.cbp"), (glob "$home/*/*.lpi")) {
+	my ($name, $task) = m#.*/(.*?)/(.*)(\.lpi|\.cbp)#;
 	print "$name $task\n";
 	$lang=-f "$home/$name/$task.c" ? 'C' : -f "$home/$name/$task.cpp" ? 'C++' : -f "$home/$name/$task.pas" ? 'Pascal' : '';
 	$lopen_data->set($lopen_data->append, 0, "$1", 1, $lang);