Mercurial > laserkard

comparison Laserkard.pm @ 57:8324f195ef36 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r58] implemented various changes
author rlm
date Sun, 14 Mar 2010 00:32:38 -0500
parents 95fa4bcc5d67
children 343dc947f999
comparison
equal deleted inserted replaced
56:2ca94aa58033 57:8324f195ef36
291 #~ 291 #~
292 #~ 292 #~
293 #~ $t =~ s/PERL::PIC/$all/g; 293 #~ $t =~ s/PERL::PIC/$all/g;
294 294
295 $t = <<HERE; 295 $t = <<HERE;
296 <image src = "./images/display/blank.jpg" 296 <image src = "./images/blank.jpg"
297 onmouseover = "pokedex(document.getElementById('currentSpec').innerHTML);" 297 onmouseover = "pokedex(document.getElementById('currentSpec').innerHTML);"
298 > 298 >
299 299
300 <div id = overlay> 300 <div id = overlay>
301 301
366 $b = &display("big_acrylic_clear"); 366 $b = &display("big_acrylic_clear");
367 $a =~ s/PERL-REPLACE::DISPLAY/$b/; 367 $a =~ s/PERL-REPLACE::DISPLAY/$b/;
368 368
369 $initials = <<HERE ; 369 $initials = <<HERE ;
370 { 370 {
371 "Name":"James Bond", 371 "Name":"My Name",
372 "Email":"jbond\@mi6.co.uk", 372 "Email":"email\@example.com",
373 "Phone": "123.456.7890", 373 "Phone": "(555)-555-5555",
374 "Company": "MI6", 374 "Company": "Company",
375 "Website" : "http://jamesbond.com", 375 "Website" : "http://www.example.com",
376 "Occupation" : "Secret Agent" 376 "Occupation" : "Occupation"
377 } 377 }
378 378
379 HERE 379 HERE
380 380
381 381