Commit b63e1d05 authored by Bruno Coudoin's avatar Bruno Coudoin
Browse files

fixed to make it clickeable renamed, name too long

	* boards/gcompris/misc/raquette.png: fixed to make it clickeable
	* boards/music/background/Brahms_Johannes-String_Quartet_C_minor_Op
	_51_mvmt_4.ogg: renamed, name too long
	* boards/music/background/Brahms__Johannes_-_String_Quartet_C_minor
	__Op_51_mvmt_4.ogg:
	* docs/create_thumbnails.pl: fixed, do not overwrite created thumbs
	* docs/gcompris2spip.pl: fixed menu creation.
parent 13e8c7bc
2005-09-02 Bruno coudoin <bruno.coudoin@free.fr>
* boards/gcompris/misc/raquette.png: fixed to make it clickeable
* boards/music/background/Brahms_Johannes-String_Quartet_C_minor_Op
_51_mvmt_4.ogg: renamed, name too long
* boards/music/background/Brahms__Johannes_-_String_Quartet_C_minor
__Op_51_mvmt_4.ogg:
* docs/create_thumbnails.pl: fixed, do not overwrite created thumbs
* docs/gcompris2spip.pl: fixed menu creation.
2005-09-01 Yves Combe <yves@ycombe.net>
add more trace ofr the strange segfault
......
boards/gcompris/misc/raquette.png

24.9 KB | W: | H:

boards/gcompris/misc/raquette.png

24.9 KB | W: | H:

boards/gcompris/misc/raquette.png
boards/gcompris/misc/raquette.png
boards/gcompris/misc/raquette.png
boards/gcompris/misc/raquette.png
  • 2-up
  • Swipe
  • Onion skin
......@@ -19,9 +19,11 @@ foreach my $image (@files) {
# Skip old thumbs
next if ($image =~ m/_small\.jpg/);
print "Processing $image\n";
my $file = "$screenshots_dir/$image";
(my $thumb = $file) =~ s/\.jpg/_small\.jpg/;
next if (-f "$thumb");
system ("convert -geometry ".$thumb_size.
" -quality 100 $file $thumb") == 0
|| die "Problems with convert: $?\n";
......
......@@ -289,10 +289,15 @@ foreach my $board (@files) {
$board_section = ($board_content =~ /section=\"([a-zA-Z\/\.]+)\"/)[0];
$board_name = ($board_content =~ /name=\"([a-zA-Z\/\.\:]+)\"/)[0];
$board_type = ($board_content =~ /type=\"([a-zA-Z\/\.\:]+)\"/)[0];
if($board_type eq "menu") {
if($board_type eq "menu" and $board_name ne "root") {
print " This is a menu\n";
my @section;
push(@section, "$board_section/$board_name");
if( $board_section ne "/") {
push(@section, "$board_section/$board_name");
} else {
push(@section, "/$board_name");
}
push(@section, $board_name);
print " Section=$board_section\n";
......@@ -313,7 +318,6 @@ foreach my $board (@files) {
done:
close(BOARD);
}
print OUTPUT "\n</GComprisBoards>\n";
close (OUTPUT);
......@@ -339,7 +343,7 @@ foreach my $onesection (@sections) {
my $output = `xsltproc --stringparam language $lang --stringparam date "${date}" --stringparam article_id ${article_id} --stringparam rubrique_id $rubriques{$lang} --stringparam section $section --stringparam name $name --stringparam section_id $sections{$lang} --stringparam traduction_id ${traduction_id} $xslfile $all_boards_file`;
# print "xsltproc --stringparam language $lang --stringparam date \"${date}\" --stringparam article_id ${article_id} --stringparam rubrique_id $rubriques{$lang} --stringparam section $section --stringparam name $name --stringparam section_id $sections{$lang} --stringparam traduction_id ${traduction_id} $xslfile $all_boards_file\n";
#print "xsltproc --stringparam language $lang --stringparam date \"${date}\" --stringparam article_id ${article_id} --stringparam rubrique_id $rubriques{$lang} --stringparam section $section --stringparam name $name --stringparam section_id $sections{$lang} --stringparam traduction_id ${traduction_id} $xslfile $all_boards_file\n";
if ($?>>8) {
print "#\n";
......@@ -378,6 +382,12 @@ foreach my $board (@files) {
print "\nProcessing $board\nLang:";
# Skip some boards
if($board eq "administration.xml") {
print " (administration is skipped)";
next;
}
# The first article is the reference article
my $traduction_id = $article_id;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment